ID LIKE TO GIVE BIG THANKS TO...
-SANTACLAUSE
-KEVIN WOLF
-TOWN
for giving me big help
I don't know how to add a SCAR file attachment so i'll just put it here.. I would finish it but i'm going to quit rs and open a mil shop and quit for good in a few months. I can't be bothered with this stuff anymore.. I may be looking to learn programming down the road but anyway here it is.. (It has no anti-ban and only findnormalrandoms.) and theresno banking. I would add banking but srl isn't updated and i dont have time to wait and stuff..
Start in seers bank with compass north
Code:program ZetasMapleChop; {.include SRL\SRL.scar} {.include SRL\SRL\Skill\Woodcutting.SCAR} const Maple = 19058; //the color of the maple Maple2 = 16760; Maple3 = 9548; Tol = 12; RunDirection = 'S'; //the direction to run if in fight LogsToChop = 50; //how many logs to chop) procedure DeclarePlayers; begin HowManyPlayers := 1; //Number of players to use NumberOfPlayers(HowManyPlayers); //Don't Touch CurrentPlayer := 0; //Player to start with Players[0].Name := ''; //Players username Players[0].Pass := ''; //Players password Players[0].Nick := ''; //3-4 characters from players username(Lowercase and no spaces) Players[0].Active := True; //Are you using this player? end; procedure WalkToMaples; begin MakeCompass('N'); RadialWalk(2377842 , 315, 355, 32, 0, 0); end; procedure ChopMaples; var ChopMark: Integer; begin repeat if FindObjMulti('aple tree', Maple, Maple2, Maple3, Tol) then begin GetMousePos(X, Y); Wait(500 + Random(102)); Mouse(X, Y, 1, 1, True); MarkTime(ChopMark); repeat Wait(500 + Random(250)); FindNormalRandoms; until(TimeFromMark(ChopMark) >= (10000 + Random(5000))) or (InvFull); end; until(InvFull); end; procedure WalkToBank; begin if (InvFull) then begin MakeCompass('N'); RadialWalk( 9606557 , 218, 195, 50, 0, 0); end; end; begin ActivateClient; SetUpSRL; DeclarePlayers; repeat if not LoggedIn then loginplayer; WalkToMaples; ChopMaples; WalkToBank; until(false) end.







Reply With Quote
