SRL Archive - Simba (Testing) Scripts

This is my script ( I'm looking though YoHoJo's tutorials)


program Lol123;

{$i SRL/SRL.simba}
{$i P07Include.Simba}


Procedure Antiban;
Begin
Case Random(2000) Of

0:Begin HoverSkill('Mining', False); GameTab(Tab_Inv);End;
1:Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); PickUpMouse;End;
2:Begin ExamineInv;End;
3:Begin RandomAngle(SRL_ANGLE_HIGH); SetAngle(SRL_ANGLE_HIGH);End;
4:Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv);End;
5:Begin HoverSkill('random', False); GameTab(Tab_Inv);End;

End;
End;


function Mining:Boolean;
var
x, y: Integer;
Begin
if FindObjCustom(x, y, ['ne', 'ine', 'm e'], [123456, 345678], 5); then
End;







begin
SETUPSRL;
Mining;
end.

Bumped line is what gives me trouble. The error I get is: [Error] C:\Simba\Scripts\miner.simba(27:68): 'THEN' expected at line 26
Compiling failed.

Any help please? :)

there is a ';' in that line. this is probably why u are getting that error

Your if statement has a ; at the end, get rid of it and it will read the THEN. So it should read like

if FindObjCustom(x, y, ['ne', 'ine', 'm e'], [123456, 345678], 5) then

EDIT: And yet again i'm just a second to slow.

Oh lol… Thank you all! :)