;; 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}