Beiträge von Jam00

Jam00

weiß jemand wie man eine Bestehende gui Verändern kann?

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

Jam00

Ich meinte das von Tweaky

Jam00

Das ist ganz schön Kompliziert!

Jam00

hey, geil danke

Jam00

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

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

Jam00

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

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!

Jam00

thx

Jam00

ja is so!

Jam00

Man, ich bin erst in der R7, wir hatten noch keine Prozentrechnung!

Jam00

Hallo, ich hab mal eine frage, kann man mit AutoIt Prozente errechnen?
Also ich hab eine Zahl z.B. 100 und noch eine 50 (ganz leichtes beispiel) und ich möchte, das der mir die Prozentzahl errechnet, also 50 sind wie viel Prozent von 100

Und dann Umgekehrt, ich hab wieder eine Zahl also ich hab eine angabe, 50% Und hab eine Zahl 50 und ich will dann die angabe wie viel das ist (also 25)

thx, ich weiß ich mas koplieziert

Jam00

thx für die schnellen antworten

Jam00

Weiß jemand wie man die Bildschirmauflösung änden kann?

Jam00

vielecht liegs daran, ich hab nähmlich 1650*1050, probier das mal aus!

Jam00

Komisch, bei mir wird es da gebaut, wo ich klicke! Welche Bildschirmauflösung hast du?

Jam00

FirePanther
1. Ja, daran hab ich auch schon gedacht, aber beim Vollbild gibt es das Problem, dass wenn man das Spiel dann bei einer Anderen Auflösung Startet und dann ein Spielstand läd, der bei einer anderen auflösung gemacht wurde, werden die Pic's nicht richtig dargestellt!

2. Das ist komisch, bei mir kommt das Gebaude, wo ich geklickt hab! Hast du das Spiel mal nen Gestartet? War bei mir nähmlich auch mal, hab ich es nochmal gestartet gings wieder

3. Das weiß ich, aber hab noch keine Ahnung wie ich das verhindern, versuch es zur Zrit zu Beheben!

4. Also das Pass bei mir auch nit, vielecht, war das weil gerad irgendein fehler war, wie bei 2.

5. Das will ich versuchen, aber ich galub nit das ich das noch hinbekomme, vieleicht, wenn wir noch eine Version mache Vieleicht kann ich es bis dahin!

6. Ja, das ist mir auch aufgefallen, aber ka warum das so ist Muss ich mich mal drum kümmern!

7. Ich kann mit Flash nix machen! Und es stellt glaube ich auch nit so Große möglichkeiten wie AutoIt bereit!

Die Grafik soll noch verbessert werden Darum kümmmern wir uns wenn wir das Scrip fertig haben!

Jam00

Tschuldigung, hab ich vergessen , hab es jetz reingstellt

Jam00

So das Spiel ist fertig!
Im Spiel geht es darum sich eine Große Stadt in 3 Welten aufzubauen! Und mehr zu erfahren spielt es einfach^^

Der Surecode gibt es auch zum Laden! Ich hab schon Letztes Jahr mit dem Spiel angefangen also erwatet das es ein kurzer code ist
Ich habe die Datei Updater.exe angehängt. Die läd euch das Spiel runter. Ich hätte ja gerne das ganze spiel hochgeladen, aber es ist zu groß

Beiträge von Jam00

Gui verändern

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

Prozentrechnen

Prozentrechnen

Prozentrechnen

Prozentrechnen

Bildschirmauflösung ädern

Bildschirmauflösung ädern

The destroyed City

The destroyed City

The destroyed City

The destroyed City

The destroyed City