Hola guys,
I wrote this post because i want all to partecipate to my project to create a FREE pixel bot for collecting palladium.
I make this bot for collect the nearest palladium to you, so i divide the area in 12 rectangle. First of all the bot search in the smallest rectangle (the rectangle that comprend the ship) and if find something collect, even so it search in the second rectangle, if find collect and search again in the first, if not search in the third, ecc... hope this is clare! If the bot don't find the resource in the area it click on the minimap and go to search, stop when find something.
I made this bot in AutoIt, there's no function to kill pirates who attack u... so don't leave it alone too much!
I wish this tool will help u!
Here the code:
Hotkeys: TAB-->Start
P or p -->Pause
Esc-->Exit
Here the video tutorial [Only registered and activated users can see links. Click Here To Register...]
There is the exe file too
I wrote this post because i want all to partecipate to my project to create a FREE pixel bot for collecting palladium.
I make this bot for collect the nearest palladium to you, so i divide the area in 12 rectangle. First of all the bot search in the smallest rectangle (the rectangle that comprend the ship) and if find something collect, even so it search in the second rectangle, if find collect and search again in the first, if not search in the third, ecc... hope this is clare! If the bot don't find the resource in the area it click on the minimap and go to search, stop when find something.
I made this bot in AutoIt, there's no function to kill pirates who attack u... so don't leave it alone too much!
I wish this tool will help u!
Here the code:
Code:
#include<Misc.au3>
#include <windowsconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
HotKeySet("{TAB}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{P}","Pausa")
HotKeySet("{p}","Pausa")
Global $Rett12_x1,$Rett12_y1,$Rett12_x2,$Rett12_y2
global $Rett11_x1,$Rett11_y1,$Rett11_x2,$Rett11_y2
Global $Rett10_x1,$Rett10_y1,$Rett10_x2,$Rett10_y2
Global $Rett9_x1,$Rett9_y1,$Rett9_x2,$Rett9_y2
Global $Rett8_x1,$Rett8_y1,$Rett8_x2,$Rett8_y2
Global $Rett7_x1,$Rett7_y1,$Rett7_x2,$Rett7_y2
Global $Rett6_x1,$Rett6_y1,$Rett6_x2,$Rett6_y2
Global $Rett5_x1,$Rett5_y1,$Rett5_x2,$Rett5_y2
Global $Rett4_x1,$Rett4_y1,$Rett4_x2,$Rett4_y2
Global $Rett3_x1,$Rett3_y1,$Rett3_x2,$Rett3_y2
Global $Rett2_x1,$Rett2_y1,$Rett2_x2,$Rett2_y2
Global $Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2
Global $pallacolor=0xECFBF7 ;0x4F6D80;
$Rett1_x1 = 0
$Rett1_y1 = 0
$Rett1_x2 = 0
$Rett1_y2 = 0
$Mini_x1=0
$Mini_y1=0
$Mini_y2=0
$Mini_x2=0
Func Avvia()
$a=$Rett1_x2-$Rett1_x1 ; larghezza rettangolo grande
$b=$Rett1_y2-$Rett1_y1; altezza rettangolo grande
;Rettangolo 2
; coord alto sin
$Rett2_x1=$Rett1_x1+$a/24
$Rett2_y1=$Rett1_y1+$b/24
;coord basso dex
$Rett2_x2=$Rett2_x1+$a*11/12
$Rett2_y2=$Rett2_y1+$b*11/12
;Rettangolo 3
; coord alto sin
$Rett3_x1=$Rett2_x1+$a/24
$Rett3_y1=$Rett2_y1+$b/24
;coord basso dex
$Rett3_x2=$Rett3_x1+$a*5/6
$Rett3_y2=$Rett3_y1+$b*5/6
;Rettangolo 4
; coord alto sin
$Rett4_x1=$Rett3_x1+$a/24
$Rett4_y1=$Rett3_y1+$b/24
;coord basso dex
$Rett4_x2=$Rett4_x1+$a*3/4
$Rett4_y2=$Rett4_y1+$b*3/4
;Rettangolo 5
; coord alto sin
$Rett5_x1=$Rett4_x1+$a/24
$Rett5_y1=$Rett4_y1+$b/24
;coord basso dex
$Rett5_x2=$Rett5_x1+$a*2/3
$Rett5_y2=$Rett5_y1+$b*2/3
;Rettangolo 6
; coord alto sin
$Rett6_x1=$Rett5_x1+$a/24
$Rett6_y1=$Rett5_y1+$b/24
;coord basso dex
$Rett6_x2=$Rett6_x1+$a*7/12
$Rett6_y2=$Rett6_y1+$b*7/12
;Rettangolo 7
; coord alto sin
$Rett7_x1=$Rett6_x1+$a/24
$Rett7_y1=$Rett6_y1+$b/24
;coord basso dex
$Rett7_x2=$Rett7_x1+$a/2
$Rett7_y2=$Rett7_y1+$b/2
;Rettangolo 8
; coord alto sin
$Rett8_x1=$Rett7_x1+$a/24
$Rett8_y1=$Rett7_y1+$b/24
;coord basso dex
$Rett8_x2=$Rett8_x1+$a*5/12
$Rett8_y2=$Rett8_y1+$b*5/12
;Rettangolo 9
; coord alto sin
$Rett9_x1=$Rett8_x1+$a/24
$Rett9_y1=$Rett3_y1+$b/24
;coord basso dex
$Rett9_x2=$Rett9_x1+$a/3
$Rett9_y2=$Rett9_y1+$b/3
;Rettangolo 10
; coord alto sin
$Rett10_x1=$Rett9_x1+$a/24
$Rett10_y1=$Rett9_y1+$b/24
;coord basso dex
$Rett10_x2=$Rett10_x1+$a/4
$Rett10_y2=$Rett10_y1+$b/4
;Rettangolo 11
; coord alto sin
$Rett11_x1=$Rett10_x1+$a/24
$Rett11_y1=$Rett10_y1+$b/24
;coord basso dex
$Rett11_x2=$Rett11_x1+$a/6
$Rett11_y2=$Rett11_y1+$b/6
;Rettangolo 12
; coord alto sin
$Rett12_x1=$Rett11_x1+$a/24
$Rett12_y1=$Rett11_y1+$b/24
;coord basso dex
$Rett12_x2=$Rett12_x1+$a/12
$Rett12_y2=$Rett3_y1+$b/12
global $c=1
while 1
Select
case $c=1
Avvia1()
case $c=2
Avvia2()
case $c=3
Avvia3()
case $c=4
Avvia4()
case $c=5
Avvia5()
case $c=6
Avvia6()
case $c=7
Avvia7()
case $c=8
Avvia8()
case $c=9
Avvia9()
case $c=10
Avvia10()
case $c=11
Avvia11()
case $c=12
Avvia12()
case $c=13
Ricerca()
EndSelect
WEnd
EndFunc
Func Avvia1()
while 1 ;finché ne trova nell'area uno continua a cliccare
$Avvia1 = PixelSearch($Rett12_x1,$Rett12_y1,$Rett12_x2,$Rett12_y2,$pallacolor,1) ;0x4D6874
If not @error Then
mouseCLick("left",$Avvia1[0],$Avvia1[1],1,0)
sleep(2000)
$c=1
Else; se non lo trova passa al successivo
$c=2
exitloop
EndIf
wend
EndFunc
Func Avvia2()
$Avvia2 = PixelSearch($Rett11_x1,$Rett11_y1,$Rett11_x2,$Rett11_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia2[0],$Avvia2[1],1,0)
sleep(2000)
$c=1
Else
$c=3
EndIf
EndFunc
Func Avvia3()
$Avvia3 = PixelSearch($Rett10_x1,$Rett10_y1,$Rett10_x2,$Rett10_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia3[0],$Avvia3[1],1,0)
Sleep (2000)
$c=1
Else
$c=4
EndIf
EndFunc
Func Avvia4()
$Avvia4 = PixelSearch($Rett9_x1,$Rett9_y1,$Rett9_x2,$Rett9_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia4[0],$Avvia4[1],1,0)
Sleep (2000)
$c=1
Else
$c=5
EndIf
EndFunc
Func Avvia5()
$Avvia5 = PixelSearch($Rett8_x1,$Rett8_y1,$Rett8_x2,$Rett8_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia5[0],$Avvia5[1],1,0)
Sleep (2000)
$c=1
Else
$c=6
EndIf
EndFunc
Func Avvia6()
$Avvia6 = PixelSearch($Rett7_x1,$Rett7_y1,$Rett7_x2,$Rett7_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia6[0],$Avvia6[1],1,0)
Sleep (2000)
$c=1
Else
$c=7
EndIf
EndFunc
Func Avvia7()
$Avvia7 = PixelSearch($Rett6_x1,$Rett6_y1,$Rett6_x2,$Rett6_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia7[0],$Avvia7[1],1,0)
Sleep (2000)
$c=1
Else
$c=8
EndIf
EndFunc
Func Avvia8()
$Avvia8 = PixelSearch($Rett5_x1,$Rett5_y1,$Rett5_x2,$Rett5_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia8[0],$Avvia8[1],1,0)
Sleep (2000)
$c=1
Else
$c=9
EndIf
EndFunc
Func Avvia9()
$Avvia9 = PixelSearch($Rett4_x1,$Rett4_y1,$Rett4_x2,$Rett4_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia9[0],$Avvia9[1],1,0)
Sleep (2000)
$c=1
Else
$c=10
EndIf
EndFunc
Func Avvia10()
$Avvia10 = PixelSearch($Rett3_x1,$Rett3_y1,$Rett3_x2,$Rett3_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia10[0],$Avvia10[1],1,0)
Sleep (2000)
$c=1
Else
$c=11
EndIf
EndFunc
Func Avvia11()
$Avvia11 = PixelSearch($Rett2_x1,$Rett2_y1,$Rett2_x2,$Rett2_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia11[0],$Avvia11[1],1,0)
Sleep (2000)
$c=1
Else
$c=12
EndIf
EndFunc
Func Avvia12()
$Avvia12 = PixelSearch($Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia12[0],$Avvia12[1],1,0)
Sleep (2000)
$c=1
Else
$c=13
EndIf
EndFunc
Func Ricerca() ;Cerca nella minimappa
Local $randomX, $RandomY
$RandomX = Random($Mini_x1,$Mini_x2,1) ;COORDINATE KE PRENDIAMO CON LA SELEZIONE
$RandomY = Random($Mini_y1,$Mini_y2,1)
MouseClick("left",$RandomX,$RandomY,1,0)
while 1
$Avvia12 = PixelSearch($Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2,$pallacolor,1)
If not @error Then
mouseCLick("left",$Avvia12[0],$Avvia12[1],1,0)
Sleep (2000)
$c=1
exitloop
EndIf
WEnd
EndFunc
Func Pausa()
while 1
sleep(9999)
wend
EndFunc
;~ ------------------------------------------------------------------------------------------------
;Ricerca Rettangolo
;~ ------------------------------------------------------------------------------------------------
Func Select_rectangle()
Local $Selected=0
Local $Coordinate[4]
$area = GUICreate("", 1, 1, 1, 1, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0x33FF00, $area)
WinSetTrans($area, "", 80)
GUISetState()
While $Selected = 0
If _IsPressed("1") Then
$mp = MouseGetPos()
WinMove($area, "", $mp[0], $mp[1], 1, 1)
While _IsPressed('01')
$pos = MouseGetPos()
global $lefts = Order($mp[0], $pos[0])
global $tops = Order($mp[1], $pos[1])
WinMove($area, "", $lefts[0], $tops[0], $lefts[1], $tops[1])
ConsoleWrite($lefts[0] & ', ' & $tops[0] & ', ' & $lefts[1] & ', ' & $tops[1] & @CRLF)
WEnd
$Coordinate[0]=$lefts[0]
$Coordinate[1]=$tops[0]
$Coordinate[2]=$lefts[0]+$lefts[1]
$Coordinate[3]=$tops[0]+ $tops[1]
$Selected=1
EndIf
Wend
Guidelete($area)
return $coordinate
EndFunc
Func Order($a, $b)
Dim $res[2]
If $a < $b Then
$res[0] = $a
$res[1] = $b - $a
Else
$res[0] = $b
$res[1] = $a - $b
EndIf
Return $res
EndFunc
Func ESCI()
Exit
EndFunc
;~ ____________________________________________________________________________
;PROGRAMMA PRINCIPALE - MAIN
;~ ____________________________________________________________________________
If FileExists(@ScriptDir &"\Data.ini") Then ; SE ESISTE --> PRENDIAMO I DATI SALVATI (I RETTANGOLI KE SALVIAMO)
$Rett1_x1=int(IniRead( @ScriptDir &"\Data.ini" , "Alto_sin" , "x" ,0))
$Rett1_y1=int(IniRead( @ScriptDir &"\Data.ini" , "Alto_sin" , "y" ,0))
$Rett1_x2=int(IniRead( @ScriptDir &"\Data.ini" , "Basso_dest" , "x",0 ))
$Rett1_y2=int(IniRead( @ScriptDir &"\Data.ini" , "Basso_dest" , "y" ,0))
$Mini_x1=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_sin" , "x",0 ))
$Mini_y1=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_sin" , "y" ,0))
$Mini_x2=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_dest" , "x" ,0))
$Mini_y2=int(IniRead( @ScriptDir &"\Data.ini" , "Mini_dest" , "y" ,0))
Else ;Se non esiste
#Region ### START Koda GUI section ### Form=c:\users\roberto\desktop\form1.kxf
$Form1_1 = GUICreate("Form1", 473, 234, 307, 150)
$Label1 = GUICtrlCreateLabel("Ciao, se è la prima volta che usi questo bot ti consigliamo di eseguire tutto il settaggio!", 32, 16, 410, 33, $SS_CENTER)
$Button1 = GUICtrlCreateButton("Select area", 16, 64, 121, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Select Fog", 16, 128, 121, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Seleziona l'area di gioco dove la nave può raccogliere palladium", 144, 64, 306, 17)
$Label3 = GUICtrlCreateLabel("senza incontrare ostacoli (menù di vario genere", 144, 80, 226, 17)
$Label4 = GUICtrlCreateLabel("Seleziona nella Minimappa dove si trova la nebbia!", 144, 136, 242, 17)
$Button3 = GUICtrlCreateButton("Done", 168, 184, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ;deve selezionare l'area di gioco
GUISetState(@SW_HIDE, $Form1_1)
Local $cord= Select_rectangle()
$Rett1_x1=$cord[0]
$Rett1_y1=$cord[1]
$Rett1_x2=$cord[2]
$Rett1_y2=$cord[3]
GUISetState(@SW_show, $Form1_1)
Case $Button2 ;deve selezionare la nebbia
GUISetState(@SW_HIDE, $Form1_1)
Local $cord2=Select_rectangle()
$Mini_x1=$cord2[0]
$Mini_y1=$cord2[1]
$Mini_x2=$cord2[2]
$Mini_y2=$cord2[3]
GUISetState(@SW_SHOW, $Form1_1)
Case $Button3; finito lo switch, carico i dati inseriti in memoria, li salvo e aspetto ke lui faccia partire
Guidelete($Form1_1)
IniWrite( @ScriptDir &"\Data.ini" , "Alto_sin" , "x" , $Rett1_x1)
IniWrite( @ScriptDir &"\Data.ini" , "Alto_sin" , "y" , $Rett1_y1)
IniWrite( @ScriptDir &"\Data.ini" , "Basso_dest" , "x" , $Rett1_x2)
IniWrite( @ScriptDir &"\Data.ini" , "Basso_dest" , "y" , $Rett1_y2)
IniWrite( @ScriptDir &"\Data.ini" , "Mini_sin" , "x" , $Mini_x1)
IniWrite( @ScriptDir &"\Data.ini" , "Mini_sin" , "y" , $Mini_y1)
IniWrite( @ScriptDir &"\Data.ini" , "Mini_dest" , "x" , $Mini_x2)
IniWrite( @ScriptDir &"\Data.ini" , "Mini_dest" , "y" , $Mini_y2)
EndSwitch
WEnd
EndIf
While 1 ;ASPETTO IN ETERNO FINCHE' NON RICHIAMA QUALCHE FUNZIONE CON GLI HOTKEYS
sleep(9999)
WEnd
Hotkeys: TAB-->Start
P or p -->Pause
Esc-->Exit
Here the video tutorial [Only registered and activated users can see links. Click Here To Register...]
There is the exe file too
