; AutoIT ActiveX component demo.
;
; This rather silly demo shows KiXtart controlling an AutoIT object.
;
; Author: Richard Howarth (rhowarth@sgb.co.uk)
;
; Requires: KiXtart 4.20
;           AutoIt ActiveX control
;
$gNull=SetOption("Explicit","ON")
$gNull=SetOption("ASCII","ON")
 
Dim $oAI
Dim $iX,$iY,$iLastX,$iLastY
Dim $dInterval,$dStill,$dWaitForIt
Dim $iBoundX,$iBoundY
Dim $dLimitX,$dLimitY
Dim $iStartX,$iStartY
Dim $dMadness
 
SRnd(@MSECS)      ; Seed random - it doesn't need to be too clever.
 
$dInterval="0.02" ; Period between mouse polls
$dWaitForIt=5.0   ; Period before mouse jiggle effect (in seconds)
 
$dMadness=0.05    ; Rate of mouse deterioration
$iBoundX=200      ; Limit of jiggle in X direction
$iBoundY=200      ; Limit of jiggle in Y direction
 
$oAI=CreateObject("AutoItX.Control")
If Not $oAI "ERROR: Cannot create AutoItX control." ? Exit 1 EndIf
 
"Jiggy mouse in action!" ?
 
While Not KBHit()
   $iX=$oAI.MouseGetPosX()
   $iY=$oAI.MouseGetPosY()
   If $iX=$iLastX AND $iY=$iLastY
      If $dStill>0
         $iStartX=$iX
         $iStartY=$iY
         $dLimitX=1.0 $dLimitY=1.0
         $dStill=$dStill-$dInterval
      Else
         If $dLimitX<$iBoundX $dLimitX=$dLimitX+$dMadness EndIf
         If $dLimitY<$iBoundY $dLimitY=$dLimitY+$dMadness EndIf
         $iX=$iStartX+Rnd($dLimitX*2)-$dLimitX
         $iY=$iStartY+Rnd($dLimitY*2)-$dLimitY
         $oAI.MouseMove($iX,$iY)
      EndIf
   Else
      $dStill=CDbl($dWaitForIt)  ; Reset "in motion" counter.
   EndIf
   ; Chr(13)+"MouseX="+$iX+" MouseY="+$iY+"      "
   $iLastX=$oAI.MouseGetPosX()
   $iLastY=$oAI.MouseGetPosY()
   $gNull=Rnd()
   Sleep($dInterval)
Loop
 
Get $gNull
 
? "Bye." ?
 
; vim: ai sw=3 ts=3