Pixelbot - Palladium

04/26/2017 02:09 xLikier#1
Hello. Today i work on rothia source code...
I'll make new GUI and try bot.
When i click "TAB", bot click one time on minimap and nothing happend.
Anyone know what it's going one?

I try oryginal source and still nothing... not work too...

Language: PL ...

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=0xFF00CC
$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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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 [MENTION=2544426]Error T[/MENTION]hen
			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] & [MENTION=3576271]CRLF[/MENTION])
        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
 
 

If FileExists [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini") Then
	$Rett1_x1=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_1" , "x" ,0))
	$Rett1_y1=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_1" , "y" ,0))
	$Rett1_x2=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_2" , "x",0 ))
	$Rett1_y2=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_2" , "y" ,0))
	$Mini_x1=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_3" , "x",0 ))
	$Mini_y1=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_3" , "y" ,0))
	$Mini_x2=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_4" , "x" ,0))
	$Mini_y2=int(IniRead( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_4" , "y" ,0))
Else


$Form1_1 = GUICreate("NaquBOT Palladium | Darkorbit | v.1.1", 554, 215, 192, 124)
$Label1 = GUICtrlCreateLabel("Jeżeli masz pytania to kliknij poniższy przycisk", 312, 168, 219, 17)
$Label2 = GUICtrlCreateLabel("", 40, 8, 4, 4)
$Group1 = GUICtrlCreateGroup("Ustawienia okna", 288, 8, 257, 153)
$Button1 = GUICtrlCreateButton("Zaznacz", 296, 32, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zaznacz", 296, 72, 75, 25, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Zaznacz okno klienta (ekran gry)", 376, 38, 159, 17)
$Label4 = GUICtrlCreateLabel("Zaznacz minimape (mgiełka)", 376, 78, 139, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Gotowe, okna zostały zaznaczone (kliknij)", 296, 112, 241, 33, $WS_GROUP)
$Group2 = GUICtrlCreateGroup("Jak uruchomić", 8, 8, 273, 201)
$Label5 = GUICtrlCreateLabel("Jest to okno konfiguracyjne które pojawia się tylko raz", 16, 32, 258, 17)
$Label6 = GUICtrlCreateLabel("Dane zostaną zapisane w pliku  - Zapis.ini  ", 16, 48, 205, 17)
$Label7 = GUICtrlCreateLabel("Usunięcie pliku powoduje ponowne ustawienie", 16, 64, 225, 17)
$Label8 = GUICtrlCreateLabel("__________________________________________", 16, 80, 256, 17)
$Label9 = GUICtrlCreateLabel("Krok 1. Zmień ustawienia gry na minimalne", 16, 104, 204, 17)
$Label10 = GUICtrlCreateLabel("Krok 2. Zaznacz myszką (LPM) okno gry", 16, 128, 195, 17)
$Label11 = GUICtrlCreateLabel("Krok 3. Zaznacz myszką (LPM) minimape - mgiełka", 16, 152, 245, 17)
$Label12 = GUICtrlCreateLabel("Krok 4. Kliknij przycisk - Gotowe", 16, 176, 155, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("KONTAKT", 376, 184, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button4
		 MsgBox(64, 'Kontakt', 'Napisz do mnie: [email][Only registered and activated users can see links. Click Here To Register...][/email]')
		 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( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_1" , "x" , $Rett1_x1)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_1" , "y" , $Rett1_y1)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_2" , "x" , $Rett1_x2)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_2" , "y" , $Rett1_y2)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_3" , "x" , $Mini_x1)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_3" , "y" , $Mini_y1)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_4" , "x" , $Mini_x2)
		 IniWrite( [MENTION=5699755]Scriptd[/MENTION]ir &"\Zapis.ini" , "Info_4" , "y" , $Mini_y2)
	EndSwitch
WEnd
EndIf

While 1 
   sleep(9999)
WEnd
My english suck ... :D
I hope you understand what I wrote :handsdown:
04/26/2017 05:01 MrCriticalRx#2
I'll prove it, see if it's okay
04/26/2017 06:09 Elixir~Project#3
Quote:
Originally Posted by MrCriticalRx View Post
thx bro
thanks for what?
There is a thanks button too
04/26/2017 06:43 xLikier#4
Quote:
Originally Posted by MrCriticalRx View Post
I'll prove it, see if it's okay
Work for you? :/
I do not know what's wrong.
04/26/2017 06:49 MrCriticalRx#5
yes but no to 100% cualiti
04/26/2017 06:54 xLikier#6
Quote:
Originally Posted by MrCriticalRx View Post
yes but no to 100% cualiti
Can I know what browser you are using?
And what's your system :rolleyes:

So the bot flies and collects?
04/26/2017 15:12 conteaza#7
If i`m not wrong you must use en language keyboard, try to contact pallavia for more info
04/26/2017 18:31 alexutu2013#8
the source is working, if you don't know the basic autoit, and how to make it work, don't try to make it better, learn the language first, is so easy it will take 2-3 days to learn it :D
check this link :
04/27/2017 06:59 xLikier#9
Ok. Thanks all :)

#Close