First off, I know this is the rock bottom of scripts but I just wanted to post this and get some feedback/criticism/help. A majority of this script came from @Griff and his scripting tutorial and I examined Bud's Fisher to find out how to go about antiban.
I will be adding more to this script as I receive more feedback and learn more. But could anyone tell me why it continues to right click and select the willow tree? I thought I had it written out so that it only clicks the tree once. Thank youCode:program ZedsWillowChopper; {$DEFINE SMART8} {$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 i : Integer; begin i := random(600) case i of 100: begin HoverSkill('woodcutting', False); end; 200: begin PickUpMouse; end; 300: begin ExamineInv; end; 400: begin RandomRClick; end; 500: begin MMouseOffClient('random'); end; end; end; procedure ChopWillow; var x, y: integer; begin repeat FindNormalRandoms; if FindObj(x, y, 'hop', 2832440, 35) then begin Mouse(x, y, 2, 2, false); ChooseOption('hop'); end; repeat Wait(400+random(250)); Until not IsUpText('illow') or (InvFull); until (InvFull); end; begin SetUpSRL; ActivateClient; DeclarePlayers; LoginPlayer; ChopMaple end.![]()


Reply With Quote





