src/corridor.fnl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

;; corridor
;; maybe make this generic enough to have multiple
;; corridors with the same code, eventually

(local player (require :src.player))

(fn make [state]
    (local font state.font)
    (local title (love.graphics.newText font :corridor))
    (local player (player.make))
    (fn draw []
        (love.graphics.setColor 0.8 0.8 0.8)
        (love.graphics.setLineWidth 10)
        (love.graphics.rectangle :line 30 80  580 370)
        (love.graphics.draw title (- 610 (title:getWidth)) -10)
        (player:draw))
    
    (fn update [dt]
        (player:update dt))

    {: draw
     : update})

{: make}