Simple Darkorbit Farmbot

[sezer0012]

German

 Spoiler

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:

 Spoiler

#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

 Spoiler

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.

Source (AutoIt):

 Spoiler

#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

[Requi]

Wäre nett wenn du das ganze noch auf Englisch veröffentlichen könntest. Ist natürlich kein Muss, aber die internationalen User sollten auch was davon haben

[sezer0012]

Editiert, aber mein Englisch ist nicht so gut
Edited, but my english is not so good.

[paurafromfire]

does it works only with streuners?

[sezer0012]

I think yes, not sure

[lobatim]

oh yea thanks

[asdafdasx]

türkce anlatsana

[sezer0012]

Originally Posted by asdafdasx

türkce anlatsana

No sry, only english and german

[Dr.Toni]

Originally Posted by sezer0012

I think yes, not sure

It's your program and you are not sure with which NPC's it works?
Are you kidding me?

[sezer0012]

Originally Posted by Dr.Plastik.'

It's your program and you are not sure with which NPC's it works?
Are you kidding me?

I coded it long ago, (1 year).

[Dr.Toni]

Originally Posted by sezer0012

I coded it long ago, (1 year).

But you should have the source code.
If not just decompile it and you can show us all features.

[sezer0012]

Originally Posted by Dr.Plastik.'

But you should have the source code.
If not just decompile it and you can show us all features.

Edited with Source

[Dr.Toni]

Originally Posted by sezer0012

Edited with Source

Thank you.
Will be nice for the beginners because it's a very simple program.