Cargo bot

Ersiden · 17 Marca 2015

Chciałbym wam zaprezentować owoc mojej pracy na rzecz botów do Dark Orbit.

Przygotowałem bota na bonus chesty i udostępniam go wam na zasadzie licencji GPL

Oznacza to że macie pełen dostęp do kodu oraz możecie go edytować i dalej rozprowadzać sami ale a ta samą licencją.

V2.0

DL:

http://speedy.sh/anzwb/BOT.rar

Skan:

https://www.virustotal.com/pl/file/6bf576865b2fd4c7b55f670d1193fd34de046565ab63218e8fcc1ab8f74b3606/analysis/1426970244/

12/57 - :C dodałem tylko ImageSearch :C

Source:

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\Program Files (x86)\AutoIt3\Icons\au3.ico
#AutoIt3Wrapper_Outfile=Cargo Bot.Exe
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

	AutoIt Version: 3.3.12.0
	Author:         Lobod


#ce ----------------------------------------------------------------------------

#include <FastFind.au3>
#include 'ImageSearch.au3'
#include <Misc.au3>
#include <windowsconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Timers.au3>
HotKeySet("{F2}", "config")
Global $x1, $y1, $x2, $y2
Global $ie = 1
HotKeySet("{F3}", "exi")
Local $Mini_y1, $Mini_x1, $Mini_x2, $Mini_y2
Local $Rett1_x1, $Rett1_x2, $Rett1_y1, $Rett1_y2, $h1, $h2
If FileExists(@ScriptDir & "\Data.ini") Then
	Global $Rett1_x1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "x", 0))
	Global $Rett1_y1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "y", 0))
	Global $Rett1_x2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "x", 0))
	Global $Rett1_y2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "y", 0))
	Global $click = Int(IniRead(@ScriptDir & "\Data.ini", "click", "d", 7))
Else
	config()
EndIf
pause()
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   ;==>Select_rectangle
Func Order($a, $
	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   ;==>Order
Func Szukaj()
	FFNearestSpot(5, 2, $Rett1_x2 / 2, $Rett1_y2 / 2, 0xFFFFE9, 3, 1, $Rett1_x1, $Rett1_y1, $Rett1_x2, $Rett1_y2)
	If Not @ Then
		AdlibUnRegister("lataj")
		AdlibUnRegister("szukaj")
		MouseClick("", $Rett1_x2 / 2, $Rett1_y2 / 2, 1, 0)
		Sleep(200)
		$aCoord = FFNearestSpot(5, 2, $Rett1_x2 / 2, $Rett1_y2 / 2, 0xFFFFE9, 3, 1, $Rett1_x1, $Rett1_y1, $Rett1_x2, $Rett1_y2)
		If Not @ Then
			MouseClick("", $aCoord[0], $aCoord[1] - 5, 1, 0)
		EndIf
		Sleep(1500)
		AdlibRegister("Szukaj", 200)
		Global $iw = 0
	Else
		If $iw = 0 Then
			Global $iw = 1
			Global $ie = 1
			Lataj()
			AdlibRegister("lataj", 1000 * $click)
		EndIf
	EndIf
EndFunc   ;==>Szukaj
Func Lataj()
	MouseClick("", $x1 + Random(0, $x2 - $x1), $y1 + Random(0, $y2 - $y1))
EndFunc   ;==>Lataj
Func config()
	HotKeySet("{F2}")
	Global $Rett1_x1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "x", 0))
	Global $Rett1_y1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "y", 0))
	Global $Rett1_x2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "x", 0))
	Global $Rett1_y2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "y", 0))
	Global $click = Int(IniRead(@ScriptDir & "\Data.ini", "click", "d", 7))
	$Form1_1 = GUICreate("Cargo pixel bot v1.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, 60, 121, 41, $WS_GROUP)
	$Input1 = GUICtrlCreateInput($click, 107, 160, 30, 20)
	$Label2 = GUICtrlCreateLabel("Zaznacz okno klienta gry", 144, 64, 306, 17)
	$Label4 = GUICtrlCreateLabel("Co ile ma klikać (w sec)", 144, 160, 306, 17)
	$Label3 = GUICtrlCreateLabel("bez okienek aby nie rzeszkadzały w zbieraniu", 144, 80, 226, 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()
				Global $Rett1_x1 = $cord[0]
				Global $Rett1_y1 = $cord[1]
				Global $Rett1_x2 = $cord[2]
				Global $Rett1_y2 = $cord[3]
				GUISetState(@SW_SHOW, $Form1_1)
			Case $Button3
				Global $click = GUICtrlRead($Input1)
				IniWrite(@ScriptDir & "\Data.ini", "click", "d", GUICtrlRead($Input1))
				IniWrite(@ScriptDir & "\Data.ini", "game_sin", "x", $Rett1_x1)
				IniWrite(@ScriptDir & "\Data.ini", "game_sin", "y", $Rett1_y1)
				IniWrite(@ScriptDir & "\Data.ini", "game_dest", "x", $Rett1_x2)
				IniWrite(@ScriptDir & "\Data.ini", "game_dest", "y", $Rett1_y2)
				GUIDelete($Form1_1)
				HotKeySet("{F2}", "config")
		EndSwitch
	WEnd
EndFunc   ;==>config
Func exi()
	Exit
EndFunc   ;==>exi
Func idle()
	HotKeySet("{F1}", "pause")
	$result = _ImageSearch(@ScriptDir & "\Img\mmup.bmp", 1, $x1, $y1, 0)
	If $result = 0 Then
	EndIf
	$result1 = _ImageSearch(@ScriptDir & "\Img\mmdw.bmp", 1, $x2, $y2, 0)
	AdlibRegister("Szukaj", 200)
	While 1
		Sleep(10)
	WEnd
EndFunc   ;==>idle
Func pause()
	HotKeySet("{F1}", "idle")
	Global $iw = 0
	AdlibUnRegister("szukaj")
	AdlibUnRegister("lataj")
	While 1
		Sleep(100)
	WEnd
EndFunc   ;==>pause

V1.0

DL:

http://speedy.sh/2PJ8C/BOT.rar

Skan:

https://www.virustotal.com/pl/file/6a9c4f814d402a7af2a0f301cf09ada29facee77548c4b0e52bdc8cf77c672c3/analysis/1426585745/

6/57 bo Auto It

Taraz source:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=Cargo Bot.Exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.12.0
    Author: Lobod


#ce ----------------------------------------------------------------------------

#include "FastFind.au3"
#include <Misc.au3>
#include <windowsconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
HotKeySet("{F2}", "config")
HotKeySet("{F3}", "exi")
Local $Mini_y1, $Mini_x1, $Mini_x2, $Mini_y2
Local $Rett1_x1, $Rett1_x2, $Rett1_y1, $Rett1_y2
If FileExists(@ScriptDir & "\Data.ini") Then
    Global $Rett1_x1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "x", 0))
    Global $Rett1_y1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "y", 0))
    Global $Rett1_x2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "x", 0))
    Global $Rett1_y2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "y", 0))
    Global $Mini_x1 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_sin", "x", 0))
    Global $Mini_y1 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_sin", "y", 0))
    Global $Mini_x2 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_dest", "x", 0))
    Global $Mini_y2 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_dest", "y", 0))
    Global $click = Int(IniRead(@ScriptDir & "\Data.ini", "click", "d", 7))
Else
    config()
EndIf
pause()
Func znacz()
    Local $cord2 = Select_rectangle()
    Global $Mini_x1 = $cord2[0]
    Global $Mini_y1 = $cord2[1]
    Global $Mini_x2 = $cord2[2]
    Global $Mini_y2 = $cord2[3]
EndFunc ;==>znacz
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 ;==>Select_rectangle
Func Order($a, $
    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 ;==>Order
Func Szukaj()
    For $i = 1 To $click * 10
        $aCoord = FFNearestSpot(5, 2, $Rett1_x2 / 2, $Rett1_y2 / 2 - 60, 0xF8EDAF, 5, 1, $Rett1_x1, $Rett1_y1, $Rett1_x2, $Rett1_y2)
        If Not @ Then
            MouseClick("", $aCoord[0], $aCoord[1], 1, 0)
            Sleep(2000)
        EndIf
        Sleep(100)
    Next
EndFunc ;==>Szukaj
Func Lataj()
    MouseClick("", $Mini_x1 + Random(0, $Mini_x2 - $Mini_x1), $Mini_y1 + Random(0, $Mini_y2 - $Mini_y1))
EndFunc ;==>Lataj
Func idle()
    HotKeySet("{F1}", "pause")
    While 1
        Lataj()
        Szukaj()
    WEnd
EndFunc ;==>idle
Func pause()
    HotKeySet("{F1}", "idle")
    While 1
        Sleep(100)
    WEnd
EndFunc ;==>pause
Func config()
    HotKeySet("{F2}")
    Global $Rett1_x1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "x", 0))
    Global $Rett1_y1 = Int(IniRead(@ScriptDir & "\Data.ini", "game_sin", "y", 0))
    Global $Rett1_x2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "x", 0))
    Global $Rett1_y2 = Int(IniRead(@ScriptDir & "\Data.ini", "game_dest", "y", 0))
    Global $Mini_x1 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_sin", "x", 0))
    Global $Mini_y1 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_sin", "y", 0))
    Global $Mini_x2 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_dest", "x", 0))
    Global $Mini_y2 = Int(IniRead(@ScriptDir & "\Data.ini", "Mini_dest", "y", 0))
    Global $click = Int(IniRead(@ScriptDir & "\Data.ini", "click", "d", 7))
    $Form1_1 = GUICreate("Cargo pixel bot v1.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, 60, 121, 41, $WS_GROUP)
    $Input1 = GUICtrlCreateInput($click, 107, 105, 30, 20)
    $Button2 = GUICtrlCreateButton("Zaznacz Minimape", 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.", 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()
                Global $Rett1_x1 = $cord[0]
                Global $Rett1_y1 = $cord[1]
                Global $Rett1_x2 = $cord[2]
                Global $Rett1_y2 = $cord[3]
                GUISetState(@SW_SHOW, $Form1_1)
            Case $Button2
                GUISetState(@SW_HIDE, $Form1_1)
                Local $cord2 = Select_rectangle()
                Global $Mini_x1 = $cord2[0]
                Global $Mini_y1 = $cord2[1]
                Global $Mini_x2 = $cord2[2]
                Global $Mini_y2 = $cord2[3]
                GUISetState(@SW_SHOW, $Form1_1)
            Case $Button3
                Global $click = GUICtrlRead($Input1)
                IniWrite(@ScriptDir & "\Data.ini", "click", "d", GUICtrlRead($Input1))
                IniWrite(@ScriptDir & "\Data.ini", "game_sin", "x", $Rett1_x1)
                IniWrite(@ScriptDir & "\Data.ini", "game_sin", "y", $Rett1_y1)
                IniWrite(@ScriptDir & "\Data.ini", "game_dest", "x", $Rett1_x2)
                IniWrite(@ScriptDir & "\Data.ini", "game_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)
                GUIDelete($Form1_1)
                HotKeySet("{F2}", "config")
        EndSwitch
    WEnd
EndFunc ;==>config
Func exi()
    Exit
EndFunc ;==>exi

Opis:

F1 - Start/Stop

F2 - Konfiguracja

-----------------------"okno gry" oznacza sam obszar Flash

F3 - Wyjście

Szukam osób chętnych do współpracy.

Zachęcam do zostawiania opinii.

No_Name_MMO · 17 Marca 2015

Cargo Bot czyli zbiera tylko skrzynki cargo ? jaki jest w tym sens ?

Ersiden · 17 Marca 2015

Twu... Bonus chesty

No_Name_MMO · 17 Marca 2015

Twu... Bonus chesty

aa no skrzyneczki bonusowe , rozumiem .

Moze napisalbys jakie osiagi ma ten bot w obecnej chwili? bo rozumiem ze jeszcze trzeba nad nim popracowac .

czy naprawia sie , peta czy naprawia itp ..

napisz tez moze nad czym pracujesz w tej chwili i co chcialbys ulepszyc lub dodac w przyszlosci moze jest kilka osob co bedzie moglo tobie pomoc albo beda mieli dobre pomysly

Ersiden · 17 Marca 2015

Narazie za 5h nabił 3k urki więc nwm jak to nazwać. Jeszcze żadnej dodatkowej funkcji nie ma.

No_Name_MMO · 17 Marca 2015

Narazie za 5h nabił 3k urki więc nwm jak to nazwać. Jeszcze żadnej dodatkowej funkcji nie ma.

no to slabiutko , musisz popracowac nad tym

Ersiden · 17 Marca 2015

Ale jakieś sugestie?

SimbiosiC · 18 Marca 2015

Pomysl dobry jednak z dokladnością slabo, chodzi o to, że nie zbiera wszystkich skrzynek a jak zbiera jedną to przez 4 sekundy i na minimapie za szybko przestawia miejsca

Ersiden · 21 Marca 2015

Poprawiona szybkość reakcji oraz dodano autodetekcje minimapy.

Zapraszam do pobierania wersji 2.0

No_Name_MMO · 21 Marca 2015

Poprawiona szybkość reakcji oraz dodano autodetekcje minimapy.

Zapraszam do pobierania wersji 2.0

dobrze ze progresuje twoj projekt

niestety nie pobiore bo nie latam na bocie ;/ moze kiedys :P

Ersiden · 22 Marca 2015

Teraz w planach auto wstawanie po śmierci i auto reconnect

yyy :( · 22 Marca 2015

nieudalo mi sie zaznaczyc okna klienta gry co teraz mam zrobic..

Ersiden · 22 Marca 2015

F2 ponownie otwiera konfiguracje. Zaznaczasz przeciągnięciem.

Thuggee · 22 Kwietnia 2015

I jak idą prace?

Ersiden · 23 Kwietnia 2015

powoli :C

W dodatku straciłam source code i muszę all przepisać :C

Zaloguj się

👋 Witaj na MPCForum!

Cargo bot

Rekomendowane odpowiedzi

Ersiden

Ersiden

No_Name_MMO

No_Name_MMO

Ersiden

Ersiden

No_Name_MMO

No_Name_MMO

Ersiden

Ersiden

No_Name_MMO

No_Name_MMO

Ersiden

Ersiden

SimbiosiC

SimbiosiC

Ersiden

Ersiden

No_Name_MMO

No_Name_MMO

Ersiden

Ersiden

yyy :(

yyy :(

Ersiden

Ersiden

Thuggee

Thuggee

Ersiden

Ersiden

Zarchiwizowany