Started making my autofighter, I run it on mosses but i getI followed a guide on freeing DTMs here:Code:Error: Out Of Range at line 1075 The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2] The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap]Script source:Code:http://villavu.com/forum/showthread.php?t=78418
Code:program New; //{$DEFINE SMART} {$i srl/srl.simba} Procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name :=''; Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Active:=True; end; procedure antiban; var StartAngle, clicks, i: integer; begin StartAngle := round(rs_GetCompassAngleDegrees()); begin i := random(90); case (i) of 1: begin KeyDown(VK_Left); Wait((302)+random(50)); KeyUp(VK_Left); IncEx(clicks, 1); end; 2: begin KeyDown(VK_Right); Wait((302)+random(50)); KeyUp(VK_Right); IncEx(clicks, 1); end; 3: begin KeyDown(40); Wait((208)+random(50)); KeyUp(40); IncEx(clicks, 1); end; 4: begin KeyDown(38); Wait((201)+random(50)); KeyUp(38); IncEx(clicks, 1); end; end; end; Wait(100+Random(50)); MakeCompass(StartAngle); begin case random(90) of 0: RandomRClick; 2: PickUpMouse; 3: RandomMovement; 4: BoredHuman; 5: ExamineInv; end; end; end; procedure destroymosses; var x, y:integer; begin wait(130+randomrange(130,210)); If FindColorSpiral(x, y, 5207917, MSX1, MSY1, MSX2,MSY2) then repeat wait(150); until(not srl_InFight); begin MMouse(x, y, 0, 0); begin wait(100); Mouse(x, y, 0, 0, true); wait(3500+randomrange(300,340)); wait(100+randomrange(50,102)); end; end; end; procedure heal; var x, y, shark: integer; begin if HPPercent<40 then begin if FindDTM(shark, x, y, MIX1, MIY1, MIX2, MIY2) then begin MMouse(x, y, 5, 5); Mouse(x, y, 0, 0, true); FreeDTM(shark); end; end; end; procedure dtmz; var shark:integer; begin shark := DTMFromString('mwQAAAHic42RgYLBjYmDwBmJzIDYEYjcg9oKyHYDYCogfAtV9AeLrQPwJiG8B8TMgfgql3wBxVZwrkGQkgAkDQiagmAIAZKMLiw=='); end; procedure freedtmz; var shark:integer; begin FreeDTM(shark); end; begin SetUpSRL; dtmz; AddOnTerminate('freedtmz'); repeat antiban; destroymosses; heal; until(false); freedtmz; end.
Thank you very much, can you guys also recommend me some guides with links or such to make my scripts more complex. Such as using constants, proggy reports, TPA arrays.



Reply With Quote
