Hallo Leute, ich habe mich an Stadt, Land, Fluss für den PC gesetzt, und dabei kam dass zu Stande:
(geeignet für zwischendurch auf einer Lan, wenn es grade Langweilig ist, und stift und zettel einfach zu aufwändig sind)
(Thx autoBert, für 1nen [wenig aber entscheidend] Befehl)
(Multiplayer addon coming soon)
(BUGS PLS REINSCHREIBEN)
VORWORT:
Ok, ich gebe zu, lukrativ ist es nicht, dieses Spiel am PC zu zocken, aber naja
DESHALB:
Lest weiter unten
Spoiler anzeigen
Global $Buchstabe = "AB", $Zahl = 0, $StadtName = "", $FlussName = "", $LandName = ""
Global $Runde = "1"
Global $Punkte = ""
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$StadtLandFluss_1 = GUICreate("Stadt, Land, Fluss", 478, 169, -1, -1)
$Start = GUICtrlCreateButton("Starte Spiel", 0, 0, 151, 31, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$ListView1 = GUICtrlCreateListView("Stadt|Land|Fluss|Punkte", 172, 0, 304, 166)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
$Label1 = GUICtrlCreateLabel("Buchstabe:", 4, 30, 116, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$StadtEintragen = GUICtrlCreateButton("Stadt", 2, 54, 75, 25, $WS_GROUP)
$LandEintragen = GUICtrlCreateButton("Land", 2, 78, 75, 25, $WS_GROUP)
$FlussEintragen = GUICtrlCreateButton("Fluss", 2, 102, 75, 25, $WS_GROUP)
$Punkte = GUICtrlCreateButton("Punkte eintragen", 76, 142, 95, 25, $WS_GROUP)
$Credits = GUICtrlCreateButton("Credits", 2, 142, 75, 25, $WS_GROUP)
$Stadt = GUICtrlCreateInput("Stadt", 78, 56, 91, 21)
$Land = GUICtrlCreateInput("Land", 78, 80, 91, 21)
$Fluss = GUICtrlCreateInput("Fluss", 78, 104, 91, 21)
GUICtrlSetState ($Punkte, $GUI_DISABLE)
GUICtrlSetState ($Land, $GUI_DISABLE)
GUICtrlSetState ($Fluss, $GUI_DISABLE)
GUICtrlSetState ($Stadt, $GUI_DISABLE)
GUICtrlSetState ($LandEintragen, $GUI_DISABLE)
GUICtrlSetState ($FlussEintragen, $GUI_DISABLE)
GUICtrlSetState ($StadtEintragen, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
Local $Zahl = Random(65, 90, 1)
Local $Label2 = GUICtrlRead($Label1)
Local $StadtName = "", $ZahlItem = 0, $FlussName = "", $LandName = ""
Local $PunkteStadt = "", $PunkteLand = "", $PunkteFluss = ""
GUICtrlSetState ($Punkte, $GUI_ENABLE)
GUICtrlSetState ($Land, $GUI_ENABLE)
GUICtrlSetState ($Fluss, $GUI_ENABLE)
GUICtrlSetState ($Stadt, $GUI_ENABLE)
GUICtrlSetState ($LandEintragen, $GUI_ENABLE)
GUICtrlSetState ($FlussEintragen, $GUI_ENABLE)
GUICtrlSetState ($StadtEintragen, $GUI_ENABLE)
GUICtrlSetState ($Start, $GUI_DISABLE)
$Buchstabe = Chr($Zahl)
GUICtrlSetData($Label1, "Buchstabe: "&$Buchstabe)
GUICtrlSetData ($Stadt, $Buchstabe)
GUICtrlSetData ($Land, $Buchstabe)
GUICtrlSetData ($Fluss, $Buchstabe)
Global $LVItem = GUICtrlCreateListViewItem ($StadtName&"|"&$LandName&"|"&$FlussName&"|"&$PunkteStadt&$PunkteLand&$PunkteFluss, $ListView1)
Case $StadtEintragen
$StadtName = GUICtrlRead ($Stadt)
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName)
GUICtrlSetState($Stadt, $GUI_DISABLE)
GUICtrlSetState($StadtEintragen, $GUI_DISABLE)
Case $LandEintragen
$LandName = GUICtrlRead($Land)
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName)
GUICtrlSetState($Land, $GUI_DISABLE)
GUICtrlSetState($LandEintragen, $GUI_DISABLE)
Case $FlussEintragen
$FlussName = GUICtrlRead($Fluss)
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName)
GUICtrlSetState($Fluss, $GUI_DISABLE)
GUICtrlSetState($FlussEintragen, $GUI_DISABLE)
Case $Punkte
Local $PunkteStadt = InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für die Stadt ?")
Local $PunkteLand = InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für das Land ?")
Local $PunkteFluss = InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für den Fluss ?")
$PunkteGesamt = $PunkteStadt+$PunkteLand+$PunkteFluss
$NeueRunde = "Starte neue Runde"
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName&"|"&$PunkteGesamt)
GUICtrlSetState ($Punkte, $GUI_DISABLE)
GUICtrlSetState ($Start, $GUI_ENABLE)
GUICtrlSetState ($Land, $GUI_DISABLE)
GUICtrlSetState ($Fluss, $GUI_DISABLE)
GUICtrlSetState ($Stadt, $GUI_DISABLE)
GUICtrlSetData ($Start, $NeueRunde)
Case $Credits
MsgBox (0, "Credits", "Version 1.3 made by EliteMattthias"&@CRLF&"Special Thanks:"&@CRLF&"AutoBert (Für Hilfe)"&@CRLF&"Raupi (Für Hilfe)"&@CRLF&@CRLF&"(C) EliteMattthias"&@CRLF&"Alle Rechte sind vorbehalten!"&@CRLF&@CRLF&@CRLF&@CRLF&"UPDATE 1.3 was come."&@CRLF&"Next Update coming soon")
EndSwitch
WEnd
Für alle die nicht wissen wie man es spielt:
Es ist ein "Multiplayer" Spiel (nur dass es Offline ist)... [weiter unten ein paar worte dazu]
Man startet das Script, und drückt den STARTE SPIEL Button...
JETZT geht es um die Wurst, wer ist der schnellste ?!?
Wer hat zuerst Stadt, Land, Fluss eingetragen...
um dass einzutragen drückt man den jeweiligen BUTTON dafür
Wer zuerst fertig ist sagt STOPP, und die anderen dürfen nicht mehr eintragen (wie gesagt, man spielt es für gewöhnlich in einer kleinen runde)
Für jede /s /n Stadt / Land / Fluss gibt es die gleiche Punktzahl, denkt sie euch aus
Hat einer oder mehrere euer mitspieler das gleiche wie ihr, gibt es nur die halbe Punktzahl pro Nase.
Wir spielen dass im Unterricht immer mit 10 für jedes richtige, 5 für jedes richtige dass auch andere haben, aber denkt es euch selber aus
Multiplayer Mode:
Ich habe es deshalb im Bereich PROJEKTE veröffentlicht, weil ich noch Leute suchen, die Mithelfen würden, das ganze Multiplayer-Fähig zu machen...
Also:
Wer Intresse hat, einfach melden
BITTE SCHREIBT WIE ES EUCH GEFÄLLT !!!
Jeder der noch Add-Ons wie "Stars", "Pflanze", "Name" etc. möchte, einfach hinschreiben, ich kann ja eine Umfangreichere Version coden
MFG EliteMattthias
UPDATE 1.3:
Input in GUI
Script verkleinert
Hatte vorher noch 1-2 kleine unangenehmlichekeiten