HTML Code:
;~ GUI & CODE by : Hiutaky
;~ This code is Open Source and anyone can Edit It a Share It, but please don't remove copyright
;~ Version : 0.1
;~ Features :
;~ - Collect Glitter Box
;~ - Auto-Navigate into the Sea
;~ Coded with : AutoIt v 3
;~ Copyright Hiutaky | Inforge | EPVP
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{F2}", "_Start")
HotKeySet("{F3}", "_Stop")
Global $i, $cCoord
$Form1 = GUICreate("AU3 Seafight Bot", 235, 340, 252, 374)
$Edit1 = GUICtrlCreateEdit("", 8, 96, 217, 209)
$Button1 = GUICtrlCreateButton("Start", 72, 64, 83, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 8, 32, 217, 21)
$Label1 = GUICtrlCreateLabel("Click to do :", 8, 8, 85, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("F2 Start", 8, 312, 70, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("F3 Stop", 160, 312, 68, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Start()
$todo = GUICtrlRead($Input1)
For $i = 0 To $todo Step +1
Local $aCoord = PixelSearch(22, 92, 1898, 1016, 0x000000)
If Not @error Then
MouseClick("Left", $aCoord[0] - 10, $aCoord[1] - 10)
Sleep(1000)
$b = 1
While $b
$aShip = PixelSearch(22, 92, 1898, 1016, 0xDE0000)
$bCoord = PixelSearch($aShip[0] - 50, $aShip[1] - 50, $aShip[0] + 50, $aShip[1] + 50, 0x000000)
If Not @error Then
Sleep(1000)
$cCoord = PixelSearch($aShip[0] - 50, $aShip[1] - 50, $aShip[0] + 50, $aShip[1] + 50, 0x000000)
MouseClick("Left", $cCoord[0] + 5, $cCoord[1] + 5)
Sleep(1500)
$b = 0
Else
$b = 1
EndIf
WEnd
$String = GUICtrlRead($Edit1) & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & " - " & "Mouse Move = " & $aCoord[0] + 5 & " - " & $aCoord[1] + 5
GUICtrlSetData($Edit1, $String)
Else
$a = 1
While $a
$RanX = Random(22, 1898, 1)
$RanY = Random(92, 1016, 1)
$_get = Hex(PixelGetColor($RanX, $RanY))
If $_get = "0000253B" Then
MouseClick("Left", $RanX, $RanY)
Sleep(8000)
$a = 0
EndIf
WEnd
EndIf
Next
EndFunc
Func _Stop()
Exit
EndFunc