Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ya:=2
- Numpad1::
- Mouseclick, right
- Drop(1)
- Click
- Return
- Numpad2::
- Mouseclick, right
- Drop(3)
- Click
- Drop(-3)
- Return
- Drop(n)
- {
- global ya
- MouseGetPos, xPos, yPos
- If n > 0
- MouseMove_Ellipse(xPos, yPos, xPos, yPos + 21 + (ya - 1) * 15 * n, R())
- else
- MouseMove_Ellipse(xPos, yPos, xPos, yPos - 21 + (ya - 1) * 15 * n, R())
- }
- MouseMove_Ellipse(X1, Y1, X2, Y2, S=1, M=0, I="") {
- MouseGetPos, X0, Y0
- If(I="")
- Random, I, 0, 1
- X1 := (X1 != "") ? X1 : X0, Y1 := (Y1 != "") ? Y1 : Y0, B := Abs(X1-X2), A := Abs(Y1-Y2), H := (X1<X2) ? ((Y1<Y2) ? ((I=0) ? X1:X2):((I=0) ? X2:X1)):((Y1<Y2) ? ((I=0) ? X2:X1):((I=0) ? X1:X2)), K := (Y1<Y2) ? ((X1<X2) ? ((I=0) ? Y2:Y1):((I=0) ? Y1:Y2)):((X1<X2) ? ((I=0) ? Y1:Y2):((I=0) ? Y2:Y1)), D := A_MouseDelay
- SetMouseDelay, 1
- If(M)
- BlockInput, Mouse
- If(B > A)
- Loop, % B / S
- {
- M := (X1 < X2) ? ((I=0) ? -1:1):((I=0) ? 1:-1), X := (X1 < X2) ? (X1+A_Index*S) : (X1-A_Index*S), Y := M*Sqrt(A**2*((X-H)**2/B**2-1)*-1)+K
- MouseMove, %X%, %Y%, 0
- }
- Else
- Loop, % A / S
- {
- M := (Y1 < Y2) ? ((I=0) ? 1:-1):((I=0) ? -1:1), Y := (Y1 < Y2) ? (Y1+A_Index*S) : (Y1-A_Index*S), X := M*Sqrt(B**2*(1-(Y-K)**2/A**2))+H
- MouseMove, %X%, %Y%, 0
- }
- MouseMove, %X2%, %Y2%, 0
- BlockInput, Off
- SetMouseDelay, % D
- }
- R() {
- Random, i, 25, 50
- Return i
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement