Übungszettel 4

In dieser und den nächsten Übungen werden wir uns mit der (Weiter-)Entwicklung eines Spiels beschäftigen.

Bisher umfasst das Spiel die folgenden Module:

• GameTypes.hs
• GameLogic.hs
• GameDraw.hs
• GameConfig.hs
• GameMain.hs

Sie können es mit stack exec Game ausprobieren.

Wie Sie sehen werden, sind uns bei der Implementation dieses Spiels leider einige Fehler unterlaufen. Außerdem fehlen noch einige wichtige Features, aber zum Glück kennen sich unsere Tutanden gut genug aus, um uns zu helfen!

Issue 1

Sie haben in der Vorlesung bereits Record syntax kennengelernt. Im Modul GameLogic.hs unter "Initialization" findet sich die unschöne Funktion newWorld. Geben Sie dieser Funktion eine anschauliche Form, indem Sie Teilausdrücke refaktorisieren (in sinnvollen Funktionen oder where-/let-Klauseln) und verwenden Sie Record syntax um eine default World anzulegen! Bedenken Sie, dass sie zur Zuweisung einzelner Record fields genau deren Namen verwenden müssen (nicht die daraus erstellten Lenses).

Issue 2

In der Datei GameDraw.hs wird bestimmt, wie eine World angezeigt wird.

1. Ergänzen Sie den Code, so dass ein toter Boss als rotes 'T', ein toter Hero als grünes 'T' dargestellt wird.
2. Ergänzen Sie das Spiel um einen visuellen Hinweis, der anzeigt, ob das Spiel pausiert ist.

Issue 3

Obwohl die Spielerbewegung einwandfrei funktioniert, schlägt der entsprechende QuickCheck-Test fehl! Korrigieren Sie den QuickCheck-Test.

Issue 4

1. Implementieren Sie eine neue Action, die die Blickrichtung des Helden ändert, ohne dass ein World-Update stattfindet. Erweitern Sie hierfür entsprechend den Action-Typ in GameTypes.hs, modifizieren Sie performAction in GameLogic.hs und schreiben Sie eine Funktion changeDirection :: Direction -> World -> World. Erweitern Sie außerdem getAction in GameConfig.hs, so dass gilt:

• 'h' führt zu Blick nach West
• 'j' führt zu Blick nach North
• 'k' führt zu Blick nach South
• 'l' führt zu Blick nach East.

2. Eine Kollegin hat begonnen ein neues Feature zu implementieren: Eine neue Action soll dem Spieler/der Spielerin das Stellen von Fallen vor dem Helden ermöglichen. Bewegt sich ein Monster auf eine solche Falle, soll diese zuschnappen und Schaden zufügen. Die Kollegin hat bereits einen Action-Wert (SetTrap) und einen Entity- Wert (Trap) in GameTypes.hs angelegt und getAction in GameConfig.hs angepasst. Im GameLogic-Modul hat sie die zu modifizierenden Stellen mit einem -- TODO-Kommentar markiert. Bringen Sie ihre Arbeit zuende.

Bonus: Issue 5

An einigen Stellen im Code fügen Entities Schaden zu. Hard coded finden sich folgende Schadenswerte:

• Angreifender Hero fügt Boss 45 Schaden zu
• Explodierende Bomb fügt Held 30 bzw. entfernter 15 Schaden zu
• Läuft der Held in ein Fire fügt es ihm 15 Schaden zu
• Läuft der Boss in eine Trap fügt diese ihm x Schaden zu

Implementieren Sie ein sinnvolles Schadensystem, in dem Sie den Typ Stats um ein Feld _damage :: Integer erweitern. Ein großes Feuer soll mehr Schaden zufügen als ein kleines. Passen Sie die GameLogic entsprechend an. Hinweis: Trap hat bisher keine Stats. Wie Sie hier verfahren, ist Ihnen überlassen.

Appendix:

Die wichtigsten Lens operators (unbedingt anschauen): https://github.com/ekmett/lens/wiki/Operators

Auch das hier ist definitv einen Blick Wert: http://intolerable.me/lens-operators-intro/

Und hier noch ein Link zu Setter: https://hackage.haskell.org/package/lens-4.15.2/docs/Control-Lens-Setter.html