drew some stuff, ux improvements, more action types

editor/8bitsy.fnl

@@ -11,15 +11,15 @@
           character (or action.character (. characters 1))
           lines (or action.lines [])
           (character y) (dropdown view [:say :char i] character characters x (+ y style.padding.y) w)
-          (line1 y) (textbox view [:say :line1 i] (. lines 1) x (+ y style.padding.y) w)
+          (line1 y) (textbox view [:say :line1 i] (or (. lines 1) "") x (+ y style.padding.y) w)
-          (line2 y) (textbox view [:say :line2 i] (. lines 2) x y w)
+          (line2 y) (textbox view [:say :line2 i] (or (. lines 2) "") x y w)
-          (line3 y) (textbox view [:say :line3 i] (. lines 3) x y w)
+          (line3 y) (textbox view [:say :line3 i] (or (. lines 3) "") x y w)
-          (line4 y) (textbox view [:say :line4 i] (. lines 4) x y w)]
+          (line4 y) (textbox view [:say :line4 i] (or (. lines 4) "") x y w)]
       (set action.character character)
-      (util.nested-tset action [:lines 1] line1)
+      (util.nested-tset action [:lines 1] (line1:sub 1 33))
-      (util.nested-tset action [:lines 2] line2)
+      (util.nested-tset action [:lines 2] (line2:sub 1 33))
-      (util.nested-tset action [:lines 3] line3)
+      (util.nested-tset action [:lines 3] (line3:sub 1 33))
-      (util.nested-tset action [:lines 4] line4)
+      (util.nested-tset action [:lines 4] (line4:sub 1 33))
       y))
   (fn [action vm]
     (local {: say} (require :game.defs))
@@ -37,6 +37,9 @@
       (set action.position position)
       y))
   (fn [action vm]
-    (values action.position :lit action.map :map-player-yx-ptr :set :lit action.map :next-level :set)))
+    (values :move-to-responder action.position :lit action.map :map-player-yx-ptr :set :lit action.map :next-level :set)))
+
+(actions.register-const :move-here :move-to-responder)
+(actions.register-const :disappear :disappear)
 
 {}

editor/actions.fnl

@@ -17,4 +17,7 @@
   (defmethod actions.edit key edit)
   (defmethod actions.generate key generate))
 
+(fn actions.register-const [key generated-value]
+  (actions.register key (fn [action view x y w i] y) #generated-value))
+
 actions.hot

game/disk.fnl

@@ -18,8 +18,8 @@
     :boot
     [:jsr :reset]
     [:jsr :interpret]
-    [:vm :hires
+    [:vm :hires]
-      (when (util.file-exists "game/title.screen") (values (vm:pstr "TITLE.SCREEN") :loadscreen))])
+    (when (util.file-exists "game/title.screen") [:vm (vm:pstr "TITLE.SCREEN") :loadscreen]))
   (each [addr _ (pairs prg.org-to-block)]
     (when (~= addr org.boot.org)
       (local filename (.. "STUFF." (length prg.files)))

game/entity.fnl

@@ -91,6 +91,7 @@
   ] [:drop]))
 
 (vm:word :move-to-responder :get-responder :get :move-player-to)
+(vm:word :disappear :get-responder 0 :set-entitytile 0xffff :get-responder :set)
 
 (fn append-from-map [map entity-org prefix]
   (entity-org:append [:align 0x100])