#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=2.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
IniWrite(@ScriptDir & "\Build\Konfig.ini", "ID", "1", @AutoItPID)
RunWait("Updater.exe")
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ArrayMore.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <GuiTreeView.au3>

Dim $Mitte1[2]
Dim $Mitte2[2]
$Mitte1[0] = @DesktopWidth / 2 - 512
$Mitte1[1] = @DesktopHeight / 2 - 384
$Mitte2[0] = @DesktopWidth / 2 - 177.5
$Mitte2[1] = @DesktopHeight / 2 - 227.5

$iWidthAlt = @DesktopWidth
$iHeightAlt = @DesktopHeight
$VB1 = False
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Willkommen", 1024, 768, Default, Default)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Build\Start\Screen.jpg", 0, 0, 1024, 768, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS, $WS_DISABLED))
$Button1 = GUICtrlCreateButton("Weiter", 945, 740, 75, 25, 0)
Dim $Form2_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form2_AccelTable)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 500, "long", 0x00040010);Slide von unten ein
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If @DesktopWidth <= 1024 Then
	If @DesktopHeight <= 768 Then
		_VB1()
	EndIf
EndIf
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Button1
			ExitLoop
	EndSwitch
WEnd
Func _VB1()
	$iWidthAlt = @DesktopWidth
	$iHeightAlt = @DesktopHeight
	WinMove($Form1, "", -2, -29)
	_ChangeScreenRes(1024, 768)
	$VB = True
EndFunc   ;==>_VB1
$Welt = 1
$Text = ""
;~ Ende Gebaute Gebeude
;~ Kosten
$Zuortnung = "Holz|Eisen|Nahrung|Lehm|Stein|Getreide|Werkzeug|Kohle|Wolle|Gold|Mamor|Burger|Produktion|Info"
$Zuortnung1 = StringSplit($Zuortnung, "|")
;~ Welt1
$Welt1KostenHaus = "5|0|3|6|0|2|1|0|0|0|0|0|4|0"
$Welt1KostenHolzfaller = "15|5|2|0|0|0|5|0|5|0|0|2|3|0"
$Welt1KostenLehmgrube = "50|10|10|0|0|0|10|0|0|0|0|4|2|0"
$Welt1KostenErzmine = "100|30|40|80|0|0|15|0|6|0|0|3|15|0"
$Welt1KostenSchmiede = "100|10|120|50|0|0|0|0|10|0|0|10|10|Kostet immer 10 Eisen"
$Welt1KostenGetreidefarm = "10|10|15|10|0|0|8|0|6|0|0|3|0|für Muhle benötigt!"
$Welt1KostenMuhle = "10|5|0|5|0|0|5|0|0|0|0|1|0|für Backerrei benötigt!"
$Welt1KostenBackerrei = "30|5|0|5|0|5|5|0|0|0|0|2|20|0"
$Welt1KostenSpeicher = "40|10|5|30|0|0|10|0|10|0|0|0|50|0"
$Welt1KostenSchaffarm = "10|5|2|0|0|3|0|0|0|0|0|5|0|für Webberrei benötigt!"
$Welt1KostenWeberrei = "30|20|10|20|0|0|10|0|0|0|0|10|10|0"
$Welt1KostenKohlemine = "10|10|5|5|0|0|10|0|0|0|0|5|10|0"
$Welt1KostenSteinbruch = "15|10|5|5|0|0|20|0|0|0|0|10|0|für Steinmetz benötigt!"
$Welt1KostenSteinmetz = "10|20|5|10|0|0|10|0|0|0|0|10|5|0"
;~ EndeWelt1
$Zuortnung = "Holz|Eisen|Nahrung|Lehm|Stein|Getreide|Werkzeug|Kohle|Wolle|Gold|Mamor|Burger|Produktion|Info"
;~ Welt2
$Welt2KostenHaus = "10|5|10|0|0|10|10|0|10|0|0|0|8|0"
$Welt2KostenHolzfaller = "25|10|5|0|5|0|10|0|10|0|0|4|6|0"
$Welt2KostenLehmgrube = "70|10|10|0|5|0|20|0|10|0|0|8|5|0"
$Welt2KostenErzmine = "150|60|40|50|50|0|20|0|10|0|0|6|20|0"
$Welt2KostenSchmiede = "150|30|170|150|100|0|5|0|15|0|0|15|10|Kostet immer 15 Eisen"
$Welt2KostenGetreidefarm = "15|10|15|0|15|0|10|0|0|0|0|7|0|für Muhle benötigt!"
$Welt2KostenMuhle = "10|10|5|10|10|0|10|0|0|0|0|5|0|für Backerrei benötigt!"
$Welt2KostenBackerrei = "45|10|10|5|10|5|10|0|0|0|0|7|35|0"
$Welt2KostenSpeicher = "50|20|10|10|50|0|20|0|0|0|0|0|50|0"
$Welt2KostenSchaffarm = "15|10|5|2|5|4|0|0|0|0|0|7|0|für Webberrei benötigt!"
$Welt2KostenWeberrei = "40|25|20|10|20|0|15|0|0|0|0|13|25|0"
$Welt2KostenKohlemine = "15|15|7|5|15|0|10|0|0|0|0|15|30|0"
$Welt2KostenSteinbruch = "10|20|10|5|10|0|30|0|0|0|0|15|0|für Steinmetz benötigt!"
$Welt2KostenSteinmetz = "10|20|10|5|20|0|20|0|0|0|0|15|15|0"
$Welt2KostenGoldmine = "100|100|50|50|100|10|50|0|0|0|0|30|0|für Goldschmiede benötigt!"
$Welt2KostenGoldschmiede = "50|100|100|50|100|10|100|0|0|0|0|30|10|0"
;~ EndeWelt2
;~ Welt3
$Welt3KostenHaus = "10|10|20|5|10|0|20|5|30|5|0|0|20|0"
$Welt3KostenHolzfaller = "50|30|20|5|10|0|20|0|20|0|0|10|15|0"
$Welt3KostenLehmgrube = "100|50|30|10|10|0|50|5|10|0|0|16|20|0"
$Welt3KostenErzmine = "150|100|50|30|50|0|55|5|0|0|0|10|30|0"
$Welt3KostenSchmiede = "100|100|170|150|100|10|53|50|25|0|0|25|30|Kostet immer 20 Eisen"
$Welt3KostenGetreidefarm = "5|24|20|20|15|0|30|0|25|0|0|10|0|für Muhle benötigt!"
$Welt3KostenMuhle = "40|50|33|25|22|0|30|0|50|0|0|10|0|für Backerrei benötigt!"
$Welt3KostenBackerrei = "88|67|30|20|30|0|10|0|0|0|0|12|59|0"
$Welt3KostenSpeicher = "100|150|86|90|100|0|20|0|50|0|0|0|150|0"
$Welt3KostenSchaffarm = "20|30|10|8|10|4|0|0|0|0|0|10|0|für Webberrei benötigt!"
$Welt3KostenWeberrei = "99|83|25|33|24|0|63|0|0|0|0|20|75|0"
$Welt3KostenKohlemine = "63|45|20|10|30|0|50|0|5|0|0|27|83|0"
$Welt3KostenSteinbruch = "40|90|17|16|22|0|52|0|0|0|0|30|0|für Steinmetz benötigt!"
$Welt3KostenSteinmetz = "100|123|65|50|30|0|40|0|0|0|0|50|100|0"
$Welt3KostenGoldmine = "100|100|50|50|100|10|50|0|0|0|0|30|0|für Goldschmiede benötigt!"
$Welt3KostenGoldschmiede = "50|100|100|50|100|10|100|0|0|0|0|30|10|0"
$Welt3KostenMamormetz = "150|100|100|10|100|10|100|0|0|0|0|30|10|0"
$Welt3KostenMamormine = "100|78|100|50|59|10|100|0|0|0|0|50|10|0"
;~ EndeWelt3
;~ Ende
$VB = False
Dim $MouseTrap[4]
$MouseTrap[0] = 37
$MouseTrap[1] = 72
$MouseTrap[2] = 43
$MouseTrap[3] = 217
Global $iHeightAlt
Global $iWidthAlt
$Speicher = 100
$Speicher2 = 200

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
$MC = GUICreate("The destroyed city", 1024, 768, $Mitte1[0], $Mitte1[1])
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Build\World1\Hintergrund.jpg", 9, 18, 1000, 560)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Tab1 = GUICtrlCreateTab(9, 590, 1003, 157)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
GUICtrlSetState(-1, $GUI_SHOW)
$BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Haus.bmp", 0)
_Rohstoffberechnung("Haus")
GUICtrlSetTip(-1, $Text)
$BauHolzfaller = GUICtrlCreateButton("(Not allowed)", 15, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Holzfaller.bmp", 0)
_Rohstoffberechnung("Holzfaller")
GUICtrlSetTip(-1, $Text)
$BauErzmine = GUICtrlCreateButton("(Not allowed)", 231, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Erzmine.bmp", 0)
_Rohstoffberechnung("Erzmine")
GUICtrlSetTip(-1, $Text)
$BauWeberrei = GUICtrlCreateButton("(Not allowed)", 177, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Weberrei.bmp", 0)
_Rohstoffberechnung("Weberrei")
GUICtrlSetTip(-1, $Text)
$BauGetreidefarm = GUICtrlCreateButton("(Not allowed)", 69, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Getreidefarm.bmp", 0)
_Rohstoffberechnung("Getreidefarm")
GUICtrlSetTip(-1, $Text)
$BauMuhle = GUICtrlCreateButton("(Not allowed)", 69, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Mühle.bmp", 0)
_Rohstoffberechnung("Muhle")
GUICtrlSetTip(-1, $Text)
$BauSpeicher = GUICtrlCreateButton("(Not allowed)", 285, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Speicher.bmp", 0)
_Rohstoffberechnung("Speicher")
GUICtrlSetTip(-1, $Text)
$BauSchaffarm = GUICtrlCreateButton("(Not allowed)", 177, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Schaffarm.bmp", 0)
_Rohstoffberechnung("Schaffarm")
GUICtrlSetTip(-1, $Text)
$BauSchmiede = GUICtrlCreateButton("(Not allowed)", 231, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Schmied.bmp", 0)
_Rohstoffberechnung("Schmiede")
GUICtrlSetTip(-1, $Text)
$BauSteinbruch = GUICtrlCreateButton("(Not allowed)", 339, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Steinbruch.bmp", 0)
_Rohstoffberechnung("Steinbruch")
GUICtrlSetTip(-1, $Text)
$BauSteinmetz = GUICtrlCreateButton("(Not allowed)", 339, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Steinmetz.bmp", 0)
_Rohstoffberechnung("Steinmetz")
GUICtrlSetTip(-1, $Text)
$BauGoldmine = GUICtrlCreateButton("(Not allowed)", 393, 681, 54, 54, $BS_BITMAP)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World2\Button\Goldmine.bmp", 0)
$BauGoldschmiede = GUICtrlCreateButton("(Not allowed)", 393, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Goldschmiede.bmp", 0)
GUICtrlSetState(-1, $GUI_HIDE)
$BauMamormine = GUICtrlCreateButton("(Not allowed)", 447, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Mamormine.bmp", 0)
GUICtrlSetState(-1, $GUI_HIDE)
$BauMamormetz = GUICtrlCreateButton("(Not allowed)", 447, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Mamormetz.bmp", 0)
GUICtrlSetState(-1, $GUI_HIDE)
$BauBackerrei = GUICtrlCreateButton("(Not allowed)", 123, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Backerrei.bmp", 0)
_Rohstoffberechnung("Backerrei")
GUICtrlSetTip(-1, $Text)
$BauLehmgrube = GUICtrlCreateButton("(Not allowed)", 123, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Lehmgrube.bmp", 0)
_Rohstoffberechnung("Lehmgrube")
GUICtrlSetTip(-1, $Text)
$BauKohlemine = GUICtrlCreateButton("(Not allowed)", 285, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Kohlemine.bmp", 0)
_Rohstoffberechnung("Kohlemine")
GUICtrlSetTip(-1, $Text)
$TabSheet2 = GUICtrlCreateTabItem("Speicher")
$Holz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$HolzAnzahl = GUICtrlCreateLabel("100", 94, 627, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Eisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EisenAnzahl = GUICtrlCreateLabel("100", 94, 645, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$NahrungAnzahl = GUICtrlCreateLabel("200", 94, 663, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Nahrung = GUICtrlCreateLabel("Nahrung", 15, 663, 59, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$WerkzeugAnzahl = GUICtrlCreateLabel("100", 463, 627, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Werkzeug = GUICtrlCreateLabel("Werkzeuge", 384, 627, 79, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Kohle = GUICtrlCreateLabel("Kohle", 384, 663, 41, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$KohleAnzahl = GUICtrlCreateLabel("100", 463, 663, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Lehm = GUICtrlCreateLabel("Lehm", 15, 681, 41, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$LehmAnzahl = GUICtrlCreateLabel("100", 94, 681, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Stein = GUICtrlCreateLabel("Stein", 15, 699, 37, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$SteinAnzahl = GUICtrlCreateLabel("100", 94, 699, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Getreide = GUICtrlCreateLabel("Getreide", 14, 717, 59, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$GetreideAnzahl = GUICtrlCreateLabel("100", 94, 717, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$SpeicherAnzahl = GUICtrlCreateLabel($Speicher, 875, 627, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$SpeicherName = GUICtrlCreateLabel("Speichergröße:", 750, 627, 120, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$SpeicherAnzahl2 = GUICtrlCreateLabel($Speicher2, 875, 645, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$SpeicherName2 = GUICtrlCreateLabel("Nahrungsspeicher:", 750, 645, 120, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$StatusHolz = GUICtrlCreateProgress(171, 627, 150, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusEisen = GUICtrlCreateProgress(171, 645, 150, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusNahrung = GUICtrlCreateProgress(171, 663, 150, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusLehm = GUICtrlCreateProgress(171, 681, 150, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusStein = GUICtrlCreateProgress(171, 699, 150, 17, $PBS_SMOOTH)
GUICtrlSetData(-1, 100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusGetreide = GUICtrlCreateProgress(171, 717, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Gold = GUICtrlCreateLabel("Gold", 384, 681, 34, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$GoldAnzahl = GUICtrlCreateLabel("0", 463, 681, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Mamor = GUICtrlCreateLabel("Mamor", 384, 699, 49, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$MamorAnzahl = GUICtrlCreateLabel("0", 463, 699, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$StatusWerkzeug = GUICtrlCreateProgress(543, 627, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusKohle = GUICtrlCreateProgress(543, 663, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusGold = GUICtrlCreateProgress(543, 681, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusMamor = GUICtrlCreateProgress(543, 699, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Wolle = GUICtrlCreateLabel("Wolle", 385, 645, 41, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$WolleAnzahl = GUICtrlCreateLabel("100", 463, 645, 75, 21, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$StatusWolle = GUICtrlCreateProgress(543, 645, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet3 = GUICtrlCreateTabItem("Bewohner")
$Burger = GUICtrlCreateLabel("Bürger", 15, 627, 42, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerPF = GUICtrlCreateLabel("Platz für", 15, 678, 52, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerAnzahl = GUICtrlCreateLabel("0", 142, 627, 150, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerPFAnzahl = GUICtrlCreateLabel("0", 142, 678, 150, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerOnAnzahl = GUICtrlCreateLabel("0", 142, 644, 150, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerOffAnzahl = GUICtrlCreateLabel("0", 142, 661, 150, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerOn = GUICtrlCreateLabel("davon Arbeitslose", 15, 644, 110, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerOff = GUICtrlCreateLabel("davon Arbeiter", 15, 661, 100, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BurgerStatus = GUICtrlCreateProgress(210, 627, 150, 17, $PBS_SMOOTH)
$BurgerStatusOn = GUICtrlCreateProgress(210, 644, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet4 = GUICtrlCreateTabItem("Welt")
$Welt1 = GUICtrlCreateButton("Welt 1", 14, 627, 75, 25, 0)
$Welt2 = GUICtrlCreateButton("Welt 2", 90, 627, 75, 25, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$Welt3 = GUICtrlCreateButton("Welt 3", 166, 627, 75, 25, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$TabSheet5 = GUICtrlCreateTabItem("Spiel")
$Laden = GUICtrlCreateButton("Laden", 89, 627, 75, 25, 0)
$Speichern = GUICtrlCreateButton("Speichern", 14, 627, 75, 25, 0)
$VollBild = GUICtrlCreateButton("Vollbildschirm", 164, 627, 75, 25, 0)
$Beenden = GUICtrlCreateButton("Beenden", 314, 627, 75, 25, 0)
$New = GUICtrlCreateButton("Neues Spiel", 239, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
$VersionText = GUICtrlCreateLabel("Ver. " & IniRead(@ScriptDir & "\Build\Konfig.ini", "Version", "Version", "1.0"), 980, 750, 44, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VersionText = GUICtrlCreateLabel("Programiert von Hendrik Norkowski (Jam00) Grafik von SiroCool", 10, 750, 450, 20, 0, $WS_EX_TRANSPARENT)
GUICtrlSetFont (-1,10,600,4)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUIDelete($Form1)
GUISetState(@SW_SHOW)
If @DesktopWidth <= 1024 Then
	If @DesktopHeight <= 768 Then
		_VB()
	EndIf
EndIf
#EndRegion ### END Koda GUI section ###
Global $ToolTip
Dim $array[1][4]
Dim $array2[1][4]
Dim $array3[1][4]
Dim $Pic[10000]
Dim $PicBau[10000]
Dim $PicWelt[10000]
$Zahl = 0
$WeltFrei = 1
$cordx = -25
$cordy = -25
$BurgerMax = GUICtrlRead($BurgerPFAnzahl)
;~ Gebaute Gebeude
;~ Welt1
$Welt1Holzfaller = 0
$Welt1Muhlen = 0
$Welt1Getreidefarm = 0
$Welt1Backerrei = 0
$Welt1Weberrei = 0
$Welt1Lehmgrube = 0
$Welt1Schaffarm = 0
$Welt1Schmiede = 0
$Welt1Steinbruch = 0
$Welt1Steinmetz = 0
$Welt1Kohlemine = 0
$Welt1Erzmine = 0
;~ Ende Welt1
;~ Welt2
$Welt2Holzfaller = 0
$Welt2Muhlen = 0
$Welt2Getreidefarm = 0
$Welt2Backerrei = 0
$Welt2Weberrei = 0
$Welt2Lehmgrube = 0
$Welt2Schaffarm = 0
$Welt2Schmiede = 0
$Welt2Steinbruch = 0
$Welt2Steinmetz = 0
$Welt2Kohlemine = 0
$Welt2Erzmine = 0
$Welt2Goldmine = 0
$Welt2Goldschmiede = 0
;~ Ende Welt2
;~ Welt3
$Welt3Holzfaller = 0
$Welt3Muhlen = 0
$Welt3Getreidefarm = 0
$Welt3Backerrei = 0
$Welt3Weberrei = 0
$Welt3Lehmgrube = 0
$Welt3Schaffarm = 0
$Welt3Schmiede = 0
$Welt3Steinbruch = 0
$Welt3Steinmetz = 0
$Welt3Kohlemine = 0
$Welt3Erzmine = 0
$Welt3Goldmine = 0
$Welt3Goldschmiede = 0
$Welt3Mamormine = 0
$Welt3Mamormetz = 0
;~ Ende Welt3
;~ Ende Gebaute Gebeude
$MIN = @MIN
$SEC = TimerInit()
$SEC1 = TimerInit()
$SEC2 = TimerInit()
$ActiveOld = 1
_New()
While 1
	If $ToolTip = True Then
		If TimerDiff($SEC) >= 1500 Then
			ToolTip("")
			$ToolTip = False
		EndIf
	EndIf
	If TimerDiff($SEC1) >= 2000 Then
		$NahrungZahl = GUICtrlRead($NahrungAnzahl)
		$BurgerZahl = GUICtrlRead($BurgerAnzahl)
		$BurgerZahl2 = GUICtrlRead($BurgerOnAnzahl)
		$NahrungZahl = GUICtrlRead($NahrungAnzahl)
		If $NahrungZahl > 0 Then
			If $BurgerZahl + 1 <= $BurgerMax Then
				GUICtrlSetData($BurgerAnzahl, $BurgerZahl + 1)
				GUICtrlSetData($BurgerOnAnzahl, $BurgerZahl2 + 1)
				$BurgerZahl = GUICtrlRead($BurgerAnzahl)
				$BurgerZahl2 = GUICtrlRead($BurgerOnAnzahl)
				$BurgerZahl3 = GUICtrlRead ($BurgerOffAnzahl)
				$Formel = $BurgerZahl / $BurgerMax * 100
				$Formel2 = $BurgerZahl2 / $BurgerZahl * 100
				GUICtrlSetData($BurgerStatus, $Formel)
				GUICtrlSetData($BurgerStatusOn, $Formel2)
			EndIf
		Else
			ToolTip("Ihre Bürger sind am Verhungern!")
			$ToolTip = True
			GUICtrlSetData($BurgerAnzahl, $BurgerZahl - 1)
			IF $BurgerZahl2 > 0 Then 
				GUICtrlSetData($BurgerOnAnzahl, $BurgerZahl2 - 1)
			ElseIf $BurgerZahl3 > 0 Then
				GUICtrlSetData($BurgerOffAnzahl, $BurgerZahl3 - 1)
			Else 
				_Verloren ("Sie haben das Spiel verloren! Alle Bürger sind verhungert!")
			EndIf
			$BurgerZahl = GUICtrlRead($BurgerAnzahl)
			$Formel = $BurgerZahl / $BurgerMax * 100
			GUICtrlSetData($BurgerStatus, $Formel)
		EndIf
		$SEC1 = TimerInit()
	EndIf
	If TimerDiff($SEC2) >= 40000 Then
		$SEC2 = TimerInit()
		$BurgerZahl = GUICtrlRead($BurgerAnzahl)
		$HolzZahl = GUICtrlRead($HolzAnzahl)
		$Welt1HolzfallerSumme = StringSplit($Welt1KostenHolzfaller, '|')
		$Welt1GetreidefarmSumme = StringSplit($Welt1KostenGetreidefarm, '|')
		$Welt1BackerreiSumme = StringSplit($Welt1KostenBackerrei, '|')
		$Welt1LehmgrubeSumme = StringSplit($Welt1KostenLehmgrube, "|")
		$Welt1WeberreiSumme = StringSplit($Welt1KostenWeberrei, "|")
		$Welt1SchmiedeSumme = StringSplit($Welt1KostenSchmiede, "|")
		$Welt1SteinmetzSumme = StringSplit($Welt1KostenSteinmetz, "|")
		$Welt1KohlemineSumme = StringSplit($Welt1KostenKohlemine, "|")
		$Welt1ErzmineSumme = StringSplit($Welt1KostenErzmine, "|")
		$Welt2HolzfallerSumme = StringSplit($Welt2KostenHolzfaller, '|')
		$Welt2GetreidefarmSumme = StringSplit($Welt2KostenGetreidefarm, '|')
		$Welt2BackerreiSumme = StringSplit($Welt2KostenBackerrei, '|')
		$Welt2LehmgrubeSumme = StringSplit($Welt2KostenLehmgrube, "|")
		$Welt2WeberreiSumme = StringSplit($Welt2KostenWeberrei, "|")
		$Welt2SchmiedeSumme = StringSplit($Welt2KostenSchmiede, "|")
		$Welt2SteinmetzSumme = StringSplit($Welt2KostenSteinmetz, "|")
		$Welt2KohlemineSumme = StringSplit($Welt2KostenKohlemine, "|")
		$Welt2GoldschmiedeSumme = StringSplit($Welt2KostenKohlemine, "|")
		$Welt2ErzmineSumme = StringSplit($Welt2KostenErzmine, "|")
		$Welt3HolzfallerSumme = StringSplit($Welt3KostenHolzfaller, '|')
		$Welt3GetreidefarmSumme = StringSplit($Welt3KostenGetreidefarm, '|')
		$Welt3BackerreiSumme = StringSplit($Welt3KostenBackerrei, '|')
		$Welt3LehmgrubeSumme = StringSplit($Welt3KostenLehmgrube, "|")
		$Welt3WeberreiSumme = StringSplit($Welt3KostenWeberrei, "|")
		$Welt3SchmiedeSumme = StringSplit($Welt3KostenSchmiede, "|")
		$Welt3SteinmetzSumme = StringSplit($Welt3KostenSteinmetz, "|")
		$Welt3KohlemineSumme = StringSplit($Welt3KostenKohlemine, "|")
		$Welt3GoldschmiedeSumme = StringSplit($Welt3KostenGoldschmiede, "|")
		$Welt3ErzmineSumme = StringSplit($Welt3KostenErzmine, "|")
		$EisenZahl = GUICtrlRead($EisenAnzahl)
		$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
		$GoldZahl = GUICtrlRead($GoldAnzahl)
		$KohleZahl = GUICtrlRead($KohleAnzahl)
		$SteinZahl = GUICtrlRead($SteinAnzahl)
		$NahrungZahl = GUICtrlRead($NahrungAnzahl)
		$Speicher2 = $Speicher * 2
		$LehmZahl = GUICtrlRead($LehmAnzahl)
		$WolleZahl = GUICtrlRead($WolleAnzahl)
		$GetreideZahl = GUICtrlRead ($GetreideAnzahl)
		If $BurgerZahl > 0 Then
			For $i = 1 To $BurgerZahl
				If $BurgerZahl > 0 Then
					If $NahrungZahl > 0 Then
						GUICtrlSetData($NahrungAnzahl, $NahrungZahl - 1)
						$NahrungZahl = GUICtrlRead($NahrungAnzahl)
						$Formel = $NahrungZahl / $Speicher2 * 100
						GUICtrlSetData($StatusNahrung, $Formel)
					EndIf
				EndIf
			Next
		EndIf
		If $Welt3Holzfaller > 0 Then
			For $i = 1 To $Welt2Holzfaller
				If $HolzZahl + $Welt3HolzfallerSumme[13] <= $Speicher Then
					GUICtrlSetData($HolzAnzahl, $HolzZahl + $Welt3HolzfallerSumme[13])
					$HolzZahl = GUICtrlRead($HolzAnzahl)
					$Formel = $HolzZahl / $Speicher * 100
					GUICtrlSetData($StatusHolz, $Formel)
				Else
					GUICtrlSetData($HolzAnzahl, $Speicher)
					$HolzZahl = GUICtrlRead($HolzAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusHolz, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Kohlemine > 0 Then
			For $i = 0 To $Welt2Kohlemine
				If $KohleZahl + $Welt3KohlemineSumme[13] <= $Speicher Then
					GUICtrlSetData($SteinAnzahl, $SteinZahl + $Welt3KohlemineSumme[13])
					$KohleZahl = GUICtrlRead($KohleAnzahl)
					$Formel = $KohleZahl / $Speicher * 100
					GUICtrlSetData($StatusKohle, $Formel)
				Else
					GUICtrlSetData($SteinAnzahl, $Speicher)
					$KohleZahl = GUICtrlRead($KohleAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusKohle, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Steinmetz > 0 Then
			For $i = 0 To $Welt3Steinmetz
				If $i > $Welt3Steinbruch Then
					ToolTip("Ein Steinmetz in Welt 3 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $SteinZahl + $Welt3SteinmetzSumme[13] <= $Speicher Then
					GUICtrlSetData($SteinAnzahl, $SteinZahl + $Welt3SteinmetzSumme[13])
					$SteinZahl = GUICtrlRead($SteinAnzahl)
					$Formel = $SteinZahl / $Speicher * 100
					GUICtrlSetData($StatusStein, $Formel)
				Else
					GUICtrlSetData($SteinAnzahl, $Speicher)
					$SteinZahl = GUICtrlRead($SteinAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusStein, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Weberrei > 0 Then
			For $i = 0 To $Welt3Weberrei
				If $i > $Welt3Schaffarm Then
					ToolTip("Eine Weberei in Welt 3 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $WolleZahl + $Welt3WeberreiSumme[13] <= $Speicher Then
					GUICtrlSetData($WolleAnzahl, $WolleZahl + $Welt3WeberreiSumme[13])
					$WolleZahl = GUICtrlRead($WolleAnzahl)
					$Formel = $WolleZahl / $Speicher * 100
					GUICtrlSetData($StatusWolle, $Formel)
				Else
					GUICtrlSetData($EisenAnzahl, $Speicher)
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusEisen, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Backerrei > 0 Then
			For $i = 0 To $Welt3Backerrei
				If $i > $Welt3Getreidefarm Or $i > $Welt3Muhlen Then
					ToolTip("Eine Bäckerrei in Welt 3 benötigt Rohstoffe" & "," & $i)
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $NahrungZahl + $Welt3BackerreiSumme[13] <= $Speicher2 Then
					GUICtrlSetData($NahrungAnzahl, $NahrungZahl + $Welt3BackerreiSumme[13])
					$NahrungZahl = GUICtrlRead($NahrungAnzahl)
					$Formel = $NahrungZahl / $Speicher2 * 100
					GUICtrlSetData($StatusNahrung, $Formel)
				Else
					GUICtrlSetData($NahrungAnzahl, $Speicher2)
					$NahrungZahl = GUICtrlRead($NahrungAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusNahrung, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Lehmgrube > 0 Then
			For $i = 0 To $Welt2Lehmgrube
				If $LehmZahl + $Welt3LehmgrubeSumme[13] <= $Speicher Then
					GUICtrlSetData($LehmAnzahl, $LehmZahl + $Welt3LehmgrubeSumme[13])
					$LehmZahl = GUICtrlRead($LehmAnzahl)
					$Formel = $LehmZahl / $Speicher2 * 100
					GUICtrlSetData($StatusLehm, $Formel)
				Else
					GUICtrlSetData($LehmAnzahl, $Speicher)
					$LehmZahl = GUICtrlRead($LehmAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusLehm, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Goldschmiede > 0 Then
			For $i = 0 To $Welt3Goldschmiede
				If $i > $Welt3Goldmine Then
					ToolTip("Eine Goldschmiede in Welt 3 benötigt Rohstoffe" & "," & $i)
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $GoldZahl + $Welt3GoldschmiedeSumme[13] <= $Speicher Then
					GUICtrlSetData($GoldAnzahl, $GoldZahl + $Welt3GoldschmiedeSumme[13])
					$GoldZahl = GUICtrlRead($GoldAnzahl)
					$Formel = $GoldZahl / $Speicher * 100
					GUICtrlSetData($StatusGold, $Formel)
				Else
					GUICtrlSetData($GoldAnzahl, $Speicher)
					$GoldZahl = GUICtrlRead($GoldAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusGold, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Erzmine > 0 Then
			For $i = 0 To $Welt3Erzmine
				If $EisenZahl + $Welt3ErzmineSumme[13] <= $Speicher Then
					GUICtrlSetData($EisenAnzahl, $LehmZahl + $Welt3ErzmineSumme[13])
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = $EisenZahl / $Speicher * 100
					GUICtrlSetData($StatusEisen, $Formel)
				Else
					GUICtrlSetData($EisenAnzahl, $Speicher)
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusEisen, $Formel)
				EndIf
			Next
		EndIf
		If $Welt3Schmiede > 0 Then
			For $i = 0 To $Welt3Schmiede
				If $i > $Welt1Erzmine Then
					ToolTip("Eine Schmiede in Welt 3 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $EisenZahl - 1 > 0 Then
					If $WerkzeugZahl + $Welt3SchmiedeSumme[13] <= $Speicher Then
						GUICtrlSetData($EisenAnzahl, $EisenZahl - 1)
						$EisenZahl = GUICtrlRead($EisenAnzahl)
						$Formel = $EisenZahl / $Speicher * 100
						GUICtrlSetData($StatusEisen, $Formel)
						GUICtrlSetData($WerkzeugAnzahl, $WerkzeugZahl + $Welt3SchmiedeSumme[13])
						$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
						$Formel = $WerkzeugZahl / $Speicher * 100
						GUICtrlSetData($StatusEisen, $Formel)
					ElseIf $Speicher > $WerkzeugZahl Then
						GUICtrlSetData($EisenAnzahl, $EisenZahl - 1)
						$EisenZahl = GUICtrlRead($EisenAnzahl)
						$Formel = 100
						GUICtrlSetData($StatusEisen, $Formel)
						GUICtrlSetData($WerkzeugAnzahl, $Speicher)
						$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
						$Formel = 100
						GUICtrlSetData($StatusEisen, $Formel)
					EndIf
				EndIf
			Next
		EndIf
		If $Welt3Getreidefarm > 0 Then
			For $i = 1 To $Welt3Getreidefarm
				If $GetreideZahl + $Welt3GetreidefarmSumme[13] <= $Speicher Then
					GUICtrlSetData($GetreideAnzahl, $GetreideZahl + $Welt3GetreidefarmSumme[13])
					$GetreideZahl = GUICtrlRead($GetreideAnzahl)
					$Formel = $GetreideZahl / $Speicher * 100
					GUICtrlSetData($StatusGetreide, $Formel)
				Else
					GUICtrlSetData($GetreideAnzahl, $Speicher)
					$GetreideZahl = GUICtrlRead($GetreideAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusGetreide, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Goldschmiede > 0 Then
			For $i = 0 To $Welt2Goldschmiede
				If $i > $Welt2Goldmine Then
					ToolTip("Eine Goldschmiede in Welt 2 benötigt Rohstoffe" & "," & $i)
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $GoldZahl + $Welt2GoldschmiedeSumme[13] <= $Speicher Then
					GUICtrlSetData($GoldAnzahl, $GoldZahl + $Welt2GoldschmiedeSumme[13])
					$GoldZahl = GUICtrlRead($GoldAnzahl)
					$Formel = $GoldZahl / $Speicher * 100
					GUICtrlSetData($StatusGold, $Formel)
				Else
					GUICtrlSetData($GoldAnzahl, $Speicher)
					$GoldZahl = GUICtrlRead($GoldAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusGold, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Holzfaller > 0 Then
			For $i = 1 To $Welt2Holzfaller
				If $HolzZahl + $Welt2HolzfallerSumme[13] <= $Speicher Then
					GUICtrlSetData($HolzAnzahl, $HolzZahl + $Welt2HolzfallerSumme[13])
					$HolzZahl = GUICtrlRead($HolzAnzahl)
					$Formel = $HolzZahl / $Speicher * 100
					GUICtrlSetData($StatusHolz, $Formel)
				Else
					GUICtrlSetData($HolzAnzahl, $Speicher)
					$HolzZahl = GUICtrlRead($HolzAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusHolz, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Kohlemine > 0 Then
			For $i = 0 To $Welt2Kohlemine
				If $KohleZahl + $Welt2KohlemineSumme[13] <= $Speicher Then
					GUICtrlSetData($SteinAnzahl, $SteinZahl + $Welt2KohlemineSumme[13])
					$KohleZahl = GUICtrlRead($KohleAnzahl)
					$Formel = $KohleZahl / $Speicher * 100
					GUICtrlSetData($StatusKohle, $Formel)
				Else
					GUICtrlSetData($SteinAnzahl, $Speicher)
					$KohleZahl = GUICtrlRead($KohleAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusKohle, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Steinmetz > 0 Then
			For $i = 0 To $Welt2Steinmetz
				If $i > $Welt2Steinbruch Then
					ToolTip("Ein Steinmetz in Welt 2 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $SteinZahl + $Welt2SteinmetzSumme[13] <= $Speicher Then
					GUICtrlSetData($SteinAnzahl, $SteinZahl + $Welt2SteinmetzSumme[13])
					$SteinZahl = GUICtrlRead($SteinAnzahl)
					$Formel = $SteinZahl / $Speicher * 100
					GUICtrlSetData($StatusStein, $Formel)
				Else
					GUICtrlSetData($SteinAnzahl, $Speicher)
					$SteinZahl = GUICtrlRead($SteinAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusStein, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Weberrei > 0 Then
			For $i = 0 To $Welt2Weberrei
				If $i > $Welt2Schaffarm Then
					ToolTip("Eine Weberei in Welt 2 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $WolleZahl + $Welt2WeberreiSumme[13] <= $Speicher Then
					GUICtrlSetData($WolleAnzahl, $WolleZahl + $Welt2WeberreiSumme[13])
					$WolleZahl = GUICtrlRead($WolleAnzahl)
					$Formel = $WolleZahl / $Speicher * 100
					GUICtrlSetData($StatusWolle, $Formel)
				Else
					GUICtrlSetData($EisenAnzahl, $Speicher)
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusEisen, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Schmiede > 0 Then
			For $i = 0 To $Welt2Schmiede
				If $i > $Welt2Erzmine Then
					ToolTip("Eine Schmiede in Welt 2 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $EisenZahl - 1 > 0 Then
					If $WerkzeugZahl + $Welt2SchmiedeSumme[13] <= $Speicher Then
						GUICtrlSetData($EisenAnzahl, $EisenZahl - 1)
						$EisenZahl = GUICtrlRead($EisenAnzahl)
						$Formel = $EisenZahl / $Speicher * 100
						GUICtrlSetData($StatusEisen, $Formel)
						GUICtrlSetData($WerkzeugAnzahl, $WerkzeugZahl + $Welt2SchmiedeSumme[13])
						$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
						$Formel = $WerkzeugZahl / $Speicher * 100
						GUICtrlSetData($StatusEisen, $Formel)
					ElseIf $Speicher > $WerkzeugZahl Then
						GUICtrlSetData($EisenAnzahl, $EisenZahl - 1)
						$EisenZahl = GUICtrlRead($EisenAnzahl)
						$Formel = 100
						GUICtrlSetData($StatusEisen, $Formel)
						GUICtrlSetData($WerkzeugAnzahl, $Speicher)
						$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
						$Formel = 100
						GUICtrlSetData($StatusEisen, $Formel)
					EndIf
				EndIf
			Next
		EndIf
		If $Welt2Backerrei > 0 Then
			For $i = 0 To $Welt2Backerrei
				If $i > $Welt2Getreidefarm Or $i > $Welt2Muhlen Then
					ToolTip("Eine Bäckerrei in Welt 2 benötigt Rohstoffe" & "," & $i)
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $NahrungZahl + $Welt2BackerreiSumme[13] <= $Speicher2 Then
					GUICtrlSetData($NahrungAnzahl, $NahrungZahl + $Welt2BackerreiSumme[13])
					$NahrungZahl = GUICtrlRead($NahrungAnzahl)
					$Formel = $NahrungZahl / $Speicher2 * 100
					GUICtrlSetData($StatusNahrung, $Formel)
				Else
					GUICtrlSetData($NahrungAnzahl, $Speicher2)
					$NahrungZahl = GUICtrlRead($NahrungAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusNahrung, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Lehmgrube > 0 Then
			For $i = 0 To $Welt2Lehmgrube
				If $LehmZahl + $Welt2LehmgrubeSumme[13] <= $Speicher Then
					GUICtrlSetData($LehmAnzahl, $LehmZahl + $Welt2LehmgrubeSumme[13])
					$LehmZahl = GUICtrlRead($LehmAnzahl)
					$Formel = $LehmZahl / $Speicher2 * 100
					GUICtrlSetData($StatusLehm, $Formel)
				Else
					GUICtrlSetData($LehmAnzahl, $Speicher)
					$LehmZahl = GUICtrlRead($LehmAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusLehm, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Erzmine > 0 Then
			For $i = 0 To $Welt2Erzmine
				If $EisenZahl + $Welt2ErzmineSumme[13] <= $Speicher Then
					GUICtrlSetData($EisenAnzahl, $LehmZahl + $Welt2ErzmineSumme[13])
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = $EisenZahl / $Speicher * 100
					GUICtrlSetData($StatusEisen, $Formel)
				Else
					GUICtrlSetData($EisenAnzahl, $Speicher)
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusEisen, $Formel)
				EndIf
			Next
		EndIf
		If $Welt2Getreidefarm > 0 Then
			For $i = 1 To $Welt2Getreidefarm
				If $GetreideZahl + $Welt2GetreidefarmSumme[13] <= $Speicher Then
					GUICtrlSetData($GetreideAnzahl, $GetreideZahl + $Welt2GetreidefarmSumme[13])
					$GetreideZahl = GUICtrlRead($GetreideAnzahl)
					$Formel = $GetreideZahl / $Speicher * 100
					GUICtrlSetData($StatusGetreide, $Formel)
				Else
					GUICtrlSetData($GetreideAnzahl, $Speicher)
					$GetreideZahl = GUICtrlRead($GetreideAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusGetreide, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Kohlemine > 0 Then
			For $i = 0 To $Welt1Kohlemine
				If $KohleZahl + $Welt1KohlemineSumme[13] <= $Speicher Then
					GUICtrlSetData($SteinAnzahl, $SteinZahl + $Welt1KohlemineSumme[13])
					$KohleZahl = GUICtrlRead($KohleAnzahl)
					$Formel = $KohleZahl / $Speicher * 100
					GUICtrlSetData($StatusKohle, $Formel)
				Else
					GUICtrlSetData($SteinAnzahl, $Speicher)
					$KohleZahl = GUICtrlRead($KohleAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusKohle, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Steinmetz > 0 Then
			For $i = 0 To $Welt1Steinmetz
				If $i > $Welt1Steinbruch Then
					ToolTip("Ein Steinmetz in Welt 1 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $SteinZahl + $Welt1SteinmetzSumme[13] <= $Speicher Then
					GUICtrlSetData($SteinAnzahl, $SteinZahl + $Welt1SteinmetzSumme[13])
					$SteinZahl = GUICtrlRead($SteinAnzahl)
					$Formel = $SteinZahl / $Speicher * 100
					GUICtrlSetData($StatusStein, $Formel)
				Else
					GUICtrlSetData($SteinAnzahl, $Speicher)
					$SteinZahl = GUICtrlRead($SteinAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusStein, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Weberrei > 0 Then
			For $i = 0 To $Welt1Weberrei
				If $i > $Welt1Schaffarm Then
					ToolTip("Eine Weberei in Welt 1 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $WolleZahl + $Welt1WeberreiSumme[13] <= $Speicher Then
					GUICtrlSetData($WolleAnzahl, $WolleZahl + $Welt1WeberreiSumme[13])
					$WolleZahl = GUICtrlRead($WolleAnzahl)
					$Formel = $WolleZahl / $Speicher * 100
					GUICtrlSetData($StatusWolle, $Formel)
				Else
					GUICtrlSetData($EisenAnzahl, $Speicher)
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusEisen, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Schmiede > 0 Then
			For $i = 0 To $Welt1Schmiede
				If $i > $Welt1Erzmine Then
					ToolTip("Eine Schmiede in Welt 1 benötigt Rohstoffe")
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $EisenZahl - 1 > 0 Then
					If $WerkzeugZahl + $Welt1SchmiedeSumme[13] <= $Speicher Then
						GUICtrlSetData($EisenAnzahl, $EisenZahl - 1)
						$EisenZahl = GUICtrlRead($EisenAnzahl)
						$Formel = $EisenZahl / $Speicher * 100
						GUICtrlSetData($StatusEisen, $Formel)
						GUICtrlSetData($WerkzeugAnzahl, $WerkzeugZahl + $Welt1SchmiedeSumme[13])
						$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
						$Formel = $WerkzeugZahl / $Speicher * 100
						GUICtrlSetData($StatusEisen, $Formel)
					ElseIf $Speicher > $WerkzeugZahl Then
						GUICtrlSetData($EisenAnzahl, $EisenZahl - 1)
						$EisenZahl = GUICtrlRead($EisenAnzahl)
						$Formel = 100
						GUICtrlSetData($StatusEisen, $Formel)
						GUICtrlSetData($WerkzeugAnzahl, $Speicher)
						$WerkzeugZahl = GUICtrlRead($WerkzeugAnzahl)
						$Formel = 100
						GUICtrlSetData($StatusEisen, $Formel)
					EndIf
				EndIf
			Next
		EndIf
		If $Welt1Backerrei > 0 Then
			For $i = 0 To $Welt1Backerrei
				If $i > $Welt1Getreidefarm Or $i > $Welt1Muhlen Then
					ToolTip("Eine Bäckerrei in Welt 1 benötigt Rohstoffe" & "," & $i)
					$ToolTip = True
					$SEC = TimerInit()
					ExitLoop
				EndIf
				If $NahrungZahl + $Welt1BackerreiSumme[13] <= $Speicher2 Then
					GUICtrlSetData($NahrungAnzahl, $NahrungZahl + $Welt1BackerreiSumme[13])
					$NahrungZahl = GUICtrlRead($NahrungAnzahl)
					$Formel = $NahrungZahl / $Speicher2 * 100
					GUICtrlSetData($StatusNahrung, $Formel)
				Else
					GUICtrlSetData($NahrungAnzahl, $Speicher2)
					$NahrungZahl = GUICtrlRead($NahrungAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusNahrung, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Lehmgrube > 0 Then
			For $i = 0 To $Welt1Lehmgrube
				If $LehmZahl + $Welt1LehmgrubeSumme[13] <= $Speicher Then
					GUICtrlSetData($LehmAnzahl, $LehmZahl + $Welt1LehmgrubeSumme[13])
					$LehmZahl = GUICtrlRead($LehmAnzahl)
					$Formel = $LehmZahl / $Speicher * 100
					GUICtrlSetData($StatusLehm, $Formel)
				Else
					GUICtrlSetData($LehmAnzahl, $Speicher)
					$LehmZahl = GUICtrlRead($LehmAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusLehm, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Erzmine > 0 Then
			For $i = 0 To $Welt1Erzmine
				If $EisenZahl + $Welt1ErzmineSumme[13] <= $Speicher Then
					GUICtrlSetData($EisenAnzahl, $LehmZahl + $Welt1ErzmineSumme[13])
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = $EisenZahl / $Speicher * 100
					GUICtrlSetData($StatusEisen, $Formel)
				Else
					GUICtrlSetData($EisenAnzahl, $Speicher)
					$EisenZahl = GUICtrlRead($EisenAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusEisen, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Holzfaller > 0 Then
			For $i = 1 To $Welt1Holzfaller
				If $HolzZahl + $Welt1HolzfallerSumme[13] <= $Speicher Then
					GUICtrlSetData($HolzAnzahl, $HolzZahl + $Welt1HolzfallerSumme[13])
					$HolzZahl = GUICtrlRead($HolzAnzahl)
					$Formel = $HolzZahl / $Speicher * 100
					GUICtrlSetData($StatusHolz, $Formel)
				Else
					GUICtrlSetData($HolzAnzahl, $Speicher)
					$HolzZahl = GUICtrlRead($HolzAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusHolz, $Formel)
				EndIf
			Next
		EndIf
		If $Welt1Getreidefarm > 0 Then
			For $i = 1 To $Welt1Getreidefarm
				If $GetreideZahl + $Welt1GetreidefarmSumme[13] <= $Speicher Then
					GUICtrlSetData($GetreideAnzahl, $GetreideZahl + $Welt1GetreidefarmSumme[13])
					$GetreideZahl = GUICtrlRead($GetreideAnzahl)
					$Formel = $GetreideZahl / $Speicher * 100
					GUICtrlSetData($StatusGetreide, $Formel)
				Else
					GUICtrlSetData($GetreideAnzahl, $Speicher)
					$GetreideZahl = GUICtrlRead($GetreideAnzahl)
					$Formel = 100
					GUICtrlSetData($StatusGetreide, $Formel)
				EndIf
			Next
		EndIf
		If $WeltFrei = 1 Then
			If $Welt1Backerrei > 0 And $Welt1Erzmine > 0 And $Welt1Getreidefarm > 0 And $Welt1Holzfaller > 0 And $Welt1Kohlemine > 0 And $Welt1Lehmgrube > 0 And $Welt1Muhlen > 0 And $Welt1Schaffarm > 0 And $Welt1Schmiede > 0 And $Welt1Steinbruch > 0 And $Welt1Steinmetz > 0 And $Welt1Weberrei > 0 And $WeltFrei = 1 Then
				_Unlock()
			EndIf
		ElseIf $WeltFrei = 2 Then
			If $Welt2Goldmine > 0  And $Welt2Goldschmiede > 0 Then
				_Unlock()
			EndIf
		ElseIf $WeltFrei = 3 Then 
			If $Welt3Mamormetz > 0 And $Welt3Mamormine > 0 Then
				_Unlock()
			EndIf
		EndIf
	EndIf
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Beenden
			DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $MC, "int", 400, "long", 0x00050010);Slide nach unten aus
			If $VB = True Then
				_ChangeScreenRes($iWidthAlt, $iHeightAlt)
			EndIf
			Exit
		Case $New 
			If $Zahl > 0 Then
				$MSG = MsgBox (36,"Speichern","Möchten sie den Aktuellen Spielstand Speichern?")
				If $MSG = 6 Then _speichern()
			EndIf
			_New()
		Case $BauHaus
			_Bau("Haus")
		Case $BauHolzfaller
			_Bau("Holzfaller")
		Case $BauMuhle
			_Bau("Muhle")
		Case $BauGetreidefarm
			_Bau("Getreidefarm")
		Case $BauBackerrei
			_Bau("Backerrei")
		Case $BauWeberrei
			_Bau("Weberrei")
		Case $BauLehmgrube
			_Bau("Lehmgrube")
		Case $BauSchaffarm
			_Bau("Schaffarm")
		Case $BauSchmiede
			_Bau("Schmiede")
		Case $BauErzmine
			_Bau("Erzmine")
		Case $BauSpeicher
			_Bau("Speicher")
		Case $BauSteinbruch
			_Bau("Steinbruch")
		Case $BauSteinmetz
			_Bau("Steinmetz")
		Case $BauGoldmine
			_Bau("Goldmine")
		Case $BauGoldschmiede
			_Bau("Goldschmiede")
		Case $BauMamormine
			_Bau("Mamormine")
		Case $BauKohlemine
			_Bau("Kohlemine")
		Case $Speichern
			_speichern()
		Case $Laden
			_laden()
		Case $VollBild
			_VB()
		Case $Welt1
			_WW(1)
		Case $Welt2
			_WW(2)
		Case $Welt3
			_WW(3)
	EndSwitch
WEnd
Func _Bau($BauArt)
	$A = GUICtrlCreatePic(@ScriptDir & "\Build\World" & $Welt & "\" & $BauArt & ".jpg", $cordx, $cordy, 50, 50)
	GUICtrlSetCursor($A, 0)
	$WinPos = WinGetPos("The destroyed city")
	$HolzRead = GUICtrlRead($HolzAnzahl)
	$EisenRead = GUICtrlRead($EisenAnzahl)
	$NahrungRead = GUICtrlRead($NahrungAnzahl)
	$LehmRead = GUICtrlRead($LehmAnzahl)
	$SteinRead = GUICtrlRead($SteinAnzahl)
	$GetreideRead = GUICtrlRead($GetreideAnzahl)
	$WerkzeugRead = GUICtrlRead($WerkzeugAnzahl)
	$KohleRead = GUICtrlRead($KohleAnzahl)
	$WolleRead = GUICtrlRead($WolleAnzahl)
	$GoldRead = GUICtrlRead($GoldAnzahl)
	$MamorRead = GUICtrlRead($MamorAnzahl)
	$BurgerRead = GUICtrlRead($BurgerOnAnzahl)
	$BurgerRead2 = GUICtrlRead($BurgerOffAnzahl)
	$breite_bild = 52
	$hoehe_bild = 52
	If $Welt = 1 Then
		$arrayZahl = UBound($array) - 1
	ElseIf $Welt = 2 Then
		$arrayZahl = UBound($array2) - 1
	ElseIf $Welt = 3 Then
		$arrayZahl = UBound($array3) - 1
	EndIf
	$PicStatus = False
	While 1
		$kollionStatus = False
		_MouseTrap($WinPos[0] + $MouseTrap[0], $WinPos[1] + $MouseTrap[1], $WinPos[0] + $WinPos[2] - $MouseTrap[2], $WinPos[1] + $WinPos[3] - $MouseTrap[3])
		$Maus = GUIGetCursorInfo()
		$x2 = $Maus[0]
		$x = $cordx + $x2
		$y2 = $Maus[1]
		$y = $cordy + $y2
		GUICtrlSetPos($A, $x, $y, 50, 50)
		$Pos = GUIGetCursorInfo()
		$aktuell_x_links = $Pos[0]
		$aktuell_y_oben = $Pos[1] + 1
		$aktuell_x_rechts = $Pos[0] + $breite_bild
		$aktuell_y_unten = $Pos[1] + $hoehe_bild
		If $Welt = 1 Then
			$arrayZahl = UBound($array) - 1
		ElseIf $Welt = 2 Then
			$arrayZahl = UBound($array2) - 1
		ElseIf $Welt = 3 Then
			$arrayZahl = UBound($array3) - 1
		EndIf
		For $i = 0 To $arrayZahl
			$kollion = 0
			If $Welt = 1 Then
				$archiv_x_links = $array[$i][0]
				$archiv_y_oben = $array[$i][1]
				$archiv_x_rechts = $array[$i][0] + $array[$i][2]
				$archiv_y_unten = $array[$i][1] + $array[$i][3]
			ElseIf $Welt = 2 Then
				$archiv_x_links = $array2[$i][0]
				$archiv_y_oben = $array2[$i][1]
				$archiv_x_rechts = $array2[$i][0] + $array2[$i][2]
				$archiv_y_unten = $array2[$i][1] + $array2[$i][3]
			ElseIf $Welt = 3 Then
				$archiv_x_links = $array3[$i][0]
				$archiv_y_oben = $array3[$i][1]
				$archiv_x_rechts = $array3[$i][0] + $array3[$i][2]
				$archiv_y_unten = $array3[$i][1] + $array3[$i][3]
			EndIf
			If $aktuell_x_links > $archiv_x_links And $aktuell_x_links < $archiv_x_rechts Then $kollion = $kollion + 1
			If $aktuell_y_oben > $archiv_y_oben And $aktuell_y_oben < $archiv_y_unten Then $kollion = $kollion + 1
			If $aktuell_x_rechts > $archiv_x_links And $aktuell_x_rechts <= $archiv_x_rechts Then $kollion = $kollion + 1
			If $aktuell_y_unten > $archiv_y_oben And $aktuell_y_unten < $archiv_y_unten Then $kollion = $kollion + 1
			If $kollion >= 2 Then
				$kollionStatus = True
			EndIf
		Next
		If $kollionStatus = True And $PicStatus = False Then
			GUICtrlSetImage($A, @ScriptDir & "\Build\World" & $Welt & "\Button\Read.bmp")
			$PicStatus = True
		ElseIf $kollionStatus = False And $PicStatus = True Then
			GUICtrlSetImage($A, @ScriptDir & "\Build\World" & $Welt & "\" & $BauArt & ".jpg")
			$PicStatus = False
		EndIf
		If _IsPressed("02") Then
			_MouseTrap()
			GUICtrlDelete($A)
			Return
		EndIf
		$xm = $Maus[0]
		$ym = $Maus[1]
		$nMsg1 = GUIGetMsg()
		Switch $nMsg1
			Case $Pic1
				GUICtrlDelete($A)
				$bild = @ScriptDir & "\Build\World" & $Welt & "\" & $BauArt & ".jpg"
				_GDIPlus_Startup()
				$hImage = _GDIPlus_ImageLoadFromFile($bild)
				_GDIPlus_ImageDispose($hImage)
				_GDIPlus_Shutdown()
				$WinPos = WinGetPos($MC)
				_MouseTrap($WinPos[0], $WinPos[1], $WinPos[0] + $WinPos[2], $WinPos[1] + $WinPos[3])
				$Pos = GUIGetCursorInfo()
				$aktuell_x_links = $Pos[0]
				$aktuell_y_oben = $Pos[1] + 1
				$aktuell_x_rechts = $Pos[0] + $breite_bild
				$aktuell_y_unten = $Pos[1] + $hoehe_bild
				If $Welt = 1 Then
					$arrayZahl = UBound($array) - 1
				ElseIf $Welt = 2 Then
					$arrayZahl = UBound($array2) - 1
				ElseIf $Welt = 3 Then
					$arrayZahl = UBound($array3) - 1
				EndIf
				For $i = 0 To $arrayZahl
					$kollion = 0
					If $Welt = 1 Then
						$archiv_x_links = $array[$i][0]
						$archiv_y_oben = $array[$i][1]
						$archiv_x_rechts = $array[$i][0] + $array[$i][2]
						$archiv_y_unten = $array[$i][1] + $array[$i][3]
					ElseIf $Welt = 2 Then
						$archiv_x_links = $array2[$i][0]
						$archiv_y_oben = $array2[$i][1]
						$archiv_x_rechts = $array2[$i][0] + $array2[$i][2]
						$archiv_y_unten = $array2[$i][1] + $array2[$i][3]
					ElseIf $Welt = 3 Then
						$archiv_x_links = $array3[$i][0]
						$archiv_y_oben = $array3[$i][1]
						$archiv_x_rechts = $array3[$i][0] + $array3[$i][2]
						$archiv_y_unten = $array3[$i][1] + $array3[$i][3]
					EndIf
					If $aktuell_x_links > $archiv_x_links And $aktuell_x_links < $archiv_x_rechts Then $kollion = $kollion + 1
					If $aktuell_y_oben > $archiv_y_oben And $aktuell_y_oben < $archiv_y_unten Then $kollion = $kollion + 1
					If $aktuell_x_rechts > $archiv_x_links And $aktuell_x_rechts <= $archiv_x_rechts Then $kollion = $kollion + 1
					If $aktuell_y_unten > $archiv_y_oben And $aktuell_y_unten < $archiv_y_unten Then $kollion = $kollion + 1
					If $kollion >= 2 Then
						ToolTip("Dort ist bereits etwas Gebaut!")
						$ToolTip = True
						$SEC = TimerInit()
						Return
					EndIf
				Next
				$BauGenemigung = True
				For $Rostoffe = 1 To 12
					$Read = $HolzRead & "|" & $EisenRead & "|" & $NahrungRead & "|" & $LehmRead & "|" & $SteinRead & "|" & $GetreideRead & "|" & $WerkzeugRead & "|" & $KohleRead & "|" & $WolleRead & "|" & $GoldRead & "|" & $MamorRead & "|" & $BurgerRead
					If $BauArt = "Haus" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenHaus, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenHaus, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenHaus, '|')
						EndIf
					ElseIf $BauArt = "Holzfaller" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenHolzfaller, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenHolzfaller, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenHolzfaller, '|')
						EndIf
					ElseIf $BauArt = "Muhle" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenMuhle, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenMuhle, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenMuhle, '|')
						EndIf
					ElseIf $BauArt = "Getreidefarm" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenGetreidefarm, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenGetreidefarm, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenGetreidefarm, '|')
						EndIf
					ElseIf $BauArt = "Backerrei" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenBackerrei, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenBackerrei, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenBackerrei, '|')
						EndIf
					ElseIf $BauArt = "Weberrei" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenWeberrei, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenWeberrei, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenWeberrei, '|')
						EndIf
					ElseIf $BauArt = "Lehmgrube" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenLehmgrube, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenLehmgrube, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenLehmgrube, '|')
						EndIf
					ElseIf $BauArt = "Schaffarm" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenSchaffarm, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenSchaffarm, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenSchaffarm, '|')
						EndIf
					ElseIf $BauArt = "Schmiede" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenSchmiede, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenSchmiede, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenSchmiede, '|')
						EndIf
					ElseIf $BauArt = "Speicher" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenSpeicher, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenSpeicher, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenSpeicher, '|')
						EndIf
					ElseIf $BauArt = "Steinbruch" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenSteinbruch, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenSteinbruch, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenSteinbruch, '|')
						EndIf
					ElseIf $BauArt = "Steinmetz" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenSteinmetz, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenSteinmetz, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenSteinmetz, '|')
						EndIf
					ElseIf $BauArt = "Kohlemine" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenKohlemine, '|')
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenKohlemine, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenKohlemine, '|')
						EndIf
					ElseIf $BauArt = "Erzmine" Then
						If $Welt = 1 Then
							$Kosten = StringSplit($Welt1KostenErzmine, "|")
						ElseIf $Welt = 2 Then
							$Kosten = StringSplit($Welt2KostenErzmine, '|')
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenErzmine, '|')
						EndIf
					ElseIf $BauArt = "Goldmine" Then
						If $Welt = 1 Or 2 Then
							$Kosten = StringSplit($Welt2KostenGoldmine, "|")
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenGoldmine, "|")
						EndIf
					ElseIf $BauArt = "Goldschmiede" Then
						If $Welt = 1 Or 2 Then
							$Kosten = StringSplit($Welt2KostenGoldschmiede, "|")
						ElseIf $Welt = 3 Then
							$Kosten = StringSplit($Welt3KostenGoldschmiede, "|")
						EndIf
					ElseIf $BauArt = "Mamormine" Then
						$Kosten = StringSplit($Welt3KostenMamormine, "|")
					ElseIf $BauArt = "Mamormetz" Then
						$Kosten = StringSplit($Welt3KostenMamormetz, "|")
					EndIf
					$Vorkommen = StringSplit($Read, '|')
					If $Vorkommen[$Rostoffe] - $Kosten[$Rostoffe] < 0 Then $BauGenemigung = False
				Next
				If $BauGenemigung = True Then
					$Zuortnungen = False
					For $Rostoffe = 1 To 12
						$Read = $HolzRead & "|" & $EisenRead & "|" & $NahrungRead & "|" & $LehmRead & "|" & $SteinRead & "|" & $GetreideRead & "|" & $WerkzeugRead & "|" & $KohleRead & "|" & $WolleRead & "|" & $GoldRead & "|" & $MamorRead & "|" & $BurgerRead
						If $BauArt = "Haus" Then
							If $Zuortnungen = False Then
								$BurgerMax = $BurgerMax + $Kosten[13]
								GUICtrlSetData($BurgerPFAnzahl, $BurgerMax)
								$Zuortnungen = True
							EndIf
						ElseIf $BauArt = "Holzfaller" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Holzfaller = $Welt1Holzfaller + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Holzfaller = $Welt2Holzfaller + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Holzfaller = $Welt3Holzfaller + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Erzmine" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Erzmine = $Welt1Erzmine + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt1Erzmine = $Welt2Erzmine + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt1Erzmine = $Welt3Erzmine + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Muhle" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Muhlen = $Welt1Muhlen + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Muhlen = $Welt2Muhlen + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Muhlen = $Welt3Muhlen + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Getreidefarm" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Getreidefarm = $Welt1Getreidefarm + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Getreidefarm = $Welt2Getreidefarm + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Getreidefarm = $Welt3Getreidefarm + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Backerrei" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Backerrei = $Welt1Backerrei + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Backerrei = $Welt2Backerrei + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Backerrei = $Welt3Backerrei + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Weberrei" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Weberrei = $Welt1Weberrei + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Weberrei = $Welt2Weberrei + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Weberrei = $Welt3Weberrei + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Lehmgrube" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Lehmgrube = $Welt1Lehmgrube + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Lehmgrube = $Welt2Lehmgrube + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Lehmgrube = $Welt3Lehmgrube + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Schaffarm" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Schaffarm = $Welt1Schaffarm + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Schaffarm = $Welt2Schaffarm + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Schaffarm = $Welt3Schaffarm + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Schmiede" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Schmiede = $Welt1Schmiede + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Schmiede = $Welt2Schmiede + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Schmiede = $Welt3Schmiede + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Speicher" Then
							If $Zuortnungen = False Then
								$Speicher = $Speicher + 50
								$Speicher2 = $Speicher + 100
								GUICtrlSetData($SpeicherAnzahl, $Speicher)
								GUICtrlSetData($SpeicherAnzahl2, $Speicher2)
								$Zuortnungen = True
							EndIf
						ElseIf $BauArt = "Steinbruch" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Steinbruch = $Welt1Steinbruch + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Steinbruch = $Welt2Steinbruch + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Steinbruch = $Welt3Steinbruch + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Steinmetz" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Steinmetz = $Welt1Steinmetz + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Steinmetz = $Welt2Steinmetz + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Steinmetz = $Welt3Steinmetz + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Kohlemine" Then
							If $Welt = 1 Then
								If $Zuortnungen = False Then
									$Welt1Kohlemine = $Welt1Kohlemine + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Kohlemine = $Welt2Kohlemine + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Kohlemine = $Welt3Kohlemine + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Goldmine" Then
							If $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Goldmine = $Welt2Goldmine + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Goldmine = $Welt3Goldmine + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Goldschmiede" Then
							If $Welt = 2 Then
								If $Zuortnungen = False Then
									$Welt2Goldschmiede = $Welt2Goldschmiede + 1
									$Zuortnungen = True
								EndIf
							ElseIf $Welt = 3 Then
								If $Zuortnungen = False Then
									$Welt3Goldschmiede = $Welt3Goldschmiede + 1
									$Zuortnungen = True
								EndIf
							EndIf
						ElseIf $BauArt = "Mamormine" Then
							If $Zuortnungen = False Then
								$Welt3Mamormine = $Welt3Mamormine + 1
								$Zuortnungen = True
							EndIf
						ElseIf $BauArt = "Mamormetz" Then
							If $Zuortnungen = False Then
								$Welt3Mamormetz = $Welt3Mamormetz + 1
								$Zuortnungen = True
							EndIf
						EndIf
						$Vorkommen = StringSplit($Read, '|')
						$Rechnung = $Vorkommen[$Rostoffe] - $Kosten[$Rostoffe]
						$Rechnung2 = $Rechnung / $Speicher * 100
						$Speicher2 = $Speicher + 100
						$Rechnung3 = $Rechnung / $Speicher2 * 100
						If $Rostoffe = 1 Then
							GUICtrlSetData($HolzAnzahl, $Rechnung)
							GUICtrlSetData($StatusHolz, $Rechnung2)
						ElseIf $Rostoffe = 2 Then
							GUICtrlSetData($EisenAnzahl, $Rechnung)
							GUICtrlSetData($StatusEisen, $Rechnung2)
						ElseIf $Rostoffe = 3 Then
							GUICtrlSetData($NahrungAnzahl, $Rechnung)
							GUICtrlSetData($StatusNahrung, $Rechnung3)
						ElseIf $Rostoffe = 4 Then
							GUICtrlSetData($LehmAnzahl, $Rechnung)
							GUICtrlSetData($StatusLehm, $Rechnung2)
						ElseIf $Rostoffe = 5 Then
							GUICtrlSetData($SteinAnzahl, $Rechnung)
							GUICtrlSetData($StatusStein, $Rechnung2)
						ElseIf $Rostoffe = 6 Then
							GUICtrlSetData($GetreideAnzahl, $Rechnung)
							GUICtrlSetData($StatusGetreide, $Rechnung2)
						ElseIf $Rostoffe = 7 Then
							GUICtrlSetData($WerkzeugAnzahl, $Rechnung)
							GUICtrlSetData($StatusWerkzeug, $Rechnung2)
						ElseIf $Rostoffe = 8 Then
							GUICtrlSetData($KohleAnzahl, $Rechnung)
							GUICtrlSetData($StatusKohle, $Rechnung2)
						ElseIf $Rostoffe = 9 Then
							GUICtrlSetData($WolleAnzahl, $Rechnung)
							GUICtrlSetData($StatusWolle, $Rechnung2)
						ElseIf $Rostoffe = 10 Then
							GUICtrlSetData($GoldAnzahl, $Rechnung)
							GUICtrlSetData($StatusGold, $Rechnung2)
						ElseIf $Rostoffe = 11 Then
							GUICtrlSetData($MamorAnzahl, $Rechnung)
							GUICtrlSetData($StatusMamor, $Rechnung2)
						ElseIf $Rostoffe = 12 Then
							$BurgerRead3 = GUICtrlRead($BurgerAnzahl)
							$BurgerOffRechnung = $BurgerRead2 + $Kosten[12]
							$BurgerOnRechnung2 = $BurgerRead - $Kosten[12]
							GUICtrlSetData($BurgerOffAnzahl, $BurgerOffRechnung)
							GUICtrlSetData($BurgerOnAnzahl, $BurgerOnRechnung2)
							$BurgerZahl = GUICtrlRead($BurgerAnzahl)
							$BurgerZahl2 = GUICtrlRead($BurgerOnAnzahl)
							$Formel = $BurgerZahl2 / $BurgerZahl * 100
							GUICtrlSetData($BurgerStatusOn, $Formel)
							$Formel = $BurgerZahl / $BurgerMax * 100
							GUICtrlSetData($BurgerStatus, $Formel)
						EndIf
					Next
					If $Welt = 1 Then
						_Array2DAdd($array, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
					ElseIf $Welt = 2 Then
						_Array2DAdd($array2, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
					ElseIf $Welt = 3 Then
						_Array2DAdd($array3, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
					EndIf
					GUISetState(@SW_LOCK)
					$Pic[$Zahl] = GUICtrlCreatePic($bild, $Pos[0] - 25, $Pos[1] - 25, 50, 50)
					GUICtrlSetTip(-1, $BauArt)
					$PicBau[$Zahl] = $BauArt
					$PicWelt[$Zahl] = $Welt
					GUISetState(@SW_UNLOCK)
					$Zahl += 1
				ElseIf $BauGenemigung = False Then
					ToolTip("Du hast nicht genügend Rohstoffe/Bürger!")
					$SEC = TimerInit()
					$ToolTip = True
				EndIf
				_MouseTrap()
				ExitLoop
		EndSwitch
	WEnd
EndFunc   ;==>_Bau
Func _speichern()
	#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\TDC_Speichern.kxf
	$TDC_Speichern = GUICreate("Speichern", 355, 454, $Mitte2[0], $Mitte2[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
	$List1 = GUICtrlCreateTreeView(3, 3, 349, 396)
	$Input1 = GUICtrlCreateInput("", 3, 402, 349, 21)
	$Speichern1 = GUICtrlCreateButton("Speichern", 276, 426, 75, 25, 0)
	$Abbrechen1 = GUICtrlCreateButton("Abbrechen", 201, 426, 75, 25, 0)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###
	$Funde = True
	$File = FileFindFirstFile(@ScriptDir & "\save\*.sav")
	If $File = -1 Then $Funde = False
	If $Funde = True Then
		While 1
			$suche = FileFindNextFile($File)
			If @error Then ExitLoop
			$Split = StringSplit($suche, ".")
			GUICtrlCreateTreeViewItem($Split[1], $List1)
		WEnd
	EndIf
	$Makiert = False
	While 1
		If WinActive("Speichern") = 0 Then WinActivate("Speichern")
		$Item = _GUICtrlTreeView_GetSelection($List1)
		$Text = _GUICtrlTreeView_GetText($List1, $Item)
		If $Makiert <> $Text Then
			GUICtrlSetData($Input1, $Text)
			$Makiert = $Text
		EndIf
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Abbrechen1
				GUIDelete($TDC_Speichern)
				ExitLoop
			Case $Speichern1
				$SpeicherStatus = True
				$Input1Read = GUICtrlRead($Input1)
				$SpeicherFile = @ScriptDir & "\save\" & $Input1Read & ".sav"
				$FileExists = FileExists($SpeicherFile)
				If $FileExists = 1 Then
					$MSG = MsgBox(48 + 4, "Speichern", "Dieser Name Existiert schon, möchten sie den Spielstand überschreiben?")
					If $MSG = 6 Then
						FileDelete($SpeicherFile)
						$SpeicherStatus = True
					ElseIf $MSG = 7 Then
						$SpeicherStatus = False
					EndIf
				EndIf
				If $SpeicherStatus = True Then
					GUIDelete($TDC_Speichern)
					For $2 = 0 To $Zahl
						If $2 >= $Zahl Then ExitLoop
						$Pos = ControlGetPos($MC, '', $Pic[$2])
						IniWrite($SpeicherFile, "Bau", $2, $Pos[0] & "," & $Pos[1] & "," & $PicBau[$2] & "," & $PicWelt[$2])
					Next
					$HolzRead = GUICtrlRead($HolzAnzahl)
					$EisenRead = GUICtrlRead($EisenAnzahl)
					$NahrungRead = GUICtrlRead($NahrungAnzahl)
					$LehmRead = GUICtrlRead($LehmAnzahl)
					$SteinRead = GUICtrlRead($SteinAnzahl)
					$GetreideRead = GUICtrlRead($GetreideAnzahl)
					$WerkzeugRead = GUICtrlRead($WerkzeugAnzahl)
					$KohleRead = GUICtrlRead($KohleAnzahl)
					$WolleRead = GUICtrlRead($WolleAnzahl)
					$GoldRead = GUICtrlRead($GoldAnzahl)
					$MamorRead = GUICtrlRead($MamorAnzahl)
					$BurgerRead = GUICtrlRead($BurgerAnzahl)
					$BurgerRead2 = GUICtrlRead($BurgerOnAnzahl)
					$BurgerRead3 = GUICtrlRead($BurgerOffAnzahl)
					IniWrite($SpeicherFile, "Rohstoffe", "Holz", $HolzRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Eisen", $EisenRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Nahrung", $NahrungRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Lehm", $LehmRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Stein", $SteinRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Getreide", $GetreideRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Werkzeug", $WerkzeugRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Kohle", $KohleRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Wolle", $WolleRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Gold", $GoldRead)
					IniWrite($SpeicherFile, "Rohstoffe", "Mamor", $MamorRead)
					IniWrite($SpeicherFile, "Burger", "Burger", $BurgerRead)
					IniWrite($SpeicherFile, "Burger", "Burger2", $BurgerRead2)
					IniWrite($SpeicherFile, "Burger", "Burger3", $BurgerRead3)
					IniWrite($SpeicherFile, "Burger", "BurgerMAX", $BurgerMax)
					IniWrite($SpeicherFile, "Bau", "Zahl", $Zahl - 1)
					IniWrite($SpeicherFile, "BauZahl1", "Holzfaller", $Welt1Holzfaller)
					IniWrite($SpeicherFile, "BauZahl1", "Muhle", $Welt1Muhlen)
					IniWrite($SpeicherFile, "BauZahl1", "Getreidefarm", $Welt1Getreidefarm)
					IniWrite($SpeicherFile, "BauZahl1", "Backerrei", $Welt1Backerrei)
					IniWrite($SpeicherFile, "BauZahl1", "Weberrei", $Welt1Weberrei)
					IniWrite($SpeicherFile, "BauZahl1", "Lehmgrube", $Welt1Lehmgrube)
					IniWrite($SpeicherFile, "BauZahl1", "Schaffarm", $Welt1Schaffarm)
					IniWrite($SpeicherFile, "BauZahl1", "Schmiede", $Welt1Schmiede)
					IniWrite($SpeicherFile, "BauZahl1", "Steinbruch", $Welt1Steinbruch)
					IniWrite($SpeicherFile, "BauZahl1", "Steinmetz", $Welt1Steinmetz)
					IniWrite($SpeicherFile, "BauZahl1", "Kohlemine", $Welt1Kohlemine)
					IniWrite($SpeicherFile, "BauZahl2", "Holzfaller", $Welt2Holzfaller)
					IniWrite($SpeicherFile, "BauZahl2", "Muhle", $Welt2Muhlen)
					IniWrite($SpeicherFile, "BauZahl2", "Getreidefarm", $Welt2Getreidefarm)
					IniWrite($SpeicherFile, "BauZahl2", "Backerrei", $Welt2Backerrei)
					IniWrite($SpeicherFile, "BauZahl2", "Weberrei", $Welt2Weberrei)
					IniWrite($SpeicherFile, "BauZahl2", "Lehmgrube", $Welt2Lehmgrube)
					IniWrite($SpeicherFile, "BauZahl2", "Schaffarm", $Welt2Schaffarm)
					IniWrite($SpeicherFile, "BauZahl2", "Schmiede", $Welt2Schmiede)
					IniWrite($SpeicherFile, "BauZahl2", "Steinbruch", $Welt2Steinbruch)
					IniWrite($SpeicherFile, "BauZahl2", "Steinmetz", $Welt2Steinmetz)
					IniWrite($SpeicherFile, "BauZahl2", "Kohlemine", $Welt2Kohlemine)
					IniWrite($SpeicherFile, "BauZahl2", "Goldmine", $Welt2Goldmine)
					IniWrite($SpeicherFile, "BauZahl2", "Goldschmiede", $Welt2Goldschmiede)
					IniWrite($SpeicherFile, "BauZahl3", "Holzfaller", $Welt3Holzfaller)
					IniWrite($SpeicherFile, "BauZahl3", "Muhle", $Welt3Muhlen)
					IniWrite($SpeicherFile, "BauZahl3", "Getreidefarm", $Welt3Getreidefarm)
					IniWrite($SpeicherFile, "BauZahl3", "Backerrei", $Welt3Backerrei)
					IniWrite($SpeicherFile, "BauZahl3", "Weberrei", $Welt3Weberrei)
					IniWrite($SpeicherFile, "BauZahl3", "Lehmgrube", $Welt3Lehmgrube)
					IniWrite($SpeicherFile, "BauZahl3", "Schaffarm", $Welt3Schaffarm)
					IniWrite($SpeicherFile, "BauZahl3", "Schmiede", $Welt3Schmiede)
					IniWrite($SpeicherFile, "BauZahl3", "Steinbruch", $Welt3Steinbruch)
					IniWrite($SpeicherFile, "BauZahl3", "Steinmetz", $Welt3Steinmetz)
					IniWrite($SpeicherFile, "BauZahl3", "Kohlemine", $Welt3Kohlemine)
					IniWrite($SpeicherFile, "BauZahl3", "Goldmine", $Welt3Goldmine)
					IniWrite($SpeicherFile, "BauZahl3", "Goldschmiede", $Welt3Goldschmiede)
					IniWrite($SpeicherFile, "BauZahl3", "Mamormetz", $Welt3Mamormetz)
					IniWrite($SpeicherFile, "BauZahl3", "Mamormine", $Welt3Mamormine)
					$Verschluss = $HolzRead + $EisenRead + $NahrungRead + $LehmRead + $SteinRead + $GetreideRead + $WerkzeugRead + $KohleRead + $WolleRead + $GoldRead + $MamorRead + $BurgerRead + $BurgerRead2 + $BurgerRead3 + $Speicher + 5937
					$Verschluss2 = $Welt1Holzfaller + $Welt1Muhlen + $Welt1Getreidefarm + $Welt1Backerrei + $Welt1Weberrei + $Welt1Lehmgrube + $Welt1Schaffarm + $Welt1Schmiede + $Welt1Steinbruch + $Welt1Steinmetz + $Welt1Kohlemine + 56128
					$Verschluss3 = $Welt2Holzfaller + $Welt2Muhlen + $Welt2Getreidefarm + $Welt2Backerrei + $Welt2Weberrei + $Welt2Lehmgrube + $Welt2Schaffarm + $Welt2Schmiede + $Welt2Steinbruch + $Welt2Steinmetz + $Welt2Kohlemine + 125215
					$Verschluss4 = $Welt3Holzfaller + $Welt3Muhlen + $Welt3Getreidefarm + $Welt3Backerrei + $Welt3Weberrei + $Welt3Lehmgrube + $Welt3Schaffarm + $Welt3Schmiede + $Welt3Steinbruch + $Welt3Steinmetz + $Welt3Kohlemine + $Welt3Mamormetz + $Welt3Mamormine + $Welt3Goldmine + $Welt3Goldschmiede + 6566
					IniWrite($SpeicherFile, "Sicherung", "Ver", $Verschluss)
					IniWrite($SpeicherFile, "Sicherung", "Ver2", $Verschluss2)
					IniWrite($SpeicherFile, "Sicherung", "Ver3", $Verschluss3)
					IniWrite($SpeicherFile, "Sicherung", "Ver4", $Verschluss4)
					IniWrite($SpeicherFile, "MAX", "Spei", $Speicher)
					IniWrite($SpeicherFile, "Sontiges", "W", $WeltFrei)
					ExitLoop
				EndIf
		EndSwitch
	WEnd
EndFunc   ;==>_speichern
Func _laden()
	#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\TDC_Speichern.kxf
	$TDC_Laden = GUICreate("Laden", 355, 455, Default, Default, $WS_POPUP, $WS_EX_TOOLWINDOW)
	$List1 = GUICtrlCreateTreeView(3, 3, 349, 396)
	$Input1 = GUICtrlCreateInput("", 3, 402, 349, 21)
	$Laden1 = GUICtrlCreateButton("Laden", 276, 426, 75, 25, 0)
	$Abbrechen1 = GUICtrlCreateButton("Abbrechen", 201, 426, 75, 25, 0)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###
	$Funde = True
	$File = FileFindFirstFile(@ScriptDir & "\save\*.sav")
	If $File = -1 Then $Funde = False
	If $Funde = True Then
		While 1
			$suche = FileFindNextFile($File)
			If @error Then ExitLoop
			$Split = StringSplit($suche, ".")
			GUICtrlCreateTreeViewItem($Split[1], $List1)
		WEnd
	EndIf
	$Makiert = False
	While 1
		If WinActive("Laden") = 0 Then WinActivate("Laden")
		$Item = _GUICtrlTreeView_GetSelection($List1)
		$Text = _GUICtrlTreeView_GetText($List1, $Item)
		If $Makiert <> $Text Then
			GUICtrlSetData($Input1, $Text)
			$Makiert = $Text
		EndIf
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Abbrechen1
				GUIDelete($TDC_Laden)
				ExitLoop
			Case $Laden1
				$LadenWelt = 1
				$LadenStatus = True
				$Input1Read = GUICtrlRead($Input1)
				$LadenFile = @ScriptDir & "\save\" & $Input1Read & ".sav"
				$FileExists = FileExists($LadenFile)
				If $FileExists = 2 Then
					MsgBox(48, "Laden", "Kein Speilstand gefunden!")
					$LadenStatus = False
				EndIf
				If $LadenStatus = True Then
					GUICtrlSetState($TabSheet1, $GUI_SHOW)
					GUIDelete($TDC_Laden)
					If $Zahl > 0 Then
						GUISetState(@SW_LOCK)
						For $B = 0 To $Zahl
							If $B = $Zahl Then ExitLoop
							GUICtrlDelete($Pic[$B])
						Next
						GUISetState(@SW_UNLOCK)
					EndIf
					$SpeicherTest = IniRead($LadenFile, "MAX", "Spei", "")
					$HolzRead = IniRead($LadenFile, "Rohstoffe", "Holz", "")
					$HolzFormel = $HolzRead / $SpeicherTest * 100
					$EisenRead = IniRead($LadenFile, "Rohstoffe", "Eisen", "")
					$EisenFormel = $EisenRead * 100 / $SpeicherTest
					$NahrungRead = IniRead($LadenFile, "Rohstoffe", "Nahrung", "")
					$NahrungFormel = $NahrungRead / 100 * $SpeicherTest
					$LehmRead = IniRead($LadenFile, "Rohstoffe", "Lehm", "")
					$LehmFormel = $LehmRead * 100 / $SpeicherTest
					$SteinRead = IniRead($LadenFile, "Rohstoffe", "Stein", "")
					$SteinFormel = $SteinRead * 100 / $SpeicherTest
					$GetreideRead = IniRead($LadenFile, "Rohstoffe", "Getreide", "")
					$GetreideFormel = $GetreideRead * 100 / $SpeicherTest
					$WerkzeugRead = IniRead($LadenFile, "Rohstoffe", "Werkzeug", "")
					$WerkzeugFormel = $WerkzeugRead * 100 / $SpeicherTest
					$KohleRead = IniRead($LadenFile, "Rohstoffe", "Kohle", "")
					$KohleFormel = $KohleRead * 100 / $SpeicherTest
					$WolleRead = IniRead($LadenFile, "Rohstoffe", "Wolle", "")
					$WolleFormel = $WolleRead * 100 / $SpeicherTest
					$GoldRead = IniRead($LadenFile, "Rohstoffe", "Gold", "")
					$GoldFormel = $GoldRead * 100 / $SpeicherTest
					$MamorRead = IniRead($LadenFile, "Rohstoffe", "Mamor", "")
					$MamorFormel = $MamorRead * 100 / $SpeicherTest
					$BurgerRead = IniRead($LadenFile, "Burger", "Burger", "")
					$BurgerRead2 = IniRead($LadenFile, "Burger", "Burger2", "")
					$BurgerRead3 = IniRead($LadenFile, "Burger", "Burger3", "")
					$WeltFrei = IniRead($LadenFile, "Sontiges", "W", "")
					$Welt1HolzfallerTest = IniRead($LadenFile, "BauZahl1", "Holzfaller", "")
					$Welt1MuhlenTest = IniRead($LadenFile, "BauZahl1", "Muhle", "")
					$Welt1GetreidefarmTest = IniRead($LadenFile, "BauZahl1", "Getreidefarm", "")
					$Welt1BackerreiTest = IniRead($LadenFile, "BauZahl1", "Backerrei", "")
					$Welt1WeberreiTest = IniRead($LadenFile, "BauZahl1", "Weberrei", "")
					$Welt1LehmgrubeTest = IniRead($LadenFile, "BauZahl1", "Lehmgrube", "")
					$Welt1SchaffarmTest = IniRead($LadenFile, "BauZahl1", "Schaffarm", "")
					$Welt1SchmiedeTest = IniRead($LadenFile, "BauZahl1", "Schmiede", "")
					$Welt1SteinbruchTest = IniRead($LadenFile, "BauZahl1", "Steinbruch", "")
					$Welt1SteinmetzTest = IniRead($LadenFile, "BauZahl1", "Steinmetz", "")
					$Welt1KohlemineTest = IniRead($LadenFile, "BauZahl1", "Kohlemine", "")
					$Welt2HolzfallerTest = IniRead($LadenFile, "BauZahl2", "Holzfaller", "")
					$Welt2MuhlenTest = IniRead($LadenFile, "BauZahl2", "Muhle", "")
					$Welt2GetreidefarmTest = IniRead($LadenFile, "BauZahl2", "Getreidefarm", "")
					$Welt2BackerreiTest = IniRead($LadenFile, "BauZahl2", "Backerrei", "")
					$Welt2WeberreiTest = IniRead($LadenFile, "BauZahl2", "Weberrei", "")
					$Welt2LehmgrubeTest = IniRead($LadenFile, "BauZahl2", "Lehmgrube", "")
					$Welt2SchaffarmTest = IniRead($LadenFile, "BauZahl2", "Schaffarm", "")
					$Welt2SchmiedeTest = IniRead($LadenFile, "BauZahl2", "Schmiede", "")
					$Welt2SteinbruchTest = IniRead($LadenFile, "BauZahl2", "Steinbruch", "")
					$Welt2SteinmetzTest = IniRead($LadenFile, "BauZahl2", "Steinmetz", "")
					$Welt2KohlemineTest = IniRead($LadenFile, "BauZahl2", "Kohlemine", "")
					$Welt3HolzfallerTest = IniRead($LadenFile, "BauZahl3", "Holzfaller", "")
					$Welt3MuhlenTest = IniRead($LadenFile, "BauZahl3", "Muhle", "")
					$Welt3GetreidefarmTest = IniRead($LadenFile, "BauZahl3", "Getreidefarm", "")
					$Welt3BackerreiTest = IniRead($LadenFile, "BauZahl3", "Backerrei", "")
					$Welt3WeberreiTest = IniRead($LadenFile, "BauZahl3", "Weberrei", "")
					$Welt3LehmgrubeTest = IniRead($LadenFile, "BauZahl3", "Lehmgrube", "")
					$Welt3SchaffarmTest = IniRead($LadenFile, "BauZahl3", "Schaffarm", "")
					$Welt3SchmiedeTest = IniRead($LadenFile, "BauZahl3", "Schmiede", "")
					$Welt3SteinbruchTest = IniRead($LadenFile, "BauZahl3", "Steinbruch", "")
					$Welt3SteinmetzTest = IniRead($LadenFile, "BauZahl3", "Steinmetz", "")
					$Welt3KohlemineTest = IniRead($LadenFile, "BauZahl3", "Kohlemine", "")
					$Welt3GoldmineTest = IniRead($LadenFile, "BauZahl3", "Goldmine", "")
					$Welt3GoldschmiedeTest = IniRead($LadenFile, "BauZahl3", "Goldschmiede", "")
					$Welt3MamormetzTest = IniRead($LadenFile, "BauZahl3", "Mamormetz", "")
					$Welt3MamormineTest = IniRead($LadenFile, "BauZahl3", "Mamormine", "")
					$Entschluss = $HolzRead + $EisenRead + $NahrungRead + $LehmRead + $SteinRead + $GetreideRead + $WerkzeugRead + $KohleRead + $WolleRead + $GoldRead + $MamorRead + $BurgerRead + $BurgerRead2 + $BurgerRead3 + $SpeicherTest + 5937
					$Entschluss2 = $Welt1HolzfallerTest + $Welt1MuhlenTest + $Welt1GetreidefarmTest + $Welt1BackerreiTest + $Welt1WeberreiTest + $Welt1LehmgrubeTest + $Welt1SchaffarmTest + $Welt1SchmiedeTest + $Welt1SteinbruchTest + $Welt1SteinmetzTest + $Welt1KohlemineTest + 56128
					$Entschluss3 = $Welt2HolzfallerTest + $Welt2MuhlenTest + $Welt2GetreidefarmTest + $Welt2BackerreiTest + $Welt2WeberreiTest + $Welt2LehmgrubeTest + $Welt2SchaffarmTest + $Welt2SchmiedeTest + $Welt2SteinbruchTest + $Welt2SteinmetzTest + $Welt2KohlemineTest + 125215
					$Entschluss4 = $Welt3HolzfallerTest + $Welt3MuhlenTest + $Welt3GetreidefarmTest + $Welt3BackerreiTest + $Welt3WeberreiTest + $Welt3LehmgrubeTest + $Welt3SchaffarmTest + $Welt3SchmiedeTest + $Welt3SteinbruchTest + $Welt3SteinmetzTest + $Welt3KohlemineTest + $Welt3MamormetzTest + $Welt3MamormineTest + $Welt3GoldmineTest + $Welt3GoldschmiedeTest + 6566
					$EntschlussTest = IniRead($LadenFile, "Sicherung", "Ver", "")
					$Entschluss2Test = IniRead($LadenFile, "Sicherung", "Ver2", "")
					$Entschluss3Test = IniRead($LadenFile, "Sicherung", "Ver3", "")
					$Entschluss4Test = IniRead($LadenFile, "Sicherung", "Ver4", "")
;~ 					If $EntschlussTest = $Entschluss Then
;~ 						If $Entschluss2Test = $Entschluss2 Then
;~ 							If $Entschluss3Test = $Entschluss3 Then
;~ 								If $Entschluss4Test = $Entschluss4 Then
									$Speicher = IniRead($LadenFile, "MAX", "Spei", "100")
									$Speicher2 = $Speicher + 100
									GUICtrlSetData($SpeicherAnzahl, $Speicher)
									GUICtrlSetData($SpeicherAnzahl2, $Speicher2)
									$BurgerMax = IniRead($LadenFile, "Burger", "BurgerMAX", "")
									$BurgerFormel = $BurgerRead * 100 / $BurgerMax
									$Zahl = IniRead($LadenFile, "Bau", "Zahl", "0")
									Dim $array[1][4]
									Dim $Pic[10000]
									Dim $PicBau[10000]
									Dim $array2[1][4]
									Dim $array3[1][4]
									$Welt = 1
									$cordx = -25
									$cordy = -25
									GUICtrlSetData($HolzAnzahl, $HolzRead)
									GUICtrlSetData($StatusHolz, $HolzFormel)
									GUICtrlSetData($EisenAnzahl, $EisenRead)
									GUICtrlSetData($StatusEisen, $EisenFormel)
									GUICtrlSetData($NahrungAnzahl, $NahrungRead)
									GUICtrlSetData($StatusNahrung, $NahrungFormel)
									GUICtrlSetData($LehmAnzahl, $LehmRead)
									GUICtrlSetData($StatusLehm, $LehmFormel)
									GUICtrlSetData($SteinAnzahl, $SteinRead)
									GUICtrlSetData($StatusStein, $SteinFormel)
									GUICtrlSetData($GetreideAnzahl, $GetreideRead)
									GUICtrlSetData($StatusGetreide, $GetreideFormel)
									GUICtrlSetData($WerkzeugAnzahl, $WerkzeugRead)
									GUICtrlSetData($StatusWerkzeug, $WerkzeugFormel)
									GUICtrlSetData($KohleAnzahl, $KohleRead)
									GUICtrlSetData($StatusHolz, $KohleFormel)
									GUICtrlSetData($WolleAnzahl, $WolleRead)
									GUICtrlSetData($StatusWolle, $WolleFormel)
									GUICtrlSetData($GoldAnzahl, $GoldRead)
									GUICtrlSetData($StatusGold, $GoldFormel)
									GUICtrlSetData($MamorAnzahl, $MamorRead)
									GUICtrlSetData($StatusMamor, $MamorFormel)
									GUICtrlSetData($BurgerAnzahl, $BurgerRead)
									GUICtrlSetData($BurgerStatus, $BurgerFormel)
									GUICtrlSetData($BurgerPFAnzahl, $BurgerMax)
									GUICtrlSetData($BurgerOnAnzahl, $BurgerRead2)
									$BurgerFormel2 = $BurgerRead2 / $BurgerRead * 100
									GUICtrlSetData($BurgerStatusOn, $BurgerFormel2)
									GUICtrlSetData($BurgerOffAnzahl, $BurgerRead3)
									$Welt1Holzfaller = IniRead($LadenFile, "BauZahl1", "Holzfaller", "")
									$Welt1Muhlen = IniRead($LadenFile, "BauZahl1", "Muhle", "")
									$Welt1Getreidefarm = IniRead($LadenFile, "BauZahl1", "Getreidefarm", "")
									$Welt1Backerrei = IniRead($LadenFile, "BauZahl1", "Backerrei", "")
									$Welt1Weberrei = IniRead($LadenFile, "BauZahl1", "Weberrei", "")
									$Welt1Lehmgrube = IniRead($LadenFile, "BauZahl1", "Lehmgrube", "")
									$Welt1Schaffarm = IniRead($LadenFile, "BauZahl1", "Schaffarm", "")
									$Welt1Schmiede = IniRead($LadenFile, "BauZahl1", "Schmiede", "")
									$Welt1Steinbruch = IniRead($LadenFile, "BauZahl1", "Steinbruch", "")
									$Welt1Steinmetz = IniRead($LadenFile, "BauZahl1", "Steinmetz", "")
									$Welt1Kohlemine = IniRead($LadenFile, "BauZahl1", "Kohlemine", "")
									$Welt2Holzfaller = IniRead($LadenFile, "BauZahl2", "Holzfaller", "")
									$Welt2Muhlen = IniRead($LadenFile, "BauZahl2", "Muhle", "")
									$Welt2Getreidefarm = IniRead($LadenFile, "BauZahl2", "Getreidefarm", "")
									$Welt2Backerrei = IniRead($LadenFile, "BauZahl2", "Backerrei", "")
									$Welt2Weberrei = IniRead($LadenFile, "BauZahl2", "Weberrei", "")
									$Welt2Lehmgrube = IniRead($LadenFile, "BauZahl2", "Lehmgrube", "")
									$Welt2Schaffarm = IniRead($LadenFile, "BauZahl2", "Schaffarm", "")
									$Welt2Schmiede = IniRead($LadenFile, "BauZahl2", "Schmiede", "")
									$Welt2Steinbruch = IniRead($LadenFile, "BauZahl2", "Steinbruch", "")
									$Welt2Steinmetz = IniRead($LadenFile, "BauZahl2", "Steinmetz", "")
									$Welt2Kohlemine = IniRead($LadenFile, "BauZahl2", "Kohlemine", "")
									$Welt3Holzfaller = IniRead($LadenFile, "BauZahl3", "Holzfaller", "")
									$Welt3Muhlen = IniRead($LadenFile, "BauZahl3", "Muhle", "")
									$Welt3Getreidefarm = IniRead($LadenFile, "BauZahl3", "Getreidefarm", "")
									$Welt3Backerrei = IniRead($LadenFile, "BauZahl3", "Backerrei", "")
									$Welt3Weberrei = IniRead($LadenFile, "BauZahl3", "Weberrei", "")
									$Welt3Lehmgrube = IniRead($LadenFile, "BauZahl3", "Lehmgrube", "")
									$Welt3Schaffarm = IniRead($LadenFile, "BauZahl3", "Schaffarm", "")
									$Welt3Schmiede = IniRead($LadenFile, "BauZahl3", "Schmiede", "")
									$Welt3Steinbruch = IniRead($LadenFile, "BauZahl3", "Steinbruch", "")
									$Welt3Steinmetz = IniRead($LadenFile, "BauZahl3", "Steinmetz", "")
									$Welt3Kohlemine = IniRead($LadenFile, "BauZahl3", "Kohlemine", "")
									$breite_bild = 52
									$hoehe_bild = 52
									GUISetState(@SW_LOCK)
									For $3 = 0 To $Zahl
										$LadenPos = IniRead($LadenFile, "Bau", $3, "")
										$Pos = StringSplit($LadenPos, ",")
										$Pic[$3] = GUICtrlCreatePic(@ScriptDir & "\Build\World" & $Pos[4] & "\" & $Pos[3] & ".jpg", $Pos[1], $Pos[2], 50, 50)
										$PicBau[$3] = $Pos[3]
										$PicWelt[$3] = $Pos[4]
										ConsoleWrite($Pos[4] & @CRLF)
										$Zahl = $Zahl + 1
										If $PicWelt[$3] = 1 Then
											_Array2DAdd($array, $Pos[1] + 26 & "|" & $Pos[2] + 26  & "|" & $breite_bild & "|" & $hoehe_bild)
										ElseIf $PicWelt[$3] = 2 Then
											_Array2DAdd($array2, $Pos[1] + 26 & "|" & $Pos[2] + 26  & "|" & $breite_bild & "|" & $hoehe_bild)
											GUICtrlSetState($Welt2, $GUI_SHOW)
										ElseIf $PicWelt[$3] = 3 Then
											_Array2DAdd($array3, $Pos[1] + 26  & "|" & $Pos[2] + 26  & "|" & $breite_bild & "|" & $hoehe_bild)
											GUICtrlSetState($Welt3, $GUI_SHOW)
										EndIf
									Next
									GUISetState(@SW_UNLOCK)
									ExitLoop
;~ 								Else
;~ 									MsgBox(16, "Error", "Dies ist kein Gültiger Spielstand!")
;~ 									ExitLoop
;~ 								EndIf
;~ 							Else
;~ 								MsgBox(16, "Error", "Dies ist kein Gültiger Spielstand!")
;~ 								ExitLoop
;~ 							EndIf
;~ 						Else
;~ 							MsgBox(16, "Error", "Dies ist kein Gültiger Spielstand!")
;~ 							ExitLoop
;~ 						EndIf
;~ 					Else
;~ 						MsgBox(16, "Error", "Dies ist kein Gültiger Spielstand!")
;~ 						ExitLoop
;~ 					EndIf
				EndIf
		EndSwitch
	WEnd
EndFunc   ;==>_laden
Func _Rohstoffberechnung($BauArt)
	If $BauArt = "Haus" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenHaus, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenHaus, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenHaus, '|')
		EndIf
	ElseIf $BauArt = "Holzfaller" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenHolzfaller, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenHolzfaller, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenHolzfaller, '|')
		EndIf
	ElseIf $BauArt = "Muhle" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenMuhle, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenMuhle, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenMuhle, '|')
		EndIf
	ElseIf $BauArt = "Getreidefarm" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenGetreidefarm, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenGetreidefarm, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenGetreidefarm, '|')
		EndIf
	ElseIf $BauArt = "Backerrei" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenBackerrei, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenBackerrei, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenBackerrei, '|')
		EndIf
	ElseIf $BauArt = "Weberrei" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenWeberrei, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenWeberrei, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenWeberrei, '|')
		EndIf
	ElseIf $BauArt = "Lehmgrube" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenLehmgrube, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenLehmgrube, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenLehmgrube, '|')
		EndIf
	ElseIf $BauArt = "Schaffarm" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenSchaffarm, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenSchaffarm, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenSchaffarm, '|')
		EndIf
	ElseIf $BauArt = "Schmiede" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenSchmiede, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenSchmiede, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenSchmiede, '|')
		EndIf
	ElseIf $BauArt = "Speicher" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenSpeicher, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenSpeicher, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenSpeicher, '|')
		EndIf
	ElseIf $BauArt = "Steinbruch" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenSteinbruch, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenSteinbruch, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenSteinbruch, '|')
		EndIf
	ElseIf $BauArt = "Steinmetz" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenSteinmetz, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenSteinmetz, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenSteinmetz, '|')
		EndIf
	ElseIf $BauArt = "Kohlemine" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenKohlemine, '|')
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenKohlemine, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenKohlemine, '|')
		EndIf
	ElseIf $BauArt = "Erzmine" Then
		If $Welt = 1 Then
			$Kosten = StringSplit($Welt1KostenErzmine, "|")
		ElseIf $Welt = 2 Then
			$Kosten = StringSplit($Welt2KostenErzmine, '|')
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenErzmine, '|')
		EndIf
	ElseIf $BauArt = "Goldmine" Then
		If $Welt = 1 Or 2 Then
			$Kosten = StringSplit($Welt2KostenGoldmine, "|")
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenGoldmine, "|")
		EndIf
	ElseIf $BauArt = "Goldschmiede" Then
		If $Welt = 1 Or 2 Then
			$Kosten = StringSplit($Welt2KostenGoldschmiede, "|")
		ElseIf $Welt = 3 Then
			$Kosten = StringSplit($Welt3KostenGoldschmiede, "|")
		EndIf
	ElseIf $BauArt = "Marmormine" Then
		$Kosten = StringSplit($Welt3KostenMamormine, "|")
	ElseIf $BauArt = "Marmormetz" Then
		$Kosten = StringSplit($Welt3KostenMamormetz, "|")
	EndIf
	$Text = $BauArt
	For $4 = 0 To 13
		If $Kosten[$4] <> 0 Then
			If $4 > 0 Then
				$Text = $Text & @CRLF & $Zuortnung1[$4] & ": " & $Kosten[$4]
			EndIf
		EndIf
	Next
	If $Kosten[14] <> "0" Then
		$Text = $Text & @CRLF & $Kosten[14]
	EndIf
EndFunc   ;==>_Rohstoffberechnung
Func _VB()
	If $VB = False Then
		WinMove($MC, "", -2, -29)
		_ChangeScreenRes(1024, 768)
		$VB = True
		GUICtrlSetData($VollBild, "Fenstermodus")
	ElseIf $VB = True Then
		_ChangeScreenRes($iWidthAlt, $iHeightAlt)
		WinMove($MC, "", $Mitte1[0], $Mitte1[1])
		$VB = False
		GUICtrlSetData($VollBild, "Vollbildschirm")
	EndIf
EndFunc   ;==>_VB
Func _WW($WeltZahl)
	If $WeltZahl <> $Welt Then
		GUISetState(@SW_LOCK)
		If $WeltZahl = 1 Then
			For $C = 0 To $Zahl
				If $PicWelt[$C] = "2" Then
					GUICtrlSetState($Pic[$C], $GUI_HIDE)
				ElseIf $PicWelt[$C] = "3" Then
					GUICtrlSetState($Pic[$C], $GUI_HIDE)
				ElseIf $PicWelt[$C] = "1" Then
					GUICtrlSetState($Pic[$C], $GUI_SHOW)
				EndIf
			Next
			$Welt = 1
			GUICtrlSetState($BauGoldmine, $GUI_HIDE)
			GUICtrlSetState($BauGoldschmiede, $GUI_HIDE)
			GUICtrlSetState($BauMamormetz, $GUI_HIDE)
			GUICtrlSetState($BauMamormine, $GUI_HIDE)
		ElseIf $WeltZahl = 2 Then
			For $C = 0 To $Zahl
				If $PicWelt[$C] = "1" Then
					GUICtrlSetState($Pic[$C], $GUI_HIDE)
				ElseIf $PicWelt[$C] = "3" Then
					GUICtrlSetState($Pic[$C], $GUI_HIDE)
				ElseIf $PicWelt[$C] = "2" Then
					GUICtrlSetState($Pic[$C], $GUI_SHOW)
				EndIf
			Next
			$Welt = 2
			GUICtrlSetState($BauGoldmine, $GUI_SHOW)
			GUICtrlSetState($BauGoldschmiede, $GUI_SHOW)
			GUICtrlSetState($BauMamormetz, $GUI_HIDE)
			GUICtrlSetState($BauMamormine, $GUI_HIDE)
		ElseIf $WeltZahl = 3 Then
			For $C = 0 To $Zahl
				If $PicWelt[$C] = "1" Then
					GUICtrlSetState($Pic[$C], $GUI_HIDE)
				ElseIf $PicWelt[$C] = "2" Then
					GUICtrlSetState($Pic[$C], $GUI_HIDE)
				ElseIf $PicWelt[$C] = "3" Then
					GUICtrlSetState($Pic[$C], $GUI_SHOW)
				EndIf
			Next
			GUICtrlSetState($BauGoldmine, $GUI_SHOW)
			GUICtrlSetState($BauGoldschmiede, $GUI_SHOW)
			GUICtrlSetState($BauMamormetz, $GUI_SHOW)
			GUICtrlSetState($BauMamormine, $GUI_SHOW)
			$Welt = 3
		EndIf
		GUICtrlSetImage($BauHaus, @ScriptDir & "\Build\World" & $Welt & "\Button\Haus.bmp")
		GUICtrlSetImage($BauHolzfaller, @ScriptDir & "\Build\World" & $Welt & "\Button\Holzfaller.bmp")
		GUICtrlSetImage($BauMuhle, @ScriptDir & "\Build\World" & $Welt & "\Button\Muhle.bmp")
		GUICtrlSetImage($BauGetreidefarm, @ScriptDir & "\Build\World" & $Welt & "\Button\Getreidefarm.bmp")
		GUICtrlSetImage($BauBackerrei, @ScriptDir & "\Build\World" & $Welt & "\Button\Backerrei.bmp")
		GUICtrlSetImage($BauLehmgrube, @ScriptDir & "\Build\World" & $Welt & "\Button\Lehmgrube.bmp")
		GUICtrlSetImage($BauWeberrei, @ScriptDir & "\Build\World" & $Welt & "\Button\Weberrei.bmp")
		GUICtrlSetImage($BauSchaffarm, @ScriptDir & "\Build\World" & $Welt & "\Button\Schaffarm.bmp")
		GUICtrlSetImage($BauSchmiede, @ScriptDir & "\Build\World" & $Welt & "\Button\Schmiede.bmp")
		GUICtrlSetImage($BauErzmine, @ScriptDir & "\Build\World" & $Welt & "\Button\Erzmine.bmp")
		GUICtrlSetImage($BauSteinmetz, @ScriptDir & "\Build\World" & $Welt & "\Button\Steinmetz.bmp")
		GUICtrlSetImage($BauSteinbruch, @ScriptDir & "\Build\World" & $Welt & "\Button\Steinbruch.bmp")
		GUICtrlSetImage($BauGoldmine, @ScriptDir & "\Build\World" & $Welt & "\Button\Goldmine.bmp")
		GUICtrlSetImage($BauGoldschmiede, @ScriptDir & "\Build\World" & $Welt & "\Button\Goldschmiede.bmp")
		GUICtrlSetImage($BauMamormine, @ScriptDir & "\Build\World" & $Welt & "\Button\Mamormine.bmp")
		GUICtrlSetImage($BauMamormetz, @ScriptDir & "\Build\World" & $Welt & "\Button\Mamormetz.bmp")
		GUICtrlSetImage($BauKohlemine, @ScriptDir & "\Build\World" & $Welt & "\Button\Kohlemine.bmp")
		GUICtrlSetImage($BauSpeicher, @ScriptDir & "\Build\World" & $Welt & "\Button\Speicher.bmp")
		GUICtrlSetImage($Pic1, @ScriptDir & "\Build\World" & $Welt & "\Hintergrund.jpg")
		GUISetState(@SW_UNLOCK)
		_Rohstoffberechnung("Haus")
		GUICtrlSetTip($BauHaus, $Text)
		_Rohstoffberechnung("Holzfaller")
		GUICtrlSetTip($BauHolzfaller, $Text)
		_Rohstoffberechnung("Erzmine")
		GUICtrlSetTip($BauErzmine, $Text)
		_Rohstoffberechnung("Weberrei")
		GUICtrlSetTip($BauWeberrei, $Text)
		_Rohstoffberechnung("Getreidefarm")
		GUICtrlSetTip($BauGetreidefarm, $Text)
		_Rohstoffberechnung("Muhle")
		GUICtrlSetTip($BauMuhle, $Text)
		_Rohstoffberechnung("Speicher")
		GUICtrlSetTip($BauSpeicher, $Text)
		_Rohstoffberechnung("Schaffarm")
		GUICtrlSetTip($BauSchaffarm, $Text)
		_Rohstoffberechnung("Steinbruch")
		GUICtrlSetTip($BauSteinbruch, $Text)
		_Rohstoffberechnung("Steinmetz")
		GUICtrlSetTip($BauSteinmetz, $Text)
		_Rohstoffberechnung("Goldmine")
		GUICtrlSetTip($BauGoldmine, $Text)
		_Rohstoffberechnung("Goldschmiede")
		GUICtrlSetTip($BauGoldschmiede, $Text)
		_Rohstoffberechnung("Marmormine")
		GUICtrlSetTip($BauMamormine, $Text)
		_Rohstoffberechnung("Marmormetz")
		GUICtrlSetTip($BauMamormetz, $Text)
	EndIf
EndFunc   ;==>_WW
Func _Unlock()
	$Bild0 = "NewWorld"
	#Region ### START Koda GUI section ### Form=
	$NewWorld = GUICreate("Neue Welt Freigeschaltet!", 800, 600)
	If  $WeltFrei = 3 Then $Bild0 = "Winner"
	GUICtrlCreatePic(@ScriptDir & "\Build\Start\" & $Bild0 & ".jpg", 0, 0, 800, 600, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS, $WS_DISABLED))
	$Weiter = GUICtrlCreateButton("Weiter", 717, 572, 80)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###

	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE, $Weiter
				GUIDelete($NewWorld)
				ExitLoop
		EndSwitch
	WEnd
	If $WeltFrei = 1 Then
		$WeltFrei = 2
		GUICtrlSetState($Welt2, $GUI_SHOW)
	ElseIf $WeltFrei = 2 Then
		$WeltFrei = 3
		GUICtrlSetState($Welt3, $GUI_SHOW)
	ElseIf $WeltFrei = 3 Then
		$WeltFrei = 4
	EndIf
	_SpielInfo()
EndFunc   ;==>_Unlock
;===============================================================================
;
; Function Name:    _ChangeScreenRes()
; Description:      Changes the current screen geometry, colour and refresh rate.
; Version:          1.0.0.1
; Parameter(s):     $i_Width - Width of the desktop screen in pixels. (horizontal resolution)
;                   $i_Height - Height of the desktop screen in pixels. (vertical resolution)
;					$i_BitsPP - Depth of the desktop screen in bits per pixel.
;					$i_RefreshRate - Refresh rate of the desktop screen in hertz.
; Requirement(s):   AutoIt Beta > 3.1
; Return Value(s):  On Success - Screen is adjusted, @ERROR = 0
;                   On Failure - sets @ERROR = 1
; Forum(s):         http://www.autoitscript.com/forum/index.php?showtopic=20121
; Author(s):        Original code - psandu.ro
;                   Modifications - PartyPooper
;
;===============================================================================
Func _ChangeScreenRes($i_Width = @DesktopWidth, $i_Height = @DesktopHeight, $i_BitsPP = @DesktopDepth, $i_RefreshRate = @DesktopRefresh)
	Local Const $DM_PELSWIDTH = 0x00080000
	Local Const $DM_PELSHEIGHT = 0x00100000
	Local Const $DM_BITSPERPEL = 0x00040000
	Local Const $DM_DISPLAYFREQUENCY = 0x00400000
	Local Const $CDS_TEST = 0x00000002
	Local Const $CDS_UPDATEREGISTRY = 0x00000001
	Local Const $DISP_CHANGE_RESTART = 1
	Local Const $DISP_CHANGE_SUCCESSFUL = 0
	Local Const $HWND_BROADCAST = 0xffff
	Local Const $WM_DISPLAYCHANGE = 0x007E
	If $i_Width = "" Or $i_Width = -1 Then $i_Width = @DesktopWidth ; default to current setting
	If $i_Height = "" Or $i_Height = -1 Then $i_Height = @DesktopHeight ; default to current setting
	If $i_BitsPP = "" Or $i_BitsPP = -1 Then $i_BitsPP = @DesktopDepth ; default to current setting
	If $i_RefreshRate = "" Or $i_RefreshRate = -1 Then $i_RefreshRate = @DesktopRefresh ; default to current setting
	Local $DEVMODE = DllStructCreate("byte[32];int[10];byte[32];int[6]")
	Local $B = DllCall("user32.dll", "int", "EnumDisplaySettings", "ptr", 0, "long", 0, "ptr", DllStructGetPtr($DEVMODE))
	If @error Then
		$B = 0
		SetError(1)
		Return $B
	Else
		$B = $B[0]
	EndIf
	If $B <> 0 Then
		DllStructSetData($DEVMODE, 2, BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_BITSPERPEL, $DM_DISPLAYFREQUENCY), 5)
		DllStructSetData($DEVMODE, 4, $i_Width, 2)
		DllStructSetData($DEVMODE, 4, $i_Height, 3)
		DllStructSetData($DEVMODE, 4, $i_BitsPP, 1)
		DllStructSetData($DEVMODE, 4, $i_RefreshRate, 5)
		$B = DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DllStructGetPtr($DEVMODE), "int", $CDS_TEST)
		If @error Then
			$B = -1
		Else
			$B = $B[0]
		EndIf
		Select
			Case $B = $DISP_CHANGE_RESTART
				$DEVMODE = ""
				Return 2
			Case $B = $DISP_CHANGE_SUCCESSFUL
				DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DllStructGetPtr($DEVMODE), "int", $CDS_UPDATEREGISTRY)
				DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_DISPLAYCHANGE, _
						"int", $i_BitsPP, "int", $i_Height * 2 ^ 16 + $i_Width)
				$DEVMODE = ""
				Return 1
			Case Else
				$DEVMODE = ""
				SetError(1)
				Return $B
		EndSelect
	EndIf
EndFunc ;==>_ChangeScreenRes
Func _Verloren($Text)
	MsgBox (16,"Looser",$Text)
	_New()
EndFunc
Func _New()
	If $Zahl > 0 Then
		GUISetState(@SW_LOCK)
		For $B = 0 To $Zahl
			If $B = $Zahl Then ExitLoop
			GUICtrlDelete($Pic[$B])
		Next
		GUISetState(@SW_UNLOCK)
	EndIf
	$Welt = 1
	$Text = ""
	$Speicher = 100
	$Speicher2 = 200
	Dim $array[1][4]
	Dim $array2[1][4]
	Dim $array3[1][4]
	Dim $Pic[10000]
	Dim $PicBau[10000]
	Dim $PicWelt[10000]
	$Zahl = 0
	$WeltFrei = 1
	$cordx = -25
	$cordy = -25
	$BurgerMax = 0
	;~ Gebaute Gebeude
	;~ Welt1
	$Welt1Holzfaller = 0
	$Welt1Muhlen = 0
	$Welt1Getreidefarm = 0
	$Welt1Backerrei = 0
	$Welt1Weberrei = 0
	$Welt1Lehmgrube = 0
	$Welt1Schaffarm = 0
	$Welt1Schmiede = 0
	$Welt1Steinbruch = 0
	$Welt1Steinmetz = 0
	$Welt1Kohlemine = 0
	$Welt1Erzmine = 0
	;~ Ende Welt1
	;~ Welt2
	$Welt2Holzfaller = 0
	$Welt2Muhlen = 0
	$Welt2Getreidefarm = 0
	$Welt2Backerrei = 0
	$Welt2Weberrei = 0
	$Welt2Lehmgrube = 0
	$Welt2Schaffarm = 0
	$Welt2Schmiede = 0
	$Welt2Steinbruch = 0
	$Welt2Steinmetz = 0
	$Welt2Kohlemine = 0
	$Welt2Erzmine = 0
	$Welt2Goldmine = 0
	$Welt2Goldschmiede = 0
	;~ Ende Welt2
	;~ Welt3
	$Welt3Holzfaller = 0
	$Welt3Muhlen = 0
	$Welt3Getreidefarm = 0
	$Welt3Backerrei = 0
	$Welt3Weberrei = 0
	$Welt3Lehmgrube = 0
	$Welt3Schaffarm = 0
	$Welt3Schmiede = 0
	$Welt3Steinbruch = 0
	$Welt3Steinmetz = 0
	$Welt3Kohlemine = 0
	$Welt3Erzmine = 0
	$Welt3Goldmine = 0
	$Welt3Goldschmiede = 0
	$Welt3Mamormine = 0
	$Welt3Mamormetz = 0
	;~ Ende Welt3
	;~ Ende Gebaute Gebeude
	$MIN = @MIN
	$SEC = TimerInit()
	$SEC1 = TimerInit()
	$SEC2 = TimerInit()
	$ActiveOld = 1
	Dim $array[1][4]
	Dim $Pic[10000]
	Dim $PicBau[10000]
	$Welt = 1
	$cordx = -25
	$cordy = -25
	GUICtrlSetData($HolzAnzahl, 100)
	GUICtrlSetData($StatusHolz, 100)
	GUICtrlSetData($EisenAnzahl, 100)
	GUICtrlSetData($StatusEisen, 100)
	GUICtrlSetData($NahrungAnzahl, 200)
	GUICtrlSetData($StatusNahrung, 100)
	GUICtrlSetData($LehmAnzahl, 100)
	GUICtrlSetData($StatusLehm, 100)
	GUICtrlSetData($SteinAnzahl, 100)
	GUICtrlSetData($StatusStein, 100)
	GUICtrlSetData($GetreideAnzahl, 100)
	GUICtrlSetData($StatusGetreide, 100)
	GUICtrlSetData($WerkzeugAnzahl, 100)
	GUICtrlSetData($StatusWerkzeug, 100)
	GUICtrlSetData($KohleAnzahl, 100)
	GUICtrlSetData($StatusHolz, 100)
	GUICtrlSetData($WolleAnzahl, 100)
	GUICtrlSetData($StatusWolle, 100)
	GUICtrlSetData($GoldAnzahl, 0)
	GUICtrlSetData($StatusGold, 0)
	GUICtrlSetData($MamorAnzahl, 0)
	GUICtrlSetData($StatusMamor, 0)
	GUICtrlSetData($BurgerAnzahl, 0)
	GUICtrlSetData($BurgerStatus, 0)
	GUICtrlSetData($BurgerPFAnzahl, 0)
	GUICtrlSetData($BurgerOnAnzahl, 0)
	GUICtrlSetData($BurgerStatusOn, 0)
	GUICtrlSetData($BurgerOffAnzahl, 0)
	_SpielInfo()
EndFunc
Func _SpielInfo()
	If $WeltFrei = 1 Then
		MsgBox (64,"Info","Um die 2 Welt frei zu schalten Bauen sie von jedem Gebäude mindestens eins!")
	ElseIf $WeltFrei = 2 Then
		MsgBox (64,"Info","Um die 3 Welt frei zu schalten Bauen sie eine Goldmine und eine Goldschmiede!")
	ElseIf $WeltFrei = 3 Then
		MsgBox (64,"Info","Um das Spiel zu Gewinnen Bauen sie eine Mamormine und ein Mamormetz!")
	ElseIf $WeltFrei = 4 Then
		MsgBox (64,"Winner","Super, sie haben das Spiel gewonnen!")
	EndIf
EndFunc