M bin/donsol.rom => bin/donsol.rom +0 -0
M src/assets.tal => src/assets.tal +19 -50
@@ 1,4 1,7 @@
+@pointer-icn
+ 80c0 e0f0 f8e0 1000
+
@cursors-icns
4060 381e 1e38 6040
0018 183c 7e66 c300
@@ 17,6 20,9 @@
@star-icn
082a 1c7f 1c2a 0800
+@blank-icn
+ 0000 0000 0000 0000
+
@letters-uc-icns
781c 3c36 3e66 66c3
ee73 636e 6363 63de
@@ 45,56 51,7 @@
c366 663c 1818 1818
7ec6 0c18 fe60 c3fe
-@numbers-icns
- 38c6 c6c6 c6c6 c638
- 8c78 1818 1818 187e
- 3c4e 860e 1c38 72fe
- 807e 0c10 7c0e 8e7c
- 0e1c 1c3c 6cff 0c1e
- c6f8 40c0 fc0e ce7c
- 3ac4 c0c0 fcce ce7c
- 807e 3e0c 1830 60c0
- 807c cece 7cce ce7c
- 807c cece 7c18 3060
-
-@alphabet-icns
- 0000 0000 0000 0000
- 38c6 c6c6 c6c6 c638
- 8c78 1818 1818 187e
- 3c4e 860e 1c38 72fe
- 807e 0c10 7c0e 8e7c
- 0e1c 1c3c 6cff 0c1e
- c6f8 40c0 fc0e ce7c
- 3ac4 c0c0 fcce ce7c
- 807e 3e0c 1830 60c0
- 807c cece 7cce ce7c
- 807c cece 7c18 3060
- 781c 3c36 3e66 66c3
- ee73 636e 6363 63de
- 3c66 ccc0 c0c0 e67c
- ee73 6363 6363 63de
- fe66 6078 6063 667c
- fe66 6078 6060 6060
- 3c66 c6c0 dec6 663c
- c6c6 c6ce fee6 c6c6
- 3018 1818 1818 180c
- 1e0c 0c0c 0c1c 3860
- c66c 6c78 786c 6cc6
- e060 6060 6066 7e78
- c6ee fed6 c6c6 c6c6
- c6c6 e6f6 dece c6c6
- 7cce c6c6 c6c6 e67c
- fc66 6666 6c60 60c0
- 7ce6 c6c6 c6c6 ce7f
- ee73 666c 6666 63c3
- 3a66 603c 0606 665c
- fe30 60c0 c0c2 c67c
- e666 6666 6666 6e3f
- c366 6666 6666 3c18
- c3c3 c3d3 cbdf 7762
- c3c3 663c 3c66 c3c3
- c366 663c 1818 1818
- 7ec6 0c18 fe60 c3fe
+@letters-lc-icns
0000 3e66 6666 3b00
e060 607c 6666 7c00
0000 3c66 6066 3c00
@@ 122,6 79,18 @@
0000 e666 663e cc78
0000 7e0c 7e31 7e00
+@numbers-icns
+ 38c6 c6c6 c6c6 c638
+ 8c78 1818 1818 187e
+ 3c4e 860e 1c38 72fe
+ 807e 0c10 7c0e 8e7c
+ 0e1c 1c3c 6cff 0c1e
+ c6f8 40c0 fc0e ce7c
+ 3ac4 c0c0 fcce ce7c
+ 807e 3e0c 1830 60c0
+ 807c cece 7cce ce7c
+ 807c cece 7c18 3060
+
@spritesheet
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 38c6 c6c6 c6c6 c638
M src/main.tal => src/main.tal +59 -2
@@ 113,10 113,21 @@ BRK
@redraw ( -- )
;draw-ui JSR2
+ ;draw-selection JSR2
( .frame #01 ;line-rect JSR2 )
RTN
+@draw-selection ( -- )
+
+ .frame/x LDZ2
+ .frame/y LDZ2 #0028 ++
+ [ #00 ;get-card-name JSR2 ]
+ #03
+ ;draw-label JSR2
+
+RTN
+
@draw-ui ( -- )
( HP )
@@ 215,11 226,26 @@ RTN
RTN
+@get-card-name ( card -- name* )
+
+ POP ;deck LDA2
+
+RTN
+
@get-char ( char -- addr* )
DUP #40 > OVR #5b < #0101 !! ,&no-uc JCN
#41 - TOS 8** ;letters-uc-icns ++ RTN
&no-uc
+ DUP #60 > OVR #7b < #0101 !! ,&no-lc JCN
+ #61 - TOS 8** ;letters-lc-icns ++ RTN
+ &no-lc
+ DUP #2f > OVR #3a < #0101 !! ,&no-num JCN
+ #30 - TOS 8** ;numbers-icns ++ RTN
+ &no-num
+ DUP #5f ! ,&no-space JCN
+ POP ;blank-icn RTN
+ &no-space
POP ;star-icn
RTN
@@ 282,11 308,42 @@ RTN
RTN
+( strings )
+
@hp-txt "HP $1
@sp-txt "SP $1
@xp-txt "XP $1
-
-@pointer-icn 80c0 e0f0 f8e0 1000
+@cards
+ &h01 "White_Mage_11 $1 &d01 "Red_Mage_11 $1 &s01 "Empress_17 $1 &c01 "Empress_17 $1
+ &h02 "Small_Potion_2 $1 &d02 "Buckler_2 $1 &s02 "Slime_2 $1 &c02 "Rat_2 $1
+ &h03 "Small_Potion_3 $1 &d03 "Buckler_3 $1 &s03 "Tunneler_3 $1 &c03 "Bat_3 $1
+ &h04 "Medium_Potion_4 $1 &d04 "Kite_4 $1 &s04 "Fiend_4 $1 &c04 "Imp_4 $1
+ &h05 "Medium_Potion_5 $1 &d05 "Kite_5 $1 &s05 "Drake_5 $1 &c05 "Goblin_5 $1
+ &h06 "Large_Potion_6 $1 &d06 "Heater_6 $1 &s06 "Specter_6 $1 &c06 "Orc_6 $1
+ &h07 "Large_Potion_7 $1 &d07 "Heater_7 $1 &s07 "Ghost_7 $1 &c07 "Ogre_7 $1
+ &h08 "Super_Potion_8 $1 &d08 "Tower_Shield_8 $1 &s08 "Elemental_8 $1 &c08 "Beholder_8 $1
+ &h09 "Super_Potion_9 $1 &d09 "Tower_Shield_9 $1 &s09 "Witch_9 $1 &c09 "Medusa_9 $1
+ &h0a "Super_Potion_10 $1 &d0a "Tower_Shield_10 $1 &s0a "Familiar_10 $1 &c0a "Demon_10 $1
+ &h0b "White_Mage_11 $1 &d0b "Red_Mage_11 $1 &s0b "Consort_11 $1 &c0b "Consort_11 $1
+ &h0c "White_Mage_11 $1 &d0c "Red_Mage_11 $1 &s0c "Queen_13 $1 &c0c "Queen_13 $1
+ &h0d "White_Mage_11 $1 &d0d "Red_Mage_11 $1 &s0d "Regnant_15 $1 &c0d "Regnant_15 $1
+ &j01 "Red_Donsol_21 $1
+ &j02 "Black_Donsol_21 $1
+
+@deck
+ :cards/h01 :cards/h02 :cards/h03 :cards/h04 :cards/h05
+ :cards/h06 :cards/h07 :cards/h08 :cards/h09 :cards/h0a
+ :cards/h0b :cards/h0c :cards/h0d
+ :cards/d01 :cards/d02 :cards/d03 :cards/d04 :cards/d05
+ :cards/d06 :cards/d07 :cards/d08 :cards/d09 :cards/d0a
+ :cards/d0b :cards/d0c :cards/d0d
+ :cards/s01 :cards/s02 :cards/s03 :cards/s04 :cards/s05
+ :cards/s06 :cards/s07 :cards/s08 :cards/s09 :cards/s0a
+ :cards/s0b :cards/s0c :cards/s0d
+ :cards/c01 :cards/c02 :cards/c03 :cards/c04 :cards/c05
+ :cards/c06 :cards/c07 :cards/c08 :cards/c09 :cards/c0a
+ :cards/c0b :cards/c0c :cards/c0d
+ :cards/j01 :cards/j02
include src/assets.tal=
\ No newline at end of file