Hallo leute,
ich hatte heute mal wieder ein wenig Zeit und konnte mich AutoIT widmen.
Mir kam im Kopf einfach mal ein kleines "Würfelspiel" zu schreiben indem der Spieler gegen den Computer würfelt.
Ich habe Erstmal die Theorie fertiggestellt wie das ganze vom Code aussehen soll und habe auch gleich eine frage dazu.
Es gibt ja tausend wege die zum Weg führen um ein Ergebnis zu erhalten, ein weg ist folgender:
[autoit]Global $playerHuman
Global $playerKI
Global $Message
;--------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_cube()
EndSwitch
WEnd
;##################Funktion Würfeln#########################
Func _cube()
$playerHuman = Round(Random(1,6))
msgbox(0,"Ergebnis","Du hast die Zahl "&$playerHuman&" gewürfelt")
$playerKI = Round(Random(1,6))
If $playerHuman > $playerKI Then
$Message = "Du hast gewonnen!"
ElseIf $playerHuman < $playerKI Then
$Message = "Der Computer hat gewonnen!"
ElseIf $playerHuman = $playerKI Then
$Message = "Unentschieden!"
EndIf
MsgBox(0,"Ergebnis","Der Computer hat die Zahl "&$playerKI&" gewürfelt. "&$Message)
EndFunc
Klappt soweit, aber ist der Code so Sinnvoll? Wie kann man ihn noch optimieren?
Danke, ich freue mich über jede Antwort