Confusing Code

[FinalVersion]

I can't get my head around to whats wrong, help is defiantly appreciated.

Ver()

Func Hoz()
    $x = 1
    $x = $x + 1
    Do
        $jpos = MouseGetPos()
        MouseMove($JPos[0] + 17, 45, 0)
        Sleep(100)
        Ver()
    Until $x = 3
EndFunc     ;==>Hoz

Func Ver()
    $i = 1
    Do
        $Pos = MouseGetPos()
        MouseMove($Pos[0], $Pos[1] + 10, 0)
        Sleep(100)
        $i = $i +1
    Until $i = 15
    Hoz()
EndFunc

[BrettF]

How about you be more specific to whats not working?

[FinalVersion]

How about you be more specific to whats not working?

X doesn't increase.

[Yashied]

I can't get my head around to whats wrong, help is defiantly appreciated.

expandcollapse popup

Ver()

Func Hoz()
    $x = 1
    $x = $x + 1
    Do
        $jpos = MouseGetPos()
        MouseMove($JPos[0] + 17, 45, 0)
        Sleep(100)
        Ver()
    Until $x = 3
EndFunc     ;==>Hoz

Func Ver()
    $i = 1
    Do
        $Pos = MouseGetPos()
        MouseMove($Pos[0], $Pos[1] + 10, 0)
        Sleep(100)
        $i = $i +1
    Until $i = 15
    Hoz()
EndFuncoÝ÷ Ûú®¢×ºÚ"µÍ
B[ÈÞ
B   ÌÍÞHB  ÌÍÚÜÈH[ÝÙQÙ]ÜÊ
B[ÝÙS[ÝJ ÌÍÒÜÖÌH
ÈMË

K
BÛY
L
B
BBIÌÍÞH  ÌÍÞ
ÈB[[   ÌÍÞHÂ[[ÈÏOIÝÒÞ[È
B   ÌÍÚHHBÂ ÌÍÔÜÈH[ÝÙQÙ]ÜÊ
B[ÝÙS[ÝJ ÌÍÔÜÖÌK   ÌÍÔÜÖÌWH
ÈL
BÛY
L
B   ÌÍÚHH    ÌÍÚH
ÌB[[   ÌÍÚHHMBÞ
B[[

[BrettF]

Yes it does...

[FinalVersion]

Thanks, but X still doesn't increase.

@BrettF

So the script stops for you?

Edited May 10, 2009 by Godly

[Yashied]

X doesn't increase.

Godly, you are the answer to your question.

[FinalVersion]

Godly, you are the answer to your question.

How So..?

[Qousio]

How So..?

I think it doesn't increase because you have made a weird recursion. Your Do-Until loop should work until $X is 3. But $X doesn't increase inside the loop, the second function starts the first function, but the first function is still running! Thus you get an awkward recursion that causes problems.

Ver()

Func Hoz()
    $x = 1
    $x = $x + 1
    Do
        $jpos = MouseGetPos()
        MouseMove($JPos[0] + 17, 45, 0)
        Sleep(100)
        Ver()
    Until $x = 3
EndFunc;==>Hoz

Func Ver()
    $i = 1
    Do
        $Pos = MouseGetPos()
        MouseMove($Pos[0], $Pos[1] + 10, 0)
        Sleep(100)
        $i = $i +1
    Until $i = 15
EndFunc

MsgBox( 0, "", "Everything works!" )

This works =P

Or if Increasing $x is what you also need

Ver()

Func Hoz()
    $x = 1
    Do
$x +=1
        $jpos = MouseGetPos()
        MouseMove($JPos[0] + 17, 45, 0)
        Sleep(100)
        Ver()
    Until $x = 3
EndFunc;==>Hoz

Func Ver()
    $i = 1
    Do
        $Pos = MouseGetPos()
        MouseMove($Pos[0], $Pos[1] + 10, 0)
        Sleep(100)
        $i = $i +1
    Until $i = 15
EndFunc

MsgBox( 0, "", "Everything works!" )

Edited May 10, 2009 by Qousio

[AlmarM]

Is this what your trying to do?

Ver()

Func Hoz()
    $x = 1
    Do
        $jpos = MouseGetPos()
        MouseMove($JPos[0] + 17, 45, 0)
        Sleep(100)
        $x += 1
    Until $x = 3
    Ver()
EndFunc  ;==>Hoz

Func Ver()
    $i = 1
    Do
        $Pos = MouseGetPos()
        MouseMove($Pos[0], $Pos[1] + 10, 0)
        Sleep(100)
        $i += 1
    Until $i = 15
    Hoz()
EndFunc

AlmarM

[BrettF]

What happened to the wonderful For...Next loop over Do...Until $var = x...

[Qousio]

What happened to the wonderful For...Next loop over Do...Until $var = x...

Its alive!!

For(x=1; x<100; x++) {

}

[FinalVersion]

Ok I'll explain what i want.

$Downs = InputBox("Downs", "Move Down How Many Times?")
$Rights = InputBox("Rights", "Move Right How Many Times?")

Just say the user enters 5 for downs & 4 for rights.

The mouse would move down +10 from it current location however many downs. Then it would move to the original location but to the right + 15, then do that over until rights has reached what the user entered.

[Qousio]

Ok I'll explain what i want.

$Downs = InputBox("Downs", "Move Down How Many Times?")
$Rights = InputBox("Rights", "Move Right How Many Times?")

Just say the user enters 5 for downs & 4 for rights.

The mouse would move down +10 from it current location however many downs. Then it would move to the original location but to the right + 15, then do that over until rights has reached what the user entered.

$Downs = 5
$Rights = 4
$Pos = MouseGetPos()
For $i=0 to $Downs
    MouseMove( $Pos[0], $Pos[1]+$i*10 )
Next
For $i=0 to $Rights
    MouseMove( $Pos[0]+$i*15, $Pos[1] )
    Next

#Edit: Fixed it... @_@

#Edit2: Mad at the edit system, chopped off part of my code!

Edited May 10, 2009 by Qousio

[FinalVersion]

$Pos = MouseGetPos()
For 0 to $Downs Step 1
    MouseMove( $Pos[0], $Pos[1]+$Downs*10 )
Next
For 0 to $Rights Step 1
    MouseMove( $Pos[0]+$Rights*15, $Pos[1] )
Next

Inb4theclock

Thanks, But it doesn't work

[BrettF]

Like this?

$max_x = 5
$max_y = 5

$original_pos = MouseGetPos()

For $i = 1 to $max_y
    $j = MouseGetPos ()
    MouseMove($j[0], $j[1] + 10)
Next

MouseMove ($original_pos[0], $original_pos[1])
For $i = 1 to $max_y
    $j = MouseGetPos ()
    MouseMove($j[0] + 17, 45)
Next

[Qousio]

Thanks, But it doesn't work

Look above, I fixed it... I'm still new to Autoit syntax and often try something similair to C++ which doesnt work =P

[FinalVersion]

@BrettF

Kind Of.

Better Explain It Better

I want it to go down squares in minesweeper then when it reaches the bottom defined by the user, it goes to the next column.

[Qousio]

@BrettF

Kind Of.

Better Explain It Better

I want it to go down squares in minesweeper then when it reaches the bottom defined by the user, it goes to the next column.

$Downs = 5
$Rights = 4
$Pos = MouseGetPos()
For $i=0 to $Downs
    MouseMove( $Pos[0], $Pos[1]+$i*10 )
Next
$Pos = MouseGetPos()
For $i=0 to $Rights
    MouseMove( $Pos[0]+$i*15, $Pos[1] )
    Next

[FinalVersion]

Look above, I fixed it... I'm still new to Autoit syntax and often try something similair to C++ which doesnt work =P

Yours works, except i want it to stop @ each down, then do the next down. After all downs down it moves across a right then does the downs again, etc.