mouse move: spiral function

[Dag 0]

someone can help me with spiral mouse move (like on screen, move from center)

on forum i found this http://www.autoitscript.com/forum/index.php?showtopic=21440 but i have no idea how to use it or is it good for me.

ps. sorry for my picture, i made this in paint using my crapy mouse

Edited October 12, 2007 by Dag

[Blue_Drache 258]

Ouch. That's a fun math problem. If you can find a formula via google, you can translate it into x,y coordinates. Good luck.

[Dag 0]

i found this

(hope images are not too big)

Edited October 12, 2007 by Dag

[Xenobiologist 35]

Hi,

expandcollapse popup

HotKeySet("{ESC}", "quitme")
HotKeySet("1", "MouseSearch")
HotKeySet("2", "_stop")
AdlibEnable("check", 10)
Global Const $PI = 3.1415926535897932384626433832795
Global $Width = @DesktopWidth, $Height = @DesktopHeight, $MidX = $Width / 2, $MidY = $Height / 2
Global $Radius = 5
Global $Step = $PI / 6
Global $stop = 1
Global $coord = ""
ToolTip("Mouse Mover!!", $MidX, $MidY)
MouseSearch()
Func MouseSearch()
    While 1
        Do
            For $angle = 0 To 2 * $PI Step $Step
                $Radius += 5
                MouseMove($MidX - (Cos($angle) * $Radius), $MidY - (Sin($angle) * $Radius), 0)
            Next
        Until $Radius >= $MidY
        Do
            For $angle = 0 To 2 * $PI Step $Step
                $Radius -= 5
                MouseMove($MidX - (Cos($angle) * $Radius), $MidY - (Sin($angle) * $Radius), 0)
            Next
        Until $Radius <= 5
        If $stop <> 1 Then ExitLoop
        WEnd
EndFunc   ;==>MouseSearch

Func check()
    $xy = MouseGetPos()
    Global $coord = PixelSearch($xy[0] - 50, $xy[1] - 50, $xy[0] + 50, $xy[1] + 50, 0xFFFF4C)
    If @error <> 1 Then
        _stop()
        MouseClick("left", $coord[0], $coord[1], 1)
    EndIf
EndFunc   ;==>check

Func quitme()
    Exit
EndFunc   ;==>quitme

Func _stop()
    $stop = 0
    While 1
        Sleep(100)
    WEnd
EndFunc   ;==>_stop

So long,

Mega

[Dag 0]

you are amazing

thanks!!

[Xenobiologist 35]

Hi,

good luck with the piece of code.

So long,

Mega

[prancingpony 0]

 I enjoyed thinking about this problem so I worked up a functioning blueprint here.

Run it and you will see that it sends you the coordinates of a spiral starting at the origin and going up and left but only touching lattice points (whole number intersections). I understand that there are plenty of "rational" expressions for spiral functions but I didn't find a code for the lattice spiral function. All someone would have to do from here is transfer the information in the msgbox's into their pixelsearch routine where their current mouse position is the origin. Hope this might help someone. Its not terribly complicated but it did require a couple hours of thought.

expandcollapse popup

#include <Misc.au3>
$hDLL = DllOpen("user32.dll")
HotKeySet("{ESC}", "_exit")
Func _exit()
    Exit
EndFunc

$i=0
$j=0
$x=0
$z=0
$m=0
$a=0
$n=0
$b=0
$counter1=0
$counter2=0
$counter3=0
$counter4=0

while 1



Do

    $i=0
        Do
            $i+=1
            msgbox(0,"",-($n-$b)&","&$x+$i)


        until abs($x+$i)>abs($z-$j)

$z=$x+$i

$counter1+=1

until $counter1>$counter2
;_____________________________________________________
Do

$a=0
        Do
            $a+=1
            msgbox(0,"",-($m+$a)&","&$x+$i)


        until abs($m+$a)>abs($n-$b)

$n=$m+$a

$counter2+=1

until $counter2=$counter1
;_____________________________________________________

Do
    $j=0
        Do
            $j+=1
            msgbox(0,"",-($m+$a)&","&$z-$j)

        until abs($z-$j)>=abs($x+$i)

$x=$z-$j

$counter3+=1

until $counter3>$counter4
;___________________________________________________

Do
$b=0
        Do
            $b+=1
            msgbox(0,"",-($n-$b)&","&$z-$j)

        until abs($n-$b)>=abs($m+$a)

$m=$n-$b

$counter4+=1

until $counter4=$counter3

;___________________________________________________

WEnd

I separated the "4 steps" with the lines to help indicate that these are each "sides" of the spiral we are traveling along in our search.