[Autoit] Auto Throw Boots

Hey, I Realized Bot who throw boots when you are A.F.K work good with Phising Bot.

How to use :
Only work with 1920 x 1080 FullScreen Mode.
Work with Mouse.
Pres ESC for Stop.
Press Pause for Pause.
Activate your phising Bot, Run the Throw Boots script and Open your inventory and go Sleep or what you want.

For use the script you can download AutoIt on the WebSite

And Paste the Code Below on a New Au3 Script and run the script

;-------------------------------------------------------------------------------
; Global Settings
;-------------------------------------------------------------------------------

#RequireAdmin
Global $pos[2]
Global $SleepTime = Random(1000, 2000, 1) ; Attente variable de 1 ou 2 secondes

;-------------------------------------------------------------------------------
; Raccourcis claviers
;-------------------------------------------------------------------------------

HotKeySet("{ESC}", "Stop") ; On assigne la fonction Stop (Pour quitter) à la touche 'Echap'.
HotKeySet("{PAUSE}", "TogglePause") ; On assigne la fonction Pause à la touche 'Pause'.

;-------------------------------------------------------------------------------
; Ouvre Trove
;-------------------------------------------------------------------------------

WinActivate("Trove") ; On affiche Trove en premier plan.

;-------------------------------------------------------------------------------
; Repeat Recherche de Botte
;-------------------------------------------------------------------------------

Call("Repeat")

Func Repeat()

While 1 ; On répete la recherche de la botte.
Call("search")
Wend
EndFunc

;-------------------------------------------------------------------------------
; Function de Recherche
;-------------------------------------------------------------------------------

search()

Func search()
$pos = PixelSearch( 1525, 150, 1920, 910, 0x443B28 ) ; On cherche une botte qui a pour couleur 0x443B28 dans la Zone de l'inventaire.
If IsArray($pos) Then ; Si on trouve la couleur ( botte ) alors,
Sleep($SleepTime)
MouseMove ($pos[0], $pos[1], 5) ; On déplace la souris sur la botte.
Sleep($SleepTime)
MouseClickDrag("left", $pos[0], $pos[1], 950, 540, 2) ; On jette la botte au milieu de l'écran.

EndIf
EndFunc

;-------------------------------------------------------------------------------
; Pause
;-------------------------------------------------------------------------------

Func TogglePause()
$g_bPaused = Not $g_bPaused
While $g_bPaused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause

;-------------------------------------------------------------------------------
; Quitter
;-------------------------------------------------------------------------------

Func Stop()
Exit 0
EndFunc ;==>Stop

; ~~Heck~~

Or download it here :

bit****/1fTjMdb

Sorry for my english and have a Good Day

Originally Posted by Jerico555

How can I run this when it starts up as "Script Paused" then all you have is to stop the script AND pause the script. How in the world can this be activated?

Try to write

Code:

Global $g_bPaused= 0;

after this line

Code:

Global $SleepTime = Random(1000, 2000, 1) ; Attente variable de 1 ou 2 secondes

I didn't know much about Autoit, but this should work, logic is always the same in every language :P

English comments

;-------------------------------------------------------------------------------
; Global Settings
;-------------------------------------------------------------------------------

#RequireAdmin
Global $pos[2]
Global $SleepTime = Random(1000, 2000, 1) ; Random sleeptime from 1 up to 2
Global $g_bPaused= 0;

;-------------------------------------------------------------------------------
; HotKey Definitions
;-------------------------------------------------------------------------------

HotKeySet("{ESC}", "Stop") ; Stop the script with "escape" button
HotKeySet("{PAUSE}", "TogglePause") ; Pause the script with "pause" button

;-------------------------------------------------------------------------------
; Wait for active "Trove" Window Name
;-------------------------------------------------------------------------------

WinActivate("Trove") ; Wait for active "Trove" Window Name

;-------------------------------------------------------------------------------
; Function for repeating the search function
;-------------------------------------------------------------------------------

Call("Repeat")

Func Repeat()

While 1 ; Always repeat the search function for the boots
Call("search")
Wend
EndFunc

;-------------------------------------------------------------------------------
; Function to search for the boots
;-------------------------------------------------------------------------------

search()

Func search()
$pos = PixelSearch( 1525, 150, 1920, 910, 0x443B28 ) ; search for color in HEX 0x443B28 in your inventory
If IsArray($pos) Then ; If he founds the boots,
Sleep($SleepTime)
MouseMove ($pos[0], $pos[1], 5) ; Place the mouse over the boots
Sleep($SleepTime)
MouseClickDrag("left", $pos[0], $pos[1], 950, 540, 2) ; Drop the boots

EndIf
EndFunc

;-------------------------------------------------------------------------------
; Pause
;-------------------------------------------------------------------------------

Func TogglePause()
$g_bPaused = Not $g_bPaused
While $g_bPaused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause

;-------------------------------------------------------------------------------
; Quitter
;-------------------------------------------------------------------------------

Func Stop()
Exit 0
EndFunc ;==>Stop

; ~~Heck~~

[Autoit] Auto Throw Boots

Post a Reply

Similar Threads

Tags for this Thread