I'm trying to compile and well i can't
SCAR Code:
{.include srl/srl.scar}
Function FalseAndWrite(Text:String):Boolean;
Begin
Result := False;
WriteLn(Text);
End;
Function SetOre(Ore,What:Integer):Integer;
Begin
Case What Of
0:Begin //Colour
Case Ore Of
0: Result := 1;//Bronze Colour
1: Result := 1;//tin colour
2: Result := 2634057;//Iron colour
End;
End;
1:Begin
Case Ore Of //Toll
0: Result :=1;
1: Result :=1;
2: Result :=22;
End;
End;
End;
End;
Function FindOre(Ore:Integer) :Boolean;
Var Time,Colour,Toll,i,a,x,y:Integer;//Time = for failsafe latter
MyTpa :TPointArray;
ClickPoint :TPoint;
Begin
X := MSCX
Y := MSCY
Colour := SetOre(Ore,0);
Toll := SetOre(Ore,1);
If Not FindColorsSpiralTolerance(x,y,MyTpa,Colour,Msx1,msy1,msx2,msy2,Toll) Then
Exit;
For i:= 0 To High(MyTpa) Do
Begin
ClickPoint := MyTpa[i]
Inc(a);
MMouse(ClickPoint.x,ClickPoint.y,4,4);
If IsUpText('ine') Then
Begin
GetMousePos(x,y);
Result := True
If Random(20)=5 Then
Begin
Mouse(x,y,0,0,False);
ChooseOption('ine');
End Else Mouse(x,y,0,0,True);
If A>=25 Then
Begin
Result := FalseAndWrite('UpText not found after moving mouse 25 time!!!');
Exit;
End;
End;
End;
Begin
SetupSRL;
End.
Code:
Failed when compiling
[Error] (22094:4): Identifier expected
Thanks
~Rya