First off here's the part of the script I'll be asking about. (Thanks to The Man for cleaning it up.)
For some odd reason, everything works perfect in the script besides this one procedure. It compiles perfect with 0 errors, though it does not run the procedure correctly so there is something wrong.Code:procedure FireRain; var i, fire, bandage: Integer; begin repeat Wait(2 * 250 + random(50)); Writeln('Casting Fire Rain.'); if FindBitmap(fire, x, y) then begin HoldMouse(x, y, True); Wait(2 * 500 + random(50)); ReleaseMouse(x, y, True); end; Wait(6 * 1500 + random(50)); Writeln('Healing with Bandage.'); if FindBitmap(bandage, x, y) then begin MoveMouseSmooth(x, y); ClickMouse(x, y, True); end; Wait(2 * 2000 + random(50)); Inc(i); until (i = 10); end;
It only does the 'FireRain' (fire bitmap) command without doing the 'bandage' command following afterwards. So basically it ignores the whole bandage section of the procedure and only does the hold mouse/release mouse on the fire bitmap, will not do the bandage.
Any advice on what this could be? I'm starting to think I need a Begin somewhere in the script for it to begin the one section of the procedure which is Bandage. Thanks in advance <3
Notes:
I have the bitmaps loaded and identified.
I tried adding a Begin since theres a end in the middle of the procedure though comes back requesting an identifier near the end of the script that is NOT an end.



Reply With Quote

















