Probly just a end or something i missed/cant find but im geting a Identifier expected
SCAR Code:
Function FightMonster:Boolean;
Var x,y,b,i,h :Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
Begin
X := MSCX
Y := MSCY
SetColours(WhichMonster);
If Not AreaAndMonster Then
Change;
FindColorsSpiralTolerance(x, y, TPA, Colour, MSX1, MSY1, MSX2, MSY2, Toll);
ATPA := TPAtoATPA(TPA, 7);
If Length(ATPA) = 0 Then //If no points were found
Begin
WriteLn('No colour found :(');
Result := False;
Exit;
End;
H := High(ATPA);
For I := 0 To H Do
Begin
MiddleTPAEx(ATPA[I], X, Y); //Used to get the middle of the current sorted tpa
Inc(b);
MMouse(x,y,6,6);
Wait(250+Random(500));
If IsUpText(SetText) Then
Begin
WriteLn('UpextFound');
If Not Random(34)=4 Then
Begin
GetMousePos(x,y);
Mouse(x,y,0,0,True);
End Else Begin
GetMousePos(x,y);
Mouse(x,y,0,0,False);
ChooseOption('ttack');
End;
End;
If (b=25) Then
Begin
WriteLn('Tryed 25 times with no uptext :(');
Result := False;
Exit;
End;
End;
Thanks
~Rya