Help with Do loop, and other

[skilzrulz]

WinActivate("EVE")
Dim $delay

$delay = 60040

Do
Opt("MouseClickDelay", $delay)
    $delay = $delay + 124
    Until $delay = 70346

Dim $xFrom, $yFrom, $xTo, $yTo, $speed

$xFrom = 80
$yFrom = 592
$xTo = 83
$yTo = 452
$speed = 2
Do
MouseClickDrag ("Left", $xFrom, $yFrom, $xTo, $xFrom, $speed)
    $xFrom = $xFrom + 1
    $yFrom = $yFrom + 2
    $xTo = $xTo + 5
    $yTo = $yTo + 3
    $speed = $speed + 1

Until $xFrom = 89
Until $yFrom = 603
Until $xTo = 92
Until $yTo = 461
Until $speed = 8

(This is my very first time programming)

I just made this program for a game to auto-mine, but to make it undectable it had to vary in mouse clicks, but it gives me an error. "Until $yFrom = 603 Error: "Until" statement with no matching "Do" statement."

Any suggestions on how I should fix this up, thanks

[CyberSlug]

Do
    MouseClickDrag ("Left", $xFrom, $yFrom, $xTo, $xFrom, $speed)
    $xFrom = $xFrom + 1
    $yFrom = $yFrom + 2
    $xTo = $xTo + 5
    $yTo = $yTo + 3
    $speed = $speed + 1
Until $xFrom >= 89 And $yFrom >= 603 And $xTo >= 92 And $yTo >= 461 And $speed >= 8

I used greater-than-or-equal-to just be safe (preventing an infinite loop), but a normal equals would probably work

EDIT: Acutally, if you just want the loop to execute 9 times you could do this:

Dim $i
For $i = 1 to 9
    MouseClickDrag ("Left", $xFrom, $yFrom, $xTo, $xFrom, $speed)
    $xFrom = $xFrom + 1
    $yFrom = $yFrom + 2
    $xTo = $xTo + 5
    $yTo = $yTo + 3
    $speed = $speed + 1
Next

where $i is a variable you create solely as the loop index.

Yet another variation:

For $xFrom = 80 to 89
    $yFrom = $yFrom + 2
    $xTo = $xTo + 5
    $yTo = $yTo + 3
    $speed = $speed + 1
Next

Edited October 7, 2004 by CyberSlug