Ok this is my first script im following YoHoJo's tutorial video step by step.
Can someone please tell me whats wrong?
Script:
Code:program YewCutter; //{$DEFINE SMART8} {$i SRL/SRL.simba} {$i P07Include.simba} procedure StatsGuise(wat:String); begin Status(wat); Disguise(wat); end; function CheckAndClick(UpText, Ootion:String; x,y:Integer; RClick:Boolean):Boolean; begin MMouse(x ,y ,5 , 5); if WaitUpText(UpText,1500+Random(500)) then begin Result:=True; GetMousePos(x, y); if RClick then begin Mouse(x, y, 0, 0, False); Result:= WaitOption('text', 2000); if Result then FFlag(0); end else begin Mouse(x ,y , 0, 0, True); Wait(100+Random(50)); FFlag(0); end; end; end; procedure Antiban; begin Case Random(250) Of 0: Begin StatsGuise('AntiBan') GameTab(Tab_Stats) HoverSkill('Skill_Woodcut', False) GameTab(28) end; 1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); end; 2: Begin StatsGuise('AntiBan') GameTab(Tab_Inv) ExamineInv; GameTab(28); end; 3: Begin StatsGuise('AntiBan') RandomAngle(1); end; 4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); end; 5: Begin StatsGuise('AntiBan') GameTab(Tab_Stats) ; HoverSkill('Skill_Random', False); GameTab(28); end; end; end; procedure FailSafe(Reason:String); begin Players[CurrentPlayer] .Loc:=Reason; Logout; Stats_Commit; //ProgressReport; TerminateScript; end; function ChopDown:Boolean; var x, y: Integer; begin if FindObjCustom (x, y, ['Ch', 'Do', 'Ye'], [3297875 , 284750 , 1525308 , 1462857 ], 0) Then begin Writeln ('Found a tree'); GetMousePos ( x, y); Case Random(2) Of 0: Mouse ( x, y, 5, 5, True); 1: begin Mouse ( x, y, 5, 5, False); WaitOption( 'Chop', 500); end; end; end; end; begin SetupSRL; //DeclarePlayers; //repeat ChopDown; //until( False); end.


Reply With Quote







