[kagorec]

Попытался собрать из нескольких кодов нужный скрипт.
Для экрана 1024х768, движение курсора по кругу (в центре радиусом 300пикселей) скорость неполучается выставить 25 через команду Opt (mousemove), при этом удерживается правая кнопка мышки.
Старался вписать управление скриптом:
Pause - пауза
F9 - включить
F10 - остановить
Но при включении ахтунг получается - курсор движется по кругу удерживая кнопку все хорошо, НО процессор нагружает на 100% и не управляется ни стоп ни пауза только рестарт компа спасает.
Поправте пожалста скрипт или подскажите (мои эксперементы заканчиваются рестартом ПК)

PHP код:

Global $Paused

HotKeySet("{PAUSE}", "TogglePause")

HotkeySet ("{F10}", "Stop"       )

HotKeySet( "{F9}", "Start" )





;******** Script Pause **********

Func TogglePause()

    $Paused = NOT $Paused

    While $Paused

        sleep(100)

        ToolTip('script is "Paused"',0,0)

    WEnd

    ToolTip("")

EndFunc



;********** Stop **********

Func Stop ()



While 1 = 1

Sleep (600)

Wend



EndFunc



While (1)

BlockInput(1)

_MouseMoveCircle(540, 390, 300, 625, 1) ;(need opt speed 25) Circle 4ever for resolution 1024x768 

Sleep(200)



BlockInput(0)

 WEnd

Func _MouseMoveCircle($xPos, $yPos, $Radius, $TimeExp, $MouseClick=0); x coord, y coord, radius, time to loop (milliseconds)

    Local $TimeInit = TimerInit()

    Local $xPosMov, $yPosMov

    Local $MouseClick_Mark = 1



    Do

        $TimeDiff = TimerDiff($TimeInit)

        $xPosMov = $xPos + ($Radius * Sin($TimeDiff/100))

        $yPosMov = $yPos + ($Radius * Cos($TimeDiff/100))

        MouseMove($xPosMov, $yPosMov, 1)

        If $MouseClick_Mark = 1 And $MouseClick <> 0 Then MouseDown("Right")

        $MouseClick_Mark = 0

    Until $TimeDiff > $TimeExp

    If $MouseClick <> 0 Then MouseUp("Right")

    EndFunc