Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <Misc.au3>
- Dim $dumbflag1 = True
- Dim $dumbflag2 = True
- Dim $int1 = 5 ; left click x axis initial annoyance value
- Dim $int2 = 5 ; left click y axis initial annoyance value
- Dim $int3 = 150 ; right click x axis initial annoyance value
- Dim $int4 = 15 ; right click y axis initial annoyance value
- While True
- If ( _IsPressed("01") And $dumbflag1 ) Then
- $dumbflag1 = False
- $pos = MouseGetPos()
- MouseMove ( $pos[0] + $int1, $pos[1] + $int2, 0 )
- $int1 = $int1 + 5
- $int2 = $int2 + 5
- If $int1 > 50 Then
- $int1 = 5
- EndIf
- If $int2 > 50 Then
- $int2 = 5
- EndIf
- While _IsPressed("01")
- $dumbflag1 = True
- WEnd
- ; debug
- ;MsgBox(0, "Leftclick Mouse x,y:", $pos[0] & "," & $pos[1])
- EndIf
- If ( _IsPressed("02") And $dumbflag1 ) Then
- $dumbflag2 = False
- $pos = MouseGetPos()
- MouseMove ( $pos[0] + $int3, $pos[1] + $int4, 0 )
- $int3 = $int3 + 80
- $int4 = $int4 + 20
- If $int3 > 500 Then
- $int3 = 140
- EndIf
- If $int4 > 50 Then
- $int4 = 14
- EndIf
- While _IsPressed("02")
- $dumbflag2 = True
- WEnd
- EndIf
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement