(move.tal)Cleaned up demo
This commit is contained in:
neauoire
parent
162400cb54
commit
9e9313d064
|
|
@ -1,14 +1,8 @@
|
|||
( dev/controller/buttons )
|
||||
|
||||
%++ { INC2 }
|
||||
%-- { #0001 SUB2 }
|
||||
%2// { #01 SFT2 }
|
||||
|
||||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|0000 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|
||||
|0020 @Screen &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||
|0080 @Controller &vector $2 &button $1 &key $1
|
||||
|
||||
( variables )
|
||||
|
||||
|
|
@ -18,21 +12,19 @@
|
|||
|
||||
( init )
|
||||
|
||||
|0100 ( -> )
|
||||
|0100 ( -> ) @program
|
||||
|
||||
( theme )
|
||||
#0daf .System/r DEO2
|
||||
#02ff .System/g DEO2
|
||||
( theme )
|
||||
#0daf .System/r DEO2
|
||||
#02ff .System/g DEO2
|
||||
#035f .System/b DEO2
|
||||
|
||||
( vectors )
|
||||
( vectors )
|
||||
;on-frame .Screen/vector DEO2
|
||||
|
||||
( set origin )
|
||||
.Screen/width DEI2 2// .Screen/x DEO2
|
||||
.Screen/height DEI2 2// .Screen/y DEO2
|
||||
|
||||
;default_icn .Screen/addr DEO2
|
||||
.Screen/width DEI2 #01 SFT2 .Screen/x DEO2
|
||||
.Screen/height DEI2 #01 SFT2 .Screen/y DEO2
|
||||
( defaults )
|
||||
;default-icn .Screen/addr DEO2
|
||||
#41 .Screen/sprite DEO
|
||||
#0a .slime STZ
|
||||
|
||||
|
|
@ -41,49 +33,46 @@ BRK
|
|||
@on-frame ( -> )
|
||||
|
||||
#0a .slime STZ
|
||||
;default_icn .Screen/addr DEO2
|
||||
|
||||
;default-icn .Screen/addr DEO2
|
||||
( hold ctrl key to change slime color )
|
||||
.Controller/button DEI #0f AND
|
||||
DUP #01 NEQ ,&no-ctrl JCN #05 .slime STZ &no-ctrl
|
||||
DUP #02 NEQ ,&no-alt JCN #0f .slime STZ &no-alt
|
||||
POP
|
||||
|
||||
( clear ) #40 .Screen/sprite DEO
|
||||
|
||||
( clear )
|
||||
#40 .Screen/sprite DEO
|
||||
( detect movement )
|
||||
.Controller/button DEI #f0 AND
|
||||
DUP #04 SFT #01 AND #01 NEQ ,&no-up JCN
|
||||
( move )
|
||||
.Screen/y DEI2 -- .Screen/y DEO2
|
||||
;up_icn .Screen/addr DEO2 &no-up
|
||||
DUP #05 SFT #01 AND #01 NEQ ,&no-down JCN
|
||||
( move )
|
||||
.Screen/y DEI2 ++ .Screen/y DEO2
|
||||
;down_icn .Screen/addr DEO2 &no-down
|
||||
DUP #06 SFT #01 AND #01 NEQ ,&no-left JCN
|
||||
( move )
|
||||
.Screen/x DEI2 -- .Screen/x DEO2
|
||||
;left_icn .Screen/addr DEO2 &no-left
|
||||
DUP #07 SFT #01 AND #01 NEQ ,&no-right JCN
|
||||
( move )
|
||||
.Screen/x DEI2 ++ .Screen/x DEO2
|
||||
;right_icn .Screen/addr DEO2 &no-right
|
||||
.Controller/button DEI
|
||||
DUP #10 AND #00 EQU ,&no-up JCN
|
||||
.Screen/y DEI2 #0001 SUB2 .Screen/y DEO2
|
||||
;up-icn .Screen/addr DEO2 &no-up
|
||||
DUP #20 AND #00 EQU ,&no-down JCN
|
||||
.Screen/y DEI2 INC2 .Screen/y DEO2
|
||||
;down-icn .Screen/addr DEO2 &no-down
|
||||
DUP #40 AND #00 EQU ,&no-left JCN
|
||||
.Screen/x DEI2 #0001 SUB2 .Screen/x DEO2
|
||||
;left-icn .Screen/addr DEO2 &no-left
|
||||
DUP #80 AND #00 EQU ,&no-right JCN
|
||||
.Screen/x DEI2 INC2 .Screen/x DEO2
|
||||
;right-icn .Screen/addr DEO2 &no-right
|
||||
POP
|
||||
|
||||
( draw face )
|
||||
#41 .Screen/sprite DEO
|
||||
|
||||
( draw slime )
|
||||
;slime_icn .Screen/addr DEO2
|
||||
;slime-icn .Screen/addr DEO2
|
||||
.slime LDZ .Screen/sprite DEO
|
||||
|
||||
BRK
|
||||
|
||||
@default_icn [ 3c7e ffdb ffe7 7e3c ]
|
||||
@up_icn [ 2466 e7db ffff 7e3c ]
|
||||
@down_icn [ 3c7e ffff dbe7 6624 ]
|
||||
@left_icn [ 3c7e ef1f 1fef 7e3c ]
|
||||
@right_icn [ 3c7e f7f8 f8f7 7e3c ]
|
||||
@slime_icn [ 0000 183c 3c18 0000 ]
|
||||
|
||||
@default-icn
|
||||
3c7e ffdb ffe7 7e3c
|
||||
@up-icn
|
||||
2466 e7db ffff 7e3c
|
||||
@down-icn
|
||||
3c7e ffff dbe7 6624
|
||||
@left-icn
|
||||
3c7e ef1f 1fef 7e3c
|
||||
@right-icn
|
||||
3c7e f7f8 f8f7 7e3c
|
||||
@slime-icn
|
||||
0000 183c 3c18 0000
|
||||
|
|
|
|||
Loading…
Reference in New Issue