View Full Version : Can someone tell me whats wrong with this?
Hey321
12-17-2006, 09:24 PM
Wierd, something is going wrong :(
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;
My error:
Line 52: [Error] (15550:1): Identifier expected in script
Boreas
12-17-2006, 09:26 PM
indent and you will see the problem. repeat matches up with until and begin with end.
Hey321
12-17-2006, 09:30 PM
What? No idea what you mean man.
Boreas
12-17-2006, 09:34 PM
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
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.
begin
begin
begin
begin
setupsrl;
end;
end;
end;
end;
like that
Pentti
12-17-2006, 09:42 PM
Yeah, he says that you must replace your 2 ends in your script to other place:
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;
Until(False)
End;
End;
End;
Hey321
12-17-2006, 09:49 PM
Ohhhhh, ok thanks guys i get it now :). I'll test it and if it works then im gonna post it :).
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.