Register for your free account! | Forgot your password?

Go Back   elitepvpers > Other Online Games > Browsergames > DarkOrbit
Pixelbot - Palladium Pixelbot - Palladium
You last visited: Today at 04:54

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Pixelbot - Palladium

Discussion on Pixelbot - Palladium within the DarkOrbit forum part of the Browsergames category.

Reply
 
Old   #1
 
xLikier's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2013
Posts: 37
Received Thanks: 9
Pixelbot - Palladium

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][/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 ...
I hope you understand what I wrote
xLikier is offline  
Thanks
1 User
Old 04/26/2017, 05:01   #2
 
MrCriticalRx's Avatar
 
elite*gold: 2
The Black Market: 2/0/0
Join Date: Dec 2013
Posts: 285
Received Thanks: 62
I'll prove it, see if it's okay
MrCriticalRx is offline  
Old 04/26/2017, 06:09   #3
 
elite*gold: 0
The Black Market: 1/0/1
Join Date: Mar 2013
Posts: 186
Received Thanks: 36
Quote:
Originally Posted by MrCriticalRx View Post
thx bro
thanks for what?
There is a thanks button too
Elixir~Project is offline  
Old 04/26/2017, 06:43   #4
 
xLikier's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2013
Posts: 37
Received Thanks: 9
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.
xLikier is offline  
Old 04/26/2017, 06:49   #5
 
MrCriticalRx's Avatar
 
elite*gold: 2
The Black Market: 2/0/0
Join Date: Dec 2013
Posts: 285
Received Thanks: 62
yes but no to 100% cualiti
MrCriticalRx is offline  
Old 04/26/2017, 06:54   #6
 
xLikier's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2013
Posts: 37
Received Thanks: 9
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

So the bot flies and collects?
xLikier is offline  
Old 04/26/2017, 15:12   #7
 
conteaza's Avatar
 
elite*gold: 490
The Black Market: 8/0/0
Join Date: Dec 2010
Posts: 1,150
Received Thanks: 460
If i`m not wrong you must use en language keyboard, try to contact pallavia for more info
conteaza is offline  
Old 04/26/2017, 18:31   #8
 
alexutu2013's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Feb 2014
Posts: 229
Received Thanks: 66
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
check this link :
alexutu2013 is offline  
Old 04/27/2017, 06:59   #9
 
xLikier's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Nov 2013
Posts: 37
Received Thanks: 9
Ok. Thanks all

#Close
xLikier is offline  
Reply

« Any free GG bots out there? | Mobile Game [darkorbit style] »

Similar Threads Similar Threads
[Bot] Palladium PixelBot
06/11/2013 - DarkOrbit - 78 Replies
Hi, I created a Pixelbot to cellect palladium and many other stuff. Now it can only collect palladium(ALPHA). THIS tool is currently in the ALPHA. How to use: You need to set these settings to low: Zones
NEW Palladium Pixelbot or scipt collector
07/20/2012 - DarkOrbit - 5 Replies
:confused: :confused:
Palladium Palladium Palladium
07/17/2012 - DarkOrbit - 4 Replies
Program for collect paladium pleas ?? :confused:



All times are GMT +1. The time now is 04:55.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.