Advertisement
Killyoboy

Islands Auto Fishing

Oct 21st, 2022 (edited)
3,263
1
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #MaxThreadsPerHotKey, 2
  2. Toggle := 0
  3.  
  4. ;KeyWait, Capslock, D
  5. ;MouseGetPos, eX, eY
  6. ;PixelGetColor, color, eX, eY
  7. ;MsgBox You pressed %color%
  8.  
  9. F1::
  10. Toggle := !Toggle
  11.  
  12. MouseMove, 500, 500
  13. Send {Click down}
  14. Sleep, 500
  15. Send {Click up}
  16.  
  17. While Toggle {
  18.     PixelSearch, aX, aY, 634, 848, 1302, 915, 0xFFFFFFFF, 0, fast
  19.     PixelSearch, bX, bY, 634, 848, 1302, 915, 0x6969FF, 0, fast
  20.    
  21.     If(aX and aY and bX and bY) {
  22.         MouseMove, aX, aY
  23.        
  24.         if(bX < aX) {
  25.             Send {Click down}
  26.         } Else {
  27.             Send {Click up}
  28.         }
  29.     } Else If(aX and aY and !bX and !bY) {
  30.         MouseMove, aX, aY
  31.         Send {Click down}
  32.         Sleep, 500
  33.         Send {Click up}
  34.         Sleep, 2000
  35.     }  Else {
  36.         MouseMove, 0, 0
  37.     }
  38. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement