Any help?
Code:program MTAARENA; {$DEFINE SMART8} {$i SRL-OSR/Srl.simba} {$i SRL-OSR\SRL\skill\magic.simba} //Editted version I found that was made for osr {$i sps/sps-osr.simba} //Tried to Add walking but didn'really want to work :( Procedure DeclarePlayers; Begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := ''; Players[0].Active := True; End; Procedure PickupCubes; var x, y: integer; begin repeat if FindObj(x, y, 'ake-from', 2921394, 10) then begin Mouse(x, y, 0, 0, true); ChooseOption('ake-from'); wait(500+random(200)); end;Until (invfull) end; Procedure CastEnchant; var count :integer ; begin repeat castspell('37'); wait(800+random(200)) InvMouse(28,1) count := count + 1 Until count=25 end; begin SetupSRL; DeclarePlayers; LoginPlayer; Pickupcubes; castenchant; end.


Reply With Quote

