So this is the error I get when I try to hit play and let it log itself in:
Code:Error: Out Of Range at line 365 HTTPClient[0] has not been freed in the script, freeing it now. The following DTMs were not freed: [SRL - Lamp bitmap, 1] The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
** LINE 365**
The function ^ gets highlighted in the "globalstats" section that pops up in a new tab.Code:function stats_Commit: Boolean;
Here is my script:
Any help?Code:program MattiesPooter; {$DEFINE SMART} {$i SRL/SRL.Simba} const SERVER = 97; // Enter "0" to pick a random server. MEMBERS = True; //False if F2P //BreakEvery = 250; // How long to bot before break(min) //BreakFor = 10; // Break Length(min) NumbOfPlayers = 1; StartPlayer = 0; AntibanAttempt = 8; //How much Antiban? 1=Always 12+=Rare procedure DeclarePlayers; var i:integer; begin NumberOfPlayers(NumbOfPlayers); CurrentPlayer := StartPlayer for i := 0 to NumbOfPlayers-1 do Players[i].BoxRewards := ['XP']; With Players[0] do begin Name := 'name'; //Username. Pass := 'pass'; //Password. Active := True; Pin := 'pin' // Bank Pin end; end; procedure FailSafe (Reason:String); begin Players[CurrentPlayer].Loc:=Reason; Logout; Stats_Commit; TerminateScript; end; procedure AntiBan; begin Writeln('Antiban attempt..'); //Disguise('Antiban attempt..'); case random(AntibanAttempt) of 0: case random(4) of 0: begin Writeln('Performing Antiban!'); HoverSkill('Herblore',false); GameTab(Tab_Inv); end; 1: begin Writeln('Performing Antiban!'); PickUpMouse; end; 2: begin Writeln('Performing Antiban!'); RandomMovement; end; 3: begin Writeln('Performing Antiban!'); RandomAngle(SRL_ANGLE_HIGH); end; end; end; end; procedure Herb; var Time:Integer; begin Writeln('Herblore-ing..'); //GetColorsBox(613,329,632,348,True); Mouse(621,340,10,10,False); WaitOption('Use', 500); Wait(200+random(100)); Mouse(663,339,10,10,True); Wait(800+random(200)); Mouse(256,430,50,20,True); MarkTime(Time); repeat Wait(2000+random(100)); Antiban; until (TimeFromMark(Time)>16000+random(1000)) end; procedure Bank; var x,y,Time:Integer; begin MakeCompass('E'); SetAngle(SRL_ANGLE_HIGH); MarkTime(Time); repeat MMouse(223,168,5,12); GetMousePos(x,y); Wait(200+random(200)); if IsUpText('ank') then Mouse(x,y,0,0,True); until(PinScreen or BankScreen) or (TimeFromMark(Time)>30000); if PinScreen then begin InPin(Players[0].Pin); wait(500); Writeln('Banking..'); DepositAll; Withdraw(0,0,14); Withdraw(1,0,14); CloseBank; end else if BankScreen then begin Writeln('Banking..'); Wait(800+random(200)); DepositAll; Withdraw(0,0,14); Withdraw(1,0,14); CloseBank; end else begin Writeln('Could not find bank!'); FailSafe('No bank found'); end; end; begin //activateClient; Smart_Server := SERVER; Smart_Signed := True; Smart_Members:= MEMBERS; SetupSRL; Disguise('Matties Pooter!'); DeclarePlayers; if not (LoggedIn) then LoginPlayer; wait(5000+random(500)); Repeat Bank; Herb; until(false); end.


Reply With Quote



