SCAR Code:
Function FindAxeHeadColors: Boolean;
Var
AX, AY, Tries: Integer;
Begin
If(not(LoggedIn))then Exit;
GameTab(4);//here is line 105
// Look for axe in inventory
If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
Begin
AxeHeadColor1:= GetColor(AX + 5, AY + 3);
AxeHeadColor2:= GetColor(AX + 7, AY + 2);
AxeHeadColor3:= GetColor(AX, AY + 3);
EquipAxe:= False;
Result:= True;
end
else
Begin
GameTab(5);
Wait(100+Random(75));
// Look for axe equipped
If(FindBitmapMaskTolerance(AxeMask, AX, AY, MIX1, MIY1, MIX2, MIY2, 10, 5))then
Begin
AxeHeadColor1:= GetColor(AX + 5, AY + 3);
AxeHeadColor2:= GetColor(AX + 7, AY + 2);
AxeHeadColor3:= GetColor(AX, AY + 3);
EquipAxe:= True;
Result:= True;
End
GameTab(4);//here is line 105
End
// Try to get Axe From Bank
if (Result = False) then
Begin
// Open the bankscreen
Repeat
OpenBankFast('db');
Tries := Tries + 1;
Until ((BankScreen) Or (Tries > 4));
// Retrieve an axe
If BankScreen Then
Begin
Result := GetAxeFromBank;
Closebank;
End
End
// If axe has been found
If(Result= True)then
Begin
// Set flags accordingly
NoAxe:= False;
End
else
Begin
// No axe logout
Players[CurrentPlayer].Loc:= 'No Axe';
Logout;
End
Line 105: [Error] (12884:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.14\Scripts
plz help me solve this