SimpleChopper
Normal Tree powerchopper
Code:program WoodCutter; {.include srl/srl.scar} {.include srl/srl/skill/woodcutting.scar} Procedure DeclarePlayers; begin HowManyPlayers :=2; NumberOfPlayers(HowManyPlayers); CurrentPlayer:=0; Players[0].Name :='' Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Active:=True; Players[1].Name :=''; Players[1].Pass :=''; Players[1].Nick :=''; Players[1].Active:=True; end; procedure FindWcRandoms; begin FindNormalRandoms; FindHead; FindEnt(4156042); if not loggedin then RandomNextPlayer(False); end; procedure FindTree; var x,y,prevcount,a:integer; begin prevcount:=invcount; if FindObj(X,y,'hop',3760254,10) then Mouse(x,y,10,5,true); a:=0; repeat wait(2000); a:=a+1; if a=3 then break; until(invcount>prevcount) end; begin Setupsrl; declareplayers; FindAxeHeadColor; repeat FindTree; FindWcRandoms; if InvFull then DropAllLogs; until(getskilllevel('woodcutting')=99); end.



Reply With Quote


