Advertisement
Guest User

Untitled

a guest
Dec 30th, 2016
14
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.13 KB | None | 0 0
  1. #include <Misc.au3>
  2.  
  3. Dim $dumbflag1 = True
  4. Dim $dumbflag2 = True
  5. Dim $int1      = 5     ; left  click x axis initial annoyance value
  6. Dim $int2      = 5     ; left  click y axis initial annoyance value
  7. Dim $int3      = 150   ; right click x axis initial annoyance value
  8. Dim $int4      = 15    ; right click y axis initial annoyance value
  9.  
  10. While True
  11.    If ( _IsPressed("01") And $dumbflag1 ) Then
  12.       $dumbflag1 = False
  13.       $pos = MouseGetPos()
  14.       MouseMove ( $pos[0] + $int1, $pos[1] + $int2, 0 )
  15.       $int1 = $int1 + 5
  16.       $int2 = $int2 + 5
  17.       If $int1 > 50 Then
  18.          $int1 = 5
  19.       EndIf
  20.       If $int2 > 50 Then
  21.          $int2 = 5
  22.       EndIf
  23.       While _IsPressed("01")
  24.          $dumbflag1 = True
  25.       WEnd
  26.       ; debug
  27.       ;MsgBox(0, "Leftclick Mouse x,y:", $pos[0] & "," & $pos[1])
  28.    EndIf
  29.    If ( _IsPressed("02") And $dumbflag1 ) Then
  30.       $dumbflag2 = False
  31.       $pos = MouseGetPos()
  32.       MouseMove ( $pos[0] + $int3, $pos[1] + $int4, 0 )
  33.       $int3 = $int3 + 80
  34.       $int4 = $int4 + 20
  35.       If $int3 > 500 Then
  36.          $int3 = 140
  37.       EndIf
  38.       If $int4 > 50 Then
  39.          $int4 = 14
  40.       EndIf
  41.       While _IsPressed("02")
  42.          $dumbflag2 = True
  43.       WEnd
  44.    EndIf
  45. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement