asd;flkj

ya:=2

1::RButton

2::
Drop(1)
Return

3::Click

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
}