Mouse Wrap

[i542]

Good idea, not first!

Only joke.

i542

[ARIrish]

How can I edit this script to make the mouse wrap functionality work on a toggle? ie, rather than esc exiting the script, it will either turn on mousewrap or, if mousewrapping is on, turn it off?

I've tried a couple things:

HotKeySet("{Esc}","_MouseWrap")

$off = True

Func _MouseWrap()

If $off = True Then

While 1

$pos = MouseGetPos()

$off = False

If $pos[0] < 2 Then MouseMove(@DeskTopWidth - 2, $pos[1], 1)

If $pos[0] > @DeskTopWidth - 2 Then MouseMove(2, $pos[1], 1)

Sleep(1)

Wend

ElseIf $off = False Then

$off = True

EndIf

EndFunc

But I am brand new to all this, so I don't know where to go from here. Any help would be much appreciated.

[martin]

How can I edit this script to make the mouse wrap functionality work on a toggle? ie, rather than esc exiting the script, it will either turn on mousewrap or, if mousewrapping is on, turn it off?

I've tried a couple things:

HotKeySet("{Esc}","_MouseWrap")

$off = True

Func _MouseWrap()

If $off = True Then

While 1

$pos = MouseGetPos()

$off = False

If $pos[0] < 2 Then MouseMove(@DeskTopWidth - 2, $pos[1], 1)

If $pos[0] > @DeskTopWidth - 2 Then MouseMove(2, $pos[1], 1)

Sleep(1)

Wend

ElseIf $off = False Then

$off = True

EndIf

EndFunc

But I am brand new to all this, so I don't know where to go from here. Any help would be much appreciated.

HotKeySet("{Esc}","_Exit")
HotKeySet("!{Esc}","_Switch")
Global $wrap = True
_MouseWrap()

Func _MouseWrap()
    TrayTip("hot key:","press Esc to exit" & @LF & "Alt Esc to turn wrap on/off",30)
    While 1
        $pos = MouseGetPos()
        If $wrap Then
            If  $pos[0] < 2 Then MouseMove(@DeskTopWidth - 2, $pos[1], 1)
            If $pos[0] > @DeskTopWidth - 2 Then MouseMove(2, $pos[1], 1)
            If $pos[1] < 2 Then MouseMove($pos[0], @DesktopHeight - 2, 1)
            If $pos[1] > @DeskTopHeight - 2 Then MouseMove($pos[0], 2, 1)
        EndIf

        Sleep(1)
    Wend
EndFunc

Func _Exit()
    Exit
EndFunc

Func _Switch()
    $wrap = Not $wrap
EndFunc

[ARIrish]

Brilliant Martin, cheers.