Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Tut] pixel bot na boxy

a3gis

Przez a3gis
w DarkOrbit

Rekomendowane odpowiedzi

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

Opublikowano

witam pozwoliłem przerobić pewnego pixelbota na pallke tak aby zbierał skrzynki bonusowe

załączę jego kod(uruchamiamy w AUTOIT)

Source kopiujemy i wklejamy do notatnika zapisujemy w Unicode z rozszerzeniem .au3

klawisze

tab=zacznij, kliknij na mini mace

P czyli pauza

 

 

#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 $bonuscolor=0xFCFFCD

$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,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia1[0],$Avvia1[1],1,0)

sleep(1000)

$c=1

Else;

$c=2

exitloop

EndIf

wend

EndFunc

 

Func Avvia2()

$Avvia2 = PixelSearch($Rett11_x1,$Rett11_y1,$Rett11_x2,$Rett11_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia2[0],$Avvia2[1],1,0)

sleep(1000)

$c=1

Else

$c=3

EndIf

EndFunc

 

Func Avvia3()

$Avvia3 = PixelSearch($Rett10_x1,$Rett10_y1,$Rett10_x2,$Rett10_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia3[0],$Avvia3[1],1,0)

Sleep (1000)

$c=1

Else

$c=4

EndIf

EndFunc

 

Func Avvia4()

$Avvia4 = PixelSearch($Rett9_x1,$Rett9_y1,$Rett9_x2,$Rett9_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia4[0],$Avvia4[1],1,0)

Sleep (1000)

$c=1

Else

$c=5

EndIf

EndFunc

 

Func Avvia5()

$Avvia5 = PixelSearch($Rett8_x1,$Rett8_y1,$Rett8_x2,$Rett8_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia5[0],$Avvia5[1],1,0)

Sleep (1000)

$c=1

Else

$c=6

EndIf

EndFunc

 

Func Avvia6()

$Avvia6 = PixelSearch($Rett7_x1,$Rett7_y1,$Rett7_x2,$Rett7_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia6[0],$Avvia6[1],1,0)

Sleep (1000)

$c=1

Else

$c=7

EndIf

EndFunc

 

Func Avvia7()

$Avvia7 = PixelSearch($Rett6_x1,$Rett6_y1,$Rett6_x2,$Rett6_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia7[0],$Avvia7[1],1,0)

Sleep (1000)

$c=1

Else

$c=8

EndIf

EndFunc

 

Func Avvia8()

$Avvia8 = PixelSearch($Rett5_x1,$Rett5_y1,$Rett5_x2,$Rett5_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia8[0],$Avvia8[1],1,0)

Sleep (1000)

$c=1

Else

$c=9

EndIf

EndFunc

 

Func Avvia9()

$Avvia9 = PixelSearch($Rett4_x1,$Rett4_y1,$Rett4_x2,$Rett4_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia9[0],$Avvia9[1],1,0)

Sleep (1000)

$c=1

Else

$c=10

EndIf

EndFunc

 

Func Avvia10()

$Avvia10 = PixelSearch($Rett3_x1,$Rett3_y1,$Rett3_x2,$Rett3_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia10[0],$Avvia10[1],1,0)

Sleep (1000)

$c=1

Else

$c=11

EndIf

EndFunc

 

Func Avvia11()

$Avvia11 = PixelSearch($Rett2_x1,$Rett2_y1,$Rett2_x2,$Rett2_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia11[0],$Avvia11[1],1,0)

Sleep (1000)

$c=1

Else

$c=12

EndIf

EndFunc

 

Func Avvia12()

$Avvia12 = PixelSearch($Rett1_x1,$Rett1_y1,$Rett1_x2,$Rett1_y2,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia12[0],$Avvia12[1],1,0)

Sleep (1000)

$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,$bonuscolor,1)

If not @error Then

mouseCLick("left",$Avvia12[0],$Avvia12[1],1,0)

Sleep (1000)

$c=1

exitloop

EndIf

 

WEnd

 

EndFunc

 

Func Pausa()

while 1

sleep(1000)

wend

EndFunc

 

 

 

Func Select_rectangle()

Local $Selected=0

Local $Coordinate[4]

$area = GUICreate("", 1, 1, 1, 1, $WS_POPUP, $WS_EX_TOPMOST)

GUISetBkColor(0x000000, $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

 

 

 

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("BonusBox Pixelbot V1.1 ", 473, 234, 307, 150)

$Label1 = GUICtrlCreateLabel("To okno wyświetla się tylko raz ponieważ ustawienia zapisują się w Data.ini pozamykaj zbędne okienka i wykonuj polecenia.", 32, 16, 410, 33, $SS_CENTER)

$Button1 = GUICtrlCreateButton("Zaznacz Okno Gry", 16, 64, 121, 41, $WS_GROUP)

$Button2 = GUICtrlCreateButton("Zaznacz minimapę", 16, 128, 121, 41, $WS_GROUP)

$Label2 = GUICtrlCreateLabel("Zaznacz okno klienta gry", 144, 64, 306, 17)

$Label3 = GUICtrlCreateLabel("ustaw okienka aby nie przeszkadzały", 144, 80, 226, 17)

$Label4 = GUICtrlCreateLabel("zaznacz minimapę nie obejmującą portali.", 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(1000)

WEnd

 

 

 

zaprowadziłem pare poprawek w source(1 auktualizacja już jest V1.1:D)u

Oskar121 Budowniczy

Oskar121

Opublikowano
Budowniczy

Oskar121

Opublikowano

witam pozwoliłem przerobić pewnego pixelbota na pallke tak aby zbierał skrzynki bonusowe

załączę jego kod(uruchamiamy w AUTOIT)

Source kopiujemy i wklejamy do notatnika zapisujemy w Unicode z rozszerzeniem .au3

klawisze

tab=zacznij

= czyli pauza

 

 

#include <Misc.au3>

#include <windowsconstants.au3>

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

 

HotKeySet("{TAB}", "Avvia")

HotKeySet("{ESC}","ESCI")

HotKeySet("{=}","Pausa")

HotKeySet("{=}","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=0xFCFFCD

$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(1000)

$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(1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$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 (1000)

$c=1

exitloop

EndIf

 

WEnd

 

EndFunc

 

Func Pausa()

while 1

sleep(1000)

wend

EndFunc

 

 

 

Func Select_rectangle()

Local $Selected=0

Local $Coordinate[4]

$area = GUICreate("", 1, 1, 1, 1, $WS_POPUP, $WS_EX_TOPMOST)

GUISetBkColor(0x000000, $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

 

 

 

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("BonusBox Pixelbot V1.0 ", 473, 234, 307, 150)

$Label1 = GUICtrlCreateLabel("To okno wyświetla się tylko raz ponieważ ustawienia zapisują się w Data.ini pozamykaj zbędne okienka i wykonuj polecenia.", 32, 16, 410, 33, $SS_CENTER)

$Button1 = GUICtrlCreateButton("Zaznacz Okno Gry", 16, 64, 121, 41, $WS_GROUP)

$Button2 = GUICtrlCreateButton("Zaznacz minimapę", 16, 128, 121, 41, $WS_GROUP)

$Label2 = GUICtrlCreateLabel("Zaznacz okno klienta gry", 144, 64, 306, 17)

$Label3 = GUICtrlCreateLabel("ustaw okienka aby nie przeszkadzały", 144, 80, 226, 17)

$Label4 = GUICtrlCreateLabel("zaznacz minimapę nie obejmującą portali.", 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(1000)

WEnd

 

 

ile średnio zbiera uri na godzine?

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

ile średnio zbiera uri na godzine?

jeśli pilnujesz czy nie robi głupstw(bo to 1 wersja)

to zbiera tak na pvp 3k(mi tyle uzbieral)

nie zle jak na pixela

 

miałem pare linijek ale trzeba było poprzerabiać.

uważajcie na środkowy portal na mapach pvp bo ma te same kolory co box

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

szkoda że source skopiowany z innego forum :)

nic nie jest skoiowane haterze :)

tylko 200 wierszy zmienione zamiast palladium pixela zrobilem boxy pixelbot i duzo wbrew pozorom trzeba zmieniać.

więc jak nie wiesz to nie mów...

postraram się zrobić pixela bijącego alienki:) Ale nic nie boiecuje.

tego już nie powiesz że kopiuje:)

beblok Bywalec

beblok

Opublikowano
Bywalec

beblok

Opublikowano

Żywcem zerżnięte z oryginału pixelbota. Nawet nie potrafiłeś zrobić exe-ka. Nie wszystcy mają autoita.

bugpointblack.png

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

Żywcem zerżnięte z oryginału pixelbota. Nawet nie potrafiłeś zrobić exe-ka. Nie wszystcy mają autoita.

jaki problem ściągnąć autoit który waży parenaście mb??

a czepiasz się o exe .. ja to tak dla funu zrobiłem i wstawiłem żeby ktoś miał..

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

nie ogarniam tego autoita

co tu ogarniać ściągasz go instalujesz i uruchamiasz source który wcześcien zapisaleś

mricht Rekrut

mricht

Opublikowano
Rekrut

mricht

Opublikowano

A ja wszystko zrobilem ale wyskakuje mi autoit error

Func Order($a, $ B)

Func Order($a, ^ERROR

Error: Badly formated variable or macro.

Prosze o pomoc bo jestem "zielony" w te sprawy :)

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

A ja wszystko zrobilem ale wyskakuje mi autoit error

Func Order($a, $ B)

Func Order($a, ^ERROR

Error: Badly formated variable or macro.

Prosze o pomoc bo jestem "zielony" w te sprawy :)

Func Order($a, $ B) ta linie zamień na

 

Func Order($a, $B)

minkami sie nie przejmuj nwm dlaczego zamienia...

poprawiłem kod i powinno być dobrze :)

patricok Specjalista

patricok

Opublikowano
Specjalista

patricok

Opublikowano

może "hatuje" ale na zaprzyjaźnionym niemieckim forum był podany kod open source do zrobienia własnego bota, po pobieżnym przejrzeniu jest to samo, nie zaglądałem głębiej, ale .exe mogłeś zrobić, byłoby dużo prościej i łatwiej dla wszystkich na mpc bo z tego co widzę to mało kto tutaj coś już ogarnia :)

policeu.jpg

 

mricht Rekrut

mricht

Opublikowano
Rekrut

mricht

Opublikowano

ok, ten pixel bot zmienia trase lotu po zebraniu boxa a jak go nie zobaczy to leci w mejsce gdzie byl zaznaczony na minimapie i czeka, popraw to jak mozesz :D

Ja bd robil na autohotkey'u zeby np. co 30 sek wciskal tab, jak zrobie to dodam do tego tut'ka :D

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

Mi nie dziala, po 2-3 minut zatrzymuje sie i stoi, nic sie nie dziele. Czemu ?

czasem tak jest jak boxa po drodze nie znajdzie to jest prototyp:)

poprostu musisz wcisnąć tab :)

Muszę zrobić pętelke :)

 

czemu on nie trafia w skrzynki?

nie dziła tylko na designach golca:Venom,bastion i enforcer i te co mają takie pomarańczowo-żółte barwy

jak w tych latasz to zmień na weterana i ustaw na jakość tła średnią.

mricht Rekrut

mricht

Opublikowano
Rekrut

mricht

Opublikowano

A ja go zostawiam na 2-3 godziny i sie wracam zobaczyc czy mnie nikt nie rozwalil, auto keyboard by MurGee.com co 20 sek mi tab klika i git :) a i lata mi normalnie na dresku bastion do golca to nie wiem o co ci ziomek chodzi :) ale i tak zmienie xD

a3gis Uczeń

a3gis

Opublikowano
Uczeń

a3gis

  • Autor
Opublikowano

tO ZROB PROSZE, BO JAK TO MA CO 2-3 MIN WYLACZAC SIE NO TO TROCHE LIPA ;/ a JA CHCIALEM NA 5 GODZIN GO ZOSTAWIC I WYJSC ;P

 

 

@ Edit

 

sorki caps

pracuje nad tym ale nie wiem czemu ale pętla się nie do końca zamyka :D

poprostu robi robi i czasem staje.. wyrobie sie w pare dni i może dodam jedną bonus opcję:)

mricht Rekrut

mricht

Opublikowano
Rekrut

mricht

Opublikowano

"bonus opcje" opisz co masz zamiar zrobic a3gis :D

a wy tu nie piszcie ze staje po 2-3 min tylko w autohotkey'u zrobcie sobie scripta zeby co jakis czas wam tab wciskal a tu user DrexonPl zrobil scripta:

 

hotkeyset("1", "sec")

func sec()
while 2
send("{TAB}")
sleep(30000)
wend
EndFunc

while 1
wend

 

albo sobie programik popbierzcie co wam bd klikal ten tab ja uzywam auto keyboard by murgee, a i troche "pomyślunku" a nie tylko na forum narzekacie ze tego nie ma temtego nie ma....

VRUMaster Budowniczy

VRUMaster

Opublikowano
Budowniczy

VRUMaster

Opublikowano

Mi wszystko ładnie działa tylko że mi boxów nie zbiera a wszystko zrobiłem zgodnie z poleceniami...

Czy bot jest wykrywalny ? bo nie chce dostać bana odrazu lub kare

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...