You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
311 B
18 lines
311 B
2 years ago
|
;; main.fnl
|
||
|
|
(local player (require :player))
|
||
|
|
(var mode (require :mode.menu))
|
||
|
|
(var quit false)
|
||
|
|
|
||
|
|
(fn set-mode [m]
|
||
|
|
(set mode (require m))
|
||
|
|
)
|
||
|
|
|
||
|
|
(while (not quit)
|
||
|
|
(os.execute :clear)
|
||
|
|
(mode.display player)
|
||
|
|
(local cmd (io.read))
|
||
|
|
(if (= cmd "q") (set quit true))
|
||
|
|
(mode.key-pressed player cmd set-mode)
|
||
|
|
)
|
||
|
|
|