#4 Setup interaction

lib/RPGEngine/Render/ActionSelection.hs

@@ -0,0 +1,26 @@
+module RPGEngine.Render.ActionSelection
+( renderActionSelection
+) where
+
+import RPGEngine.Data (State (..), Action (..))
+import Graphics.Gloss
+    ( Picture, text, pictures, translate, scale, color )
+import Graphics.Gloss.Data.Picture (blank)
+import RPGEngine.Data.Level (getActionText)
+import RPGEngine.Config (uizoom, selectionColor, textColor)
+import RPGEngine.Input.Core (ListSelector(selection))
+import RPGEngine.Render.Playing (renderPlaying)
+import RPGEngine.Render.Core (overlay)
+
+------------------------------ Exported ------------------------------
+
+renderActionSelection :: State -> Picture
+renderActionSelection (ActionSelection list selector continue) = everything
+    where numberedTexts = zip [0::Int ..] $ map getActionText list
+          sel           = selection selector
+          everything    = pictures $ [renderPlaying continue, overlay] ++ map render numberedTexts
+          render (i, t) | i == sel  = color selectionColor $ make (i, t)
+                        | otherwise = color textColor      $ make (i, t)
+          make (i, t)   = scale uizoom uizoom $ translate 0 (offset i) $ text t
+          offset i      = negate (250 * uizoom * fromIntegral i)
+renderActionSelection _ = blank

lib/RPGEngine/Render/LevelSelection.hs

@@ -21,7 +21,7 @@ renderLevelSelection state = result
 ----------------------------------------------------------------------
 
 renderLevelList :: Renderer State
-renderLevelList LevelSelection{ levelList = list, selector = selector } = everything
+renderLevelList (LevelSelection list selector) = everything
     where everything       = pictures $ map render entries
           sel              = selection selector
           entries          = zip [0::Int .. ] list

lib/RPGEngine/Render/Playing.hs

@@ -42,7 +42,8 @@ focusPlayer _ = id
 renderLevel :: Renderer Level
 renderLevel Level{ layout = l, items = i, entities = e } = level
     where level    = pictures [void, layout, items, entities]
-          void     = createVoid
+        --   void     = createVoid
+          void     = blank
           layout   = renderLayout l
           items    = renderItems i
           entities = renderEntities e