Added some temporary graphics for battle, can now make menu choices

Author: js

Animation.hs

@@ -1,6 +1,7 @@
 module Animation where
 
 import Graphics.UI.SDL as SDL
+import Graphics.UI.SDL.TTF as TTF
 
 import Data.Word
 import Data.Tiled
@@ -46,11 +47,30 @@ drawWalkingMode gs = do
   blitAnimations ((animation (player gs)) : animations gs) s (cameraPos gs)
   SDL.flip s
 
+drawLabels :: [String] -> Position -> Surface -> Font -> IO()
+drawLabels [] _ _ _ = return ()
+drawLabels (x:xs) pos s fnt = do
+  title <- renderTextSolid fnt x (Color 20 0 0)
+  blitSurface title Nothing s (Just (Rect (floor $ xVal pos) (floor $ yVal pos) 200 200))
+  drawLabels xs (Position ((xVal pos)) ((yVal pos) + 30)) s fnt
+
+drawMenu :: GameState -> Surface -> IO ()
+drawMenu gs s = do
+  let menu' = menu gs
+  let pos' = menuPos menu'
+  let gx' = gx gs
+  blitSurface (menubg gx') Nothing s (Just (Rect (floor $ xVal pos') (floor $ yVal pos') 20 20 ))
+  blitSurface (menumarker gx') Nothing s (Just (Rect (floor $ xVal pos') ((floor $ yVal pos') + 10 +(choice menu') *30) 20 20 ))
+  drawLabels (labels menu') (Position (((xVal pos') +10.0)) (((yVal pos') + 10.0))) s (fnt gs)
+  
+  return ()
+  
 drawFight :: GameState -> IO ()
 drawFight gs = do
   s <- getVideoSurface
   blitSurface (fightbg $ gx gs) Nothing s Nothing
-  
+  blitSurface (enemyfire $ gx gs) Nothing s (Just (Rect 200 100 0 0))
+  drawMenu gs s
   SDL.flip s
 
 drawGamestate :: GameState -> IO ()

Event.hs

@@ -2,6 +2,7 @@ module Event where
 
 import Graphics.UI.SDL as SDL
 import Model
+import Logics
 
 getEvents :: IO Event -> [Event] -> IO [Event]
 getEvents pEvent es = do
@@ -22,6 +23,8 @@ handleFightEvent x gs =
   case x of
     KeyDown (Keysym SDLK_ESCAPE _ _) -> gs {gameActive = False}
     KeyDown (Keysym SDLK_a _ _ ) -> gs { gameMode = Model.AfterFight }
+    KeyDown (Keysym SDLK_DOWN _ _ ) -> gs { menu = (menu gs) { choice = ((choice $ menu gs) + 1 )  `mod` (length $ labels $ menu gs) } }
+    KeyDown (Keysym SDLK_RETURN _ _ ) -> activateMenuOption gs
     _ -> gs
 
 handleWalkingEvent :: Event -> GameState -> GameState

Logics.hs

@@ -58,3 +58,7 @@ updateGamestate gs t dt
           player' = updatePlayer (player gs) t dt
           cameraPos' = updateCamera (cameraPos gs) (playerPos $ player gs) (fromIntegral $ mapWidth $ currentMap gs) (fromIntegral $ mapHeight $ currentMap gs)
           gameMode' = checkForFight gs t
+
+activateMenuOption :: GameState -> GameState
+activateMenuOption gs
+  | otherwise = gs

Model.hs

@@ -1,6 +1,7 @@
 module Model where
 
 import Graphics.UI.SDL as SDL
+import Graphics.UI.SDL.TTF as TTF
 
 import Data.Word
 import Data.Tiled
@@ -21,7 +22,16 @@ data Mode = Walking | Fight | AfterFight
 
 data Graphics = Graphics {
   tileSurface :: Surface,
-  fightbg :: Surface
+  fightbg :: Surface,
+  menumarker :: Surface,
+  menubg :: Surface,
+  enemyfire :: Surface
+}
+
+data Menu = Menu {
+  choice :: Int,
+  labels :: [String],
+  menuPos :: Position
 }
 
 data GameState = GameState{
@@ -34,7 +44,9 @@ data GameState = GameState{
   gameMode :: Mode,
   rng :: StdGen,
   nextFight :: Int,
-  gx :: Graphics
+  gx :: Graphics,
+  menu :: Menu,
+  fnt :: Font
 }
 
 data Animation = Animation {

enemyfire.png

@@ -26,20 +26,23 @@ main = do
 
   tiledMap <- Data.Tiled.loadMapFile "map.tmx"
   tileSurface <- SDLi.load (iSource $ head $ tsImages $ head $ mapTilesets tiledMap)
-  --let image =  head $ mapTilesets m
 
   rng <- getStdGen
 
   fnt <- openFont "font.ttf" 30
   sheet <- SDLi.load "playerWalkDown.png"
   bg <- SDLi.load "menubg.bmp"
   fightbg <- SDLi.load "fight.png"
+  menumarker <- SDLi.load "menumarker.png"
+  menubg <- SDLi.load "menubg.png"
+  enemyfire <- SDLi.load "enemyfire.png"
 
   t0 <- getTicks 
 
   let player = Player Down Stop (Position 300 300) (Animation sheet 26 4 250 t0 0 (Position 0 0))
-  let gx = Graphics tileSurface fightbg  
-  let gs = (GameState True [] t0 player tiledMap (Position 32 32) Model.Walking rng 0 gx)
+  let gx = Graphics tileSurface fightbg menumarker menubg enemyfire
+  let menu = Menu 0 ["Attack", "Run"] (Position 0 340)
+  let gs = (GameState True [] t0 player tiledMap (Position 32 32) Model.Walking rng 0 gx menu fnt)
   let gs' = setUpNextFight gs ( fromIntegral (t0+1000) )
 
   gameLoop gs' t0
@@ -53,7 +56,7 @@ gameLoop gs lastTick = do
   let gs' = updateGamestate (handleEvents events gs) t (t - lastTick)
 
   drawGamestate gs'
-  putStrLn $ show $ gameMode gs
+  --putStrLn $ show $ gameMode gs
   if gameActive gs'
     then gameLoop gs' t
     else return ()