Hallo, ich möchte euch meinen Farmbot vorstellen, es war eigentlich nur für mich gedacht, aber da ich Darkorbit nicht mehr spiele veröffentliche ich es.
Er sucht Streuner auf der Minimap und zerstört sie wenn sie in der nähe sind.
Am Anfang ist es schwer zu verstehen wie man es einstellt, deswegen erklär ich es.
So sieht der Bot aus:
Man sieht oben Links 2 Textfelder, damit der Bot weiß, wo die Feinde sind, sucht er die kleinen roten Punkte auf dem Radar. Deswegen muss man die 2 Koordinaten fest legen. Man drückt auf den Button setze Radar an und mit der mittleren Maustaste stellt man es fest, man muss als erstes beim Radar oben links drauf drücken, das ist die X Koordinate, und dann unten rechts.
Jetzt muss man den Umgebungsradar festlegen, damit der Bot erkennt, ob Streuner neben euch sind, und sie töten kann. Versucht so viel wie möglich Platz zu haben, mal wieder X oben links, Y unten links.
Es könnte sein das es Bugs gibt, ich werde es nicht Updaten den Bot. Es wurde mit AutoIt geschrieben.
Source:
Er sucht Streuner auf der Minimap und zerstört sie wenn sie in der nähe sind.
Am Anfang ist es schwer zu verstehen wie man es einstellt, deswegen erklär ich es.
So sieht der Bot aus:
Man sieht oben Links 2 Textfelder, damit der Bot weiß, wo die Feinde sind, sucht er die kleinen roten Punkte auf dem Radar. Deswegen muss man die 2 Koordinaten fest legen. Man drückt auf den Button setze Radar an und mit der mittleren Maustaste stellt man es fest, man muss als erstes beim Radar oben links drauf drücken, das ist die X Koordinate, und dann unten rechts.
Jetzt muss man den Umgebungsradar festlegen, damit der Bot erkennt, ob Streuner neben euch sind, und sie töten kann. Versucht so viel wie möglich Platz zu haben, mal wieder X oben links, Y unten links.
Es könnte sein das es Bugs gibt, ich werde es nicht Updaten den Bot. Es wurde mit AutoIt geschrieben.
Source:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <File.au3>
AutoItSetOption("MouseCoordMode")
HotKeySet("{F9}", "Close")
Global $NextWhile1_1 = True, $NextWhile1_2 = False, $NextWhile2_1 = True, $NextWhile2_2 = False, $MousePos1_1[2], $MousePos1_2[2], $MousePos2_1[2], $MousePos2_2[2]
Global $FeindNear = True, $NoRadarFeind, $Wait = False
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darkorbit Farmer", 316, 297, 192, 124)
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Setze Radar an", 136, 8, 169, 41)
$Button2 = GUICtrlCreateButton("Setze Umgebungsradar an", 136, 80, 171, 41)
$Button3 = GUICtrlCreateButton("Speichern", 8, 200, 299, 25)
$Button4 = GUICtrlCreateButton("Koordinaten Laden", 8, 232, 299, 25)
$Button5 = GUICtrlCreateButton("Starte Farmbot", 8, 264, 299, 25)
$Input1 = GUICtrlCreateInput("X", 8, 8, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("Y", 8, 32, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput("X", 8, 80, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput("Y", 8, 104, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input5 = GUICtrlCreateInput("4500", 8, 160, 121, 21)
GUISetState(@SW_SHOW)
$Label1 = GUICtrlCreateLabel("Wie lange brauchen sie um einen Streuner zu töten", 8, 144, 294, 17)
$Label2 = GUICtrlCreateLabel("(Millisekunden, 1 Sek = 1000)", 136, 168, 144, 17)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$MousePos1_1 = MouseGetPos()
ToolTip("Drücke die Mittlere Maustaste wenn du die Position hast.", $MousePos1_1[0], $MousePos1_1[1])
While 1
If $NextWhile1_1 = True Then
If _IsPressed("04") Then
$MousePos1_1 = MouseGetPos()
$NextWhile1_1 = False
$NextWhile1_2 = True
ToolTip("1", $MousePos1_1[0], $MousePos1_1[1])
MsgBox(0, "Koordinaten 1", $MousePos1_1[0] & " " & $MousePos1_1[1])
GUICtrlSetData($Input1, $MousePos1_1[0] & ", " & $MousePos1_1[1])
EndIf
EndIf
If $NextWhile1_2 = True Then
If _IsPressed("04") Then
$MousePos1_2 = MouseGetPos()
$NextWhile1_2 = False
ToolTip("2", $MousePos1_2[0], $MousePos1_2[1])
MsgBox(0, "Koordinaten 2", $MousePos1_2[0] & " " & $MousePos1_2[1])
GUICtrlSetData($Input2, $MousePos1_2[0] & ", " & $MousePos1_2[1])
ToolTip("")
ExitLoop
EndIf
EndIf
WEnd
Case $Button2
$MousePos2_1 = MouseGetPos()
ToolTip("Drücke die Mittlere Maustaste wenn du die Position hast.", $MousePos2_1[0], $MousePos2_1[1])
While 1
If $NextWhile2_1 = True Then
If _IsPressed("04") Then
$MousePos2_1 = MouseGetPos()
$NextWhile2_1 = False
$NextWhile2_2 = True
ToolTip("1", $MousePos2_1[0], $MousePos2_1[1])
MsgBox(0, "Koordinaten 1", $MousePos2_1[0] & " " & $MousePos2_1[1])
GUICtrlSetData($Input3, $MousePos2_1[0] & ", " & $MousePos2_1[1])
WinActivate("Darkorbit Farmer", "")
EndIf
EndIf
If $NextWhile2_2 = True Then
If _IsPressed("04") Then
$MousePos2_2 = MouseGetPos()
$NextWhile2_2 = False
ToolTip("2", $MousePos2_2[0], $MousePos2_2[1])
MsgBox(0, "Koordinaten 2", $MousePos2_2[0] & " " & $MousePos2_2[1])
GUICtrlSetData($Input4, $MousePos2_2[0] & ", " & $MousePos2_2[1])
ToolTip("")
ExitLoop
EndIf
EndIf
WEnd
WinActivate("Darkorbit Farmer", "")
MsgBox(64, "Eingestellt", "Sie haben erfolgreich die Koordinaten für die Pixelsearch Funktion" & @CRLF & "eingestellt. Wenn sie den Bot öfter nutzen, könnten sie speichern.")
Case $Button3
_FileCreate(@ScriptDir & "\save.ini")
$ReadInput5 = GUICtrlRead($Input5)
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1X", $MousePos1_1[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1Y", $MousePos1_1[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2X", $MousePos1_2[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2Y", $MousePos1_2[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1X", $MousePos2_1[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1Y", $MousePos2_1[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2X", $MousePos2_2[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2Y", $MousePos2_2[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Delay", $ReadInput5)
MsgBox(64, "Erfolgreich", "Sie haben erfolgreich gespeichert.")
Case $Button4
If FileExists(@ScriptDir & "\save.ini") Then
$MousePos1_1[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1X", "NichtGefunden")
$MousePos1_1[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1Y", "NichtGefunden")
$MousePos1_2[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2X", "NichtGefunden")
$MousePos1_2[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2Y", "NichtGefunden")
$MousePos2_1[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1X", "NichtGefunden")
$MousePos2_1[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1Y", "NichtGefunden")
$MousePos2_2[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2X", "NichtGefunden")
$MousePos2_2[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2Y", "NichtGefunden")
$ReadInput5 = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Delay", "NichtGefunden")
GUICtrlSetData($Input1, $MousePos1_1[0] & ", " & $MousePos1_1[1])
GUICtrlSetData($Input2, $MousePos1_2[0] & ", " & $MousePos1_2[1])
GUICtrlSetData($Input3, $MousePos2_1[0] & ", " & $MousePos2_1[1])
GUICtrlSetData($Input4, $MousePos2_2[0] & ", " & $MousePos2_2[1])
GUICtrlSetData($Input5, $ReadInput5)
MsgBox(64, "Erfolgreich", "Sie haben erfolgreich geladen.")
Else
MsgBox(16, "Fehler", "Sie haben keine gespeicherte save Datei.")
EndIf
Case $Button5
MsgBox(0, "Achtung", "Sie haben 3 Sekunden Zeit, Darkorbit zu öffnen." & @CRLF & "(Sobald sie OK gedrückt haben, zählt der Timer.)")
Sleep(3450)
$ReadInput5 = GUICtrlRead($Input5)
While 1
$Height = @DesktopHeight / 2
ToolTip("Levelbot IS STARTED | F9 = Close", $Height, 0.0)
If $FeindNear = True Then
For $i = 0 to 60 Step +1
$Feind1 = PixelSearch(269, 293, 947, 901, 2108962)
If IsArray($Feind1) Then
MouseMove($Feind1[0], $Feind1[1])
MouseClick("left", $Feind1[0], $Feind1[1], 10)
Sleep($ReadInput5)
Else
$FeindNear = False
EndIf
Next
$FeindNear = False
EndIf
If $FeindNear = False Then
For $i = 0 To 5 Step +1
$RadarFeind = PixelSearch($MousePos1_1[0], $MousePos1_1[1], $MousePos1_2[0], $MousePos1_2[1], 16711680)
If IsArray($RadarFeind) Then
MouseMove($RadarFeind[0], $RadarFeind[1])
MouseClick("left", $RadarFeind[0], $RadarFeind[1], 1)
Sleep(1000)
Else
If $Wait = False Then
$NoRadarFeind += 1
If $NoRadarFeind >= 10 Then
$Random1 = Random($MousePos1_1[1], $MousePos1_2[0], 1)
MouseMove($Random1, $MousePos1_1[1])
MouseClick("left", $Random1, $MousePos1_1[1], 2)
Sleep(1000)
EndIf
EndIf
EndIf
Next
$FeindNear = True
EndIf
WEnd
EndSwitch
WEnd
Func Close()
Exit
EndFunc
English
First, sorry for my english.
The Bot kills "Streuner"
I say how u must to set the options.
The bots interface
The bot must see enemys on the radar, but how with out coordinates, so we must set the coordinates, you open darkorbit and look at down right the radar. Open the bot and click on the button "Setze Radar an", with the middle mouse click you can set the X coordinate, click with your middle mouse on the radar top left side. and the Y on the down right.
then click on the "Umgebungsradar" button and do this near your 'airplane' do this not small.
I dont update this bot, because i don't play darkorbit anymore.
The Bot kills "Streuner"
I say how u must to set the options.
The bots interface
The bot must see enemys on the radar, but how with out coordinates, so we must set the coordinates, you open darkorbit and look at down right the radar. Open the bot and click on the button "Setze Radar an", with the middle mouse click you can set the X coordinate, click with your middle mouse on the radar top left side. and the Y on the down right.
then click on the "Umgebungsradar" button and do this near your 'airplane' do this not small.
I dont update this bot, because i don't play darkorbit anymore.
Source (AutoIt):
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <File.au3>
AutoItSetOption("MouseCoordMode")
HotKeySet("{F9}", "Close")
Global $NextWhile1_1 = True, $NextWhile1_2 = False, $NextWhile2_1 = True, $NextWhile2_2 = False, $MousePos1_1[2], $MousePos1_2[2], $MousePos2_1[2], $MousePos2_2[2]
Global $FeindNear = True, $NoRadarFeind, $Wait = False
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darkorbit Farmer", 316, 297, 192, 124)
GUISetBkColor(0x99B4D1)
$Button1 = GUICtrlCreateButton("Setze Radar an", 136, 8, 169, 41)
$Button2 = GUICtrlCreateButton("Setze Umgebungsradar an", 136, 80, 171, 41)
$Button3 = GUICtrlCreateButton("Speichern", 8, 200, 299, 25)
$Button4 = GUICtrlCreateButton("Koordinaten Laden", 8, 232, 299, 25)
$Button5 = GUICtrlCreateButton("Starte Farmbot", 8, 264, 299, 25)
$Input1 = GUICtrlCreateInput("X", 8, 8, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("Y", 8, 32, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput("X", 8, 80, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput("Y", 8, 104, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input5 = GUICtrlCreateInput("4500", 8, 160, 121, 21)
GUISetState(@SW_SHOW)
$Label1 = GUICtrlCreateLabel("Wie lange brauchen sie um einen Streuner zu töten", 8, 144, 294, 17)
$Label2 = GUICtrlCreateLabel("(Millisekunden, 1 Sek = 1000)", 136, 168, 144, 17)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$MousePos1_1 = MouseGetPos()
ToolTip("Drücke die Mittlere Maustaste wenn du die Position hast.", $MousePos1_1[0], $MousePos1_1[1])
While 1
If $NextWhile1_1 = True Then
If _IsPressed("04") Then
$MousePos1_1 = MouseGetPos()
$NextWhile1_1 = False
$NextWhile1_2 = True
ToolTip("1", $MousePos1_1[0], $MousePos1_1[1])
MsgBox(0, "Koordinaten 1", $MousePos1_1[0] & " " & $MousePos1_1[1])
GUICtrlSetData($Input1, $MousePos1_1[0] & ", " & $MousePos1_1[1])
EndIf
EndIf
If $NextWhile1_2 = True Then
If _IsPressed("04") Then
$MousePos1_2 = MouseGetPos()
$NextWhile1_2 = False
ToolTip("2", $MousePos1_2[0], $MousePos1_2[1])
MsgBox(0, "Koordinaten 2", $MousePos1_2[0] & " " & $MousePos1_2[1])
GUICtrlSetData($Input2, $MousePos1_2[0] & ", " & $MousePos1_2[1])
ToolTip("")
ExitLoop
EndIf
EndIf
WEnd
Case $Button2
$MousePos2_1 = MouseGetPos()
ToolTip("Drücke die Mittlere Maustaste wenn du die Position hast.", $MousePos2_1[0], $MousePos2_1[1])
While 1
If $NextWhile2_1 = True Then
If _IsPressed("04") Then
$MousePos2_1 = MouseGetPos()
$NextWhile2_1 = False
$NextWhile2_2 = True
ToolTip("1", $MousePos2_1[0], $MousePos2_1[1])
MsgBox(0, "Koordinaten 1", $MousePos2_1[0] & " " & $MousePos2_1[1])
GUICtrlSetData($Input3, $MousePos2_1[0] & ", " & $MousePos2_1[1])
WinActivate("Darkorbit Farmer", "")
EndIf
EndIf
If $NextWhile2_2 = True Then
If _IsPressed("04") Then
$MousePos2_2 = MouseGetPos()
$NextWhile2_2 = False
ToolTip("2", $MousePos2_2[0], $MousePos2_2[1])
MsgBox(0, "Koordinaten 2", $MousePos2_2[0] & " " & $MousePos2_2[1])
GUICtrlSetData($Input4, $MousePos2_2[0] & ", " & $MousePos2_2[1])
ToolTip("")
ExitLoop
EndIf
EndIf
WEnd
WinActivate("Darkorbit Farmer", "")
MsgBox(64, "Eingestellt", "Sie haben erfolgreich die Koordinaten für die Pixelsearch Funktion" & @CRLF & "eingestellt. Wenn sie den Bot öfter nutzen, könnten sie speichern.")
Case $Button3
_FileCreate(@ScriptDir & "\save.ini")
$ReadInput5 = GUICtrlRead($Input5)
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1X", $MousePos1_1[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1Y", $MousePos1_1[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2X", $MousePos1_2[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2Y", $MousePos1_2[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1X", $MousePos2_1[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1Y", $MousePos2_1[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2X", $MousePos2_2[0])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2Y", $MousePos2_2[1])
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "====================================", "")
IniWrite(@ScriptDir & "\save.ini", "Koordinaten", "Delay", $ReadInput5)
MsgBox(64, "Erfolgreich", "Sie haben erfolgreich gespeichert.")
Case $Button4
If FileExists(@ScriptDir & "\save.ini") Then
$MousePos1_1[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1X", "NichtGefunden")
$MousePos1_1[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_1Y", "NichtGefunden")
$MousePos1_2[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2X", "NichtGefunden")
$MousePos1_2[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord1_2Y", "NichtGefunden")
$MousePos2_1[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1X", "NichtGefunden")
$MousePos2_1[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_1Y", "NichtGefunden")
$MousePos2_2[0] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2X", "NichtGefunden")
$MousePos2_2[1] = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Koord2_2Y", "NichtGefunden")
$ReadInput5 = IniRead(@ScriptDir & "\save.ini", "Koordinaten", "Delay", "NichtGefunden")
GUICtrlSetData($Input1, $MousePos1_1[0] & ", " & $MousePos1_1[1])
GUICtrlSetData($Input2, $MousePos1_2[0] & ", " & $MousePos1_2[1])
GUICtrlSetData($Input3, $MousePos2_1[0] & ", " & $MousePos2_1[1])
GUICtrlSetData($Input4, $MousePos2_2[0] & ", " & $MousePos2_2[1])
GUICtrlSetData($Input5, $ReadInput5)
MsgBox(64, "Erfolgreich", "Sie haben erfolgreich geladen.")
Else
MsgBox(16, "Fehler", "Sie haben keine gespeicherte save Datei.")
EndIf
Case $Button5
MsgBox(0, "Achtung", "Sie haben 3 Sekunden Zeit, Darkorbit zu öffnen." & @CRLF & "(Sobald sie OK gedrückt haben, zählt der Timer.)")
Sleep(3450)
$ReadInput5 = GUICtrlRead($Input5)
While 1
$Height = @DesktopHeight / 2
ToolTip("Levelbot IS STARTED | F9 = Close", $Height, 0.0)
If $FeindNear = True Then
For $i = 0 to 60 Step +1
$Feind1 = PixelSearch(269, 293, 947, 901, 2108962)
If IsArray($Feind1) Then
MouseMove($Feind1[0], $Feind1[1])
MouseClick("left", $Feind1[0], $Feind1[1], 10)
Sleep($ReadInput5)
Else
$FeindNear = False
EndIf
Next
$FeindNear = False
EndIf
If $FeindNear = False Then
For $i = 0 To 5 Step +1
$RadarFeind = PixelSearch($MousePos1_1[0], $MousePos1_1[1], $MousePos1_2[0], $MousePos1_2[1], 16711680)
If IsArray($RadarFeind) Then
MouseMove($RadarFeind[0], $RadarFeind[1])
MouseClick("left", $RadarFeind[0], $RadarFeind[1], 1)
Sleep(1000)
Else
If $Wait = False Then
$NoRadarFeind += 1
If $NoRadarFeind >= 10 Then
$Random1 = Random($MousePos1_1[1], $MousePos1_2[0], 1)
MouseMove($Random1, $MousePos1_1[1])
MouseClick("left", $Random1, $MousePos1_1[1], 2)
Sleep(1000)
EndIf
EndIf
EndIf
Next
$FeindNear = True
EndIf
WEnd
EndSwitch
WEnd
Func Close()
Exit
EndFunc
Give me a Thanks please if it works.
Virustotal






