[DEV] AU3 Glitter Bot

[Hiutaky]

This is the First official version of my bot coded with AUTOIT

Features :
- Auto Collect Glitter Box
- Auto Navigate into the Sea

Requirements
- AutoIt3 to compile it
-
How to :
- Put the number of Click to do ,
- Move to your browser window ( I use Chrome )
- Press F2 and the bot will do all.
- F3 to close it.

It've a lot of bug to fix, and everyday i'll update it
If you want you can help me to Edit and Upgrade it.

CODE :

 Spoiler

;~ 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

OLD VERSION:

 Spoiler

This version of bot is only a bit of line of source,
I've started this to make a Free Bot.
You need to use Osvaldo Custom Client, then click F5 and the bot start (Y)

It have a lot of bug and the code is a very shit, but if anyone who know autoit edit it, and post the code here, finally we've a Nice Bot (Y)

CODE :

For $i=0 to 100 step +1
	Local $aCoord = PixelSearch(22, 92, 1898, 1016, 0x000000)
If Not @error Then
	MouseClick("left", $aCoord[0]+ 10,$aCoord[1]+10)
	Sleep(10000)
Else
	$ranx = Random( 22,1898,1)
	$rany = Random( 92,1016,1)
	MouseClick("left", $ranx, $rany )
	Sleep(10000)
EndIf
next

This version is for 1920 x 1080 resolution! ( FULL HD )
In future i'll post the other version, or you can edit it by urself.

[GOETHE.]

Thank you !

[Hiutaky]

No problem man, it's only the 10% of a complete bot, in the future i'll update it.
Hope you help me (Y)

[Hiutaky]

UP

[1andreaaa.]

how to run this bot?

[Kreatore]

Hey,

Good begining but in this moment your bot can make only a mouse click and sleep. You are far away to make a full bot but good luck for the next steps

[Hiutaky]

#UPDATED CODE

Features :
- Auto Collect Glitter Box
- Auto Navigate into the Sea