implement footer

game/init.fnl

@@ -126,6 +126,30 @@
     [:bne :page]]
   (vm:drop))
 
+(vm:def :clearline ; pscreen --
+  [:lda vm.TOP :x] [:sta vm.W]
+  [:lda vm.TOPH :x] [:sta vm.WH]
+  (vm:drop)
+  [:block
+    :row
+      [:ldy 0x2f] [:lda 0]
+    :start
+      [:sta [vm.W] :y]
+      [:dey]
+      [:bpl :start]
+
+      [:lda vm.WH]
+      [:cmp 0x3d]
+      [:bcs :done]
+      ; cmp has cleared carry for us here
+      [:lda 4] [:adc vm.WH] [:sta vm.WH]
+      [:bcc :row]
+    :done])
+
+(vm:word :drawfooter
+  0x21d0 :clearline
+  0x2250 :clearline 0x22d0 :clearline 0x2350 :clearline 0x23d0 :clearline)
+
 (vm:word :drawmaprow ; pscreen pmap -- pmap
   mapw (vm:for
     :2dup :bget :lookup-tile :drawtile
@@ -137,6 +161,12 @@
     :<rot :drawmaprow :swap ; pmap yx
   :dup :not) :drop :drop)
 
+(vm:word :clearfooter
+  :lit :map 0x0300 (vm:until 0x100 :-
+    :dup 0x0900 :+ :yx>screen
+    :<rot :drawmaprow :swap
+  :dup :not) :drop :drop :object-redraw)
+
 (vm:def :lookup-tile ; itile -- ptile
   ; each tile is 32 bytes; 2^5
   ; we save some cycles by storing the indices as lllhhhhh, so we don't need to shift them'
@@ -262,7 +292,8 @@
     :draw-jaye-yx       ;
   ] [:drop]))
 
-(vm:word :full-redraw :cleargfx :drawmap :jaye-yx :get :draw-jaye-yx)
+(vm:word :full-redraw :drawmap :object-redraw)
+(vm:word :object-redraw :jaye-yx :get :draw-jaye-yx)
 
 (tile.append-gfx tiles)
 

game/portraits.json

@@ -1 +1 @@
-[{"gfx":"8080808080E0E0F0F8FC2CBCACACACAC80809CFEFFFFFFD7D5D5555D4F5D55D5BCB8B8B8F8F8F8F8FCBC9E9E86D0D0D095D5D585D5D5D5D0C090D0D0AAAAAAAA808086BFFFFFFFFAEAAA2A2E3C2E2AAA80808080808183878787058F8D8D8D8FAAAAAAA8AAEAEAEAC2888A8AD5D5D5D58F8F8787878F8F8F9F9FBCB8808A8A8A","label":"pjaye","flags":[]}]
+[{"gfx":"8080808080E0E0F0F8FC2CBCACACACAC80809CFEFFFFFFD7D5D5555D4F5DD5D5BCB8B8B8F8F8F8F8FCFCFE9E86D0D0D495D5D5E5D5D5D5D7C793D1D0AAAAAAAA808086BFFFFFFFFAEAAA2A2E3C2EAAAA80808080808183878787058F8D8D8D8FAAAAAAA7AAAAEAEAC2888A8AD5D5D5D58F8F8787878F8F8F9F9FBCB8808A8AAA","label":"pjaye","flags":[]},{"gfx":"00002020000000004808080800202028004040011404450144010805445420352020000808084800000000202000000020544405080144014504140140400000000202012921220122011021222A052D00000405000001011211101100040415052A222110012201222129010202000004040011101112010100000504000000","label":"pneut","flags":[]}]