You don't need to put begin FightMonster. Just put begin. And NO semi colon after begin. You've also missed out on several semi colons in the same procedure... semi colon at the end of every line except after begin, if then, while do, repeat, and before else. In that same procedure, you've put this:
SCAR Code:
procedure FightMonster;
begin
(FindColor (x,y,MonsterColor1,0,0,600,600))
(FindColor (x,y,MonsterColor2,0,0,600,600))
(FindColor (x,y,MonsterColor3,0,0,600,600))
(IsUpText('Attack'))
Mouse(x,y,1,1,true)
end;
I think you want this:
SCAR Code:
procedure FightMonster;
begin
if (FindColor (x,y,MonsterColor1,0,0,600,600)) or
(FindColor (x,y,MonsterColor2,0,0,600,600)) or
(FindColor (x,y,MonsterColor3,0,0,600,600)) then
MMouse(x, y, 1, 1);
Wait(50);
if (IsUpText('Attack')) then
Mouse(x,y,1,1,true)
end;