You last visited: Today at 03:47
Advertisement
[Release] Pixelbot Palladium - Free source code!
Discussion on [Release] Pixelbot Palladium - Free source code! within the DarkOrbit forum part of the Browsergames category.
03/11/2013, 17:09
#1
elite*gold: 0
Join Date: May 2009
Posts: 119
Received Thanks: 106
[Release] Pixelbot Palladium - Free source code!
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:
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
There is the exe file too
Attached Files
Palladium_Bot_v2.0.zip
(543.1 KB, 2420 views)
03/11/2013, 17:13
#2
elite*gold: 10
Join Date: May 2011
Posts: 2,340
Received Thanks: 728
sources in exe?
btw its really a ixelbot
03/11/2013, 17:23
#3
elite*gold: 15
Join Date: Dec 2012
Posts: 1,236
Received Thanks: 1,411
Thanks now I can try myself doing it online on my website.
03/11/2013, 17:54
#4
elite*gold: 0
Join Date: May 2012
Posts: 30
Received Thanks: 4
work?
03/11/2013, 19:03
#5
elite*gold: 200
Join Date: Apr 2012
Posts: 620
Received Thanks: 1,370
Very nice work. Thanks!
03/11/2013, 19:18
#6
elite*gold: 1
Join Date: Feb 2013
Posts: 175
Received Thanks: 16
is it writed with autoit ?
03/11/2013, 23:56
#7
elite*gold: 0
Join Date: May 2009
Posts: 119
Received Thanks: 106
Quote:
Originally Posted by
knuck
sources in exe?
btw its really a ixelbot
Yes is exe because when u compile it it return a exe file... so i put the code in clair! If someone know how to introduce pirate kill, plz share it with us!
I'm very busy now and i don't have much time to work on it! But when openstealth is down i open this one on the second pc and collect lot of palladium! Not like open but it work!
Thanks for every thanks
03/12/2013, 05:05
#8
elite*gold: 0
Join Date: Mar 2013
Posts: 130
Received Thanks: 32
Thanks i really needed the source code!
03/12/2013, 07:16
#9
elite*gold: 30
Join Date: Jan 2013
Posts: 212
Received Thanks: 463
Why you don't code it in VB or C#
-For me it's so much easier and you could make more advance funcions in .NET
03/12/2013, 07:36
#10
elite*gold: 3570
Join Date: Dec 2012
Posts: 13,044
Received Thanks: 8,252
@Gnome
AutoIt is for Pixel Things better
03/12/2013, 10:07
#11
elite*gold: 0
Join Date: May 2009
Posts: 119
Received Thanks: 106
Quote:
Originally Posted by
GnomeProgramming
Why you don't code it in VB or C#
-For me it's so much easier and you could make more advance funcions in .NET
I know both lenguages, but with autoit it's very simple and light!
With vb .net i write a combat tool ( switch x4 and rsb, or sab and rsb, when u select pld-08 switch to the other rocket, launch istant shild and bomb), but it was made by using the param send letters... i don't write with socket for darkorbit... it's a worth of time when there is kervava, merkava and openstealth...
03/12/2013, 11:21
#12
elite*gold: 30
Join Date: Jan 2013
Posts: 212
Received Thanks: 463
Quote:
Originally Posted by
»AppleJack™
@Gnome
AutoIt is for Pixel Things better
Yeap, AutoIt its faster with pixels.. So if you want to make something like this "Pixelbot Palladium" it will be beater to do it in AutoIt, but if you want to add more functions and make it more complex i will do it in C#
Good Luck with the project
-Gnome
04/04/2013, 19:14
#13
elite*gold: 0
Join Date: May 2012
Posts: 319
Received Thanks: 67
which pallbot is better? this or »FlutterShy™ bot?
04/04/2013, 22:23
#14
elite*gold: 0
Join Date: Mar 2013
Posts: 159
Received Thanks: 20
works good got sabs and inter shoot back not anniltors this works all res
04/04/2013, 23:10
#15
elite*gold: 8
Join Date: Nov 2012
Posts: 486
Received Thanks: 161
Can somone translate it to me. I don't get what i have to do
[Release] Palladium Pixelbot
12/31/2013 - DarkOrbit - 63 Replies
hello,
many write they need a Palladium so i will release my Palladium Bot
it is at the moment simple but good to collect some Palladium.
Changelog
0.2 - Added better Logic and Chargo/Bonus - Boxen
0.1 - First Release
[RELEASE]Extreme Palladium PixelBot (Alpha of Beta)
05/29/2013 - DarkOrbit - 38 Replies
Hey Guys,
I have now the Alpha of the Beta Version from my PixelBot for Palladium.
Features:
Collect Palladium
Better collecting Logic
Planed Features:
All times are GMT +2. The time now is 03:48 .
![[Release] Pixelbot Palladium - Free source code!](https://www.elitepvpers.com/forum/iconimages/darkorbit/release-pixelbot-palladium-free-source-code_ltr.gif){kind=tracking}
btw its really a ixelbot 
![[becky]'s Avatar](https://www.elitepvpers.com/forum/customavatars/avatar4477422_2.gif){kind=avatar}
