[Release] Pixelbot Palladium - Free source code!

Quote:
Originally Posted by rothia
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:
Spoiler
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
are u italian?