mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-27 07:29:29 +00:00
peasant: centralize peasant text
This commit is contained in:
parent
be70f8451d
commit
c340aa6bbe
|
@ -117,6 +117,7 @@ qload.inc: generate_common QLOAD
|
||||||
./generate_common -a 0xb00 -s disp_put_string_cursor qload.lst >> qload.inc
|
./generate_common -a 0xb00 -s disp_put_string_cursor qload.lst >> qload.inc
|
||||||
./generate_common -a 0xb00 -s hgr_put_char_cursor qload.lst >> qload.inc
|
./generate_common -a 0xb00 -s hgr_put_char_cursor qload.lst >> qload.inc
|
||||||
./generate_common -a 0xb00 -s vgi_simple_rectangle qload.lst >> qload.inc
|
./generate_common -a 0xb00 -s vgi_simple_rectangle qload.lst >> qload.inc
|
||||||
|
./generate_common -a 0xb00 -s peasant_text qload.lst >> qload.inc
|
||||||
echo "hposn_high = \$$BA00" >> qload.inc
|
echo "hposn_high = \$$BA00" >> qload.inc
|
||||||
echo "hposn_low = \$$BB00" >> qload.inc
|
echo "hposn_low = \$$BB00" >> qload.inc
|
||||||
echo "driveoff = \$$A22" >> qload.inc
|
echo "driveoff = \$$A22" >> qload.inc
|
||||||
|
|
|
@ -125,9 +125,6 @@ forever:
|
||||||
|
|
||||||
.include "graphics_copy/copy_graphics.inc"
|
.include "graphics_copy/copy_graphics.inc"
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
score_text:
|
score_text:
|
||||||
.byte 0,2,"Score: 0 of 150",0
|
.byte 0,2,"Score: 0 of 150",0
|
||||||
|
|
||||||
|
|
|
@ -535,10 +535,6 @@ game_over:
|
||||||
jmp boat
|
jmp boat
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
;.include "decompress_fast_v2.s"
|
;.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
||||||
|
|
|
@ -180,10 +180,6 @@ done_cottage:
|
||||||
; 01234567 01234567
|
; 01234567 01234567
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
cottage_text1:
|
cottage_text1:
|
||||||
.byte 0,52,24, 0,253,82
|
.byte 0,52,24, 0,253,82
|
||||||
.byte 9,35,"YOU are Rather Dashing, a",13
|
.byte 9,35,"YOU are Rather Dashing, a",13
|
||||||
|
|
|
@ -19,12 +19,25 @@ upcase_loop:
|
||||||
jmp upcase_loop
|
jmp upcase_loop
|
||||||
done_upcase_loop:
|
done_upcase_loop:
|
||||||
|
|
||||||
|
;=====================
|
||||||
|
; get the verb
|
||||||
|
|
||||||
jsr get_verb
|
jsr get_verb
|
||||||
|
|
||||||
|
;=====================
|
||||||
|
; get the noun
|
||||||
|
|
||||||
; jsr get_noun
|
; jsr get_noun
|
||||||
|
|
||||||
|
|
||||||
|
;=============================
|
||||||
|
; handle room-specific actions
|
||||||
|
|
||||||
; jsr local_parser
|
; jsr local_parser
|
||||||
|
|
||||||
|
;================================
|
||||||
|
; fall through to default actions
|
||||||
|
|
||||||
lda CURRENT_VERB
|
lda CURRENT_VERB
|
||||||
|
|
||||||
check_copy:
|
check_copy:
|
||||||
|
|
|
@ -144,10 +144,6 @@ game_over:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
;.include "decompress_fast_v2.s"
|
;.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
||||||
|
|
|
@ -142,10 +142,6 @@ game_over:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
||||||
|
|
|
@ -140,11 +140,6 @@ game_over:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;.include "decompress_fast_v2.s"
|
;.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
||||||
|
|
|
@ -146,12 +146,6 @@ game_over:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;.include "decompress_fast_v2.s"
|
;.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
|
@ -23,6 +23,7 @@ invert_smc1 =$0f64
|
||||||
disp_put_string_cursor =$167c
|
disp_put_string_cursor =$167c
|
||||||
hgr_put_char_cursor =$0f15
|
hgr_put_char_cursor =$0f15
|
||||||
vgi_simple_rectangle =$12ef
|
vgi_simple_rectangle =$12ef
|
||||||
|
peasant_text =$178b
|
||||||
hposn_high = $BA00
|
hposn_high = $BA00
|
||||||
hposn_low = $BB00
|
hposn_low = $BB00
|
||||||
driveoff = $A22
|
driveoff = $A22
|
||||||
|
|
|
@ -255,6 +255,9 @@ length_array:
|
||||||
.include "hgr_hgr2.s" ; this one is maybe only needed once?
|
.include "hgr_hgr2.s" ; this one is maybe only needed once?
|
||||||
.include "gr_offsets.s"
|
.include "gr_offsets.s"
|
||||||
|
|
||||||
|
peasant_text:
|
||||||
|
.byte 25,2,"Peasant's Quest",0
|
||||||
|
|
||||||
qload_end:
|
qload_end:
|
||||||
|
|
||||||
;.assert (>qload_end - >qload_start) < $e , error, "loader too big"
|
;.assert (>qload_end - >qload_start) < $e , error, "loader too big"
|
||||||
|
|
|
@ -311,9 +311,6 @@ game_over:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
peasant_text:
|
|
||||||
.byte 25,2,"Peasant's Quest",0
|
|
||||||
|
|
||||||
|
|
||||||
;.include "decompress_fast_v2.s"
|
;.include "decompress_fast_v2.s"
|
||||||
.include "wait_keypress.s"
|
.include "wait_keypress.s"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user