Nachdem ich es seit längerem nicht mehr geschafft habe meine bereits angefangenen Artikel zu veröffentlichen (dies leider aus Zeitgründen), hier mal etwas Neues aus der Kategorie ‚Spiele unter PowerShell‘. Um zu zeigen das mit PowerShell auch mehr als nur einfache Abfragen gegen das AD generiert werden können, habe ich hier ein Galgenraten, nicht grafischer Art, geschrieben. Dieses PS Script dient mir als Vorlage für die spätere Version in C#. Gerne kann auch über die Umsetzung und Effizienz des Codes diskutiert werden. Vielleicht gibt es einen besseren oder schöneren Weg? Aber nun erst mal zu meinem Code.
Welche Funktionen und Tools werden seitens PowerShell benötigt?
Grundsätzlich habe ich hier nur Funktionen auf Basis von PowerShell 3.0 genutzt. Dennoch sollte das Script ebenso mit PowerShell 2.0 funktionieren. Auf zusätzliche Cmdleds habe ich gänzlich verzichtet. Folgende Funktionen eines Strings habe ich genutzt:
- ToUpper()1
- Contains()1
- Split()2
- Replace()2
- Remove()2
- ToString()3
1 Diese Funktionen habe ich im Artikel PowerShell – 03.2 – Strings bearbeiten und untersuchen mit […] beschrieben.
2 Die Funktionen zum Bearbeiten eines Strings wurden im Artikel PowerShell – 03 – Strings zerlegen, zuschneiden, Teile ausschneiden, verbinden beschrieben.
3 toString() wandelt einen beispielsweise eine Integer in einen String um.
Es wurden auch Functions (PowerShell – 11 – Funktionen (Functions)) genutzt um zum einen das Script etwas übersichtlicher zu halten und damit sie die Abfrage nach dem Buchstaben wieder selbst aufrunden kann. Sicher hätte das auch mittels Do While Schleifen funktioniert. In meinem Falle reicht aber auch ein einfacher Funktionsaufruf.
Um die Anzahl der Versuche für ein Wort zu generieren habe ich mich einer einfachen Formel (0.3 * Wortlänge) bedient. Da dies zu Gleitkommazahlen führt, muss die Zahlen noch gerundet werden. Dafür nutzte ich die Mathefunktion Round. Dabei wird auf Ganzzahlen gerundet. Anschließend wird geprüft ob der ermittelte Wert unter 4 liegt, dann wird das Ergebnis von 4 Abgezogen und der Überhang anschließend auf die Anzahl der Versuche geschlagen, sodass der Spieler mindestens 4 Versuche pro Wort hat. Um dieses Wirre Kauderwelsch etwas verständlicher zu machen, hier der erste Code-Schnipsel.
|
1 2 3 4 5 6 7 8 9 10 |
Function LebenspunkteErmitteln { $Lebenspunkte = (0.3 *$Wort.Length) $Lebenspunkte = [System.Math]::Round($Lebenspunkte,0) If($Lebenspunkte -lt 4) { $Stock = 4 - $Lebenspunkte $Lebenspunkte = $Lebenspunkte+$Stock } } |
Anschließend muss das gesucht Wort, hier im Beispiel soll es PowerShell sein, noch in die für den Spieler gesuchte Form P_________ gebracht werden. Ziel ist es das der Anfangsbuchstabe stehen bleibt, sollte dieser nochmals im Wort vorkommen, soll dieser natürlich auch stehen bleiben, z.B. bei Einkaufszentrum muss das E immer stehen bleiben, also wie folgt E________e____. Dazu wird eine temporäre Variable $Wort_tmp benötigt und eine einfache For-Schleife. Zuerst wird die temporäre Variable dem Wort gleichgesetzt $Wort_tmp = $Wort. In der For-Schleife wird nun geprüft ob der Anfangsbuchstabe nochmals vorkommt.
|
1 2 3 4 |
If($Wort[$i].ToString().ToUpper() -eq $Wort[0]) {te Write-Host "Anfangsuchstabe $Wort[0] ist nochmal vorhanden" } |
Ist dies der Fall so wird der aktuelle Wert in der Variable $Wort_tmp durch den Anfangsbuchstaben ersetzt, ist dies jedoch nicht der Fall wird das aktuelle Feld nur ein Unterstrich „_“ ersetzt. Sodas am Ende die Variable $Wort_tmp wie folgt aussieht: P_________.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
#Ausgabe in der Console erstellen for($i=0;$i -lt $Wort.Length;$i++) { If($Wort[$i].ToString().ToUpper() -eq $Wort[0]) { $Wort_tmp = $Wort_tmp.Replace($Wort_tmp[$i],$Wort[0]) } else { $Wort_tmp = $Wort_tmp.Replace($Wort_tmp[$i],'_') } } |
Ein weiteres Problem war einen Weg zu finden den richtig getippten Buchstaben im Wort korrekt einzusetzen, wenn das Wort wie in unserem Beispiel PowerShell heißt, sieht es für den Spieler wie folgt nun aus P_________. Tippt dieser auf L und mach möchte mit der Funktion Replace() des Strings arbeiten werden alle ‚_‚ durch L ersetzt. Hier musste ich etwas tricksen, dazu habe ich zwei temporäre Variablen genommen. Tippt der Spieler nun L ein wird nachfolgende Schleife durchlaufen, wenn L im Wort vorhanden ist.
Zuerst wird geprüft ob der gesuchte Buchstabe L enthalten ist, die Zeile dazu:
|
1 2 3 4 |
If($Wort.ToUpper().Contains($Buchstabe.ToUpper())) { Write-Host "Buchstabe $Buchstabe ist enthalten" } |
Ist diese Prüfung wahr, wird ermittelt wie oft der Buchstabe L sich im Wort PowerShell befindet. Die Übereinstimmungen werden in der Variable $Treffer gespeichert. Leider reicht es hier nicht einfach nur einen Counter hochzählen zulassen, ich benötige die exakte Stelle im Wort PowerShell. Dazu nutze ich eine For-Schleife mit der ich jeden einzelnen Buchstaben mit Wort mit dem gesuchten Buchstaben L vergleiche. Ist diese Prüfung wahr, wird die Variable $Treffer mit dem Wert von $i und einem Semikolon erweitert. Warum jetzt $i? Ganz einfach, $i ist exakt der Wert des Buchstaben im Wort. In Unserem Beispiel ist dies einmal 8 und 9. Position 8 und 9 weil Arrays immer mit 0 Anfangen zu zählen. Anschließend Splitten wir die Variable $Treffer in ein Array und entfernen zuvor das letzte Semikolon. Somit haben wir die genaue Anzahl der Übereinstimmungen und die exakte Position der Buchstaben ermittelt. Dazu dient folgender Code-Schnipsel
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
for($i=0; $i -lt $Wort.Length;$i++) { If($Wort[$i].ToString().ToUpper() -eq $Buchstabe.ToUpper()) { $Treffer = $Treffer+$i+";" #write-host $i -ForegroundColor Green } } # Übereinstimmungen im Wort splitten $Treffer = $Treffer.Remove($Treffer.Length-1,1) $Treffer_tmp = $Treffer.Split(';') $Treffer_tmp.Count #Ausgabe wäre hier 2 für L in PowerShell |
Nun müssen wir die Übereinstimmungen noch in das Wort P_________ rein basteln. Dazu benötigen wir die eben ermittelte Anzahl von L und die exakten Positionen sowie zwei temporäre Variablen, einen Counter und eine For-Schleife. Die Variable $Wort_tmp2 wird der Wert von der bereits oben beschriebenen Variable $Wort_tmp übergeben. Dies geschieht aber nicht einfach als $Wort_tmp2 = $Wort_tmp, sonder $Wort_tmp2 = $Wort_tmp[0..$Wort_tmp.Lenth]. Was soll das bedeuten? Ganz einfach, hier wird nicht der String als String übergeben, sondern $Wort_tmp2 wird zu einem Array. So können wir jedes einzelne Feld prüfen und bei einer Übereinstimmung den gesuchten Buchstaben ersetzen. Die zweite temporäre Variable ist $Ausgabe_tmp, diese bildet anschließend die neu gebildete Ausgabe P_______LL. In der For-Schleife passiert dazu folgendes, der aktuelle Wert der Variable $Wort_tmp2 wird immer mit dem Wert von $Treffer_tmp[$j] verglichen. Passt dieser wird der Variable $Ausgabe_tmp der gesuchte Buchstaben, hier L, hinzugefügt. Gibt es keine Übereinstimmung so wird der Counter $j um eins erhöht und es wird der Wert von $Wort_tmp2 abgehangen, was dann ein Unterstrich „_“ ist. So wird aus dem Array $Wort_tmp2 und dem einzelnen $Buchstaben wieder ein String $Ausgabe_tmp.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
#Neues Wort zusammensetzen $Wort_tmp2 = $Wort_tmp[0..$Wort_tmp.Length] $j=0 $Ausgabe_tmp="" for($i=0;$i -lt $Wort_tmp2.Count; $i++) { #$i If ($i -eq $Treffer_tmp[$j]) { $Ausgabe_tmp = $Ausgabe_tmp + $Buchstabe $j++ } else { $Ausgabe_tmp= $Ausgabe_tmp + $Wort_tmp2[$i] #$Ausgabe_tmp } } } |
Anschließend muss das Ergebnis noch in der Console ausgegeben werden. Ist der gewählte $Buchstabe im Wort, so wird die oben genannte Schleife durchlaufen und es wird kein Lebenspunkt abgezogen. Ist dies nicht der Falle würde die Schleife nicht durchlaufen und gleich das Ergebnis präsentiert werden und natürlich ein Lebenspunkt abgezogen.
Nachdem dies geschehen ist, muss geprüft werden ob die Lebenspunkte bei 0 angekommen sind, ist dies der Fall so wird das Spiel mit einer entsprechenden Meldung und dem Exit-Command beendet.
Ebenso muss der gewählte Buchstabe aus dem vorgegebenen ABC entfernt werden, da dieser bereist verwendet wurde.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
$ABC = $ABC.Replace($Buchstabe.ToUpper()+' ',"") $Treffer="" $Treffer_tmp="" #Ausgabe Display Write-Host `n $ABC $Wort_tmp #HP abziehen $Lebenspunkte-- 'Es verbleiben ' + $Lebenspunkte + ' Versuche' If($Lebenspunkte -eq 0) { Write-Host 'Du wurdest gehängt!' -BackgroundColor Magenta -ForegroundColor White Write-Host "Das gesuchte Wort war $Wort." -BackgroundColor Magenta -ForegroundColor White exit } If($Wort_tmp -match '_') {Game} else { Write-Host 'Du hat es geschafft!' -BackgroundColor Magenta -ForegroundColor White } |
Um nun den nächsten Buchstaben erraten zu können wird geprüft ob unser Wort $Wort_tmp noch das Zeichen ‚_‘ enthält. Ist der Unterstrich noch enthalten, so gilt das Wort als noch nicht gelöst und die Hauptfunktion Game wird erneut aufgerufen, andern Falls wird die Funktion nicht mehr aufgerufen und eine Meldung „Du hast es geschafft“ ausgegeben und das Spiel ist erfolgreich beendet.
Soweit das Spiel in seinem Grundkonzept. Jetzt kommen wir zu dem wesentlich schwierigeren Teil: Fehler abfangen und das Ganze DAU-sicher machen.
Fehler abfangen und etwas Kosmetik
Was würdet ihr tun, wenn ihr eine solche Consolen-Anwendung vor die Nase gesetzt bekommt? Genau, erstmals kurz stauen und dann so schnell wie möglich alles versuchen damit das Teil abstürzt und bloß nicht das machen was die Anwendung von mir will. Um die Anfälligkeit der Anwendung gegen solche Versuche etwas zu minimieren habe ich folgendes unternommen.
Prüfen der Inputliste
Als erstes wird geprüft, ob die Wörterliste geladen werden kann. Dies läuft in einer Funktion, da diese sich wieder selbst aufrufen, sollte die Liste nicht erreichbar sein. Das Ganze ist einfach mittels Try-Catch realisiert. Es wird einfach versucht die angegebene Liste mittels Get-Content zu laden, schlägt dies Fehl springt das Script in den Catch-Fall und bittet den Benutzer mittels Read-Host den korrekten Pfad zur Wortliste anzugeben. Dieser Vorgang wird solange widerholt, bis entweder die Liste erreichbar ist oder der Benutzer ‚exit‘ eingibt. In diesem Falle wird das Script beendet. Ist dieser Schritt geschafft geht es auch schon daran die Eingabe des Spielers zu überwachen.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
Function LoadList { try{ #$WortPfad $Wortliste = Get-Content -Path $WortPfad -ErrorAction Ignore $Wort = $Wortliste[(Get-Random -Maximum $Wortliste.Count)] $Wort_tmp = $Wort #Write-Host $Wort ' und ' $Wort_tmp -ForegroundColor Red } catch { Write-Host "Die Inputliste konnte nicht geladen werden." -BackgroundColor White -ForegroundColor DarkRed $WortPfad = Read-Host "Bitte den Pfad zur Wortliste angeben`nZ.B.: 'D:\Dokumente\Wörterliste.txt'`n" If($WortPfad -eq 'exit') { break } LoadList } #Ausgabe in der Console erstellen for($i=0;$i -lt $Wort.Length;$i++) { If($Wort[$i].ToString().ToUpper() -eq $Wort[0]) { $Wort_tmp = $Wort_tmp.Replace($Wort_tmp[$i],$Wort[0]) $ABC = $ABC.Replace($Wort[0].ToString().ToUpper()+' ',"") } else { $Wort_tmp = $Wort_tmp.Replace($Wort_tmp[$i],'_') } } LebenspunkteErmitteln } |
Prüfen der eingabe
Geprüft wird die Eingabe. Hier habe ich die Länge der Eingabe auf 1 Zeichen beschränkt zudem dürfen Sonderzeichen wie +,*,\,/,$ etc. nicht enthalten sein, diese wird alles in die If-Abfrage gepackt.
|
1 2 3 4 5 6 |
if($Buchstabe.Length -gt 1 -or $Buchstabe.Length -lt 1 -or $Buchstabe -eq '+' -or $Buchstabe -eq '-' -or $Buchstabe -eq '*' -or $Buchstabe -eq '/' -or $Buchstabe -eq '\' -or $Buchstabe -eq '$' -or $Buchstabe -eq '(' -or $Buchstabe -eq ')' -or $Buchstabe -eq '=' -or $Buchstabe -eq '!' -or $Buchstabe -eq '?' -or $Buchstabe -eq '"' -or $Buchstabe -eq '§' -or $Buchstabe -eq '%' <#ne 0-9 + Sonderzeichen#>) |
Geprüft werden muss auch, ob der gewählte Buchstabe noch im vorgegebenen Alphabet $ABC vorhanden ist. Ist der Buchstabe nicht mehr enthalten, so wird eine Ausgabe erzeugt, die den Spieler auffordert einen anderen Buchstaben einzugeben.
|
1 2 3 4 5 6 7 8 9 |
if($ABC -notmatch $Buchstabe.ToUpper()) { Write-Host "Der Buchstabe $($Buchstabe.ToUpper()) wurde brereits verwendet." -BackgroundColor Magenta -ForegroundColor White Write-Host `n $ABC $Wort_tmp 'Es verbleiben ' + $Lebenspunkte + ' Versuche' Game } |
Noch etwas kosmetik
Damit die Ausgabe der Console nicht in einem Farblosen Schriftberg untergeht, habe ich hier mittels der Eigenschaften von Write-Host etwas Farbe rein gebracht.
Das Script könnt ihr euch hier nochmal im Ganzen anschauen. Ebenso könnt ihr es hier downloaden mit meiner äußerst kreativen Wortliste ;). Dann bitte einfach noch den String $WortPfad anpassen.
Wer noch Ideen, Anregungen oder Fragen zum Code hat oder Verbesserungen sieht, darf sich gerne melden 🙂
[wpfilebase tag=file id=6 /]
rewe
Script komplett, leider musste ich die Formatierung etwas anpassen, da der Interpreter hier sonst etwas Murks macht.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 |
#<# # Beschreibung # Galgenraten. # Es muss ein zufälliges Wort eraten werden. Je nach Wortlänge stehen #dem Spieler # entsprechend viele Versuche zur Verfügung, jedoch mindestens 4. Das #Wort wird Buchstabe für # Buchstabe erraten. Meint der Spieler das Wort zu kennen, so kann der #das Lösungswort direkt eingeben, # Tippt der Spieler auf einen falschen Buchstaben oder gibt das flasche #Lösungswort ein sinkt der Überlebensfaktur, # ist dieser bei 0 angelangt, so hat der Spieler verloren. Einige #Sonderzeichen sind Ä Ö Ü und ß. # # Die Wörter werden aus einer Inputliste geladen und zufällig #ausgewählt. Die Liste lässt sich einfach erweitern. # # Autor # V 1.0 31.03.2014 Initiale Version, Stefan Rehwald, #blog.stefanrehwald.de # V 1.1 01.04.2014 Sofortiges lösen des Wortes ist nun möglich |Z92 # V 1.x 05.07.2014 Erweiterungen um Schwierigkeitsgrad ?! # ##> #Vars - Bitte setzten [string]$WortPfad = 'D:\Test\Wörterbuch.txt'#'D:\SRScripte\wortliste.txt' #Vars - nicht bearbeiten [string]$ABC = "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Ä Ö Ü ß" [string]$Wort = "" [string]$Wort_tmp = "" [string]$Wort_tmp2 = "" [string]$Ausgabe_tmp = "" [string]$Treffer = 0 [string]$Treffer_tmp = 0 [decimal]$Lebenspunkte = 0 #Inputliste laden Function Main { LoadList } Function LoadList { try{ #$WortPfad $Wortliste = Get-Content -Path $WortPfad -ErrorAction Ignore $Wort = $Wortliste[(Get-Random -Maximum $Wortliste.Count)] $Wort_tmp = $Wort #Write-Host $Wort ' und ' $Wort_tmp -ForegroundColor Red } catch { Write-Host "Die Inputliste konnte nicht geladen werden." -BackgroundColor White -ForegroundColor DarkRed $WortPfad = Read-Host "Bitte den Pfad zur Wortliste angeben`nZ.B.: 'D:\Dokumente\Wörterliste.txt'`n" If($WortPfad -eq 'exit') { break } LoadList } #Ausgabe in der Console erstellen for($i=0;$i -lt $Wort.Length;$i++) { If($Wort[$i].ToString().ToUpper() -eq $Wort[0]) { $Wort_tmp = $Wort_tmp.Replace($Wort_tmp[$i],$Wort[0]) $ABC = $ABC.Replace($Wort[0].ToString().ToUpper()+' ',"") } else { $Wort_tmp = $Wort_tmp.Replace($Wort_tmp[$i],'_') } } LebenspunkteErmitteln } Function LebenspunkteErmitteln { $Lebenspunkte = (0.3 *$Wort.Length ) $Lebenspunkte = [System.Math]::Round($Lebenspunkte,0) If($Lebenspunkte -lt 4) { $Stock = 4 - $Lebenspunkte $Lebenspunkte = $Lebenspunkte+$Stock } Write-Host `n`n $ABC $Wort_tmp 'Es verbleiben ' + $Lebenspunkte + ' Versuche' Game } Function Game { $Buchstabe = Read-Host "Buchstabe eingeben" If($Buchstabe.ToUpper() -eq $Wort.ToUpper()) { Write-Host 'Du hat es geschafft!' -BackgroundColor Magenta -ForegroundColor White Write-Host "Das gesuchte Wort war $Wort." -BackgroundColor Magenta -ForegroundColor White break } elseIf ($Buchstabe -eq "exit") { Write-Host "Du hast das Spiel verlassen " -ForegroundColor Red break } elseif($Buchstabe.Length -gt 1 -or $Buchstabe.Length -lt 1 -or $Buchstabe -eq '+' -or $Buchstabe -eq '-' -or $Buchstabe -eq '*' -or # nur für den Interpreter eingefügt $Buchstabe -eq '/' -or $Buchstabe -eq '\' -or $Buchstabe -eq '$' -or $Buchstabe -eq '(' -or $Buchstabe -eq ')' -or $Buchstabe -eq '=' -or $Buchstabe -eq '!' -or $Buchstabe -eq '?' -or $Buchstabe -eq '"' -or $Buchstabe -eq '§' -or $Buchstabe -eq '%' <#ne 0-9 + Sonderzeichen#>) { Write-Host "Bitte nur ein Buchstaben eingeben`nEbenso keine Sonderzeichen." -ForegroundColor Green Write-Host `n $ABC $Wort_tmp 'Es verbleiben ' + $Lebenspunkte + ' Versuche' Game } elseif($ABC -notmatch $Buchstabe.ToUpper()) { Write-Host "Der Buchstabe $($Buchstabe.ToUpper()) wurde brereits verwendet." -BackgroundColor Magenta -ForegroundColor White Write-Host `n $ABC $Wort_tmp 'Es verbleiben ' + $Lebenspunkte + ' Versuche' Game } elseif($Buchstabe.Length -eq 1) { if($Wort.ToUpper().Contains($Buchstabe.ToUpper())) { $ABC = $ABC.Replace($Buchstabe.ToUpper()+' ',"") for($i=0; $i -lt $Wort.Length;$i++) { If($Wort[$i].ToString().ToUpper() -eq $Buchstabe.ToUpper()) { $Treffer = $Treffer+$i+";" #write-host $i -ForegroundColor Green } } # Übereinstimmungen im Wort splitten $Treffer = $Treffer.Remove($Treffer.Length-1,1) $Treffer_tmp = $Treffer.Split(';') #$Treffer_tmp.Count #Neues Wort zusammensetzen $Wort_tmp2 = $Wort_tmp[0..$Wort_tmp.Length] $j=0 $Ausgabe_tmp="" for($i=0;$i -lt $Wort_tmp2.Count; $i++) { #$i If ($i -eq $Treffer_tmp[$j]) { $Ausgabe_tmp = $Ausgabe_tmp + $Buchstabe $j++ } else { $Ausgabe_tmp= $Ausgabe_tmp + $Wort_tmp2[$i] #$Ausgabe_tmp } } } else { $ABC = $ABC.Replace($Buchstabe.ToUpper()+' ',"") $Treffer="" $Treffer_tmp="" #Ausgabe Display Write-Host `n $ABC $Wort_tmp #HP abziehen $Lebenspunkte-- 'Es verbleiben ' + $Lebenspunkte + ' Versuche' If($Lebenspunkte -eq 0) { Write-Host 'Du wurdest gehängt!' -BackgroundColor Magenta -ForegroundColor White Write-Host "Das gesuchte Wort war $Wort." -BackgroundColor Magenta -ForegroundColor White exit } If($Wort_tmp -match '_') {Game} else { Write-Host 'Du hat es geschafft!' -BackgroundColor Magenta -ForegroundColor White } } #Ausgabe Display $Treffer="" $Treffer_tmp="" Write-Host `n $Wort_tmp = $Ausgabe_tmp $ABC $Wort_tmp 'Es verbleiben ' + $Lebenspunkte + ' Versuche' If($Wort_tmp -match '_') {Game} else { Write-Host 'Du hat es geschafft!' -BackgroundColor Magenta -ForegroundColor White break } } } #Starte Script Main |
Ein Gedanke zu „PowerShell – Games 01 – Galgenraten / Hangman“