Update deck demo for screen changes.
This commit is contained in:
parent
ca2c9925b0
commit
0b18bf4539
|
@ -338,6 +338,9 @@
|
||||||
.Screen/addr DEO2 ( [a*] )
|
.Screen/addr DEO2 ( [a*] )
|
||||||
#04 .Screen/sprite DEO ( [a*] ; draw middle of card )
|
#04 .Screen/sprite DEO ( [a*] ; draw middle of card )
|
||||||
STH2r DUP2 #0008 ADD2 ( a* a+8* )
|
STH2r DUP2 #0008 ADD2 ( a* a+8* )
|
||||||
|
|
||||||
|
( TODO: does flipping also flip move direction now? )
|
||||||
|
SWP2 #0008 .Screen/x DEI2 ADD2 .Screen/x DEO2
|
||||||
.Screen/addr DEO2 ( )
|
.Screen/addr DEO2 ( )
|
||||||
#01 .Screen/auto DEO ( ; draw 1 tile, increment x )
|
#01 .Screen/auto DEO ( ; draw 1 tile, increment x )
|
||||||
#34 .Screen/sprite DEO ( ; draw bottom left of card )
|
#34 .Screen/sprite DEO ( ; draw bottom left of card )
|
||||||
|
@ -359,6 +362,9 @@
|
||||||
.Screen/addr DEO2 ( [a*] )
|
.Screen/addr DEO2 ( [a*] )
|
||||||
#81 .Screen/sprite DEO ( [a*] ; draw middle of card )
|
#81 .Screen/sprite DEO ( [a*] ; draw middle of card )
|
||||||
STH2r DUP2 #0010 ADD2 ( a* a+16* )
|
STH2r DUP2 #0010 ADD2 ( a* a+16* )
|
||||||
|
|
||||||
|
( TODO: does flipping also flip move direction now? )
|
||||||
|
SWP2 #0008 .Screen/x DEI2 ADD2 .Screen/x DEO2
|
||||||
.Screen/addr DEO2 ( )
|
.Screen/addr DEO2 ( )
|
||||||
#01 .Screen/auto DEO ( ; draw 1 tile, increment x )
|
#01 .Screen/auto DEO ( ; draw 1 tile, increment x )
|
||||||
#b1 .Screen/sprite DEO ( ; draw bottom left of card )
|
#b1 .Screen/sprite DEO ( ; draw bottom left of card )
|
||||||
|
|
2
deck.tal
2
deck.tal
|
@ -124,7 +124,7 @@
|
||||||
.prev-mouse-x LDZ2 .Screen/x DEO2
|
.prev-mouse-x LDZ2 .Screen/x DEO2
|
||||||
.prev-mouse-y LDZ2 .Screen/y DEO2
|
.prev-mouse-y LDZ2 .Screen/y DEO2
|
||||||
;blank .Screen/addr DEO2
|
;blank .Screen/addr DEO2
|
||||||
#40 .Screen/sprite DEO JMP2r
|
#41 .Screen/sprite DEO JMP2r
|
||||||
|
|
||||||
@draw-curr-mouse ( -> )
|
@draw-curr-mouse ( -> )
|
||||||
.Mouse/x DEI2 DUP2 .prev-mouse-x STZ2 .Screen/x DEO2
|
.Mouse/x DEI2 DUP2 .prev-mouse-x STZ2 .Screen/x DEO2
|
||||||
|
|
Loading…
Reference in New Issue