Hallo zusammen,
ich bin gerade dabei ein kleines Spielchen zu machen.
Hierbei müsst ihr als Chef eines Unternehemns Geld verdienen und so wirtschafen.
Nun komme ich aber leider nicht mehr weiter aktuell
Im Script (Zeile 80) zählt er dann zwar alle 2 Sekunden die 500 € auf das Konto, nur kann man dann keine Buttons mehr drücken.
z.B. der "Geld verdienen" Button geht dann nicht mehr
ebeneso der Beenden Button auch nicht mehr.
Hat von euch vielleicht einer ein Lösung für mich wie er pro ( z.b. 5 Sekunden mir immer 500€ auf dieses "Konto" macht aber die Buttons noch bedienbar sind.
Vielen Dank im Vorfeld !!
Gruß
Headsniper1997
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Firmenmanager Simulator", 615, 438, 192, 124)
$Label1 = GUICtrlCreateLabel("Aktueller Firmenkontostand " & "0.00" & " €", 72, 60, 188, 41)
$Label2 = GUICtrlCreateLabel("Eine Firma kostet 1000.00€", 72, 20, 188, 41)
$Button1 = GUICtrlCreateButton("Geld verdienen", 352, 60, 201, 33)
$Button2 = GUICtrlCreateButton("Eine Firma kaufen", 352, 140, 201, 33)
$Button3 = GUICtrlCreateButton("Mitarbeiter", 952, 140, 201, 33)
$Button4 = GUICtrlCreateButton("Beenden", 352, 340, 201, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Input2 = 0
Global $Mitarbeiter = 0
Global $Gekauft = false
Global $i = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Input2 += 550.91
GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
Case $Button2
If $Input2 > 999 Then
$Input2 = $Input2 -999.91
Local $iRound1 = Round($Input2, 2)
GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
GUICtrlCreateLabel("Sie haben erfolgreich eine Frima gekauft gekauft!", 72, 140, 188, 41)
$Firmenname = InputBox ("Name der Firma", "Geben Sie den Namen ihrer Frima ein","")
GUICtrlCreateLabel(" Ihre Firma heißt nun " & $Firmenname, 472, 20, 170, 20)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUISetState(@SW_SHOW)
GUICtrlDelete ($Button2)
GUICtrlDelete ($Label2)
GUISetState(@SW_HIDE)
GUICreate("Firmenmanager Simulator", 615, 438, 192, 124)
GUISetState(@SW_SHOW)
GUICtrlCreateLabel(" Firmenname " & $Firmenname, 472, 20, 170, 20)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
$Button3 = GUICtrlCreateButton("Mitarbeiter", 352, 140, 201, 33)
$Button1 = GUICtrlCreateButton("Geld verdienen", 352, 60, 201, 33)
$Button4 = GUICtrlCreateButton("Beenden", 352, 340, 201, 33)
EndIf
Case $Button3
If $Input2 > 500 Then
$Input2 = $Input2 - 500
$Mitarbeiter = $Mitarbeiter + 10
GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
GUICtrlCreateLabel("Aktuelle Mitarbeiter " & $Mitarbeiter, 72, 140, 188, 41)
Local $iRound1 = Round($Input2, 2)
Global $Gekauft = true
ElseIf $Input2 < 500 Then
MsgBox (2, "Kein Kapital", "Sie besitzen nicht genügend Geld um sich einen Mitarbeiter zu kaufen")
EndIf
While 1
$Input2 = $Input2 + 500
GUICtrlCreateLabel("Aktueller Firmenkontostand " & $Input2 & " €", 72, 60, 188, 41)
Sleep (2000)
WEnd
Case $Button4
Exit
EndSwitch
WEnd
Alles anzeigen