(inle.tal) Added project
This commit is contained in:
Devine Lu Linvega
parent
4f6a14731a
commit
d05426e2ea
|
|
@ -0,0 +1,25 @@
|
|||
#!/bin/sh -e
|
||||
|
||||
ID="inle"
|
||||
ASM="uxnasm"
|
||||
EMU="uxnemu"
|
||||
LIN="uxncli $HOME/roms/uxnlin.rom"
|
||||
SRC="${ID}.tal"
|
||||
DST="${ID}.rom"
|
||||
CPY="$HOME/roms"
|
||||
ARG=""
|
||||
|
||||
if [[ "$*" == *"--lint"* ]]
|
||||
then
|
||||
$LIN $SRC
|
||||
fi
|
||||
|
||||
$ASM $SRC $DST
|
||||
|
||||
if [[ "$*" == *"--save"* ]]
|
||||
then
|
||||
cp $DST $CPY
|
||||
fi
|
||||
|
||||
$EMU $DST $ARG
|
||||
|
||||
|
|
@ -0,0 +1,49 @@
|
|||
@font ( block8 )
|
||||
0000 0000 0000 0000 1010 1010 1000 1000
|
||||
2828 0000 0000 0000 44fe 4444 44fe 4400
|
||||
107e 807c 02fc 1000 0044 0810 2044 0000
|
||||
7884 8864 9a84 7a00 1020 0000 0000 0000
|
||||
2040 4040 4040 2000 0804 0404 0404 0800
|
||||
0044 2810 2844 0000 0010 107c 1010 0000
|
||||
0000 0000 0010 2000 0000 007c 0000 0000
|
||||
0000 0000 0000 1000 0204 0810 2040 8000
|
||||
7c82 8282 8282 7c00 3010 1010 1010 3800
|
||||
7c82 027c 8080 fe00 7c82 021c 0282 7c00
|
||||
2242 82fe 0202 0200 fe80 807c 0282 7c00
|
||||
7c82 80fc 8282 7c00 fe82 0408 0810 1000
|
||||
7c82 827c 8282 7c00 7c82 827e 0202 0200
|
||||
0000 1000 1000 0000 0000 1000 1010 2000
|
||||
0008 1020 1008 0000 0000 7c00 7c00 0000
|
||||
0010 0804 0810 0000 7c82 820c 1000 1000
|
||||
7c82 92aa aa92 6400 7c82 82fe 8282 8200
|
||||
fc82 82fc 8282 fc00 7c82 8080 8082 7c00
|
||||
fc82 8282 8282 fc00 fe80 80f0 8080 fe00
|
||||
fe80 80f0 8080 8000 7c82 808e 8282 7c00
|
||||
8282 82fe 8282 8200 3810 1010 1010 3800
|
||||
0602 0202 0282 7c00 8284 88f0 8884 8200
|
||||
8080 8080 8080 fe00 c6aa 9292 9292 9200
|
||||
c2a2 a292 8a8a 8600 7c82 8282 8282 7c00
|
||||
fc82 82fc 8080 8000 7c82 8282 8a84 7a00
|
||||
fc82 82fc 8282 8200 7c82 807c 0282 7c00
|
||||
fe10 1010 1010 1000 8282 8282 8286 7a00
|
||||
8282 8282 4428 1000 9292 9292 92aa c600
|
||||
8244 2810 2844 8200 8282 4428 1010 1000
|
||||
fe02 0c10 6080 fe00 6040 4040 4040 6000
|
||||
8040 2010 0804 0200 0c04 0404 0404 0c00
|
||||
1028 0000 0000 0000 0000 0000 0000 fe00
|
||||
1008 0000 0000 0000 0000 7c02 7e82 7e00
|
||||
0000 fc82 fc82 fc00 0000 7c82 8082 7c00
|
||||
0000 0202 7e82 7e00 0000 7c82 fc80 7e00
|
||||
0000 7c82 e080 8000 0000 7c82 7e02 fc00
|
||||
0000 8080 fc82 8200 0000 1000 1010 1000
|
||||
0000 fe02 0282 7c00 0000 8284 f884 8200
|
||||
0000 8080 8080 7e00 0000 6c92 9292 9200
|
||||
0000 bcc2 8282 8200 0000 7c82 8282 7c00
|
||||
0000 fc82 fc80 8000 0000 7c82 7e02 0200
|
||||
0000 bcc2 8080 8000 0000 7e80 7c02 fc00
|
||||
0000 fe10 1010 1000 0000 8282 8282 7c00
|
||||
0000 8282 4428 1000 0000 9292 9292 6c00
|
||||
0000 8244 3844 8200 0000 8282 7e02 7c00
|
||||
0000 fe02 7c80 fe00 2040 4080 4040 2000
|
||||
1010 1010 1010 1000 0804 0402 0404 0800
|
||||
0000 0032 4c00 0000 0000 0000 0000 0000
|
||||
Binary file not shown.
|
|
@ -0,0 +1,910 @@
|
|||
( Inle )
|
||||
|
||||
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|
||||
|10 @Console &vector $2 &read $1 &pad $5 &write $1
|
||||
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||
|80 @Controller &vector $2 &button $1 &key $1
|
||||
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1
|
||||
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|
||||
|
||||
%LEAK { #010e DEO }
|
||||
|
||||
( TODOs
|
||||
- flip player2 sprite
|
||||
- Erase stroke after shot
|
||||
- score
|
||||
- moving
|
||||
- damage )
|
||||
|
||||
( structs )
|
||||
|
||||
%/x { }
|
||||
%/y { INC INC }
|
||||
%/force { #04 ADD }
|
||||
%/angle { #06 ADD }
|
||||
|
||||
|0000 ( zeropage )
|
||||
|
||||
@stage
|
||||
&w $1 &h $1 &id $2
|
||||
@game
|
||||
&turn $1 &timer $1
|
||||
@wind
|
||||
&rate $2 &force $2
|
||||
@player1
|
||||
&x $2 &y $2
|
||||
&force $2 &angle $1 &name $2
|
||||
@player2
|
||||
&x $2 &y $2
|
||||
&force $2 &angle $1 &name $2
|
||||
@clouds
|
||||
&ax $2 &ay $2 &bx $2 &by $2 &cx $2 &cy $2
|
||||
@bullet
|
||||
&x $2 &y $2
|
||||
&vx $2 &vy $2
|
||||
&alive $1 &age $2
|
||||
@line
|
||||
&x $2 &y $2 &dx $2 &dy $2 &e1 $2
|
||||
|
||||
|0100 ( -> )
|
||||
|
||||
( theme )
|
||||
#0a6f .System/r DEO2
|
||||
#05cf .System/g DEO2
|
||||
#0caf .System/b DEO2
|
||||
( vectors )
|
||||
;on-control .Controller/vector DEO2
|
||||
;on-frame .Screen/vector DEO2
|
||||
( random )
|
||||
;prng-init JSR2
|
||||
( get stage )
|
||||
.Screen/width DEI2 #03 SFT2 NIP .stage/w STZ
|
||||
.Screen/height DEI2 #03 SFT2 NIP .stage/h STZ
|
||||
( terrain )
|
||||
;start-game JSR2
|
||||
|
||||
LEAK
|
||||
|
||||
BRK
|
||||
|
||||
@on-control ( -> )
|
||||
|
||||
;get-player JSR2
|
||||
.Controller/button DEI
|
||||
[ #01 ] NEQk NIP ,&no-a JCN OVR ;fire JSR2 &no-a
|
||||
[ #10 ] NEQk NIP ,&no-u JCN OVR ;incr-angle JSR2 &no-u
|
||||
[ #20 ] NEQk NIP ,&no-d JCN OVR ;decr-angle JSR2 &no-d
|
||||
[ #40 ] NEQk NIP ,&no-l JCN OVR ;decr-force JSR2 &no-l
|
||||
[ #80 ] NEQk NIP ,&no-r JCN OVR ;incr-force JSR2 &no-r
|
||||
POP2
|
||||
|
||||
LEAK
|
||||
|
||||
BRK
|
||||
|
||||
@on-frame ( -> )
|
||||
|
||||
( handle bullet )
|
||||
.bullet/alive LDZ #01 NEQ ,&no-bullet JCN
|
||||
;update-bullet JSR2
|
||||
&no-bullet
|
||||
( animation )
|
||||
.game/timer LDZ #07 AND ,&skip JCN
|
||||
;get-player JSR2 #03 ;draw-arrow JSR2
|
||||
#01 ;draw-flag JSR2
|
||||
&skip
|
||||
.game/timer LDZk INC SWP STZ
|
||||
LEAK
|
||||
|
||||
BRK
|
||||
|
||||
@start-game ( -- )
|
||||
|
||||
;set-terrain JSR2
|
||||
;set-wind JSR2
|
||||
;place-players JSR2
|
||||
;place-clouds JSR2
|
||||
;prng JSR2 .stage/id STZ2
|
||||
( drawing )
|
||||
#02 ;draw-stage JSR2
|
||||
( name player )
|
||||
;prng JSR2 .player1/name STZ2
|
||||
;prng JSR2 .player2/name STZ2
|
||||
( default force )
|
||||
#0004 DUP2 .player1/force STZ2 .player2/force STZ2
|
||||
( initial drawing )
|
||||
.player1 ;draw-player JSR2
|
||||
.player2 ;draw-player JSR2
|
||||
.player1 ;select-player JSR2
|
||||
;next-turn JSR2
|
||||
;next-turn JSR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@set-wind ( -- )
|
||||
|
||||
#0001 #0000 [ ;prng JSR2 NIP #01 AND JMP ] SWP2 SUB2 .wind/force STZ2
|
||||
;prng JSR2 #0003 AND2 .wind/rate STZ2
|
||||
|
||||
JMP2r
|
||||
|
||||
@select-player ( player -- )
|
||||
|
||||
( nothing yet ) POP
|
||||
|
||||
JMP2r
|
||||
|
||||
@next-turn ( -- )
|
||||
|
||||
( stop all bullets )
|
||||
#00 .bullet/alive STZ
|
||||
|
||||
( clear )
|
||||
;get-player JSR2
|
||||
DUP #00 ;draw-arrow JSR2
|
||||
DUP #00 ;draw-force JSR2
|
||||
#40 ;draw-crosshair JSR2
|
||||
|
||||
#00 ;draw-clouds JSR2
|
||||
#00 ;draw-flag JSR2
|
||||
|
||||
( move clouds )
|
||||
.clouds/ax LDZ2k #0008 ADD2 ROT STZ2
|
||||
.clouds/bx LDZ2k #0004 ADD2 ROT STZ2
|
||||
.clouds/cx LDZ2k INC2 INC2 ROT STZ2
|
||||
|
||||
( draw )
|
||||
#02 ;draw-stage JSR2
|
||||
|
||||
( inc ) .game/turn LDZk INC SWP STZ
|
||||
|
||||
( flip wind )
|
||||
.game/turn LDZ #07 AND ,&no-wind JCN
|
||||
;set-wind JSR2
|
||||
&no-wind
|
||||
|
||||
( draw )
|
||||
.player1 ;draw-name JSR2
|
||||
.player2 ;draw-name JSR2
|
||||
.player1 ;draw-player JSR2
|
||||
.player2 ;draw-player JSR2
|
||||
;get-player JSR2
|
||||
DUP #00 ;draw-arrow JSR2
|
||||
DUP #01 ;draw-force JSR2
|
||||
#4a ;draw-crosshair JSR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@get-player ( -- player )
|
||||
|
||||
.player2 .player1 .game/turn LDZ [ #01 AND JMP SWP POP ]
|
||||
|
||||
JMP2r
|
||||
|
||||
@get-other ( -- player )
|
||||
|
||||
.player1 .player2 .game/turn LDZ [ #01 AND JMP SWP POP ]
|
||||
|
||||
JMP2r
|
||||
|
||||
@place-players ( -- )
|
||||
|
||||
( player1 )
|
||||
#0008
|
||||
DUP ;create-platform JSR2 STH
|
||||
INC2 #40 SFT2 .player1/x STZ2
|
||||
#00 STHr #40 SFT2 #0008 SUB2 .player1/y STZ2
|
||||
( player2 )
|
||||
.Screen/width DEI2 #03 SFT2 #0008 SUB2
|
||||
DUP ;create-platform JSR2 STH
|
||||
INC2 #40 SFT2 .player2/x STZ2
|
||||
#00 STHr #40 SFT2 #0008 SUB2 .player2/y STZ2
|
||||
|
||||
JMP2r
|
||||
|
||||
@place-clouds ( -- )
|
||||
|
||||
;prng JSR2 ADD .stage/w LDZ ( mod ) DIVk MUL SUB #00 SWP #40 SFT2 .clouds/ax STZ2
|
||||
#0030 .clouds/ay STZ2
|
||||
;prng JSR2 ADD .stage/w LDZ ( mod ) DIVk MUL SUB #00 SWP #40 SFT2 .clouds/bx STZ2
|
||||
#0060 .clouds/by STZ2
|
||||
;prng JSR2 ADD .stage/w LDZ ( mod ) DIVk MUL SUB #00 SWP #40 SFT2 .clouds/cx STZ2
|
||||
#0090 .clouds/cy STZ2
|
||||
|
||||
JMP2r
|
||||
|
||||
( terrain )
|
||||
|
||||
@set-terrain ( -- )
|
||||
|
||||
.stage/w LDZ INC INC #00
|
||||
&loop
|
||||
( height/2 ) .stage/h LDZ #01 SFT
|
||||
( rand ) ;prng JSR2 #0a SFT2 NIP ADD #01 SFT
|
||||
( store ) OVR #00 SWP ;terrain ADD2 STA
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
( soften )
|
||||
#0800
|
||||
&loop-soften
|
||||
,soften JSR
|
||||
INC GTHk ,&loop-soften JCN
|
||||
POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
@soften ( -- )
|
||||
|
||||
.stage/w LDZ #00
|
||||
&loop2
|
||||
( a ) #00 OVR ;terrain ADD2 LDA STH
|
||||
( b ) #00 OVR INC ;terrain ADD2 LDA STH
|
||||
( c ) #00 OVR INC INC ;terrain ADD2 LDA STH
|
||||
#00 STHr #00 STHr ADD2 #00 STHr ADD2 #0003 DIV2 NIP
|
||||
( store ) OVR #00 SWP ;terrain ADD2 STA
|
||||
INC GTHk ,&loop2 JCN
|
||||
POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
@create-platform ( x -- height )
|
||||
|
||||
#01 SUB
|
||||
#00 SWP ;terrain ADD2 DUP2
|
||||
( average ) LDAk STH INC2 LDAk STH INC2 ADDr LDAk STH INC2 ADDr LDA STH ADDr
|
||||
LITr 04 DIVr
|
||||
( flatten ) STHkr ROT ROT STAk INC2 STAk INC2 STAk INC2 STA
|
||||
STHr
|
||||
|
||||
JMP2r
|
||||
|
||||
|
||||
|
||||
.bullet/age LDZ2 .wind/rate LDZ2 INC2 #30 SFT2 ( mod2 ) DIV2k MUL2 SUB2 ORA ,&no-wind JCN
|
||||
.bullet/vx LDZ2 .wind/force LDZ2 ADD2 .bullet/vx STZ2
|
||||
&no-wind
|
||||
|
||||
@update-bullet ( -- )
|
||||
|
||||
( undraw )
|
||||
#40 ;draw-bullet JSR2
|
||||
;collide-bounds JSR2 ;&hit-bound JCN2
|
||||
;collide-ground JSR2 ;&hit-ground JCN2
|
||||
;collide-clouds JSR2 ;&hit-cloud JCN2
|
||||
;collide-other JSR2 ;&hit-other JCN2
|
||||
;collide-self JSR2 ;&hit-self JCN2
|
||||
( origin )
|
||||
.bullet/x LDZ2 ,&x STR2
|
||||
.bullet/y LDZ2 ,&y STR2
|
||||
( update bullet )
|
||||
.bullet/x LDZ2 .bullet/vx LDZ2 ADD2 .bullet/x STZ2
|
||||
.bullet/y LDZ2 .bullet/vy LDZ2 SUB2 .bullet/y STZ2
|
||||
( apply wind )
|
||||
( apply gravity )
|
||||
.bullet/vy LDZ2
|
||||
#0001 SUB2 .bullet/vy STZ2
|
||||
( line )
|
||||
.bullet/y LDZ2 #8000 GTH2 ,&offscreen JCN
|
||||
,&y LDR2 #8000 GTH2 ,&offscreen JCN
|
||||
.bullet/x LDZ2 #8000 GTH2 ,&offscreen JCN
|
||||
,&x LDR2 #8000 GTH2 ,&offscreen JCN
|
||||
[ LIT2 &x $2 ] #01 SFT2 [ LIT2 &y $2 ] #01 SFT2
|
||||
.bullet/x LDZ2 #01 SFT2 .bullet/y LDZ2 #01 SFT2 #01 ;draw-line JSR2
|
||||
&offscreen
|
||||
.bullet/age LDZ2k INC2 ROT STZ2
|
||||
#43 ;draw-bullet JSR2
|
||||
|
||||
JMP2r
|
||||
&hit-bound
|
||||
;next-turn JSR2
|
||||
JMP2r
|
||||
&hit-ground
|
||||
#00 ;draw-stage JSR2
|
||||
.bullet/x LDZ2 #04 SFT2 ;terrain ADD2 STH2k LDA INC STH2r STA
|
||||
;next-turn JSR2
|
||||
JMP2r
|
||||
&hit-cloud
|
||||
;next-turn JSR2
|
||||
JMP2r
|
||||
&hit-other
|
||||
#aaaa ;print JSR2 #0a18 DEO
|
||||
;next-turn JSR2
|
||||
JMP2r
|
||||
&hit-self
|
||||
;next-turn JSR2
|
||||
JMP2r
|
||||
|
||||
@collide-ground ( -- hit )
|
||||
|
||||
.bullet/y LDZ2 #8000 GTH2 ,&offscreen JCN
|
||||
( x ) .bullet/x LDZ2 #04 SFT2 ;terrain ADD2 LDA
|
||||
#00 SWP #40 SFT2 .bullet/y LDZ2 LTH2 JMP2r
|
||||
&offscreen
|
||||
#00
|
||||
|
||||
JMP2r
|
||||
|
||||
@collide-bounds ( -- hit )
|
||||
|
||||
.bullet/x LDZ2 .Screen/width DEI2 #10 SFT2 GTH2
|
||||
JMP2r
|
||||
( TODO )
|
||||
.bullet/y LDZ2 .Screen/height DEI2 #10 SFT2 GTH2
|
||||
.bullet/x LDZ2 .Screen/width DEI2 #10 SFT2 GTH2
|
||||
ORA
|
||||
|
||||
JMP2r
|
||||
|
||||
@collide-clouds ( -- hit )
|
||||
|
||||
#00
|
||||
|
||||
JMP2r
|
||||
|
||||
@collide-self ( -- hit )
|
||||
|
||||
.bullet/age LDZ2 #0020 GTH2 ,&continue JCN
|
||||
#00 JMP2r
|
||||
&continue
|
||||
.bullet/x LDZ2
|
||||
DUP2 ;get-player JSR2 /x LDZ2 #0008 SUB2 LTH2 ,&miss JCN
|
||||
DUP2 ;get-player JSR2 /x LDZ2 #0010 ADD2 GTH2 ,&miss JCN
|
||||
POP2
|
||||
.bullet/y LDZ2
|
||||
DUP2 ;get-player JSR2 /y LDZ2 #0020 SUB2 LTH2 ,&miss JCN
|
||||
DUP2 ;get-player JSR2 /y LDZ2 #0008 ADD2 GTH2 ,&miss JCN
|
||||
POP2
|
||||
#01
|
||||
|
||||
JMP2r
|
||||
&miss POP2 #00 JMP2r
|
||||
|
||||
@collide-other ( -- hit )
|
||||
|
||||
.bullet/x LDZ2
|
||||
DUP2 ;get-other JSR2 /x LDZ2 #0008 SUB2 LTH2 ,&miss JCN
|
||||
DUP2 ;get-other JSR2 /x LDZ2 #0010 ADD2 GTH2 ,&miss JCN
|
||||
POP2
|
||||
.bullet/y LDZ2
|
||||
DUP2 ;get-other JSR2 /y LDZ2 #0020 SUB2 LTH2 ,&miss JCN
|
||||
DUP2 ;get-other JSR2 /y LDZ2 #0008 ADD2 GTH2 ,&miss JCN
|
||||
POP2
|
||||
#01
|
||||
( TODO: set sprite state )
|
||||
#aaaa ;print JSR2 #0a18 DEO
|
||||
|
||||
JMP2r
|
||||
&miss POP2 #00 JMP2r
|
||||
|
||||
@incr-angle ( player -- )
|
||||
|
||||
DUP /angle LDZ #14 EQU ,&skip JCN
|
||||
DUP #40 ;draw-crosshair JSR2
|
||||
DUP /angle LDZk INC SWP STZ
|
||||
DUP ;draw-player JSR2
|
||||
DUP #43 ;draw-crosshair JSR2
|
||||
&skip
|
||||
POP
|
||||
|
||||
JMP2r
|
||||
|
||||
@decr-angle ( player -- )
|
||||
|
||||
DUP /angle LDZ #01 LTH ,&skip JCN
|
||||
DUP #40 ;draw-crosshair JSR2
|
||||
DUP /angle LDZk #01 SUB SWP STZ
|
||||
DUP ;draw-player JSR2
|
||||
DUP #43 ;draw-crosshair JSR2
|
||||
&skip
|
||||
POP
|
||||
|
||||
JMP2r
|
||||
|
||||
@incr-force ( player -- )
|
||||
|
||||
DUP /force LDZ2 #0007 GTH2 ,&skip JCN
|
||||
DUP /force LDZ2k INC2 ROT STZ2
|
||||
DUP #01 ;draw-force JSR2
|
||||
&skip
|
||||
POP
|
||||
|
||||
JMP2r
|
||||
|
||||
@decr-force ( player -- )
|
||||
|
||||
DUP /force LDZ2 #0001 LTH2 ,&skip JCN
|
||||
DUP /force LDZ2k #0001 SUB2 ROT STZ2
|
||||
DUP #01 ;draw-force JSR2
|
||||
&skip
|
||||
POP
|
||||
|
||||
JMP2r
|
||||
|
||||
@fire ( player -- )
|
||||
|
||||
STH
|
||||
#00 STHkr /angle LDZ
|
||||
DUP2
|
||||
( y )
|
||||
( add force ) DUP2 STHkr /force LDZ2 MUL2 #02 SFT2 ADD2 .bullet/vy STZ2
|
||||
( x ) ( range ) #0014 SWP2 SUB2 STHkr /y LDZ2 #0014 SUB2 .bullet/y STZ2
|
||||
( add force ) DUP2 STHkr /force LDZ2 MUL2 #02 SFT2 ADD2
|
||||
( player2 flip-x ) STHkr .player2 NEQ ,&left JCN #0000 SWP2 SUB2 &left .bullet/vx STZ2
|
||||
STHr /x LDZ2 .bullet/x STZ2
|
||||
#01 .bullet/alive STZ
|
||||
#0000 .bullet/age STZ2
|
||||
|
||||
JMP2r
|
||||
|
||||
( drawing )
|
||||
|
||||
@draw-stage ( color -- )
|
||||
|
||||
STH
|
||||
#35 .Screen/auto DEO
|
||||
( x ) #0000 .Screen/x DEO2
|
||||
.stage/w LDZ #00
|
||||
&loop
|
||||
;stage-icns .Screen/addr DEO2
|
||||
( y ) #00 OVR ;terrain ADD2 LDA #01 SUB #00 SWP #30 SFT2 .Screen/y DEO2
|
||||
STHkr .Screen/sprite DEO
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
STHkr ;draw-doodads JSR2
|
||||
STHkr ;draw-clouds JSR2
|
||||
STHkr ;draw-ramps JSR2
|
||||
STHr #00 NEQ ;draw-flag JSR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-doodads ( color -- )
|
||||
|
||||
STH
|
||||
#00 .Screen/auto DEO
|
||||
.stage/w LDZ #00
|
||||
&loop
|
||||
( x ) #00 OVR #30 SFT2 .Screen/x DEO2
|
||||
( y ) #00 OVR ;terrain ADD2 LDA #02 SUB #00 SWP #30 SFT2 .Screen/y DEO2
|
||||
( doodads )
|
||||
#00 OVR .stage/id LDZ2 ADD2 #0003 AND2 #40 SFT2 ;doodad-icns ADD2 .Screen/addr DEO2
|
||||
STHkr #00 NEQ #85 MUL .Screen/sprite DEO
|
||||
#05 ADD GTHk ,&loop JCN
|
||||
POP2
|
||||
POPr
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-ramps ( color -- )
|
||||
|
||||
STH
|
||||
#00 .Screen/auto DEO
|
||||
.stage/w LDZ #00
|
||||
&loop
|
||||
( x ) #00 OVR #30 SFT2 .Screen/x DEO2
|
||||
( y ) #00 OVR ;terrain ADD2 LDA #02 SUB #00 SWP #30 SFT2 .Screen/y DEO2
|
||||
( up )
|
||||
#00 OVR ;terrain ADD2 LDA2
|
||||
EQUk ,&no-up-ramp JCN
|
||||
LTHk ,&no-up-ramp JCN
|
||||
;ramp-icns .Screen/addr DEO2
|
||||
STHkr #01 MUL .Screen/sprite DEO
|
||||
&no-up-ramp
|
||||
POP2
|
||||
( down )
|
||||
#00 OVR #01 SUB ;terrain ADD2 LDA2
|
||||
EQUk ,&no-down-ramp JCN
|
||||
GTHk ,&no-down-ramp JCN
|
||||
;ramp-icns/down .Screen/addr DEO2
|
||||
STHkr #01 MUL .Screen/sprite DEO
|
||||
&no-down-ramp
|
||||
POP2
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
POPr
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-clouds ( color -- )
|
||||
|
||||
#16 .Screen/auto DEO
|
||||
;cloud-icns/a .Screen/addr DEO2
|
||||
#81 SWP #00 NEQ MUL .Screen/sprite
|
||||
.clouds/ax LDZ2 #01 SFT2 .Screen/x DEO2
|
||||
.clouds/ay LDZ2 #01 SFT2 .Screen/y DEO2
|
||||
DEOk
|
||||
.clouds/bx LDZ2 #01 SFT2 .Screen/x DEO2
|
||||
.clouds/by LDZ2 #01 SFT2 .Screen/y DEO2
|
||||
;cloud-icns/b .Screen/addr DEO2
|
||||
DEOk
|
||||
.clouds/cx LDZ2 #01 SFT2 .Screen/x DEO2
|
||||
.clouds/cy LDZ2 #01 SFT2 .Screen/y DEO2
|
||||
;cloud-icns/c .Screen/addr DEO2
|
||||
DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-force ( player mask -- )
|
||||
|
||||
STH
|
||||
INCk INC LDZ2 #01 SFT2 #0028 SUB2 .Screen/y DEO2
|
||||
( bg )
|
||||
LDZ2k #01 SFT2 #0012 SUB2 .Screen/x DEO2
|
||||
#10 #05 STHkr MUL ;draw-bar JSR2
|
||||
( fg )
|
||||
LDZ2k #01 SFT2 #0012 SUB2 .Screen/x DEO2
|
||||
#04 ADD LDZ2 NIP #10 SFT #0f STHr MUL ;draw-bar JSR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-bar ( size color -- )
|
||||
|
||||
STH
|
||||
#00 .Screen/auto DEO
|
||||
;progress-icns/fill .Screen/addr DEO2
|
||||
#00
|
||||
&loop
|
||||
STHkr .Screen/sprite DEO
|
||||
.Screen/x DEI2k INC2 INC2 ROT DEO2
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
POPr
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-crosshair ( player color -- )
|
||||
|
||||
STH
|
||||
DUP ,&player STR
|
||||
#00 .Screen/auto DEO
|
||||
DUP /x LDZ2 #01 SFT2 #0020 SUB2 ,&offset-x STR2
|
||||
/y LDZ2 #01 SFT2 #0028 SUB2 ,&offset-y STR2
|
||||
#4000
|
||||
&loop
|
||||
#00 OVR #10 SFT2 ;sin-tbl ADD2
|
||||
DUP2 LDA #00 SWP #02 SFT2 [ LIT2 &offset-x $2 ] ADD2 .Screen/x DEO2
|
||||
INC2 LDA #00 SWP #02 SFT2 [ LIT2 &offset-y $2 ] ADD2 .Screen/y DEO2
|
||||
DUP #03 AND ,&odd JCN
|
||||
STHkr .Screen/pixel DEO
|
||||
&odd
|
||||
( selected )
|
||||
DUP [ LIT &player $1 ] ;get-marker JSR2 NEQ ,&no-sel JCN
|
||||
.Screen/x DEI2k #0003 SUB2 ROT DEO2
|
||||
.Screen/y DEI2k #0003 SUB2 ROT DEO2
|
||||
;crosshair-icn .Screen/addr DEO2
|
||||
STHkr .Screen/sprite DEO
|
||||
&no-sel
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
POPr
|
||||
|
||||
JMP2r
|
||||
|
||||
@get-marker ( player -- marker )
|
||||
|
||||
DUP .player2 EQU ,&player2 JCN
|
||||
#14 SWP /angle LDZ SUB JMP2r
|
||||
&player2
|
||||
/angle LDZ #2c ADD #3f AND
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-flag ( mask -- )
|
||||
|
||||
STH
|
||||
( direction )
|
||||
.wind/force LDZ2 #8000 LTH2 STH
|
||||
( x )
|
||||
.Screen/width DEI2 #0006 SUB2
|
||||
( flip-x ) #00 STHkr #000c MUL2 ADD2
|
||||
#01 SFT2 .Screen/x DEO2
|
||||
( y )
|
||||
#00 .stage/w LDZ INC #01 SFT ;terrain ADD2 LDA
|
||||
#00 SWP #0004 SUB2 #30 SFT2 .Screen/y DEO2
|
||||
( top )
|
||||
#02 .Screen/auto DEO
|
||||
;flag/top
|
||||
( rate ) .wind/rate LDZ2 #0030 MUL2 ADD2
|
||||
( animate ) #00 [ LIT &f $1 ] #40 SFT2 ADD2
|
||||
.Screen/addr DEO2
|
||||
#81 ( flipx ) STHr #40 SFT ORA STHr MUL .Screen/sprite
|
||||
DEOk
|
||||
( pole )
|
||||
;flag/pole .Screen/addr DEO2
|
||||
DEOk DEO
|
||||
( animate )
|
||||
,&f LDR INC #03 ( mod ) DIVk MUL SUB ,&f STR
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-arrow ( player color -- )
|
||||
|
||||
STH
|
||||
#00 .Screen/auto DEO
|
||||
( x ) LDZ2k #01 SFT2 #0004 SUB2 .Screen/x DEO2
|
||||
( y ) INC INC LDZ2 #0040 SUB2
|
||||
( y+blink ) #00 .game/timer LDZ #0f AND #02 SFT2 ADD2
|
||||
#01 SFT2 .Screen/y DEO2
|
||||
;arrow-icn .Screen/addr DEO2
|
||||
STHr .Screen/sprite DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-bullet ( color -- )
|
||||
|
||||
#00 .Screen/auto DEO
|
||||
.bullet/x LDZ2 #0006 SUB2 #01 SFT2 .Screen/x DEO2
|
||||
.bullet/y LDZ2 #0006 SUB2 #01 SFT2 .Screen/y DEO2
|
||||
;bullet-icn .Screen/addr DEO2
|
||||
.Screen/sprite DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-player ( player -- )
|
||||
|
||||
DUP .player2 EQU ;draw-player2 JCN2
|
||||
STHk
|
||||
LDZ2k #01 SFT2 #0008 SUB2 .Screen/x DEO2
|
||||
INC INC LDZ2 #0028 SUB2 #01 SFT2 .Screen/y DEO2
|
||||
#16 .Screen/auto DEO
|
||||
;player1-icns/ears .Screen/addr DEO2
|
||||
#85 .Screen/sprite DEOk
|
||||
;player1-icns/eye [ #00 STHr #06 ADD LDZ #03 SFT ] #50 SFT2 ADD2 .Screen/addr DEO2
|
||||
DEOk
|
||||
;player1-icns/body .Screen/addr DEO2
|
||||
DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-player2 ( player -- )
|
||||
|
||||
STHk
|
||||
LDZ2k #01 SFT2 #0008 SUB2 .Screen/x DEO2
|
||||
INC INC LDZ2 #0028 SUB2 #01 SFT2 .Screen/y DEO2
|
||||
#16 .Screen/auto DEO
|
||||
;player2-icns/ears .Screen/addr DEO2
|
||||
#85 .Screen/sprite DEOk
|
||||
;player2-icns/eye [ #00 STHr #06 ADD LDZ #03 SFT ] #50 SFT2 ADD2 .Screen/addr DEO2
|
||||
DEOk
|
||||
;player2-icns/body .Screen/addr DEO2
|
||||
DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-name ( player -- )
|
||||
|
||||
DUP /x LDZ2 #01 SFT2 #0020 SUB2 .Screen/x DEO2
|
||||
DUP /y LDZ2 #0068 SUB2 #01 SFT2 .Screen/y DEO2
|
||||
( to /name ) #07 ADD
|
||||
LDZk #0f AND #00 SWP #0005 MUL2 ;names/first ADD2 #05 ;draw-label JSR2
|
||||
INC LDZ #0f AND #00 SWP #0006 MUL2 ;names/last ADD2 #05 ;draw-label JSR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@draw-label ( str* color -- )
|
||||
|
||||
STH
|
||||
#01 .Screen/auto DEO
|
||||
&while
|
||||
LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
|
||||
STHkr .Screen/sprite DEO
|
||||
INC2 LDAk ,&while JCN
|
||||
POP2
|
||||
POPr
|
||||
|
||||
JMP2r
|
||||
|
||||
@text "buckthorn $1
|
||||
|
||||
@draw-line ( x1* y1* x2* y2* color -- )
|
||||
|
||||
( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2
|
||||
,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2
|
||||
#0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2
|
||||
#ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sx STR2
|
||||
#ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sy STR2
|
||||
.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
|
||||
&loop
|
||||
.line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2
|
||||
.line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2
|
||||
STHkr .Screen/pixel DEO
|
||||
AND ,&end JCN
|
||||
.line/e1 LDZ2 #10 SFT2 DUP2
|
||||
.line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN
|
||||
.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
|
||||
.line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2
|
||||
&skipy
|
||||
.line/dx LDZ2 ;gts2 JSR2 ,&skipx JCN
|
||||
.line/e1 LDZ2 .line/dx LDZ2 ADD2 .line/e1 STZ2
|
||||
.line/y LDZ2 [ LIT2 &sy $2 ] ADD2 .line/y STZ2
|
||||
&skipx
|
||||
,&loop JMP
|
||||
&end
|
||||
POPr
|
||||
|
||||
JMP2r
|
||||
|
||||
@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r
|
||||
@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
|
||||
@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r
|
||||
|
||||
( library )
|
||||
|
||||
@prng-init ( -- )
|
||||
|
||||
( seed )
|
||||
#00 .DateTime/second DEI
|
||||
#00 .DateTime/minute DEI #60 SFT2 EOR2
|
||||
#00 .DateTime/hour DEI #c0 SFT2 EOR2 ,prng/x STR2
|
||||
#00 .DateTime/hour DEI #04 SFT2
|
||||
#00 .DateTime/day DEI #10 SFT2 EOR2
|
||||
#00 .DateTime/month DEI #60 SFT2 EOR2
|
||||
.DateTime/year DEI2 #a0 SFT2 EOR2 ,prng/y STR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@prng ( -- number* )
|
||||
|
||||
LIT2 &x $2
|
||||
DUP2 #50 SFT2 EOR2
|
||||
DUP2 #03 SFT2 EOR2
|
||||
LIT2 &y $2 DUP2 ,&x STR2
|
||||
DUP2 #01 SFT2 EOR2 EOR2
|
||||
,&y STR2k POP
|
||||
|
||||
JMP2r
|
||||
|
||||
@print ( short* -- )
|
||||
|
||||
SWP ,&byte JSR
|
||||
&byte ( byte -- ) DUP #04 SFT ,&char JSR
|
||||
&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
|
||||
|
||||
JMP2r
|
||||
|
||||
@progress-icns
|
||||
3f40 8080 8080 403f
|
||||
ff00 0000 0000 00ff
|
||||
fc02 0101 0101 02fc
|
||||
&fill
|
||||
0000 183c 3c18 0000
|
||||
@crosshair-icn
|
||||
0010 106c 1010 0000
|
||||
@arrow-icn
|
||||
0018 18ff 7e3c 1800
|
||||
@bullet-icn
|
||||
0000 183c 3c18 0000
|
||||
@flag
|
||||
&pole
|
||||
0101 0101 0001 0001 0101 0101 0101 0101
|
||||
&top
|
||||
( high )
|
||||
0101 3fff 3f07 0101 0101 0000 0000 0101
|
||||
01f9 3f3f 1f07 0101 0101 0000 0000 0101
|
||||
0181 ffff 7f07 0101 0101 0000 0000 0101
|
||||
( med )
|
||||
0101 0307 070f 3f79 0101 0000 0000 0101
|
||||
0101 0307 0f3f 7d41 0101 0000 0000 0101
|
||||
0101 0307 4f7f 3d01 0101 0000 0000 0101
|
||||
( low )
|
||||
0101 0303 0303 0707 0101 0000 0000 0000
|
||||
0101 0103 0707 0703 0101 0000 0000 0000
|
||||
0101 0103 0307 0703 0101 0000 0000 0000
|
||||
( none )
|
||||
0101 0303 0303 0707 0101 0000 0000 0000
|
||||
0101 0103 0707 0703 0101 0000 0000 0000
|
||||
0101 0103 0307 0703 0101 0000 0000 0000
|
||||
|
||||
@cloud-icns
|
||||
&a
|
||||
0000 0c1e 1e0f 0500 0000 1c3e 3e3f ff7f
|
||||
0004 0200 c0e0 50a0 0004 0e04 c0e0 f0e0
|
||||
&b
|
||||
0000 081c 1400 0000 0000 193d 7f3f 0000
|
||||
0070 f8f8 54a0 0000 00f0 f8f8 fcf0 0000
|
||||
&c
|
||||
0000 402e 0f00 0000 0000 40ee 5f0e 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
|
||||
@doodad-icns
|
||||
0000 0000 2054 2a04 0000 0000 2074 2e24
|
||||
0000 0000 40a2 552a 0000 0000 40e2 577a
|
||||
0000 0000 0000 0000 0000 0000 0000 0424
|
||||
0000 0000 0000 0000 0000 0000 0000 0008
|
||||
|
||||
@ramp-icns
|
||||
0000 0000 0000 0001
|
||||
&down
|
||||
0000 0000 0000 0080
|
||||
|
||||
@stage-icns
|
||||
ffff ffff ffff ffff
|
||||
ffff aa55 aa55 aa55
|
||||
aa55 aa55 8800 2200
|
||||
0000 0000 0000 0000
|
||||
&up
|
||||
0103 070f 1f3f 7fff
|
||||
ffff fefd faf5 ead5
|
||||
aa55 aa55 a850 a240
|
||||
8800 2200 8800 0000
|
||||
&down
|
||||
0000 0000 0000 0000
|
||||
80c0 e0f0 f8fc feff
|
||||
ffff bf5f af57 ab55
|
||||
aa55 aa55 0a05 2201
|
||||
8800 2200 8800 0000
|
||||
|
||||
@player1-icns
|
||||
&ears
|
||||
( 0 )
|
||||
0002 0e0e 0606 1f3f 0c0c 0000 0000 0000
|
||||
0020 e0e0 6000 fcfe c0c0 0000 0000 0000
|
||||
( 1 )
|
||||
0000 020e 0e06 1f3f 000c 0c00 0000 0000
|
||||
0000 20e0 6000 fcfe 00c0 c000 0000 0000
|
||||
( 2 )
|
||||
0000 041c 0e06 1f3f 0019 1900 0000 0000
|
||||
0000 40e0 6000 fcfe 0080 8000 0000 0000
|
||||
&eye
|
||||
( 0 )
|
||||
7f7f 7f7f 7f3f 1f07 0103 0707 0703 0000
|
||||
ffc7 8383 c7ff fef8 f0f8 fcfc fcf8 0000
|
||||
( 1 )
|
||||
7f7f 7f7f 7f3f 1f07 0103 0707 0703 0000
|
||||
8f07 078f ffff fef8 f0f8 fcfc fcf8 0000
|
||||
( 2 )
|
||||
7f7e 7e7f 7f3f 1f07 0103 0707 0703 0000
|
||||
1f0f 0f1f ffff fef8 f0f8 fcfc fcf8 0000
|
||||
&body
|
||||
5f3f 3f1f 1200 0000 4101 0000 0000 0000
|
||||
e0e0 e040 4000 0000 e0e0 e000 0000 0000
|
||||
|
||||
@player2-icns
|
||||
&ears
|
||||
( 0 )
|
||||
0003 030c 0e00 1f3f 0000 0403 0000 0000
|
||||
008e 8e30 7860 f0f8 0000 100c 0000 0000
|
||||
( 1 )
|
||||
0000 0303 0c00 1f3f 0000 0004 0300 0000
|
||||
0000 8e8e 3078 f0f8 0000 0010 0c00 0000
|
||||
( 2 )
|
||||
0000 0101 0600 1f3f 0000 0002 0100 0000
|
||||
0000 c7c7 1878 f0f8 0000 0008 8600 0000
|
||||
&eye
|
||||
( 0 )
|
||||
7fe3 d1c1 e3ff 7f1f 0f1f 3f3f 3f1f 0000
|
||||
fcfe fefe fefe fcf0 80c0 e0e0 e0c0 0000
|
||||
( 1 )
|
||||
71e8 e0f1 ffff 7f1f 0f1f 3f3f 3f1f 0000
|
||||
fcfe fefe fefe fcf0 80c0 e0e0 e0c0 0000
|
||||
( 2 )
|
||||
78f4 f0f8 ffff 7f1f 0f1f 3f3f 3f1f 0000
|
||||
fc7e 7efe fefe fcf0 80c0 e0e0 e0c0 0000
|
||||
&body
|
||||
0707 0702 0200 0000 0707 0700 0000 0000
|
||||
f0f8 fefe b000 0000 8080 0606 0000 0000
|
||||
|
||||
@platform-icns
|
||||
0000 0000 0000 0000 0f3f 3f7f 7f7f 7f7f
|
||||
0000 0000 0000 0000 ffff ffff ffff ffff
|
||||
0000 0000 0000 0000 ffff ffff ffff ffff
|
||||
0000 0000 0000 0000 f0fc fcfe fefe fefe
|
||||
0000 0000 0000 0000 7f7f 7778 7050 2000
|
||||
0000 0000 0000 0000 ffff ffff 3e1c 0000
|
||||
0000 0000 0000 0000 ffff ff3f 1303 0100
|
||||
0000 0000 0000 0000 fefe fefe eeca 0400
|
||||
|
||||
@sin-tbl
|
||||
8000 8c00 9802 a505 b009 bc0f c715 d11d
|
||||
da25 e22e ea38 f043 f64f fa5a fd67 ff73
|
||||
ff80 ff8c fd98 faa5 f6b0 f0bc eac7 e2d1
|
||||
dada d1e2 c7ea bcf0 b0f6 a5fa 98fd 8cff
|
||||
80ff 73ff 67fd 5afa 4ff6 43f0 38ea 2ee2
|
||||
25da 1dd1 15c7 0fbc 09b0 05a5 0298 008c
|
||||
0080 0073 0267 055a 094f 0f43 1538 1d2e
|
||||
2525 2e1d 3815 430f 4f09 5a05 6702 7300
|
||||
|
||||
~names.tal
|
||||
~font.tal
|
||||
|
||||
@terrain
|
||||
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
@names
|
||||
&first
|
||||
"Blue $1 "Fern $1 "Leaf $1 "Corn $1
|
||||
"Pine $1 "Snow $1 "Seed $1 "Fuzz $1
|
||||
"Rain $1 "Buck $1 "Rose $1 "Sage $1
|
||||
"Worm $1 "Haze $1 "Hawk $1 "Bell $1
|
||||
&last
|
||||
"stack $1 "marsh $1 "clove $1 "thorn $1
|
||||
"patch $1 "grass $1 "shade $1 "berry $1
|
||||
"woods $1 "stone $1 "cedar $1 "brush $1
|
||||
"storm $1 "cloud $1 "mound $1 "beans $1
|
||||
Binary file not shown.
Loading…
Reference in New Issue