First script for an RSPS and wanted to see how I'd do. The only error is on the very best line I get the error saying "Unexpected end of file". What'd I do wrong ?
Code:program New; {$i srl/srl.simba} var x, y: Integer; Procedure teleport; begin; MoveMouse(572, 360); Wait(100); ClickMouse(572, 360, mouse_Left); Wait(2000); MoveMouse(301, 430); Wait(100) ClickMouse(301, 430, mouse_Left); end; procedure ChopTree; var x, y: integer; begin if FindObj(x, y, 'hop', 12056824, 10) then begin Mouse(x, y, 0, 0, false); ChooseOption('hop'); repeat Wait(1200+random(250)); Until not IsUpText('ew') or (InvFull); MoveMouse(570, 285); Wait(100) ClickMouse(570,285, mouse_Left); Wait(4000) MoveMouse(266, 416) Wait(100) ClickMouse(266, 416, mouse_Left); Wait(6000); MoveMouse(278, 203); Wait(100); ClickMouse(278, 203, mouse_Left); Wait(3000); MoveMouse(660, 414); Wait(100); ClickMouse(660, 414, mouse_Left); end; begin repeat teleport; ChopTree; until false end;


Reply With Quote






