peasant: handle not allowing actions when pot on head

games/peasant/parse_input.s

@@ -14,7 +14,18 @@
 	; input is in input_buffer
 
 parse_input:
+	;===========================
+	; speacial case: pot on head
 
+	lda	GAME_STATE_1
+	and	#POT_ON_HEAD
+	beq	no_pot_on_head
+
+	ldx	#<inside_inn_pot_on_head_message
+	ldy	#>inside_inn_pot_on_head_message
+	jmp	finish_parse_message
+
+no_pot_on_head:
 	;==================
 	; uppercase the buffer
 

games/peasant/peasant4.s

@@ -232,9 +232,9 @@ game_loop:
 	; check if Y in range
 	lda	PEASANT_Y
 	cmp	#$85
-	bcs	not_burn_trees
-	cmp	#$65
-	bcc	not_burn_trees
+	bcs	not_burn_trees	; bge
+	cmp	#$70
+	bcc	not_burn_trees	; blt
 
 	; finally set on fire
 

games/peasant/text/common.inc

@@ -2,6 +2,12 @@
 ; Anywhere
 ;==================
 
+; Type any command while the pot of horse grease is on your head
+inside_inn_pot_on_head_message:
+.byte "You need to get out of",13
+.byte "there before that smelly",13
+.byte "octogenarian gets back.",0
+
 ; TODO
 ; After jumping in the haystack, go to any screen except Jhonka
 ; both hay and mud go away

games/peasant/text/inn.inc

@@ -4,11 +4,6 @@ inn_dialog_start:
 ; Inside Giant Inn
 ;==================
 
-; Type any command while the pot of horse grease is on your head
-.byte "You need to get out of",13
-.byte "there before that smelly",13
-.byte "octogenarian gets back.",0
-
 ; + look (day)
 inside_inn_look_message:
 .byte "What a dump! Only one bed",13