Ok so I keep getting an error of:
[Runtime Error] : Out Of Range in line 1087 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
now I have tried almost everything... I did an earlier post about this and changed the values but the error still came up. At this point im stuck...Heres what I have so far.
My script, I got some help from tutorials...thanks to everyone who wrote them! =)
I dont want to say I wrote all of it, basically I did all but the anti randoms and antibans plus the char setup and hiding it.I c/p'ed it from guides and some simple scripts. If its a problem I will erase all of what I c/pd and put in my own stuff(dont wanna be banned)
This is the only error im getting. no others...If you notice anything else that needs to be fixed please say so. Also this is my first script and I will be putting it under the First script forums soon.
So anyways here it is:
Code:// program MyFirstWoodcutter; {.Include SRL\SRL.Scar} const TreeColour1= 1719083; var x, y, i : integer; $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\\ procedure DeclarePlayers; begin HowManyPlayers := 1, (tried 0 also); NumberOfPlayers(HowManyPlayers); CurrentPlayer := 1, (tried 0 also); Players[0].Name := 'joetheplumber'; Players[0].Pass := 'joetheplumy'; Players[0].Nick := 'ot'; Players[0].Active := True; Players[1].Name := ''; {Insert Username} Players[1].Pass := ''; {Insert Password} Players[1].Nick := ''; {Nickname (Three letters of Username)} Players[1].Active := False; Players[2].Name := ''; {Insert Username} Players[2].Pass := ''; {Insert Password} Players[2].Nick := ''; {Nickname (Three letters of Username)} Players[2].Active := False; Players[3].Name := ''; {Insert Username} Players[3].Pass := ''; {Insert Password} Players[3].Nick := ''; {Nickname (Three letters of Username)} Players[3].Active := False; MouseSpeed := 12; End; //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\\ procedure PreparePlayer; begin if not LoggedIn then LoginPlayer; SetRun(True); end; procedure randoms; begin findnormalrandoms; if findfight=true then begin runaway('E',true,1,5000+random(1000)); end; end; procedure AntiBan; begin if not LoggedIn then Exit; case Random(30) of 1: RandomRClick; 2: HoverSkill('Woodcutting', False); 3: RandomMovement; 4: BoredHuman; 5: DoEmote(400 +Random(90)); end; end; Procedure RandomDisguise; Begin Case Random(21)Of 0: Disguise('Windows Live Messenger v.8.0'); 1: Disguise('Bigfix - Computer Protection Wizard'); 2: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox'); 3: Disguise('Tip.it Free RS quest help'); 4: Disguise('PhotoShop professional v12.9'); 5: Disguise('Google Toolbar'); 6: Disguise('Norton Internet Security'); 7: Disguise('Tip.it Runescape Help!'); 8: Disguise('Trust software and hardware development'); 9: Disguise('C:/Program/wireless/internet/broswer'); 10: Disguise('Microsoft Office Professional'); 11: Disguise('Desktop files'); 12: Disguise('SwiftSwitch i.explorer client'); 13: Disguise('Altavistas babelfish german translation'); 14: Disguise('internet explorer - microsoft incorparation'); 15: Disguise('Google.canada - Mozilla toolbar'); 16: Disguise('Google.co.uk - Microsoft Internet Explorer'); 17: Disguise('Microsoft Internet Explorer'); 18: Disguise('GameFAQs'); 19: Disguise('how/to/gain/and/loose/weight.txt'); 20: Disguise('moneyonlinesurveys.org/microsoft internet explorer'); End; End; procedure drop; begin if (InvFull) then DropAll; end; procedure cutter; begin if not LoggedIn then Exit; FindObj(x, y, 'Chop', TreeColour1, 10); Mouse(x, y, 4, 4, True); Wait(100+random(2000)); // i := i + 1; end; // procedure checkinv; //begin //if (i = 27)then //InvFull := true //end; //procedure drop; //begin //if (InvFull = true)then //DropAll; //end; begin SetupSRL; repeat randoms; AntiBan; cutter; drop; until (False) end.


Reply With Quote





