Features:
Endless Loop
Auto ReLogin
Reset if crashed
Random Movements in game
Code:
HotKeySet("{f12}", "finished")
Run("E:\Games\World_of_Tanks\WOTLauncher", "E:\Games\World_of_Tanks") ;Runs the program, edit to your computer's path
$k = 0
$i = 0
Do
$i = $i + 1
Sleep(1000)
PixelSearch(1250, 830, 1280, 850, 0x770002)
Until Not
@error
Or $i = 120
Sleep(500)
MouseClick("Left", 1266, 837,10) ; Press Start or Play from the launcher
Sleep(5000)
MouseClick("Left", 1266, 837,10)
$i = 0
Do
$i = $i + 1
WinActivate("W.o.T. Client")
Sleep(1000)
PixelSearch(947, 738, 967, 758, 0x42120B); Logs you in
Until Not
@error
Or $i = 120
WinMove("W.o.T. Client", "", 0, 0) ; Sets coordinates to 0,0 so mouse points are now universal aka no need to change any more coordinates
Sleep(1000)
MouseClick("Left", 512, 569, 10)
Sleep(5000)
MouseClick("Left", 512, 569, 10)
While 1
$k = $k + 1
if ($k > 1) Then
restart()
EndIf
$i = 0
Do
$i = $i + 1
Sleep(1000);sss;sssssss
PixelSearch(504, 54, 524, 74, 0xC11E1F)
Until Not
@error
Or $i = 180
Sleep(1000)
MouseClick("Left", 502, 75,10)
Sleep(5000)
MouseClick("Left", 502, 75,10)
$i = 0
Do
$i = $i + 1
Sleep(1000)
PixelSearch(504, 54, 524, 74, 0xC11E1F)
Until
@error
Or $i = 180
Sleep(1000)
MouseClick("Left", 502, 75,10)
Sleep(5000)
MouseClick("Left", 502, 75,10)
Do
$random = Random(1,20,1)
if ($random = 1 or $random = 5) Then
Send("{s down}")
EndIf
if ($random = 2) Then
Send("{d down}")
EndIf
if ($random = 3 or $random = 6) Then
Send("{w down}")
EndIf
if ($random = 4) Then
Send("{a down}")
EndIf
$i = $i + 1
sleep(100)
Send("{esc}")
sleep(100)
Send("{ENTER}")
Sleep(800)
Send("{a up}")
Send("{w up}")
Send("{d up}")
Send("{s up}")
PixelSearch(504, 54, 524, 74, 0xC11E1F)
Until Not
@error
Or $i = 1260
WEnd
Func finished()
ProcessClose("WOTLauncher.exe")
ProcessClose("WorldOfTanks.exe")
Exit
EndFunc ;==>finished
Func restart()
ProcessClose("WOTLauncher.exe")
ProcessClose("WorldOfTanks.exe")
Sleep(10000)
Run("E:\Games\World_of_Tanks\WOTLauncher", "E:\Games\World_of_Tanks")
$i = 0
Do
$i = $i + 1;sssssssssssssss
Sleep(1000)
PixelSearch(1250, 830, 1280, 850, 0x770002)
Until Not
@error
Or $i = 120
Sleep(500)
MouseClick("Left", 1266, 837,10)
Sleep(5000)
MouseClick("Left", 1266, 837,10)
$i = 0
Do
$i = $i + 1
WinActivate("W.o.T. Client")
Sleep(1000)
PixelSearch(947, 738, 967, 758, 0x42120B)
Until Not
@error
Or $i = 120
WinMove("W.o.T. Client", "", 0, 0)
Sleep(1000)
MouseClick("Left", 512, 569, 10)
Sleep(5000)
MouseClick("Left", 512, 569, 10)
Return
EndFunc ;==>restart
|