Code:program New; {.include srl/srl.scar} {.include SRL/SRL/Skill/WoodCutting.scar} Var x,y:integer; procedure DeclarePlayers; begin Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := ''; Players[0].Active:=True; end; procedure AntiBan; begin if(not(LoggedIn))then Exit; case Random(8) of 0: begin HoverSkill('Woodcutting', false); wait(2453+Random(432)); end; 1: PickUpMouse; 2: Begin MakeCompass('N'); wait(100+random(133)); makecompass('S') wait(50+random(133)); makecompass('N'); end; end; end; procedure ChopTree; var x, y: integer; Begin Repeat if FindObj(x, y, 'hop',3426622,35)then Mouse(x, y, 0, 0, false); ChooseOption('hop'); repeat wait(1200+random(250)); Until not IsUpText('illow') or (InvFull); until(InvFull); end; Function banking: Boolean; Begin If(InvFull)then Begin MakeCompass('N') wait(300+random(160)); OpenBankQuiet('db') if(FindColorSpiral(x,y, 4155248, 547, 206, 734, 464))then Begin Mouse(x,y,4,3,false); ChooseOption('all'); end; CloseBank Wait(150=Random(278)); //this right here is where it says to put the mismatch thing end; end; begin SetUpSRL; ActivateClient; DeclarePlayers; AntiBan; ChopTree; Banking; Until(false) end.


Reply With Quote
















And you seem like the type of person who wants to learn.
