SCAR Code:
program AutoMiner;
{.Include Srl/Srl.scar}
var
x, y, OresMined, OreColor1, OreColor2, OreColor3 : Integer;
const
OreToMine=('copper');
HowManyOres=(1);
OreColor4=(0);
OreColor5=(0);
OreColor6=(0);
InvColor=(0);
Procedure Convert;
Begin
If (OreColor5=(0)) and
(OreColor4=(0)) and
(InvColor=(0)) and
(OreColor6=(0)) Then
Begin
If (OreToMine=('copper')) Then
Line 20: OreColor1=(4483472)
OreColor2=(5076643)
OreColor3=(5142693)
InvColor=(3768282)
End;
End;
Procedure DeclarePlayers;
Begin
HowManyPlayers:= 2;
NumberOfPlayers(2);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='';
Players[1].Active:=True;
End;
Procedure AB;
Begin
Case Random(8) of
1, 2:PickUpMouse;
3, 4:BoredHuman;
End;
Procedure Mine;
Begin
If (FindColor(x, y, OreColor1, 0, 0, 516, 337)) or
(FindColor(x, y, OreColor2, 0, 0, 516, 337)) or
(FindColor(x, y, OreColor3, 0, 0, 516, 337)) then
Begin
MMouse(x, y, 5, 5);
Wait(100+random(250));
if IsUpText('ine') then
Begin
Mouse(x, y, 5, 5, True);
OresMined:=OresMined + 1;
AB;
End;
End;
End;
Begin
begin
SetupSrl;
ActivateClient;
DeclarePlayers;
Login;
Repeat
Mine;
Until(OresMined >= HowManyOres) Then
Logout;
end.
What am i doing wrong?
Line 20: [Error] (16070:10): Assignment expected in script