Daxter

#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
$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 
$b=$Rett1_y2-$Rett1_y1



$Rett2_x1=$Rett1_x1+$a/24
$Rett2_y1=$Rett1_y1+$b/24

$Rett2_x2=$Rett2_x1+$a*11/12
$Rett2_y2=$Rett2_y1+$b*11/12

$Rett3_x1=$Rett2_x1+$a/24
$Rett3_y1=$Rett2_y1+$b/24

$Rett3_x2=$Rett3_x1+$a*5/6
$Rett3_y2=$Rett3_y1+$b*5/6


$Rett4_x1=$Rett3_x1+$a/24  
$Rett4_y1=$Rett3_y1+$b/24

$Rett4_x2=$Rett4_x1+$a*3/4
$Rett4_y2=$Rett4_y1+$b*3/4


$Rett5_x1=$Rett4_x1+$a/24  
$Rett5_y1=$Rett4_y1+$b/24  

$Rett5_x2=$Rett5_x1+$a*2/3
$Rett5_y2=$Rett5_y1+$b*2/3


$Rett6_x1=$Rett5_x1+$a/24    
$Rett6_y1=$Rett5_y1+$b/24  

$Rett6_x2=$Rett6_x1+$a*7/12
$Rett6_y2=$Rett6_y1+$b*7/12


$Rett7_x1=$Rett6_x1+$a/24   
$Rett7_y1=$Rett6_y1+$b/24  

$Rett7_x2=$Rett7_x1+$a/2  
$Rett7_y2=$Rett7_y1+$b/2  


$Rett8_x1=$Rett7_x1+$a/24  
$Rett8_y1=$Rett7_y1+$b/24  

$Rett8_x2=$Rett8_x1+$a*5/12
$Rett8_y2=$Rett8_y1+$b*5/12 


$Rett9_x1=$Rett8_x1+$a/24   
$Rett9_y1=$Rett3_y1+$b/24  

$Rett9_x2=$Rett9_x1+$a/3  
$Rett9_y2=$Rett9_y1+$b/3

$Rett10_x1=$Rett9_x1+$a/24   
$Rett10_y1=$Rett9_y1+$b/24  

$Rett10_x2=$Rett10_x1+$a/4  
$Rett10_y2=$Rett10_y1+$b/4  

$Rett11_x1=$Rett10_x1+$a/24  
$Rett11_y1=$Rett10_y1+$b/24  

$Rett11_x2=$Rett11_x1+$a/6  
$Rett11_y2=$Rett11_y1+$b/6  

$Rett12_x1=$Rett11_x1+$a/24   
$Rett12_y1=$Rett11_y1+$b/24  

$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 
	$Avvia1 = PixelSearch($Rett12_x1,$Rett12_y1,$Rett12_x2,$Rett12_y2,$pallacolor,1) 
 		If not @error Then
			mouseCLick("left",$Avvia1[0],$Avvia1[1],1,0)
			sleep(2000)
			$c=1
		 Else; 		
			$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() 
   Local $randomX, $RandomY

   $RandomX = Random($Mini_x1,$Mini_x2,1) 
   $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



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, $<img src='http://www.cshacked.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='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



If FileExists(@ScriptDir &"\Data.ini") Then
	$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


$Form1_1 = GUICreate("Palladium pixel bot v2.0 ", 473, 234, 307, 150)
$Label1 = GUICtrlCreateLabel("To okno wyświetla się tylko raz ponieważ ustawienia zapisują się w Data.ini", 32, 16, 410, 33, $SS_CENTER)
$Button1 = GUICtrlCreateButton("Zaznacz Okno Gry", 16, 64, 121, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zaznacz Mgłę", 16, 128, 121, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Zaznacz okno klienta gry", 144, 64, 306, 17)
$Label3 = GUICtrlCreateLabel("bez okienek aby nie rzeszkadzały w zbieraniu", 144, 80, 226, 17)
$Label4 = GUICtrlCreateLabel("Zaznaczacz na minimaie mgłę.", 144, 136, 242, 17)
$Button3 = GUICtrlCreateButton("Ok", 168, 184, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1 
		 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 
		 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
		 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 
   sleep(9999)
WEnd