From a6f85b9b8894a7817baad1a5e850366d02eb197a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 13 Jan 2016 18:18:06 +0100
Subject: FFP 11.1

---
 ws2015/ffp/blaetter/11/GameUnits.hs | 76 +++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 ws2015/ffp/blaetter/11/GameUnits.hs

(limited to 'ws2015/ffp/blaetter/11/GameUnits.hs')

diff --git a/ws2015/ffp/blaetter/11/GameUnits.hs b/ws2015/ffp/blaetter/11/GameUnits.hs
new file mode 100644
index 0000000..a47614e
--- /dev/null
+++ b/ws2015/ffp/blaetter/11/GameUnits.hs
@@ -0,0 +1,76 @@
+-- Fortgeschrittene Funktionale Programmierung, 
+--   LMU, TCS, Wintersemester 2015/16
+--   Steffen Jost, Alexander Isenko
+--
+-- Übungsblatt 11. 13.01.2016
+--
+-- Teilaufgabe 
+-- A11-4b TemplateHaskell
+
+{-# LANGUAGE TemplateHaskell, QuasiQuotes #-}
+
+module GameUnits where
+
+
+import Data.Char
+import System.Random
+import Language.Haskell.TH
+
+uncapitalize :: String -> String
+uncapitalize (c:s) = (toLower c):s
+uncapitalize []    = []
+
+---------------------------
+-- Datatype Declarations --
+---------------------------
+
+data Unit = Unit {str, hit :: Int, flyer :: Bool, name :: String } 
+  deriving (Eq, Show)
+type Units = [Unit]
+
+unit :: Unit -- default Value 
+unit = Unit {str=undefined, hit=2, flyer=False, name=undefined }
+    
+takeHit :: Unit -> Unit
+takeHit monster = monster { hit = hit monster - 1 }
+    
+isDead :: Unit -> Bool
+isDead Unit { hit=n } = n <= 0
+
+----------------------------------    
+-- Some Stock Units in the game --
+----------------------------------
+stockUnitList :: [Unit]
+stockUnitList = 
+    [ unit{ name = "Scout", str= 5 }
+    , unit{ name = "Crow",  str= 5, hit=1, flyer=True }
+    , unit{ name = "Orc",   str=20, hit=1 }
+    , unit{ name = "Dwarf", str=15, hit=2 }
+    , unit{ name = "Elf",   str=30, hit=1 }
+    , unit{ name = "Giant", str=20, hit=4 }
+    , unit{ name = "Knight",str=35, hit=2 }
+    , unit{ name = "Dragon",str=55, hit=3, flyer=True }
+    ]
+
+    
+battle :: Unit -> Unit -> IO Unit
+battle att def = do
+    attRoll <- randomRIO (0,99)
+    defRoll <- randomRIO (0,99)
+    case (attRoll < str att, defRoll < str def) of
+      (True, False) -> check att $ takeHit def
+      (False,True ) -> check (takeHit att) def
+      _other -> battle att def -- reroll
+  where
+    check a d 
+      | isDead a  = return d
+      | isDead d  = return a
+      | otherwise = battle a d
+      
+      
+      
+stockUnitShortcuts :: Q [Dec] 
+-- declares a constants of type Unit for each unit on the 
+stockUnitShortcuts = undefined -- !!! TODO !!!
+    
+    
\ No newline at end of file
-- 
cgit v1.2.3