blob: e3fbc692fcbf86af11c4bb2d7da4400bd6930ae2 (
plain)
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
|
module Game.Toaster
( Toaster,
mkToaster,
add,
update,
render,
)
where
import qualified Game.BitmapFont as BM
import qualified SDL
toastDelay :: Int
toastDelay = 128
data Toast = Toast
{ message :: String,
y :: Int,
delay :: Int
}
data Toaster = Toaster
{ font :: BM.BitmapFont,
gameHeight :: Int,
queue :: [String],
current :: Maybe Toast
}
mkToaster :: BM.BitmapFont -> Int -> IO Toaster
mkToaster font height = do
pure $ Toaster font height [] Nothing
add :: Toaster -> String -> Toaster
add t message =
t {queue = t.queue ++ [message]}
update :: Toaster -> Toaster
update t = case t.current of
Nothing -> case t.queue of
[] -> t
(next : _) -> t {current = Just $ Toast next t.gameHeight toastDelay, queue = tail t.queue}
-- FIXME: magic number
Just toast -> t {current = updateToast (t.gameHeight - 14) toast}
where
updateToast :: Int -> Toast -> Maybe Toast
updateToast height toast
| toast.y > height && toast.delay > 0 = Just $ toast {y = toast.y - 1}
| toast.delay > 0 = Just $ toast {delay = toast.delay - 1}
| toast.y < t.gameHeight = Just $ toast {y = toast.y + 1}
| otherwise = Nothing
render :: SDL.Renderer -> Toaster -> IO ()
render renderer t = case t.current of
Nothing -> pure ()
Just toast -> do
BM.renderTextSolid renderer t.font 4 toast.y toast.message
|
