Don't see why this isn't working

[Minikori]

Just trying to make the icon go to the mouse position whenever it left button is clicked, but every time I click, it disappears. Help please? Here's the code:

#include <GUIConstants.au3>
#include <Misc.au3>

$Main = GUICreate("TestGame", 400, 400)
$Player = GUICtrlCreateIcon(@WindowsDir & "\cursors\dinosaur.ani", -1, 20, 20)

GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    EndIf
    If _IsPressed(01) Then
        Go()
    EndIf
WEnd
Exit

Func Go()
    $MousePos = MouseGetPos()
    GUICtrlSetPos($Player, $MousePos[1], $MousePos[0])
EndFunc

[Richard Robertson]

You have the $MousePos indexes switched. Fix that first and see if it works.

[Minikori]

You have the $MousePos indexes switched. Fix that first and see if it works.

Tried that. Didn't work.

[Richard Robertson]

Whether you tried it or no, [0] = x and [1] = y. You need to get them correctly.

You also need Opt("MouseCoordMode", 2).

[Minikori]

Whether you tried it or no, [0] = x and [1] = y. You need to get them correctly.

You also need Opt("MouseCoordMode", 2).

Alright it's fixed, thank you!

[rasim]

Minikori

Easy way:

#include <GUIConstants.au3>

$Main = GUICreate("TestGame", 400, 400)
$Player = GUICtrlCreateIcon(@WindowsDir & "\cursors\dinosaur.ani", -1, 20, 20)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_PRIMARYDOWN
            Go()
    EndSwitch
WEnd

Func Go()
    $MousePos = GUIGetCursorInfo()
    GUICtrlSetPos($Player, $MousePos[0], $MousePos[1])
EndFunc