Mousegetpos not returning array

[matrix10657]

basicly what I'm trying to do is have the user define two points on the screen that the mouse will click in order to switch between to different EVE-Online clients and perform a warp to zero script. One problem, as you can see in function getpos1 I set $one to whatever the mouse position is and then go on to use it in a mouse click function later in the script. Unfortuantly, I get the 'subscript used with non array variable' which is pointed at...

mouseclick ("left", $one[0], $one[1],1,3)

Any help would be great.

expandcollapse popup

func getpos1 ()
    Opt("caretcoordMode", 1)
    Opt("MouseCoordMode", 1)
    $one = MouseGetPos()
    global $one
    $commence1 = 1
EndFunc
hotkeyset ("{f2}","getpos1")

func getpos2 ()
    Opt("caretcoordMode", 1)
    Opt("MouseCoordMode", 1)
    $two = MouseGetPos()
    global $two
    $commence2 = 1
EndFunc
hotkeyset ("{f3}","getpos2")

func stop ()
    Exit
EndFunc
hotkeyset ("{f4}","stop")

msgbox (1,"Requirements","Game= 1024x768-windowed. Overview compressed right as far as possible. Only stargates on overview. Only 1 waypoint at a time")
msgbox (1,"Info","Press F2 and F3 to designate the two mouseclick locations to switch clients. Script will not commence until done")

$commence1 = 0
Do
    sleep (500)
Until $commence1 = 1
$commence2 = 0
Do
    sleep (500)
Until $commence2 = 1

msgbox (1,"Commence","press ok to commence script")

while 1
Opt("MouseCoordMode", 1)
mouseclick ("left", $one[0], $one[1],1,3)
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
sleep (1000)
$Enroute = Pixelsearch (804,162,833,585,0xFFFF00)
Pixelsearch (804,162,833,585,0xFFFF00)
If not @error then
    $origin = mousegetpos ()
    mouseclick ("left",$Enroute[0], $Enroute[1],1,3)
    sleep (100)
    mouseclick ("left",853,93,1,3)
    mouseclick ("left",887,95,1,3)
    sleep (10)
    mousemove ($origin[0],$origin[1],3)
EndIf
sleep (1000)
Opt("MouseCoordMode", 1)
mouseclick ("left",$two[0],$two[1],1,3)
Opt("MouseCoordMode", 2)
sleep (1000)
$Enroute = Pixelsearch (804,162,833,585,0xFFFF00)
Pixelsearch (804,162,833,585,0xFFFF00)
If not @error then
    $origin = mousegetpos ()
    mouseclick ("left",$Enroute[0], $Enroute[1],1,3)
    sleep (100)
    mouseclick ("left",853,93,1,3)
    mouseclick ("left",887,95,1,3)
    sleep (10)
    mousemove ($origin[0],$origin[1],3)
EndIf
WEnd

At some point whenever I did get it working, the mouse clicks would always click on 0,0 (the origin of my screen) instead of the mousegetpos() coords defined by myself. Any help on that would be appreciated as well

[qazwsx]

are you sure you are executing the func getpos1?

[matrix10657]

are you sure you are executing the func getpos1?

hm it seems I have to press they key a few times over inorder to get it to execute, is this normal?

[qazwsx]

i dun think so, is your comp laggy?

Edited July 26, 2007 by sccrstvn93

[matrix10657]

i dun think so, is your comp laggy?

not really. I fixed the problem by having it ask for you to call each func twice and now it works fine... false alarm