Pic nicht doppelt

Jam00

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 800, 600, 300, 211)
$Button1 = GUICtrlCreateButton("Button1", 700, 575, 100, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Zahl = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Bau()
EndSwitch
WEnd
Func _Bau()
Dim $Pic[10000]
$WinPos = WinGetPos("Form1")
_MouseTrap($WinPos[0], $WinPos[1], $WinPos[0] + $WinPos[2], $WinPos[1] + $WinPos[3])
Sleep (1000)
$Pos = GUIGetCursorInfo ()
$Pic[$Zahl] = GUICtrlCreatePic (@WindowsDir & "\Angler.bmp",$Pos[0],$Pos[1])
$Zahl = $Zahl +1
EndFunc

[/autoit]

Hat jemand eine Idee, wie ich es hinbekommen kann, dass es nicht geht, wenn sich die Pic's überschneiden? Also das nur ein Pic erscheint, wenn das Pic kein anderes Pic schneidet!

**Tweaky**

Hi,
hoffe ich habe dich richtig verstanden
Du müsstest nur abfragen wie hoch und breit das Bild ist.
Vorher solltest du die Positionen der bereits abgesetzen Bilder speichern.

Jam00

Ja, dann kann ich die Bilder nich genau aufeinander machen, aber sie können sich trotzdem anschneiden :wacko:

**Tweaky**

ne das geht definitiv

Bsp.

1. abgelegtes Bild:
X1 20
Y1 50
Breite1 100
Höhe1 70
belegter Bereich:
X >>> 20 - 120
Y >>> 50 - 120

2. abgelegtes bild
X2 0
Y2 0
Breite2 100
Höhe2 70
belegter Bereich:
X >>> 0 - 100
Y >>> 0 - 70

also überschneidet es sich.
du mußt bei den bereits abgelegten und dem aktuellen Bild jeweils die Abmasse des Bilder einbeziehen, dann gehts

Jam00

Tut mir leid, aber ich blick da noch nit ganz durch, wie ermittel ich denn den Belegten bereich? Und wie überprüf ich dann ob das nägste pic das überschneidet?
Helf mir bitte, is wichtig!
THX

**BugFix**

Ist doch reines Rechnen, hier mit Tweakys Bsp.:
belegter Bereich Bild 1:
X >>> 20 - 120 (x1Start=20, x1Ende=120)
Y >>> 50 - 120

belegter Bereich Bild 2:
X >>> 0 - 100 (x2Start=0, x2Ende=100)
Y >>> 0 - 70

Für X-Koordinaten
Wenn (x2Start >= x1Start UND x2Start <= x1Ende) ODER (x2Ende >= x1Start UND x2Ende <= x1Ende) DANN Kollision

Jam00

äh , ich weiß ich bin schwer von kapito tschuldigung!
THX

**Tweaky**

schlechte Ausrede

trotzdem will ich mal nicht so sein.
Bitte teste es.
Wenn es nicht ganz passt, dann ändere es bitte SELBST

Spoiler anzeigen

[autoit]

#include <ArrayMore.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $array[1][4]

[/autoit] [autoit][/autoit] [autoit]

$bild = @WindowsDir & "\Angler.bmp"

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

; Load image
$hImage = _GDIPlus_ImageLoadFromFile($bild)

[/autoit] [autoit][/autoit] [autoit]

; Create 24 bit bitmap clone
$breite_bild = _GDIPlus_ImageGetWidth($hImage)
$hoehe_bild = _GDIPlus_ImageGetHeight($hImage)

[/autoit] [autoit][/autoit] [autoit]

; Clean up resources
_GDIPlus_ImageDispose($hImage)

[/autoit] [autoit][/autoit] [autoit]

; Shut down GDI+ library
_GDIPlus_Shutdown()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 800, 600, 300, 211)
$Button1 = GUICtrlCreateButton("Button1", 700, 575, 100, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Zahl = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Bau()
EndSwitch
WEnd
Func _Bau()
Dim $Pic[10000]
$WinPos = WinGetPos("Form1")
_MouseTrap($WinPos[0], $WinPos[1], $WinPos[0] + $WinPos[2], $WinPos[1] + $WinPos[3])
Sleep(1000)
$Pos = GUIGetCursorInfo()

[/autoit] [autoit][/autoit] [autoit]

$aktuell_x_links = $Pos[0]
$aktuell_y_oben = $Pos[1]
$aktuell_x_rechts = $Pos[0] + $breite_bild
$aktuell_y_unten = $Pos[1] + $hoehe_bild

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($array) - 1
$kollion = 0
$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]

[/autoit] [autoit][/autoit] [autoit]

If $aktuell_x_links > $archiv_x_links And $aktuell_x_links < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_oben > $archiv_y_oben And $aktuell_y_oben < $archiv_y_unten Then $kollion += 1
If $aktuell_x_rechts > $archiv_x_links And $aktuell_x_rechts < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_unten > $archiv_y_oben And $aktuell_y_unten < $archiv_y_unten Then $kollion += 1

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite($kollion & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

If $kollion = 2 Then
MsgBox(16, "FEHLER", "Es dürfen sich keine Bilder überschneiden", 1)
Return
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

_Array2DAdd($array, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
$Pic[$Zahl] = GUICtrlCreatePic($bild, $Pos[0], $Pos[1], $breite_bild, $hoehe_bild)
$Zahl += 1
EndFunc ;==>_Bau

[/autoit]

Jam00

hey, geil danke

**BugFix**

Hier, kannst auch diese Funktion nutzen:

[autoit]

Local $pic1[4] = [0,0,100,50] ; x,y,Breite,Höhe
Local $pic2[4] = [101,51,50,70]

[/autoit][autoit][/autoit][autoit]

ConsoleWrite(_PosCompare($pic1,$pic2) & @CRLF)

[/autoit][autoit][/autoit][autoit]

Func _PosCompare(ByRef $a1, ByRef $a2) ; by BugFix
Local $oComp = ObjCreate("System.Collections.ArrayList")
For $i = $a1[0] To $a1[0] + $a1[2]
$oComp.Add($i)
Next
For $i = $a2[0] To $a2[0] + $a2[2]
If $oComp.Contains($i) Then Return True
Next
$oComp.Clear
For $i = $a1[1] To $a1[1] + $a1[3]
$oComp.Add($i)
Next
For $i = $a2[1] To $a2[1] + $a2[3]
If $oComp.Contains($i) Then Return True
Next
Return False
EndFunc ;==>_PosCompare

[/autoit]

Jam00

Das ist ganz schön Kompliziert!

**BugFix**

Zitat von Jam00

Das ist ganz schön Kompliziert!

Ist doch jetzt nicht mehr kompliziert für dich. Für jedes Bild ein Array mit den Positionsdaten erstellen und die Funktion mit den Arrays aufrufen. Gibt es Überschneidungen, wird TRUE zurückgegeben, sonst FALSE.

Jam00

Ich meinte das von Tweaky

Jam00

Also ich brauche das hierfür, fals jemand noch eine Bessere Idee hat!

Spoiler anzeigen

[autoit]

FileDelete(@ScriptDir & "\Bau.ini")
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
$MC = GUICreate("The destroyed city", 1025, 769, 184, 118)
$Group1 = GUICtrlCreateGroup("Spiel:", 3, 3, 1018, 580)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Build\World1\Hintergrund.jpg", 9, 18, 1000, 560)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Spielmenü", 3, 585, 1015, 178, -1, $WS_EX_TRANSPARENT)
$Tab1 = GUICtrlCreateTab(9, 600, 1003, 157)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
$BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Haus.bmp", 0)
GUICtrlSetTip(-1, "Haus: Holz 3")
$BauSaegewerk = GUICtrlCreateButton("(Not allowed)", 69, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Sägewerk.bmp", 0)
GUICtrlSetTip(-1, "Sägewerk: Holz 2 Eisen 1 Wekzeug 2 Bürger 2")
$BauErzschmelze = GUICtrlCreateButton("(Not allowed)", 123, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Erzschmelze.bmp", 0)
GUICtrlSetTip(-1, "Erzschmelze: Holz 4 Eisen 2 Werkzeug 3 Bürger 10 (Erzmine benötigt")
$BauErzmine = GUICtrlCreateButton("(Not allowed)", 123, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Erzmine.bmp", 0)
GUICtrlSetTip(-1, "Erzmine: Holz 4 Eisen 1 Werkzeug 2 Bürger 10")
$BauKuhfarm = GUICtrlCreateButton("(Not allowed)", 15, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Kuhfarm.bmp", 0)
GUICtrlSetTip(-1, "Kuhfam: Holz 4 Eisen 0 Werkzeug 3 Bürger 5")
$BauMetzkerei = GUICtrlCreateButton("(Not allowed)", 69, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Build\World1\Button\Metzkerei.bmp", 0)
GUICtrlSetTip(-1, "Metzkerei: Holz 3 Eisen 2 Werkzeug 2 Bürger 5 (Kuhfarm benötigt) ")
$TabSheet2 = GUICtrlCreateTabItem("Rohstoffe")
$RohstoffeHolz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
GUICtrlSetTip(-1, "Deine Holzlager")
$RohstoffeHolzAnzahl = GUICtrlCreateLabel("20", 94, 627, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
$RohstoffeEisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
GUICtrlSetTip(-1, "Dein Eisenlager")
$RohstoffeEisenAnzahl = GUICtrlCreateLabel("20", 94, 645, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
$RohstoffeNahrungAnzahl = GUICtrlCreateLabel("20", 94, 681, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF5F4F0)
$RohstoffeNahrung = GUICtrlCreateLabel("Nahrung", 15, 681, 59, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF5F4F0)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$RohstoffeWerkzeugAnzahl = GUICtrlCreateLabel("20", 94, 663, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF8F7F5)
$RohstoffeWerkzeug = GUICtrlCreateLabel("Werkzeuge", 15, 663, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF8F7F5)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$RohstoffeGetreide = GUICtrlCreateLabel("Getreide", 15, 699, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF4F3EE)
GUICtrlSetTip (-1,"Dein Getreide")
$RohstoffeGetreideAnzahl = GUICtrlCreateLabel("20", 94, 699, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF4F3EE)
$RohstoffeLehm = GUICtrlCreateLabel("Lehm", 15, 717, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF4F3EE)
GUICtrlSetTip (-1,"Dein Lehm")
$RohstoffeLehmAnzahl = GUICtrlCreateLabel("20", 94, 717, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF4F3EE)
$RohstoffeStein = GUICtrlCreateLabel("Stein", 15, 735, 79, 18)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF4F3EE)
GUICtrlSetTip (-1,"Dein Steinlager")
$RohstoffeSteinAnzahl = GUICtrlCreateLabel("0", 94, 735, 79, 18)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF4F3EE)
$RohstoffeKohleAnzahl = GUICtrlCreateLabel("0", 272, 627, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
$RohstoffeKohle = GUICtrlCreateLabel("Kohle", 190, 627, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
GUICtrlSetTip(-1, "Dein Kohlelager")
$RohstoffeGoldAnzahl = GUICtrlCreateLabel("0", 272, 645, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
$RohstoffeGold = GUICtrlCreateLabel("Gold", 190, 645, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
GUICtrlSetTip(-1, "Dein Goldlager")
$RohstoffeMamorAnzahl = GUICtrlCreateLabel("0", 272, 663, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
$RohstoffeMamor = GUICtrlCreateLabel("Mamor", 190, 663, 49, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
GUICtrlSetTip(-1, "Dein Mamorlager")
$TabSheet3 = GUICtrlCreateTabItem("Befölkerung")
$BefoelkerungBuergerAnzahl = GUICtrlCreateLabel("0", 93, 627, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
$BefoelkerungBuerger = GUICtrlCreateLabel("Bürger", 14, 627, 48, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFBFBFD)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$BefoelkerungPFAnzahl = GUICtrlCreateLabel("0", 93, 646, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
$BefoelkerungPF = GUICtrlCreateLabel("Plaz für", 14, 646, 54, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xF9F9F8)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$TabSheet4 = GUICtrlCreateTabItem("Spielstand")
$Speichern = GUICtrlCreateButton("Speichern", 15, 627, 75, 25, 0)
$Laden = GUICtrlCreateButton("Laden", 90, 627, 75, 25, 0)
$TabSheet5 = GUICtrlCreateTabItem("Welten")
$Welt1 = GUICtrlCreateButton("Welt 1", 15, 627, 75, 25, 0)
$Welt2 = GUICtrlCreateButton("Welt 2", 90, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##
Global $file
$Frei = 1
$Welt = 1
$Stunde = False
$ToolTip = False
$Sec = False
$SpeicherPfad = False
$Min = False
$Bewohner = 0
$BewohnerMax = 0
$HolzAbbau = 0
$Hauser = 0
$BewohnerZahl = 0
$HolzRead = GUICtrlRead($RohstoffeHolzAnzahl)
$BewohnerRead = GUICtrlRead($BefoelkerungBuergerAnzahl)
$Speicher = 30
$cordx = -25
$cordy = -25
$Bau1Zahl = 0
$Bau2Zahl = 0
$Bau1Zahl1 = 0
$Bau2Zahl1 = 0
$WeltZahl = 0
Dim $Bau1[10000]
Dim $Bau2[10000]
While 1
If $Stunde = False Then
$Stunde = @HOUR
EndIf
If $BewohnerRead = $BewohnerMax Then
Sleep(0)
Else
If $Min = False Or $Stunde + 1 = @HOUR Then
$Min = @MIN
$Stunde = @HOUR
ElseIf $Min + 1 = @MIN Or $Stunde + 1 = @HOUR Then
Do
$BewohnerRead = GUICtrlRead($BefoelkerungBuergerAnzahl)
If $BewohnerRead + 1 > $BewohnerMax Then ExitLoop
$BewohnerZahl = $BewohnerZahl + 1
$Min = @MIN
$Bewohner = $Bewohner + 1
GUICtrlSetData($BefoelkerungBuergerAnzahl, $Bewohner)
Until $BewohnerZahl = $Hauser
$HolzZahl = 0
If $HolzAbbau = 0 Then
Sleep(0)
Else
If $Speicher > $HolzRead Then
Do
$HolzRead = GUICtrlRead($RohstoffeHolzAnzahl)
If $Speicher > $HolzRead Then
GUICtrlSetData($RohstoffeHolzAnzahl, $HolzRead + 2)
EndIf
$HolzZahl = $HolzZahl + 1
Until $HolzAbbau = $HolzZahl
EndIf
EndIf
EndIf
$BewohnerZahl = 0
$HolzZahl = 0
EndIf
If $ToolTip = True Then
If $Sec = False Then
$Sec = @SEC
Else
If $Sec + 5 = @SEC Then
ToolTip("")
$ToolTip = False
EndIf
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$SpeichernMSG = MsgBox(3 + 32, "Speichern", "Möchtest du das Spiel Speichern?")
If $SpeichernMSG = 6 Then
Call("_speichern")
Exit
EndIf
If $SpeichernMSG = 3 Then
Exit
ElseIf $SpeichernMSG = 7 Then
Exit
EndIf
Case $Speichern
Call("_speichern")
Case $Laden
Call("_laden")
Case $BauHaus
_Bau("Haus")
Case $BauSaegewerk
_Bau("Sägewerk")
Case $Welt1
_Weltwechsel(1)
Case $Welt2
_Weltwechsel(2)
EndSwitch
;~ WinClose ("Eigenschaften von Datum und Uhrzeit")
WEnd
Func _speichern()
FileDelete($file)
If $SpeicherPfad = False Then
$file = FileSaveDialog("Spielstand speichern:", @ScriptDir & "\saves", "Spielstand (*.sav)", 2 + 16, "The destroyed city.sav")
$SpeicherPfad = $file
Else
$file = $SpeicherPfad
EndIf
If @error = 1 Then
Sleep(0)
Else
FileDelete($file)
$HolzRead = GUICtrlRead($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead($RohstoffeNahrungAnzahl)
$WerkzeugRead = GUICtrlRead($RohstoffeWerkzeugAnzahl)
$BewohnerRead = GUICtrlRead($BefoelkerungBuergerAnzahl)
$fileRead = FileRead(@ScriptDir & "\Bau.ini")
FileWrite($file, $fileRead)
IniWrite($file, "Rohstoffe", "Holz", $HolzRead)
IniWrite($file, "Rohstoffe", "Eisen", $EisenRead)
IniWrite($file, "Rohstoffe", "Nahrung", $NahrungRead)
IniWrite($file, "Rohstoffe", "Werkzeug", $WerkzeugRead)
IniWrite($file, "Bewohner", "Bürger", $BewohnerRead)
$Formel = $HolzRead + $EisenRead + $NahrungRead + $WerkzeugRead + $BewohnerRead * 100
$FormelHex = Hex($Formel)
IniWrite($file, "Daten", "Rechnung", $FormelHex)
ToolTip("Spiel Gespeichert")
$ToolTip = True
EndIf
EndFunc ;==>_speichern
Func _laden()
$Welt = 1
$file = FileOpenDialog("Spielstand laden:", @ScriptDir & "\saves", "Spielstand (*.sav)", 1 + 2, "The destroyed city.sav")
If @error = 1 Then
Sleep(0)
Else
$Hauser = 0
$LadenZahl = 0
$SpeicherPfad = $file
$LadenHolz = IniRead($file, "Rohstoffe", "Holz", "")
$LadenEisen = IniRead($file, "Rohstoffe", "Eisen", "")
$LadenNahrung = IniRead($file, "Rohstoffe", "Nahrung", "")
$LadenWerkzeug = IniRead($file, "Rohstoffe", "Werkzeug", "")
$LadenBewohner = IniRead($file, "Bewohner", "Bürger", "")
$LadenFormel = IniRead($file, "Daten", "Rechnung", "")
$LadenFormeDec = Dec($LadenFormel)
$Formel1 = $LadenHolz + $LadenEisen + $LadenNahrung + $LadenWerkzeug + $LadenBewohner * 100
If $Formel1 = $LadenFormeDec Then
GUISetState(@SW_LOCK)
$LadenZahlMax = IniRead($file, "Bau1", "ZahlHaus", "0")
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau1", "Haus" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau1", "Haus" & $LadenZahl, "0")
$Bau1[$Bau1Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Build\World" & $Welt & "\Haus.jpg", $LadenBau, $LadenBau2, 50, 50)
$Bau1Zahl1 = $Bau1Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahlMax = IniRead($file, "Bau2", "ZahlHaus", "0")
$LadenZahl = 0
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenBau = IniRead($file, "Bau2", "Haus" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau2", "Haus" & $LadenZahl, "0")
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Haus.jpg", $LadenBau, $LadenBau2, 50, 50)
GUICtrlSetState(-1, $GUI_HIDE)
$Bau2Zahl1 = $Bau2Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahl = 0
$LadenZahlMax = IniRead($file, "Bau1", "ZahlSägewerk", "0")
If $LadenZahlMax > 0 Then
Do
$HolzAbbau = $HolzAbbau + 1
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau1", "Sägewerk" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau1", "Sägewerk" & $LadenZahl, "0")
GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $LadenBau, $LadenBau2, 50, 50)
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahlMax = IniRead($file, "Bau2", "ZahlSägewerk", "0")
$LadenZahl = 0
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau2", "Sägewerk" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau2", "Sägewerk" & $LadenZahl, "0")
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $LadenBau, $LadenBau2, 50, 50)
GUICtrlSetState(-1, $GUI_HIDE)
$Bau2Zahl1 = $Bau2Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
GUISetState(@SW_UNLOCK)
GUICtrlSetData($BefoelkerungPFAnzahl, $BewohnerMax)
GUICtrlSetData($RohstoffeHolzAnzahl, $LadenHolz)
GUICtrlSetData($RohstoffeEisenAnzahl, $LadenEisen)
GUICtrlSetData($RohstoffeNahrungAnzahl, $LadenNahrung)
GUICtrlSetData($RohstoffeWerkzeugAnzahl, $LadenWerkzeug)
GUICtrlSetData($BefoelkerungBuergerAnzahl, $LadenBewohner)
Else
MsgBox(16, "Error", "Spielstand kann nicht geladen werden")
EndIf
EndIf
EndFunc ;==>_laden
Func _Bau($BauArt)
$A = GUICtrlCreatePic(@ScriptDir & "\Build\World" & $Welt & "\" & $BauArt & ".jpg", $cordx, $cordy, 50, 50)
GUICtrlSetCursor($A, 0)
$WinPos = WinGetPos("The destroyed city")
While 1
_MouseTrap($WinPos[0] + 37, $WinPos[1] + 72, $WinPos[0] + $WinPos[2] - 43, $WinPos[1] + $WinPos[3] - 218)
$Maus = GUIGetCursorInfo()
$x2 = $Maus[0]
$x = $cordx + $x2
$y2 = $Maus[1]
$y = $cordy + $y2
GUICtrlSetPos($A, $x, $y, 50, 50)
$xm = $Maus[0]
$ym = $Maus[1]
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $Pic1
GUICtrlDelete($A)
$HolzRead = GUICtrlRead($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead($RohstoffeHolzAnzahl)
$WerkzeugRead = GUICtrlRead($RohstoffeWerkzeugAnzahl)
$BewohnerRead = GUICtrlRead($BefoelkerungBuergerAnzahl)
$Pos = GUIGetCursorInfo()
If $BauArt = "Haus" Then
;~ If $Welt = 1 Then
$KostenHolz = 3
;~ ElseIf
If $HolzRead - $KostenHolz < 0 Then
ToolTip("Du hast nicht genügend Rohstoffe")
$ToolTip = True
ElseIf $HolzRead - 3 > 0 Then
$Zahl = 0
$Zahl1 = 0
Do
$ZahlMax = IniRead(@ScriptDir & "\Bau.ini", "Bau" & $Welt, "ZahlHaus", "0")
If $ZahlMax = 0 Then ExitLoop
$Zahl = $Zahl + 1
$Haus = IniRead(@ScriptDir & "\Bau.ini", "Bau" & $Welt, "Haus" & $Zahl, "0")
If $Pos[$Zahl1] - 25 = $Haus Then
$Zahl = $Zahl + 1
$Haus = IniRead(@ScriptDir & "\Bau.ini", "Bau" & $Welt, "Haus" & $Zahl, "0")
$Zahl = $Zahl - 1
If $Zahl1 = 0 Then
$Zahl1 = 1
ElseIf $Zahl1 = 1 Then
$Zahl1 = 0
EndIf
If $Pos[$Zahl1] - 25 = $Haus Then
MsgBox(0, "", "")
EndIf
EndIf
If $Zahl1 = 0 Then
$Zahl1 = 1
ElseIf $Zahl1 = 1 Then
$Zahl1 = 0
EndIf
Until $Zahl = $ZahlMax
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
GUICtrlSetData($BefoelkerungPFAnzahl, $BewohnerMax)
If $Welt = 1 Then
$Bau1Zahl = $Bau1Zahl + 1
IniDelete(@ScriptDir & "\Bau.ini", "Bau1", "ZahlHaus")
IniWrite(@ScriptDir & "\Bau.ini", "Bau1", "Haus" & $Bau1Zahl, $Pos[0] - 25)
$Bau1Zahl = $Bau1Zahl + 1
IniWrite(@ScriptDir & "\Bau.ini", "Bau1", "Haus" & $Bau1Zahl, $Pos[1] - 25)
IniWrite(@ScriptDir & "\Bau.ini", "Bau1", "ZahlHaus", $Bau1Zahl)
GUISetState(@SW_LOCK)
$Bau1[$Bau1Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Build\World" & $Welt & "\Haus.jpg", $Pos[0] - 25, $Pos[1] - 25, 50, 50)
$Bau1Zahl1 = $Bau1Zahl1 + 1
GUISetState(@SW_UNLOCK)
ElseIf $Welt = 2 Then
$Bau2Zahl = $Bau2Zahl + 1
IniDelete(@ScriptDir & "\Bau.ini", "Bau2", "ZahlHaus")
IniWrite(@ScriptDir & "\Bau.ini", "Bau2", "Haus" & $Bau2Zahl, $Pos[0] - 25)
$Bau2Zahl = $Bau2Zahl + 1
IniWrite(@ScriptDir & "\Bau.ini", "Bau2", "Haus" & $Bau2Zahl, $Pos[1] - 25)
IniWrite(@ScriptDir & "\Bau.ini", "Bau2", "ZahlHaus", $Bau2Zahl)
GUISetState(@SW_LOCK)
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Build\World" & $Welt & "\Haus.jpg", $Pos[0] - 25, $Pos[1] - 25, 50, 50)
$Bau2Zahl1 = $Bau2Zahl1 + 1
GUISetState(@SW_UNLOCK)
EndIf
GUICtrlSetData($RohstoffeHolzAnzahl, $HolzRead - 3)
EndIf
ElseIf $BauArt = "Sägewerk" Then
If $HolzRead - 2 < 0 Or $EisenRead - 1 < 0 Or $WerkzeugRead - 2 < 0 Then
ToolTip("Du hast nicht genügend Rohstoffe")
$ToolTip = True
ElseIf $BewohnerRead - 2 < 0 Then
ToolTip("In deiner Stadt sind nicht genügend Einwohner")
$ToolTip = True
ElseIf $HolzRead - 3 > 0 Then
$Hauser = $Hauser + 1
$HolzAbbau = $HolzAbbau + 1
GUICtrlSetData($BefoelkerungPFAnzahl, $BewohnerMax)
If $Welt = 1 Then
$Bau1Zahl = $Bau1Zahl + 1
IniDelete(@ScriptDir & "\Bau.ini", "Bau1", "ZahlSägewerk")
IniWrite(@ScriptDir & "\Bau.ini", "Bau1", "Sägewerk" & $Bau1Zahl, $Pos[0] - 25)
$Bau1Zahl = $Bau1Zahl + 1
IniWrite(@ScriptDir & "\Bau.ini", "Bau1", "Sägewerk" & $Bau1Zahl, $Pos[1] - 25)
IniWrite(@ScriptDir & "\Bau.ini", "Bau1", "ZahlSägewerk", $Bau1Zahl)
GUISetState(@SW_LOCK)
$Bau1[$Bau1Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $Pos[0] - 25, $Pos[1] - 25, 50, 50)
$Bau1Zahl1 = $Bau1Zahl1 + 1
GUISetState(@SW_UNLOCK)
ElseIf $Welt = 2 Then
$Bau2Zahl = $Bau2Zahl + 1
IniDelete(@ScriptDir & "\Bau.ini", "Bau2", "ZahlSägewerk")
IniWrite(@ScriptDir & "\Bau.ini", "Bau2", "Sägewerk" & $Bau2Zahl, $Pos[0] - 25)
$Bau2Zahl = $Bau2Zahl + 1
IniWrite(@ScriptDir & "\Bau.ini", "Bau2", "Sägewerk" & $Bau2Zahl, $Pos[1] - 25)
IniWrite(@ScriptDir & "\Bau.ini", "Bau2", "ZahlSägewerk", $Bau2Zahl)
GUISetState(@SW_LOCK)
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $Pos[0] - 25, $Pos[1] - 25, 50, 50)
$Bau2Zahl1 = $Bau2Zahl1 + 1
GUISetState(@SW_UNLOCK)
EndIf
GUICtrlSetData($RohstoffeHolzAnzahl, $HolzRead - 3)
GUICtrlSetData($RohstoffeEisenAnzahl, $EisenRead - 1)
GUICtrlSetData($RohstoffeWerkzeugAnzahl, $WerkzeugRead - 2)
GUICtrlSetData($BefoelkerungBuergerAnzahl, $BewohnerRead - 2)
EndIf
EndIf
_MouseTrap()
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_Bau
Func _Weltwechsel($Weltart)
;~ If $Welt > $Frei Then
;~ If $Welt = 2 Then
;~ EndIf
If $Weltart <> $Welt Then
$WeltZahl = 0
$WeltZahl1 = 0
$WeltZahl2 = 0
$WeltZahl3 = 0
GUICtrlSetImage($Pic1, @ScriptDir & "\Build\World" & $Weltart & "\Hintergrund.jpg")
GUICtrlSetImage($BauHaus, @ScriptDir & "\Build\World" & $Weltart & "\Button\Haus.bmp")
GUICtrlSetImage($BauSaegewerk, @ScriptDir & "\Build\World" & $Weltart & "\Button\Sägewerk.bmp")
GUICtrlSetImage($BauKuhfarm, @ScriptDir & "\Build\World" & $Weltart & "\Button\Kuhfarm.bmp")
GUICtrlSetImage($BauMetzkerei, @ScriptDir & "\Build\World" & $Weltart & "\Button\Metzkerei.bmp")
GUICtrlSetImage($BauErzmine, @ScriptDir & "\Build\World" & $Weltart & "\Button\Erzmine.bmp")
GUICtrlSetImage($BauErzschmelze, @ScriptDir & "\Build\World" & $Weltart & "\Button\Erzschmelze.bmp")
If $Weltart = 1 Then
$Welt = 1
If $Bau2Zahl1 > 0 Then
Do
GUICtrlSetState($Bau2[$WeltZahl], $GUI_HIDE)
$WeltZahl = $WeltZahl + 1
Until $WeltZahl = $Bau2Zahl1
EndIf
$WeltZahl = 0
If $Bau1Zahl1 > 0 Then
Do
GUICtrlSetState($Bau1[$WeltZahl1], $GUI_SHOW)
$WeltZahl1 = $WeltZahl1 + 1
Until $WeltZahl1 = $Bau1Zahl1
EndIf
ElseIf $Weltart = 2 Then
$Welt = 2
If $Bau1Zahl1 > 0 Then
Do
GUICtrlSetState($Bau1[$WeltZahl2], $GUI_HIDE)
$WeltZahl2 = $WeltZahl2 + 1
Until $WeltZahl2 = $Bau1Zahl1
EndIf
If $Bau2Zahl1 > 0 Then
Do
GUICtrlSetState($Bau2[$WeltZahl3], $GUI_SHOW)
$WeltZahl3 = $WeltZahl3 + 1
Until $WeltZahl3 = $Bau2Zahl1
EndIf
EndIf
EndIf
EndFunc ;==>_Weltwechsel

[/autoit]

Die bilder Sind noch nit komplett, da ich sie noach nit habe

Sirocool

wollen 2 spielfelder machen mit andere auflösung diese ist 1680*1050.
in zeile 288 ist der fehler bitte um hilfe immer wenn ich das haus anklicke im baumenü

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------
The Destroyed City /
#ce ---------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <ArrayMore.au3>
#include <GDIPlus.au3>
#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <Date.au3>

[/autoit] [autoit][/autoit] [autoit]

#cs ----------------------------------------------
The Destroyed City /Spielfeld/
#ce ---------------------------------------------
If FileExists("") Then
Else
DirCreate("C:\Programme\The Destroyed City\images\Spielfeld\")
FileInstall("images\Spielfeld\header.jpg","C:\Programme\The Destroyed City\images\Spielfeld\header.jpg")
FileInstall("images\Spielfeld\spielfeld.jpg","C:\Programme\The Destroyed City\images\Spielfeld\spielfeld.jpg")
FileInstall("images\Spielfeld\menufeld.jpg","C:\Programme\The Destroyed City\images\Spielfeld\menufeld.jpg")
EndIf
#cs ----------------------------------------------
The Destroyed City /Spielfeld/
#ce ---------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

FileDelete(@ScriptDir & "\Bau.ini")

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ###
$hGui1=GUICreate("The Destroyed City",1500,900, 0, 0)
GUISetIcon("Images\Icon\1.ico")
GUISetBkColor(0xFFFFFF)
$bg1=GUICtrlCreatePic("C:\Programme\The Destroyed City\images\Spielfeld\header.jpg",0, 0, 1500, 90, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Group1 = GUICtrlCreateGroup("Spiel:", 0, 90, 1250, 800)
$bg2=GUICtrlCreatePic(@ScriptDir & "\images\Spielfeld\Spielfeld.jpg",6, 103, 1238, 780)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2",1250, 90, 175, 800, -1, $WS_EX_TRANSPARENT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Tab1 = GUICtrlCreateTab(1250, 110, 172, 500)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
$BauHaus = GUICtrlCreateButton("(Not allowed)",1255, 130, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Haus.bmp", 0)
GUICtrlSetTip(-1, "Haus: | 10xHolz | 10xLehm | 5xEisen | 5xNahrung | 2xWerkzeuge | ")
$BauHolzfaller = GUICtrlCreateButton("(Not allowed)",1310, 130, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Holzfaller.bmp", 0)
GUICtrlSetTip(-1, "Holzfäller:40xHolz | 100xLehm | 50xEisen | 60xNahrung | 5xWerkzeuge | 2xBewohner ")
$BauErzmine = GUICtrlCreateButton("(Not allowed)", 1365, 130,50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Erzmine.bmp", 0)
GUICtrlSetTip(-1, "Erzmine: 100xHolz | 80xLehm | 30xEisen | 40xNahrung | 15xWerkzeuge | 3xBewohner | ")
$BauWeberei = GUICtrlCreateButton("(Not allowed)",1255, 180, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Webstube.bmp", 0)
GUICtrlSetTip(-1, "Webstube: 700xHolz | 360xLehm | 280xEisen | 100xNahrung | 45xWerkzeuge | 15xBewohner |")
$BauGetreidefarm = GUICtrlCreateButton("(Not allowed)", 1310, 380, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Getreidefarm.bmp", 0)
GUICtrlSetTip(-1, "Getreidefam: 70xHolz | 90xLehm | 70xEisen | 25xNahrung | 10xWerkzeuge | 6xBewohner |")
$BauMuhle = GUICtrlCreateButton("(Not allowed)", 1310, 180, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Mühle.bmp", 0)
GUICtrlSetTip(-1, "Mühle: 500xHolz | 440xLehm | 380xEisen | 500xNahrung | 15xWerkzeuge | 10xBewohner |")
$BauSpeicher = GUICtrlCreateButton("(Not allowed)", 1365, 180, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Speicher.bmp", 0)
GUICtrlSetTip(-1, "Speicher: 130xHolz | 160xLehm | 90xEisen | 40xNahrung | 5xWerkzeuge | 2xBewohner |")
$BauScharffarm = GUICtrlCreateButton("(Not allowed)", 1255, 230, 50,50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Scharffarm.bmp", 0)
GUICtrlSetTip(-1, "Scharffarm: 100xHolz | 180xLehm | 140xEisen | 50xNahrung | 25xWerkzeuge | 10xBewohner |")
$BauSchmiede = GUICtrlCreateButton("(Not allowed)", 1310, 230, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Schmied.bmp", 0)
GUICtrlSetTip(-1, "Schmiede: 200xHolz | 450xLehm | 510xEisen | 120xNahrung | 25xWerkzeuge | 10xBewohner | ")
$BauSteinbruch = GUICtrlCreateButton("(Not allowed)", 1365, 230, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Steinbruch")
$BauSteinmetz = GUICtrlCreateButton("(Not allowed)", 1255, 280, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Steinmetz")
$BauGoldmine = GUICtrlCreateButton("(Not allowed)", 1310, 280, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Goldmine")
$BauGoldschmiede = GUICtrlCreateButton("(Not allowed)", 1365, 280, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Goldschmied.bmp", 0)
GUICtrlSetTip(-1, "Goldschmiede: 30.000xHolz | 25.000xLehm | 20.000xEisen | 15.000xNahrung | 10.000xWerkzeuge | 5.000xBewohner | 2.500xWolle | 2.000x Stoffe|")
$BauMamormine = GUICtrlCreateButton("(Not allowed)", 1255, 330, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Mamormine")
$BauMamormetz = GUICtrlCreateButton("(Not allowed)", 1310, 330, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Mamorwetz")
$BauBackerei = GUICtrlCreateButton("(Not allowed)", 1365, 330, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Bäckerei.bmp", 0)
GUICtrlSetTip(-1, "Bäcker: 1000xHolz | 880xLehm | 760xEisen | 1000xNahrung | 30xWerkzeuge | 20xBewohner |")
$Bauelehmgrube = GUICtrlCreateButton("(Not allowed)", 1255, 380, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Lehmgrube.bmp", 0)
GUICtrlSetTip(-1, "Lehmgrube: 80xHolz | 40xLehm | 80xEisen | 50xNahrung | 10xWerkzeuge | 4xBewohner | ")
$TabSheet2 = GUICtrlCreateTabItem("Speicher")
$Holz = GUICtrlCreateLabel("Holz", 1255, 150, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$HolzAnzahl = GUICtrlCreateLabel("20", 1310, 150, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Eisen = GUICtrlCreateLabel("Eisen", 1255, 180, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$EisenAnzahl = GUICtrlCreateLabel("20", 1310, 180, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$NahrungAnzahl = GUICtrlCreateLabel("20", 1310, 210, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1,0xffffff)
$Nahrung = GUICtrlCreateLabel("Nahrung", 1255, 210, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1,0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$WerkzeugAnzahl = GUICtrlCreateLabel("20", 1310, 240, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Werkzeug = GUICtrlCreateLabel("Werkzeuge", 1255, 240, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$Kohle = GUICtrlCreateLabel("Kohle", 1255, 270, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$KohleAnzahl = GUICtrlCreateLabel("20", 1310, 270, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Lehm = GUICtrlCreateLabel("Lehm", 1255, 300, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$LehmAnzahl = GUICtrlCreateLabel("20",1310, 300, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Stein = GUICtrlCreateLabel("Stein", 1255, 330, 37, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$SteinAnzahl = GUICtrlCreateLabel("20", 1310, 330, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Getreide = GUICtrlCreateLabel("Getreide", 1255, 360, 30, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$GetreideAnzahl = GUICtrlCreateLabel("20", 1310, 360, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$StatusHolz = GUICtrlCreateProgress(1340, 150, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusEisen = GUICtrlCreateProgress(1340, 180, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusNahrung = GUICtrlCreateProgress(1340, 210, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusLehm = GUICtrlCreateProgress(1340, 300, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusStein = GUICtrlCreateProgress(1340, 330, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusGetreide = GUICtrlCreateProgress(1340, 360, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Gold = GUICtrlCreateLabel("Gold", 1255, 390, 34, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$GoldAnzahl = GUICtrlCreateLabel("0", 1310, 390, 12, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Mamor = GUICtrlCreateLabel("Mamor", 1255, 420, 49, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$MamorAnzahl = GUICtrlCreateLabel("0", 1310, 420, 12, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$StatusWerkzeug = GUICtrlCreateProgress(1340, 240, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusKohle = GUICtrlCreateProgress(1340, 270, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusGold = GUICtrlCreateProgress(1340, 390, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,0)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusMamor = GUICtrlCreateProgress(1340, 420, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,0)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet3 = GUICtrlCreateTabItem("Bewohner")
$Burger = GUICtrlCreateLabel("Bürger", 1255, 150, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$BurgerPF = GUICtrlCreateLabel("Platz für", 1255, 180, 52, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$BurgerAnzahl = GUICtrlCreateLabel("0", 1310, 150, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "2")
$BurgerPFAnzahl = GUICtrlCreateLabel("0", 1310, 180, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "2")
$BurgerStatus = GUICtrlCreateProgress(1340, 150, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet4 = GUICtrlCreateTabItem("Welt")
$Welt1 = GUICtrlCreateButton("Welt 1", 1255, 150, 75, 25, 0)
$Welt2 = GUICtrlCreateButton("Welt 2", 1340, 150, 75, 25, 0)
$Welt3 = GUICtrlCreateButton("Welt 3", 1255, 200, 75, 25, 0)
$TabSheet5 = GUICtrlCreateTabItem("Spiel")
$Laden = GUICtrlCreateButton("Laden", 1255, 150, 75, 25, 0)
$Speichern = GUICtrlCreateButton("Speichern", 1340, 150, 75, 25, 0)
$VollBild = GUICtrlCreateButton("Vollbildschirm", 1255, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $array[1][4]
Dim $bg2[12380]

[/autoit] [autoit][/autoit] [autoit]

Global $file
$Frei = 1
$Welt = 1
$Stunde = False
$ToolTip = False
$Sec = False
$SpeicherPfad = False
$Min = False
$Bewohner = 0
$BewohnerMax = 0
$HolzAbbau = 0
$Hauser = 0
$BewohnerZahl = 0
$HolzRead = GUICtrlRead($HolzAnzahl)
$BewohnerRead = GUICtrlRead($BurgerAnzahl)
$Speicher = 30
$cordx = -25
$cordy = -25
$Bau1Zahl = 0
$Bau2Zahl = 0
$Bau1Zahl1 = 0
$Bau2Zahl1 = 0
$WeltZahl = 0
Dim $Bau1[10000]
Dim $Bau2[10000]

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Zahl = 0
$Welt = 1
$cordx = -25
$cordy = -25
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BauHaus
_Bau("Haus")
Case $Speichern
Call("_speichern")
Case $Laden
Call("_laden")
;Case $VollBild
;GuiSetState(@SW_MAXIMIZE,$hGui1)
EndSwitch
WEnd
Func _Bau($BauArt)
$A = GUICtrlCreatePic(@ScriptDir & "\Images\Welt 1" & $Welt & "\" & $BauArt & ".jpg", $cordx, $cordy, 50, 50)
GUICtrlSetCursor($A, 0)
$WinPos = WinGetPos("The destroyed city")
While 1
_MouseTrap($WinPos[0] + 37, $WinPos[1] + 72, $WinPos[0] + $WinPos[2] - 43, $WinPos[1] + $WinPos[3] - 218)
$Maus = GUIGetCursorInfo()
$x2 = $Maus[0]
$x = $cordx + $x2
$y2 = $Maus[1]
$y = $cordy + $y2
GUICtrlSetPos($A, $x, $y, 50, 50)
$xm = $Maus[0]
$ym = $Maus[1]
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $bg2
GUICtrlDelete ($A)
$bild = @ScriptDir & "\Images\Welt 1" & $Welt & "\" & $BauArt & ".jpg"
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($bild)
$breite_bild = _GDIPlus_ImageGetWidth($hImage)
$hoehe_bild = _GDIPlus_ImageGetHeight($hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
$WinPos = WinGetPos("The destroyed city")
_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]
$aktuell_x_rechts = $Pos[0] + $breite_bild
$aktuell_y_unten = $Pos[1] + $hoehe_bild
For $i = 1 To UBound($array) - 1
$kollion = 0
$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]
If $aktuell_x_links > $archiv_x_links And $aktuell_x_links < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_oben > $archiv_y_oben And $aktuell_y_oben < $archiv_y_unten Then $kollion += 1
If $aktuell_x_rechts > $archiv_x_links And $aktuell_x_rechts < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_unten > $archiv_y_oben And $aktuell_y_unten < $archiv_y_unten Then $kollion += 1
ConsoleWrite($kollion & @CRLF)
If $kollion = 2 Then
ToolTip ("Dort ist bereits etwas Gebaut!")
Return
EndIf
Next
_Array2DAdd($array, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
GUISetState (@SW_LOCK)
$bg2[$Zahl] = GUICtrlCreatePic($bild, $Pos[0]-25, $Pos[1]-25, $breite_bild, $hoehe_bild)
GUISetState (@SW_UNLOCK)
$Zahl += 1
_MouseTrap ()
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_Bau

[/autoit] [autoit][/autoit] [autoit]

Func _speichern()
FileDelete($file)
If $SpeicherPfad = False Then
$file = FileSaveDialog("Spielstand speichern:", @ScriptDir & "\saves", "Spielstand (*.sav)", 2 + 16, "The destroyed city.sav")
$SpeicherPfad = $file
Else
$file = $SpeicherPfad
EndIf
If @error = 1 Then
Sleep(0)
Else
FileDelete($file)
$HolzRead = GUICtrlRead($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead($RohstoffeNahrungAnzahl)
$WerkzeugRead = GUICtrlRead($RohstoffeWerkzeugAnzahl)
$BewohnerRead = GUICtrlRead($BefoelkerungBuergerAnzahl)
$fileRead = FileRead(@ScriptDir & "\Bau.ini")
FileWrite($file, $fileRead)
IniWrite($file, "Rohstoffe", "Holz", $HolzRead)
IniWrite($file, "Rohstoffe", "Eisen", $EisenRead)
IniWrite($file, "Rohstoffe", "Nahrung", $NahrungRead)
IniWrite($file, "Rohstoffe", "Werkzeug", $WerkzeugRead)
IniWrite($file, "Bewohner", "Bürger", $BewohnerRead)
$Formel = $HolzRead + $EisenRead + $NahrungRead + $WerkzeugRead + $BewohnerRead * 100
$FormelHex = Hex($Formel)
IniWrite($file, "Daten", "Rechnung", $FormelHex)
ToolTip("Spiel Gespeichert")
$ToolTip = True
EndIf
EndFunc ;==>_speichern
Func _laden()
$Welt = 1
$file = FileOpenDialog("Spielstand laden:", @ScriptDir & "\saves", "Spielstand (*.sav)", 1 + 2, "The destroyed city.sav")
If @error = 1 Then
Sleep(0)
Else
$Hauser = 0
$LadenZahl = 0
$SpeicherPfad = $file
$LadenHolz = IniRead($file, "Rohstoffe", "Holz", "")
$LadenEisen = IniRead($file, "Rohstoffe", "Eisen", "")
$LadenNahrung = IniRead($file, "Rohstoffe", "Nahrung", "")
$LadenWerkzeug = IniRead($file, "Rohstoffe", "Werkzeug", "")
$LadenBewohner = IniRead($file, "Bewohner", "Bürger", "")
$LadenFormel = IniRead($file, "Daten", "Rechnung", "")
$LadenFormeDec = Dec($LadenFormel)
$Formel1 = $LadenHolz + $LadenEisen + $LadenNahrung + $LadenWerkzeug + $LadenBewohner * 100
If $Formel1 = $LadenFormeDec Then
GUISetState(@SW_LOCK)
$LadenZahlMax = IniRead($file, "Bau1", "ZahlHaus", "0")
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau1", "Haus" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau1", "Haus" & $LadenZahl, "0")
$Bau1[$Bau1Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Images\Welt 1\" & $Welt & "\Haus.jpg", $LadenBau, $LadenBau2, 50, 50)
$Bau1Zahl1 = $Bau1Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahlMax = IniRead($file, "Bau2", "ZahlHaus", "0")
$LadenZahl = 0
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenBau = IniRead($file, "Bau2", "Haus" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau2", "Haus" & $LadenZahl, "0")
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Haus.jpg", $LadenBau, $LadenBau2, 50, 50)
GUICtrlSetState(-1, $GUI_HIDE)
$Bau2Zahl1 = $Bau2Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahl = 0
$LadenZahlMax = IniRead($file, "Bau1", "ZahlSägewerk", "0")
If $LadenZahlMax > 0 Then
Do
$HolzAbbau = $HolzAbbau + 1
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau1", "Sägewerk" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau1", "Sägewerk" & $LadenZahl, "0")
GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $LadenBau, $LadenBau2, 50, 50)
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahlMax = IniRead($file, "Bau2", "ZahlSägewerk", "0")
$LadenZahl = 0
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau2", "Sägewerk" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau2", "Sägewerk" & $LadenZahl, "0")
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $LadenBau, $LadenBau2, 50, 50)
GUICtrlSetState(-1, $GUI_HIDE)
$Bau2Zahl1 = $Bau2Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
GUISetState(@SW_UNLOCK)
GUICtrlSetData($BefoelkerungPFAnzahl, $BewohnerMax)
GUICtrlSetData($RohstoffeHolzAnzahl, $LadenHolz)
GUICtrlSetData($RohstoffeEisenAnzahl, $LadenEisen)
GUICtrlSetData($RohstoffeNahrungAnzahl, $LadenNahrung)
GUICtrlSetData($RohstoffeWerkzeugAnzahl, $LadenWerkzeug)
GUICtrlSetData($BefoelkerungBuergerAnzahl, $LadenBewohner)
Else
MsgBox(16, "Error", "Spielstand kann nicht geladen werden")
EndIf
EndIf
EndFunc ;==>_laden

[/autoit] [autoit][/autoit] [autoit][/autoit]