mirror of https://git.sr.ht/~rabbits/parade
Started implementing create
This commit is contained in:
neauoire
parent
a5ec95529b
commit
e2524d4336
|
|
@ -6,7 +6,8 @@ In Paradise, you are but a force acting upon places, objects, words — vessels.
|
|||
|
||||
You must have the [Uxn](https://git.sr.ht/~rabbits/uxn/) assembler and emulator.
|
||||
|
||||
```
|
||||
```sh
|
||||
cat src/main.tal src/font.tal > src/parade.tal
|
||||
uxnasm parade.tal parade.rom && uxnemu parade.rom
|
||||
```
|
||||
|
||||
|
|
@ -37,7 +38,6 @@ tcc parade.c -o parade
|
|||
- **note** this place is dark.
|
||||
- **program** create a sound
|
||||
- **use** the machine
|
||||
- **learn** to become
|
||||
|
||||
## Save/Load
|
||||
|
||||
To save a world, use `@save filename.txt`, to load `@load filename.txt`, to quit `@quit`. You can learn more about Parade [here](https://wiki.xxiivv.com/site/parade.html).
|
||||
|
|
|
|||
|
|
@ -1697,5 +1697,3 @@
|
|||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000
|
||||
|
||||
@world
|
||||
|
|
|
|||
126
src/main.tal
126
src/main.tal
|
|
@ -2,6 +2,7 @@
|
|||
TODO
|
||||
- Reflect vessel name in headerview
|
||||
- Blink cursor
|
||||
- Theme
|
||||
)
|
||||
|
||||
%+ { ADD } %- { SUB }
|
||||
|
|
@ -28,6 +29,10 @@
|
|||
%BRK? { #01 JCN BRK }
|
||||
%SWP? { #01 JCN SWP }
|
||||
|
||||
%GET-NAME { 20** ;world/vessels ++ } ( id* -- addr* )
|
||||
%GET-MAKER { 20** ;world/vessels ++ #001c ++ LDA2 } ( id* -- addr* )
|
||||
%GET-PARENT { 20** ;world/vessels ++ #001e ++ LDA2 } ( id* -- addr* )
|
||||
|
||||
%DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
|
||||
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
|
||||
|
||||
|
|
@ -46,22 +51,14 @@
|
|||
|
||||
|0000
|
||||
|
||||
@ghost
|
||||
&vessel
|
||||
|
||||
@ghost $2
|
||||
@input-field $32
|
||||
|
||||
@headerview
|
||||
&x $2
|
||||
&y $2
|
||||
|
||||
&x $2 &y $2
|
||||
@bodyview
|
||||
&x $2
|
||||
&y $2
|
||||
|
||||
&x $2 &y $2
|
||||
@inputview
|
||||
&x $2
|
||||
&y $2
|
||||
&x $2 &y $2
|
||||
|
||||
( program )
|
||||
|
||||
|
|
@ -80,10 +77,9 @@
|
|||
#0040 #0080 .bodyview/y STZ2 .bodyview/x STZ2
|
||||
#0040 #00f0 .inputview/y STZ2 .inputview/x STZ2
|
||||
|
||||
( draw label )
|
||||
.bodyview/x LDZ2 .bodyview/y LDZ2 ;text-buffer #01 ;draw-uf2 JSR2
|
||||
.inputview/x LDZ2 #0010 -- .inputview/y LDZ2 ;prompt-txt #03 ;draw-uf2 JSR2
|
||||
.headerview/x LDZ2 .headerview/y LDZ2 ;headerview-txt #01 ;draw-uf3 JSR2
|
||||
( select starting vessel )
|
||||
;init-world JSR2
|
||||
;redraw JSR2
|
||||
|
||||
BRK
|
||||
|
||||
|
|
@ -109,6 +105,42 @@ BRK
|
|||
|
||||
BRK
|
||||
|
||||
@init-world ( -- )
|
||||
|
||||
;&library-txt ;create-vessel JSR2
|
||||
;&ghost-txt ;create-vessel JSR2
|
||||
( select ghost ) #0001 .ghost STZ2
|
||||
;&teapot-txt ;create-vessel JSR2
|
||||
|
||||
RTN
|
||||
&library-txt "glittering 20 "snake $1
|
||||
&ghost-txt "ruby 20 "slipper $1
|
||||
&teapot-txt "teapot $1
|
||||
|
||||
@create-vessel ( name* -- )
|
||||
|
||||
( get addr* )
|
||||
;world/vessels [ ;world/length LDA2 20** ] ++ STH2k
|
||||
|
||||
( name )
|
||||
;scpy JSR2
|
||||
( makership )
|
||||
( get maker ) .ghost LDZ2
|
||||
( set maker ) STH2kr #001c ++ STA2
|
||||
( parenting )
|
||||
( get parent ) .ghost LDZ2 GET-PARENT
|
||||
( set parent ) STH2r #001e ++ STA2
|
||||
|
||||
( debug )
|
||||
;world/length LDA2
|
||||
DUP2 GET-NAME ;print-string JSR2
|
||||
DUP2 GET-MAKER DEBUG2
|
||||
GET-PARENT DEBUG2
|
||||
|
||||
( incr length ) ;world/length LDA2 INC2 ;world/length STA2
|
||||
|
||||
RTN
|
||||
|
||||
( Input )
|
||||
|
||||
@input-validate ( -- )
|
||||
|
|
@ -167,10 +199,11 @@ RTN
|
|||
@do ( input* -- )
|
||||
|
||||
&create ( input* -- )
|
||||
;print-string JSR2
|
||||
;you-said-txt ;text-buffer ;scpy JSR2
|
||||
;input-field ;text-buffer ;scat JSR2
|
||||
#aa DEBUG
|
||||
STH2k ;create-vessel JSR2
|
||||
;you-created-the-txt ;text-buffer ;scpy JSR2
|
||||
STH2r ;text-buffer ;scat JSR2
|
||||
LIT '. ;text-buffer ;ccat JSR2
|
||||
|
||||
;input-validate/end JMP2
|
||||
BRK
|
||||
|
||||
|
|
@ -233,7 +266,6 @@ RTN
|
|||
;input-validate/end JMP2
|
||||
BRK
|
||||
|
||||
|
||||
&unknown ( input* -- )
|
||||
POP2 #ee DEBUG
|
||||
;input-validate/end JMP2
|
||||
|
|
@ -241,7 +273,22 @@ RTN
|
|||
|
||||
RTN
|
||||
|
||||
( Generics )
|
||||
( Drawing )
|
||||
|
||||
@redraw ( -- )
|
||||
|
||||
( header )
|
||||
;you-are-the-txt ;text-buffer ;scpy JSR2
|
||||
.ghost LDZ2 STH2k GET-NAME ;text-buffer ;scat JSR2
|
||||
;in-the-txt ;text-buffer ;scat JSR2
|
||||
STH2r GET-PARENT GET-NAME ;text-buffer ;scat JSR2
|
||||
.headerview/x LDZ2 .headerview/y LDZ2 ;text-buffer #01 ;draw-uf3 JSR2
|
||||
|
||||
|
||||
.bodyview/x LDZ2 .bodyview/y LDZ2 ;text-buffer #01 ;draw-uf2 JSR2
|
||||
.inputview/x LDZ2 #0010 -- .inputview/y LDZ2 ;prompt-txt #03 ;draw-uf2 JSR2
|
||||
|
||||
RTN
|
||||
|
||||
@draw-uf2 ( x* y* text* color -- )
|
||||
|
||||
|
|
@ -299,7 +346,7 @@ RTN
|
|||
&loop
|
||||
LDAk
|
||||
#0a !~ ,&no-linebreak JCN
|
||||
( move down ) STH OVR2 #0008 -- .Screen/x DEO2 STHr
|
||||
( move down ) STH OVR2 .Screen/x DEO2 STHr
|
||||
( incr y ) .Screen/y DEI2 #0018 ++ .Screen/y DEO2
|
||||
POP INC2 ,&loop JMP &no-linebreak
|
||||
STHkr ,&sprite JSR
|
||||
|
|
@ -363,7 +410,7 @@ RTN
|
|||
&continue
|
||||
STHkr NEQ ,&loop JCN
|
||||
POPr
|
||||
( compare ) SWP2 SUB2
|
||||
( compare ) SWP2 --
|
||||
|
||||
RTN
|
||||
|
||||
|
|
@ -409,10 +456,10 @@ RTN
|
|||
STH2
|
||||
DUP2
|
||||
&while
|
||||
SWP2k SUB2 STH2kr ADD2 STH2
|
||||
SWP2k -- STH2kr ADD2 STH2
|
||||
LDAk STH2r STA
|
||||
INC2 LDAk ,&while JCN
|
||||
SWP2 SUB2 STH2r ADD2
|
||||
SWP2 -- STH2r ADD2
|
||||
#00 ROT ROT STA
|
||||
|
||||
RTN
|
||||
|
|
@ -422,7 +469,7 @@ RTN
|
|||
#0001 -- DUP2
|
||||
&while
|
||||
INC2 LDAk ,&while JCN
|
||||
SWP2 SUB2
|
||||
SWP2 --
|
||||
#0001 --
|
||||
|
||||
RTN
|
||||
|
|
@ -460,6 +507,16 @@ RTN
|
|||
RTN
|
||||
&a $2 &b $2
|
||||
|
||||
@ccat ( char dst* -- )
|
||||
|
||||
#0001 --
|
||||
&while
|
||||
INC2 LDAk ,&while JCN
|
||||
STH2k STA
|
||||
#00 STH2r INC2 STA
|
||||
|
||||
RTN
|
||||
|
||||
( lookup table )
|
||||
|
||||
@actions
|
||||
|
|
@ -478,11 +535,24 @@ RTN
|
|||
@word1 "foo $1
|
||||
@word2 "bar $1
|
||||
|
||||
( header text )
|
||||
@you-are-the-txt "You 20 "are 20 "the 20 $1
|
||||
@in-the-txt 0a "in 20 "the 20 $1
|
||||
@you-created-the-txt "You 20 "created 20 "the 20 $1
|
||||
|
||||
@prompt-txt "> $1
|
||||
@you-said-txt "you 20 "said: 20 $1
|
||||
|
||||
@unknown-txt "Unknown 20 "command. $1
|
||||
|
||||
@headerview-txt "You 20 "are 20 "a 20 "ghost 0a 20 "in 20 "the 20 "library. $1
|
||||
|
||||
( char id, name[NAMELEN], note[TEXTLEN], prog[TEXTLEN]; )
|
||||
|
||||
( NAME--------------------OWNRPRNT )
|
||||
|
||||
@world
|
||||
&length $2
|
||||
&vessels ( 0x20 bytes per vessel )
|
||||
( pad ) $100
|
||||
|
||||
@text-buffer $100
|
||||
|
|
|
|||
Loading…
Reference in New Issue