SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
siroober - SRL Member Application Form
siroober

What is the meaning to life?


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


Programming Knowledge
Basic Java

Other Communitys
Former Sythe Member

How Long have You Played Runescape
4 years

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

Well, Runescape is one of my hobbies. I enjoy Finding ways to cheat Jagex 'Quote on Quote' (since there are no cheats for Runescape) but at the same time I treat them with respect. I looked into the scripting tutorials and it is amazingly fun to create bots that do all the work for you. I see it as a way to contribute to your commmunity and doing something i enjoy at the same time. I have just recently created my first working script and would like to go further into Script writing. It is probaly the upmost challenging and interesting thing ive done as far as programming. I really think the SRL community could give me my start into the programming field.

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

program OoberWillowTorcher;

{.include SRL/SRL.scar}

const
YourSRLId = '';
YourSRLPassword ='';


procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Fix accordingly\\
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'Ocarina'; //<==Example
Players[0].Pass := '896142'; //<==Example
Players[0].Nick := 'cari'; //3 or 4 letters from your username\\
Players[0].Active := True; //If you want player to be ran in script\\
Players[0].Strings[1] := 'willow'; //Do Not Touch\\
SRLId:= ''; //Must Fill Out\\
SRLPassword:= '';


end;


//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


procedure Signature;
begin
Writeln('++++++++++++++++++++++++++++++++++++++++');
Writeln('++__++__+___++__+___++++++++++++++++++++');
Writeln('+[ ][ ][__)[__ [__)+++++++++++++++++++');
Writeln('+[__][__][__)[__ [ \+++++++++++++++++++');
Writeln('+++++++++++++++++++__+++++++++++++++++++');
Writeln('+\ / | | | [ ] \ /+++++++++++');
Writeln('+ \/\/ | |__ |__ [__] \/\/++++++++++++');
Writeln('+++____ __ ___ __ __ ___ +++++++++');
Writeln('+++ | [ ][__)[ [__][__ [__)+++++++++');
Writeln('+++ | [__][ \[__ [ ][__ [ \+++++++++');
Writeln('+++++++++++++Version 1.0++++++++++++++++');
end;

procedure proggie; forward;
Procedure beginlightwillow; Forward;

procedure WaitForLight;
begin
wait(900);
if InChat('light') then
repeat
Wait(200);
FindTalk;
Wait(250);
Wait(800);
ClickToContinue;
until InChat('fire');
end;


var
x, y, willow, tinderbox, Burns: Integer;

procedure DeclareDtms;
begin

willow := DTMFromString('78DA635462606090664001D1414A0C72409A1' +
'188FF0301A3289021CF800618914820CD0F242409A8110012B204' +
'D4C8000945026AD480841C01353A98FEC250A305244408A8D1051' +
'2E2F8D5000008D10714');

Tinderbox := DTMFromString('78DA639461606010654001F18EDC0C72409A1' +
'188FF0301232F9021CB800618914820CD8D690E861A2520C14E40' +
'8D3A901023A0469108F748030925026A40F670E3570300BBFF065' +
'A');

end;

procedure WalkRandom;
begin
begin
case random(3) of
0: RadialRoadWalk(FindVarrockRoadColor, 41, 53, 56, 5, 5);
1: RadialRoadWalk(FindVarrockRoadColor, 32, 40, 56, 5, 5);
2: RadialRoadWalk(FindVarrockRoadColor, 28, 38, 48, 5, 5);
3: RadialRoadWalk(FindVarrockRoadColor, 16, 26, 36, 5, 5);
end;
end;
end;

procedure WalkBank; forward;

procedure Beginlightwillow;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(willow, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
Wait(900 + Random(487));
WaitForLight;
until (not (FindDtm(willow, x, y, mix1, miy1, mix2, miy2)))
if (not (FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2))) then
Burns := Burns + 27;
ReportVars[1]:= ReportVars[1] + 27;
ReportVars[4]:= ReportVars[4] + 2430;
SendSrlReport;
WalkBank;
end;


procedure BeginWillow;
begin
if FindDTM(Willow, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(250);
ChooseOption('All');
CloseBank;
WalkRandom;
BeginLightWillow;
end;

procedure WithdrawWillows;
begin
FindNormalRandoms;
MakeCompass('N');
wait(275 + random(23));
OpenBankQuiet('veb');
Wait(1750);
fixbank;
FindNormalRandoms;
case lowercase(Players[CurrentPlayer].Strings[1]) of
'willow': Beginwillow;
end;
end;


procedure BeginBank;
begin
SymbolAccuracy := 0.1;
Wait(103);
MakeCompass('N');
Wait(300);
if FindSymbol(x, y, 'Bank') then
Mouse(x, y, 5, 5, true);
Flag;
FindNormalRandoms;
ReportVars[3]:= ReportVars[0] + 1;
SendSrlReport;
WithdrawWillows;
end;

procedure WalkBank;
begin
RadialRoadWalk(FindVarrockRoadColor, 78, 88, 65, 5, 5);
Flag;
FindNormalRandoms;
BeginBank;
end;

procedure Proggie;
begin
ClearDebug;
Writeln('[[[[[[[[Oober`s Willow Torcher]]]]]]]');
Writeln(' Ran For: ' + (TimeRunning) + '');
Writeln(' Logs Burned :' + IntToStr(burns) + '');
Writeln(' No proggys = No updates POST PROGGYS');
Writeln('[[[[[[[[[[Thankyou For Using]]]]]]]]]');
SrlRandomsReport;
end;

begin
repeat
SetupSrl;
ScriptId:= '679';
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
if SRLId = '' then
begin
SRLId:= '5926';
SRLPassword:= 'doggy1';
Signature;
DeclarePlayers;
DeclareDtms;
MouseSpeed := 12;
WithdrawWillows;
Proggie;
end;
until (false);
Proggie;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Next time please use the scar tags. I'm going for a no, it's abit to simple.

- Fix those standards
- get some failsafes
- I'm asuming you are Oober?
- Maybe there is something wrong with the SRL stats, cause i couldn't find your scriptID 679
- Part of your mainloop confused me abit

begin
  repeat
    SetupSrl;
    ScriptId:= '679';     
    SRLId := YourSRLId;                     //you set it here
    SRLPassword:= YourSRLPassword;  //you set it here
    if SRLId = '' then
    begin
      SRLId:= '5926';                 //you set them again here
      SRLPassword:= 'doggy1';    //you set them again here
      Signature;
      DeclarePlayers;    //And once again in here

1 thread a time, please.