SCAR Code:
procedure Pickupitem;
Var
Dx,Dy: Integer;
Begin
If Pickup then
begin
If (FindObj(Dx, Dy, 'ake', Pick1, MonTol)) Then
Items:= Items + +1;
Mouse(Dx,Dy,4,4,true)
else
If (FindObj(Dx, Dy, 'ake', Pick2, MonTol)) Then
Items:= Items + +1;
Mouse(Dx,Dy,4,4,true);
Flag;
FindFastRandoms;
end;
end;
Failed when compiling
Line 161: [Error] (15617:1): Identifier expected in script C:\Program Files\SCAR 3.06\Scripts\TFighter1.0.scar
This will probably have errors too then
SCAR Code:
procedure BuryBones;
Var
Dx,Dy: Integer;
Begin
If Bones then
begin
If (FindObj(Dx, Dy, 'ake', Bonecolor, MonTol)) Then
Mouse(Dx,Dy,4,4,true);
Writeln('Bones Found')
else
Writeln('Bones Not Found')
end;
If (FindObj(744, 437, 'ury', Boneinvcolor, MonTol)) Then
Mouse(Dx,Dy,4,4,true);
Buried:= Buried + +1;
end;
If (FindObj(785, 437, 'ury', Boneinvcolor, MonTol)) Then
Mouse(Dx,Dy,4,4,true);
Buried:= Buried + +1;
end;
If (FindObj(829, 437, 'ury', Boneinvcolor, MonTol)) Then
Mouse(Dx,Dy,4,4,true);
Buried:= Buried + +1;
end;
If (FindObj(702, 475, 'ury', Boneinvcolor, MonTol)) Then
Mouse(Dx,Dy,4,4,true);
Buried:= Buried + +1;
end;
If (FindObj(744, 475, 'ury', Boneinvcolor, MonTol)) Then
Mouse(Dx,Dy,4,4,true);
Buried:= Buried + +1;
end;
end;
end;
thank you for your help