SRL Archive - Archive

hey321 - SRL Member Application Form
hey321

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
None, just SCAR

Other Communitys
Ummm, to many to list :o

How Long have You Played Runescape
2 years or so i think

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well, i've been with scar for a few months (4-7?) and have been coding for a month or two. This is my best work so far, having problems with the repeat in the last procedure and the duel screen but other then that i hope its adequate (sp?).

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{.Script Info:
# ScriptName  = Hey321's Auto-Dueler
# Author      = Hey321
# Description = Auto accepts and waits until duel is over
# Version     = 0.3
# Date        = Dec, 17th
# Comments    = Copyright i WILL take action if i find this script being: 1.Sold 2.Impersonated (saying its your when its not)
/Script Info}
{If i forgot you in credits PM me on villu-reborn.com and i will add you.
Credits:
Boreas/Yakman for the chat coords
Junior for the DuelScreen help
Da Der Der for random talking!}
Program DuelTrainer;
{.include SRL/SRL.scar}

var
  FalseTimes: Integer;

function Duel: Boolean;
begin
  if ( FindColorTolerance ( x, y, 12926 , MCX1, MCY1, MCX2, MCY2, 1 )) Then
   begin
     Result := True
     WriteLn('Woot! We''re True and Safe!')
     MMouse(x, y, 3, 3);
     Mouse(x,y,3,3, True);
     FalseTimes:=FalseTimes-1
   end  //<------ No Semicolon ( one of these ; ) in here
  else //<---- nothing wrong here but the line above is added to this line at compile time
   begin
     WriteLn('OMFG It''s False');
     FalseTimes:=FalseTimes+1
     Result := False;
    If (FalseTimes>100) Then TerminateScript;
   End;
End;


Procedure FunDuel;
Var
RandomDuel : Integer;
DuelMsg : String;
Begin
 Repeat
  RandomDuel:= random(6)+1;
   Case(RandomDuel)Of
      0 : DuelMsg:=  ('funning all');
      1 : DuelMsg:=  ('fun dueling');
      2 : DuelMsg:=  ('funning everyone');
      3 : DuelMsg:=  ('dueling for fun');
      4 : DuelMsg:=  ('funning');
      5 : DuelMsg:=  ('funning anyone');
    End;
   TypeSend(DuelMsg);
  Until(duel)
End;

Procedure Accept1;
Begin
          Sleep(1000)
          If (findcolorTolerance(x, y, 32768 , MSX1, MSY1, MSX2, MSY2, 25)) Then
          Begin
            Sleep(1000)
            MMouse(x, y, 3, 3);
            Mouse(x, y, 3, 3, True);
           If (findcolorTolerance(x, y, 32768 , MSX1, MSY1, MSX2, MSY2, 25)) Then
             Begin
             Sleep(1000)
             MMouse(x, y, 3, 3);
             Mouse(x, y, 3, 3, True);
             If(not (Gametab(4))) Then
              Begin
              Repeat
               Wait(1000)
               If InChat('Well Done!') or
               InChat('Oh dear') Then Break;
              Until(InChat('Well done!') Or InChat('Oh dear'))
End;
          End;
             End;
              End;



Begin
SetupSRL;
ActivateClient;
Repeat
FunDuel;
Accept1;
Until(False);
End.

——————————————————

Hmm its too simple for me, but i see room for improvement
try making a miner or chopper or something a bit more special

Ill wait a bit though and re look at the script before i vote

I agree with Yoho, it does look a little too simple.

From: yohojo8
Hmm its too simple for me, but i see room for improvement
try making a miner or chopper or something a bit more special

Ill wait a bit though and re look at the script before i vote

Ok :(.Well, i hadn't seen many duelers out there and i started out to make one :o. But yea, i'll try to make like a miner or a chopper next time. I'll wait till this thread is gone first though.

in accordance with YoHo, i say No

ow and try to use SRL,

begin
 SRLRule#1:=MultiPlayer;
 SRLRule#2:='until(false) without break is WRONG';
end

i hope you will use that in your next script:)

He does have a terminate script in there, but more ways to break out would be nice.

Ok, ill take that into consideration and start working on it again :).

i can tell you have some good scar/srl knowledge
just take some time to make a litle better script and il accept you for sure. =)
Cant wait to see your new script =)

good luck

Membership Granted. Stay active and learn.