peasant: hook up the text generation
This commit is contained in:
parent
c61a85b33f
commit
bc86b41d5b
|
@ -24,7 +24,8 @@ HELLO: hello.bas
|
||||||
PEASANT: peasant.o
|
PEASANT: peasant.o
|
||||||
ld65 -o PEASANT peasant.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
|
ld65 -o PEASANT peasant.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
|
||||||
|
|
||||||
peasant.o: peasant.s graphics/graphics.inc
|
peasant.o: peasant.s graphics/graphics.inc \
|
||||||
|
directions.s
|
||||||
ca65 -o peasant.o peasant.s -l peasant.lst
|
ca65 -o peasant.o peasant.s -l peasant.lst
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
|
@ -0,0 +1,52 @@
|
||||||
|
|
||||||
|
;************************
|
||||||
|
; Tips
|
||||||
|
;************************
|
||||||
|
directions:
|
||||||
|
lda #<(tips_lzsa)
|
||||||
|
sta getsrc_smc+1
|
||||||
|
lda #>(tips_lzsa)
|
||||||
|
sta getsrc_smc+2
|
||||||
|
|
||||||
|
lda #$40
|
||||||
|
|
||||||
|
jsr decompress_lzsa2_fast
|
||||||
|
|
||||||
|
lda #<directions_text
|
||||||
|
sta OUTL
|
||||||
|
lda #>directions_text
|
||||||
|
sta OUTH
|
||||||
|
|
||||||
|
ldx #15
|
||||||
|
directions_loop:
|
||||||
|
txa
|
||||||
|
pha
|
||||||
|
|
||||||
|
jsr hgr_put_string
|
||||||
|
|
||||||
|
pla
|
||||||
|
tax
|
||||||
|
dex
|
||||||
|
bne directions_loop
|
||||||
|
|
||||||
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
directions_text:
|
||||||
|
;0123456789012345678901234567890123456789
|
||||||
|
.byte 4,46,"Here's how things work round here:",0
|
||||||
|
.byte 0,60,"-Look around by typing stuff like",0
|
||||||
|
.byte 1,69,"'look tree' or just plain 'look'",0
|
||||||
|
.byte 0,78,"-Talk to folks by typing stuff like",0
|
||||||
|
.byte 1,87,"'talk man'",0
|
||||||
|
.byte 0,96,"-Take items by typing 'get (item)'",0
|
||||||
|
.byte 0,105,"-Use items by typing 'use (item)' You",0
|
||||||
|
.byte 1,114,"can also 'give (item)' 'throw (item)'",0
|
||||||
|
.byte 1,123,"or some other action words",0
|
||||||
|
.byte 0,132,"-Type 'inv' to see your INVENTORY",0
|
||||||
|
.byte 0,141,"-Type 'save' to save your game and",0
|
||||||
|
.byte 1,150,"'load' to load one.",0
|
||||||
|
.byte 0,159,"-press + and - to speed up or slow down",0
|
||||||
|
.byte 1,168,"your character",0
|
||||||
|
.byte 7,180,"click anywheres to start game",0
|
|
@ -7,6 +7,23 @@
|
||||||
.include "hardware.inc"
|
.include "hardware.inc"
|
||||||
|
|
||||||
NIBCOUNT = $09
|
NIBCOUNT = $09
|
||||||
|
GBASL = $26
|
||||||
|
GBASH = $27
|
||||||
|
CURSOR_X = $62
|
||||||
|
CURSOR_Y = $63
|
||||||
|
HGR_COLOR = $E4
|
||||||
|
P0 = $F1
|
||||||
|
P1 = $F2
|
||||||
|
P2 = $F3
|
||||||
|
P3 = $F4
|
||||||
|
P4 = $F5
|
||||||
|
P5 = $F6
|
||||||
|
|
||||||
|
INL = $FC
|
||||||
|
INH = $FD
|
||||||
|
OUTL = $FE
|
||||||
|
OUTH = $FF
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
hgr_display:
|
hgr_display:
|
||||||
|
@ -48,17 +65,7 @@ hgr_display:
|
||||||
; Tips
|
; Tips
|
||||||
;************************
|
;************************
|
||||||
|
|
||||||
lda #<(tips_lzsa)
|
jsr directions
|
||||||
sta getsrc_smc+1
|
|
||||||
lda #>(tips_lzsa)
|
|
||||||
sta getsrc_smc+2
|
|
||||||
|
|
||||||
lda #$40
|
|
||||||
|
|
||||||
jsr decompress_lzsa2_fast
|
|
||||||
|
|
||||||
jsr wait_until_keypress
|
|
||||||
|
|
||||||
|
|
||||||
;************************
|
;************************
|
||||||
; Cottage
|
; Cottage
|
||||||
|
@ -76,6 +83,7 @@ hgr_display:
|
||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
|
||||||
|
.if 0
|
||||||
;************************
|
;************************
|
||||||
; Lake West
|
; Lake West
|
||||||
;************************
|
;************************
|
||||||
|
@ -138,7 +146,7 @@ hgr_display:
|
||||||
|
|
||||||
jsr wait_until_keypress
|
jsr wait_until_keypress
|
||||||
|
|
||||||
|
.endif
|
||||||
|
|
||||||
forever:
|
forever:
|
||||||
jmp forever
|
jmp forever
|
||||||
|
@ -147,4 +155,7 @@ forever:
|
||||||
.include "decompress_fast_v2.s"
|
.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
||||||
|
.include "directions.s"
|
||||||
|
.include "hgr_font.s"
|
||||||
|
|
||||||
.include "graphics/graphics.inc"
|
.include "graphics/graphics.inc"
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
MEMORY {
|
MEMORY {
|
||||||
ZP: start = $00, size = $1A, type = rw;
|
ZP: start = $00, size = $1A, type = rw;
|
||||||
RAM: start = $6000, size = $4000, file = %O;
|
RAM: start = $6000, size = $6000, file = %O;
|
||||||
}
|
}
|
||||||
|
|
||||||
SEGMENTS {
|
SEGMENTS {
|
||||||
|
|
Loading…
Reference in New Issue