|
@@ -76,8 +76,7 @@
|
|
|
(and t t.stairs (= t.dir -1))
|
|
|
(set action-name "ascend")
|
|
|
(set action-name "wait")))
|
|
|
- (print (.. "[z] commands, [x] " action-name) 60 129)
|
|
|
-
|
|
|
+ (print (or (first msgs) (.. "[z] commands, [x] " action-name)) 129 121)
|
|
|
(print (.. "equipment" ) v.x (+ v.y 0) 9)
|
|
|
(var i 1)
|
|
|
(each [k o (pairs player.equip)]
|
|
@@ -137,7 +136,8 @@
|
|
|
|
|
|
(fn advance []
|
|
|
(stat-updates entities)
|
|
|
- (brains entities))
|
|
|
+ (brains entities)
|
|
|
+ (if (not (empty? msgs)) (global msgs (rest msgs))))
|
|
|
|
|
|
|
|
|
(global TIC
|