From f75ed63451bfe454d25fff812f5fd8169cfe9bc7 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 12 Aug 2021 15:23:05 -0400
Subject: [PATCH] peasant: finalize knight scene

---
 games/peasant/knight.s  | 201 +++++++++++++++++++++++++++++++++++++++-
 games/peasant/peasant.s |   3 +-
 2 files changed, 202 insertions(+), 2 deletions(-)

diff --git a/games/peasant/knight.s b/games/peasant/knight.s
index 941c469b..4e9d7ccd 100644
--- a/games/peasant/knight.s
+++ b/games/peasant/knight.s
@@ -4,6 +4,25 @@
 	; Knight
 	;************************
 knight:
+	lda	#0
+	sta	FRAME
+
+	;=========================
+	; init peasant position
+	; draw at 0,107
+
+	lda	#0
+	sta	PEASANT_X
+	lda	#107
+	sta	PEASANT_Y
+
+	lda	#PEASANT_DIR_RIGHT
+	sta	PEASANT_DIR
+
+
+	;=====================
+	; load bg
+
 	lda	#<(knight_lzsa)
 	sta	getsrc_smc+1
 	lda	#>(knight_lzsa)
@@ -20,9 +39,133 @@ knight:
 
 	jsr	hgr_put_string
 
+	jsr	hgr_save
+
+
+	;====================
+	; save background
+
+	lda	PEASANT_X
+	sta	CURSOR_X
+	lda	PEASANT_Y
+	sta	CURSOR_Y
+
+	;=======================
+	; walking
+
+	jsr	save_bg_7x30
+
+knight_walk_loop:
+	jsr	restore_bg_7x30
+
+	lda	FRAME
+check_knight_action1:
+	cmp	#0
+	bne	check_knight_action2
+	jsr	display_river_text1
+	jmp	done_knight_action
+
+check_knight_action2:
+	cmp	#8
+	bne	check_knight_action3
+	jsr	hgr_restore
+	jmp	done_knight_action
+
+check_knight_action3:
+	cmp	#17
+	bne	done_knight_action
+	jsr	display_knight_text1
+
+
+done_knight_action:
+
+
+	lda	FRAME
+	asl
+	tax
+
+	lda	knight_path,X
+	bmi	done_knight
+	sta	PEASANT_X
+	sta	CURSOR_X
+
+	inx
+	lda	knight_path,X
+	sta	PEASANT_Y
+	sta	CURSOR_Y
+
+	jsr	save_bg_7x30
+
+	jsr	draw_peasant
 
 	jsr	wait_until_keypress
 
+	inc	FRAME
+
+	jmp	knight_walk_loop
+
+
+	;===================
+	; done
+
+done_knight:
+
+	; OK stuff goes on here
+
+
+	; restore bg
+
+	jsr	hgr_restore
+
+	; put score
+
+	lda	#<score_text
+	sta	OUTL
+	lda	#>score_text
+	sta	OUTH
+
+	jsr	hgr_put_string
+
+	; draw peasant
+
+	jsr	draw_peasant
+
+	; draw rectangle on bottom
+
+; draw rectangle
+
+	lda     #$00            ; color is black1
+	sta     VGI_RCOLOR
+
+	lda     #0
+	sta     VGI_RX1
+	lda     #183
+	sta     VGI_RY1
+	lda	#140
+	sta	VGI_RXRUN
+	lda	#9
+        sta     VGI_RYRUN
+
+        jsr     vgi_simple_rectangle
+
+	lda     #140
+	sta     VGI_RX1
+	lda     #183
+	sta     VGI_RY1
+	lda	#140
+	sta	VGI_RXRUN
+	lda	#9
+        sta     VGI_RYRUN
+
+        jsr     vgi_simple_rectangle
+
+
+
+
+	; fake get text
+
+	jsr	hgr_input
+
 	rts
 
 
@@ -31,6 +174,62 @@ knight:
 ; stops as approach knight
 
 knight_message1:
-	.byte 0,0,"OK go for it.",0
+	.byte 7,49,"OK go for it.",0
 
 
+	;============================
+	; display lake_e text 1
+	;============================
+display_knight_text1:
+
+	;====================
+	; draw text box
+
+	lda	#0
+	sta	BOX_X1H
+	lda	#35
+	sta	BOX_X1L
+	lda	#34
+	sta	BOX_Y1
+
+	lda	#0
+	sta	BOX_X2H
+	lda	#253
+	sta	BOX_X2L
+	lda	#72
+	sta	BOX_Y2
+
+	jsr	draw_box
+
+	lda	#<knight_message1
+	sta	OUTL
+	lda	#>knight_message1
+	sta	OUTH
+	jsr	hgr_put_string
+
+	rts
+
+knight_path:
+	.byte 0,107
+	.byte 1,107
+	.byte 2,107
+	.byte 3,107
+	.byte 4,107
+	.byte 5,107
+	.byte 6,107
+	.byte 7,107
+	.byte 8,107
+	.byte 9,107
+	.byte 10,107
+	.byte 11,107
+	.byte 12,107
+	.byte 13,107
+	.byte 14,107
+	.byte 15,107
+	.byte 16,107
+	.byte 17,107
+	.byte 18,107
+	.byte $FF,$FF
+
+score_text:
+        .byte 0,2,"Score: 0 of 150",0
diff --git a/games/peasant/peasant.s b/games/peasant/peasant.s
index b3f78812..e8a29aa3 100644
--- a/games/peasant/peasant.s
+++ b/games/peasant/peasant.s
@@ -40,7 +40,7 @@ peasant_quest:
 	; River
 	;************************
 
-	jsr	river
+;	jsr	river
 
 	;************************
 	; Knight
@@ -73,5 +73,6 @@ peasant_quest:
 .include "hgr_7x30_sprite.s"
 .include "hgr_1x5_sprite.s"
 .include "hgr_save_restore.s"
+.include "hgr_input.s"
 
 .include "graphics/graphics.inc"