Scriptr

Cooking/Banking Script

May 15th, 2015
333
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;#Wildypendant
  2. ;Teamspeak 212.187.209.72:9391 if you need help Talk to Charlie
  3.  
  4. ;Hover over banker and press "qwer" to open the bank
  5. ;Hover over cooking interface "asdf" to deposit/withdraw the Food your cooking
  6.  
  7. q::RButton
  8.  
  9. w::
  10. Drop(2)
  11. Return
  12.  
  13. e::Click
  14.  
  15. r::
  16. Drop(-2)
  17. Return
  18.  
  19. a::RButton
  20.  
  21. s::
  22. Drop(4)
  23. Return
  24.  
  25. d::Click
  26.  
  27. f::
  28. Drop(-4)
  29. Return
  30.  
  31. g::
  32. UpRight()
  33. Return
  34.  
  35. h::Click
  36.  
  37. Drop(y)
  38. {
  39.     MouseGetPos, xPos, yPos
  40.     If y > 0
  41.         MouseMove_Ellipse(xPos, yPos, xPos, yPos + 21 + (y - 1) * 15, R())
  42.     else
  43.         MouseMove_Ellipse(xPos, yPos, xPos, yPos - 21 + (y + 1) * 15, R())
  44. }
  45.  
  46. UpRight()
  47. {
  48.     MouseGetPos, xPos, yPos
  49.     MouseMove_Ellipse(xPos, yPos, xPos + 63, yPos - 74, R())
  50. }
  51.  
  52. MouseMove_Ellipse(X1, Y1, X2, Y2, S=1, M=0, I="") {
  53.     MouseGetPos, X0, Y0
  54.     If(I="")
  55.         Random, I, 0, 1
  56.    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
  57.     SetMouseDelay, 1
  58.     If(M)
  59.         BlockInput, Mouse
  60.     If(B > A)
  61.         Loop, % B / S
  62.         {
  63.             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
  64.             MouseMove, %X%, %Y%, 0
  65.         }
  66.     Else
  67.         Loop, % A / S
  68.         {
  69.             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
  70.             MouseMove, %X%, %Y%, 0
  71.         }
  72.     MouseMove, %X2%, %Y2%, 0
  73.     BlockInput, Off
  74.     SetMouseDelay, % D
  75. }
  76.  
  77. R() {
  78. Random, i, 25, 50
  79. Return i
  80. }
  81.  
  82. Esc::ExitApp
Add Comment
Please, Sign In to add comment