peasant: centralize peasant text

games/peasant/Makefile

@@ -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 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 peasant_text qload.lst >> qload.inc
 	echo "hposn_high = \$$BA00" >> qload.inc
 	echo "hposn_low = \$$BB00" >> qload.inc
 	echo "driveoff = \$$A22" >> qload.inc

games/peasant/copy_check.s

@@ -125,9 +125,6 @@ forever:
 
 .include "graphics_copy/copy_graphics.inc"
 
-peasant_text:
-        .byte 25,2,"Peasant's Quest",0
-
 score_text:
 	.byte 0,2,"Score: 0 of 150",0
 

games/peasant/ending.s

@@ -535,10 +535,6 @@ game_over:
 	jmp	boat
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
-
 ;.include "decompress_fast_v2.s"
 .include "wait_keypress.s"
 

games/peasant/intro_cottage.s

@@ -180,10 +180,6 @@ done_cottage:
 ; 01234567 01234567
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
-
 cottage_text1:
 	.byte 0,52,24,  0,253,82
 	.byte 9,35,"YOU are Rather Dashing, a",13

games/peasant/parse_input.s

@@ -19,12 +19,25 @@ upcase_loop:
 	jmp	upcase_loop
 done_upcase_loop:
 
+	;=====================
+	; get the verb
+
 	jsr	get_verb
 
+	;=====================
+	; get the noun
+
 ;	jsr	get_noun
 
+
+	;=============================
+	; handle room-specific actions
+
 ;	jsr	local_parser
 
+	;================================
+	; fall through to default actions
+
 	lda	CURRENT_VERB
 
 check_copy:

games/peasant/peasant1.s

@@ -144,10 +144,6 @@ game_over:
 	rts
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
-
 ;.include "decompress_fast_v2.s"
 .include "wait_keypress.s"
 

games/peasant/peasant2.s

@@ -142,10 +142,6 @@ game_over:
 	rts
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
-
 
 .include "wait_keypress.s"
 

games/peasant/peasant3.s

@@ -140,11 +140,6 @@ game_over:
 	rts
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
-
-
 ;.include "decompress_fast_v2.s"
 .include "wait_keypress.s"
 

games/peasant/peasant4.s

@@ -146,12 +146,6 @@ game_over:
 	rts
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
-
-
-
 
 ;.include "decompress_fast_v2.s"
 .include "wait_keypress.s"

games/peasant/qload.inc

@@ -23,6 +23,7 @@ invert_smc1	=$0f64
 disp_put_string_cursor	=$167c
 hgr_put_char_cursor	=$0f15
 vgi_simple_rectangle	=$12ef
+peasant_text	=$178b
 hposn_high = $BA00
 hposn_low = $BB00
 driveoff = $A22

games/peasant/qload.s

@@ -255,6 +255,9 @@ length_array:
 .include "hgr_hgr2.s"		; this one is maybe only needed once?
 .include "gr_offsets.s"
 
+peasant_text:
+	.byte 25,2,"Peasant's Quest",0
+
 qload_end:
 
 ;.assert (>qload_end - >qload_start) < $e , error, "loader too big"

games/peasant/trogdor.s

@@ -311,9 +311,6 @@ game_over:
         rts
 
 
-peasant_text:
-	.byte 25,2,"Peasant's Quest",0
-
 
 ;.include "decompress_fast_v2.s"
 .include "wait_keypress.s"