Code:
Procedure Accept1;
Begin
If (findcolorTolerance(x, y, 32768 , MSX1, MSY1, MSX2, MSY2, 25)) Then
Begin
MMouse(x, y, 3, 3);
Mouse(x, y, 3, 3, True);
If (findcolorTolerance(x, y, 32768 , MSX1, MSY1, MSX2, MSY2, 25)) Then
Begin
Repeat
MMouse(x, y, 3, 3);
Mouse(x, y, 3, 3, True);
If InChat('Well Done!') or
InChat('Oh dear, you are dead!') Then Break;
End;<---- Line 52
End;
Until(False)
End;
thats first step
go out at begin and in at end
Code:
Procedure Accept1;
Begin
If (findcolorTolerance(x, y, 32768 , MSX1, MSY1, MSX2, MSY2, 25)) Then
Begin
MMouse(x, y, 3, 3);
Mouse(x, y, 3, 3, True);
If (findcolorTolerance(x, y, 32768 , MSX1, MSY1, MSX2, MSY2, 25)) Then
Begin
Repeat
MMouse(x, y, 3, 3);
Mouse(x, y, 3, 3, True);
If InChat('Well Done!') or
InChat('Oh dear, you are dead!') Then Break;
End;<---- Line 52
End;
Until(False)
End;
Then theres this repeat, with the ends inside, but the begins outside. You can't do that. The have to be inside or outside each other.
Code:
begin
begin
begin
begin
setupsrl;
end;
end;
end;
end;
like that