Hi im on my Fourth Project
it's took time for all to work
but whit the_rs_monkey guide it worked! Thnx alot for u guide
Here is the code its as hes but this is just a BETA i will fix some new stuffs in v.1
Coming in Version 1
- Anti Ban
- Auto Responder
- Find Randoms
- Invrandoms
If i need to add something just pm me and i will try!
Here is the code
Code:{.Script Info: # ScriptName = TreeChopper # Author = Hasslarn # Description = A AutoChopper # Version = BETA # Date = 22/9 16;34 # Comments = Thanx to The_Rs_monkey guide! /Script Info} program New; {.include SRL/SRL.scar} const LoadsPerPlayer = 10; //Amounts of loads per player before switching. TreeColor = 0; //Fill in the treecolor here. WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds. procedure DeclarePlayers; begin SetupPlayers; Players[0].Name := 'Player Name'; Players[0].Pass := 'Player password'; Players[0].Nick := '3-5 words of the name'; Players[0].Active := True; Players[0].Name := 'Player Name'; Players[0].Pass := 'Player password'; Players[0].Nick := '3-5 words of the name'; Players[0].Active := True; Players[0].Name := 'Player Name'; Players[0].Pass := 'Player password'; Players[0].Nick := '3-5 words of the name'; Players[0].Active := True; LoadPlayerArray; end; procedure ChopTree; var x, y, MyMark : integer; begin if not Loggedin then Exit; MarkTime(MyMark); repeat if FindObj(x, y, 'hop', TreeColor, 30) then begin Mouse(x, y, 0, 0, False); if ChooseOption('hop') then begin //increase 1 to the total tree chop - if we had one Wait(WaitPerTree); Exit; //We clicked chop, now we can exit this procedure. end; end; if TimeFromMark(MyMark) > (2 * 60 * 100) then begin Logout; Exit; end; until false end; begin SetupSRL; DeclarePlayers; if LoggedIn then Logout; LoginPlayer; repeat ChopTree; if InvFull then begin DropToPosition(2, 28); Inc(Players[CurrentPlayer].Banked); if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then begin NextPlayer(True); end; end; if not Loggedin then NextPlayer(False); until false end.
or just download it....


Reply With Quote







