From 7105451bf8202614781e5ad138c75e4f1a102e05 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 1 Mar 2020 15:39:49 -0500
Subject: [PATCH] mist: can change direction when move to new location

---
 mist/Makefile          |   4 ++-
 mist/dock_steps_w.png  | Bin 0 -> 967 bytes
 mist/mist.s            |  80 +++++++++++++++++++++++++++++++++--------
 mist/mist_graphics.inc |  47 ++++++++++++++++++++++++
 4 files changed, 115 insertions(+), 16 deletions(-)
 create mode 100644 mist/dock_steps_w.png

diff --git a/mist/Makefile b/mist/Makefile
index 79c2d1c6..9091a164 100644
--- a/mist/Makefile
+++ b/mist/Makefile
@@ -44,13 +44,15 @@ mist.o:	mist.s zp.inc hardware.inc \
 mist_graphics.inc:	\
 	m_link_book.png \
 	dock_n.png dock_s.png dock_e.png dock_w.png \
-	dock_switch_n.png
+	dock_switch_n.png \
+	dock_steps_w.png
 	$(PNG2RLE) asm m_link_book.png link_book_rle > mist_graphics.inc
 	$(PNG2RLE) asm dock_n.png dock_n_rle >> mist_graphics.inc
 	$(PNG2RLE) asm dock_s.png dock_s_rle >> mist_graphics.inc
 	$(PNG2RLE) asm dock_e.png dock_e_rle >> mist_graphics.inc
 	$(PNG2RLE) asm dock_w.png dock_w_rle >> mist_graphics.inc
 	$(PNG2RLE) asm dock_switch_n.png dock_switch_n_rle >> mist_graphics.inc
+	$(PNG2RLE) asm dock_steps_w.png dock_steps_w_rle >> mist_graphics.inc
 
 ####
 
diff --git a/mist/dock_steps_w.png b/mist/dock_steps_w.png
new file mode 100644
index 0000000000000000000000000000000000000000..2d1847a1379795af16ad2db1a526caa7fd91a60e
GIT binary patch
literal 967
zcmV;&133JNP)<h;3K|Lk000e1NJLTq002+`001xu0{{R3u{#aL0004mX+uL$Nkc;*
zaB^>EX>4Tx04R}tkv&MmKpe$i(@I4u4t6N&kfFM0K~%(1t5Adrp;l<s!Q|2}Xws0R
zxHt-~1qVMCs}3&Cx;nTDg5U>;lcSTOi<J1krqCkBgX4a@yZ5+z2MF~t)2zTapy{@m
zO2oxXc2x|%Lckyb7)3;8mN6$uNqCO0d-(Wz7vovp=l&eMYR+PSPb8jYhG`RT5KnK~
z2Iqa^Fe}O`@j3CBNf#u3<htVW8|Olk1)do;)2VslFtJ$ZV5Ngu(bR~ih@+~eQ@)UK
zS>?RNSu0mr>z@3Dp`5<5%ypVWNMI35kRU=q6(y8mBSx!EiiH&I$36T5O}|7gg<K^t
zax9<%4RX^D{s+Iiweph_Zc-=?biFvv$1o7w1sXNS`95}>#tGnm2CnqBzfuQgK1r{&
zwdfJhw+&oew>4!CxZD9EPljyDP03GF$mfCgGy0}1(0>c`thv3l_Hp_Eq^Yaq4RCM>
zj1(w)-Q(TeoxS~grq$mMWD9bkM}W@R0000pP)t-s0002v9$;Wjz5hi00Ha`>oSYQT
z{m{ezU~&WhYCN5to&TWF6!kpN-Hmep(EtDc0001;kA{E%000SaNLh0L02Fip02N>X
zmRIYN00007bV*G`2jl|*0683_m_Kv?000?uMObu0Z*6U5Zgc=ca%Ew3Wn>_CX>@2H
zM@dakSAh-}0004UNkl<ZNXNC;368@c3<XdNfx`VyJVowLypghvrDm#@yxN3q=yFj?
zO8nx`@6spyJ+-#)+m+_Qh-(yI4}v1YoOeOy4uPB*t~dCgYaq%dV5=Y~1GbQ$j~L`1
zVvyh8V6AABIuU`j>ij-nt(+ggG!VL6nco-03nj#1NpQ=cj8=*MF#)!oV6c=UATlfy
zp`U&y!(-rHhFH=-Zf9t7{bq<2;|SQW6_6+*>4|-iKRpKWtQi8Ibwz_Mm;smb0H~KL
zZf8MoOJHj$dy5Ojsx=9st?7O`4uYEnMQecgy981Q@=&?K=f*y43)aON(2p^i3J1!G
zy%Id6b2ebSavTKxbhqaP4T@p&8;tr@Z%<Po-`sm7{|36L_+D^-Kw-Zd201@}X0?6k
zR_h)rGrO+nJT9Mgr(bM-QK^3TxD6og^52tDatFbo4C8J69egF<&k5K%he5x<M%)%?
pSsaIlKsP&z|L<-Oq~74R;2*BGI$wct8Cd`T002ovPDHLkV1jW$vD*Lu

literal 0
HcmV?d00001

diff --git a/mist/mist.s b/mist/mist.s
index 68adb3a0..ba9d410d 100644
--- a/mist/mist.s
+++ b/mist/mist.s
@@ -451,6 +451,8 @@ change_location:
 	;===========================
 go_forward:
 
+	; update new location
+
 	lda	DIRECTION
 	clc
 	adc	#LOCATION_NORTH_EXIT
@@ -461,6 +463,16 @@ go_forward:
 	beq	cant_go_forward
 
 	sta	LOCATION
+
+	; update new direction
+
+	lda	DIRECTION
+	clc
+	adc	#LOCATION_NORTH_EXIT_DIR
+	tay
+	lda	(LOCATION_STRUCT_L),Y
+	sta	DIRECTION
+
 	jsr	change_location
 cant_go_forward:
 	rts
@@ -562,23 +574,27 @@ finger_right_sprite:
 ;===============================================
 ; location data
 ;===============================================
-; 19 bytes
+; 24 bytes each location
 
 LOCATION_NORTH_EXIT=0
 LOCATION_SOUTH_EXIT=1
 LOCATION_EAST_EXIT=2
 LOCATION_WEST_EXIT=3
-LOCATION_SPECIAL_EXIT=4
-LOCATION_NORTH_BG=5
-LOCATION_SOUTH_BG=7
-LOCATION_EAST_BG=9
-LOCATION_WEST_BG=11
-LOCATION_SPECIAL_X1=13
-LOCATION_SPECIAL_X2=14
-LOCATION_SPECIAL_Y1=15
-LOCATION_SPECIAL_Y2=16
-LOCATION_SPECIAL_FUNC=17
-LOCATION_BGS	= 19
+LOCATION_NORTH_EXIT_DIR=4
+LOCATION_SOUTH_EXIT_DIR=5
+LOCATION_EAST_EXIT_DIR=6
+LOCATION_WEST_EXIT_DIR=7
+LOCATION_SPECIAL_EXIT=8
+LOCATION_NORTH_BG=9
+LOCATION_SOUTH_BG=11
+LOCATION_EAST_BG=13
+LOCATION_WEST_BG=15
+LOCATION_SPECIAL_X1=17
+LOCATION_SPECIAL_X2=18
+LOCATION_SPECIAL_Y1=19
+LOCATION_SPECIAL_Y2=20
+LOCATION_SPECIAL_FUNC=21
+LOCATION_BGS	= 23
 	BG_NORTH = 1
 	BG_SOUTH = 2
 	BG_EAST = 4
@@ -586,7 +602,7 @@ LOCATION_BGS	= 19
 
 
 locations:
-	.word location0,location1,location2
+	.word location0,location1,location2,location3
 
 ; myst linking book
 location0:
@@ -594,6 +610,10 @@ location0:
 	.byte	$ff		; south exit
 	.byte	$ff		; east exit
 	.byte	$ff		; west exit
+	.byte	$ff		; north exit_dir
+	.byte	$ff		; south exit_dir
+	.byte	$ff		; east exit_dir
+	.byte	$ff		; west exit_dir
 	.byte	$00		; special exit
 	.word	link_book_rle	; north bg
 	.word	$0000		; south bg
@@ -610,6 +630,10 @@ location1:
 	.byte	$ff		; south exit
 	.byte	$ff		; east exit
 	.byte	$ff		; west exit
+	.byte	DIRECTION_N	; north exit_dir
+	.byte	DIRECTION_S	; south exit_dir
+	.byte	$ff		; east exit_dir
+	.byte	$ff		; west exit_dir
 	.byte	$ff		; special exit
 	.word	dock_n_rle	; north bg
 	.word	dock_s_rle	; south bg
@@ -622,10 +646,14 @@ location1:
 
 ; by dock switch
 location2:
-	.byte	$ff		; north exit
-	.byte	$1		; south exit
+	.byte	3		; north exit
+	.byte	1		; south exit
 	.byte	$ff		; east exit
 	.byte	$ff		; west exit
+	.byte	DIRECTION_W	; north exit_dir
+	.byte	DIRECTION_S	; south exit_dir
+	.byte	$ff		; east exit_dir
+	.byte	$ff		; west exit_dir
 	.byte	$ff		; special exit
 	.word	dock_switch_n_rle	; north bg
 	.word	$0000		; south bg
@@ -636,6 +664,28 @@ location2:
 	.word	$0000		; special function
 	.byte	$1		; only north
 
+
+; dock steps
+location3:
+	.byte	$ff		; north exit
+	.byte	$ff		; south exit
+	.byte	2		; east exit
+	.byte	$ff		; west exit
+	.byte	$ff		; north exit_dir
+	.byte	$ff		; south exit_dir
+	.byte	$ff		; east exit_dir
+	.byte	$ff		; west exit_dir
+	.byte	$ff		; special exit
+	.word	$0000		; north bg
+	.word	$0000		; south bg
+	.word	$0000		; east bg
+	.word	dock_steps_w_rle		; west bg
+	.byte	$ff,$ff		; special x
+	.byte	$ff,$ff		; special y
+	.word	$0000		; special function
+	.byte	$C		; only east+west
+
+
 ; Looking North, click enter, go to north exit
 ; Looking South, click enter, go to south exit
 ; Looking East, click enter, go to east exit
diff --git a/mist/mist_graphics.inc b/mist/mist_graphics.inc
index 31d12b35..7c65503c 100644
--- a/mist/mist_graphics.inc
+++ b/mist/mist_graphics.inc
@@ -287,3 +287,50 @@ dock_switch_n_rle:	.byte $28 ; ysize=48
 	.byte $A5,$44
 	.byte $A1
 ; cycles=48572
+dock_steps_w_rle:	.byte $28 ; ysize=48
+	.byte $A9,$77, $55, $22, $55, $22, $A4,$55, $22
+	.byte $A4,$55, $22, $55, $22, $72, $A8,$77, $87
+	.byte $88, $55, $85, $88, $55, $77,$77, $47
+	.byte $A6,$77, $55, $22, $55, $22, $A4,$55, $22
+	.byte $A4,$55, $22, $55, $22, $A9,$77, $88, $58
+	.byte $55, $85, $88, $55, $77,$77, $44, $77
+	.byte $47, $A4,$77, $55, $22, $55, $22, $A4,$55
+	.byte $22, $A4,$55, $22, $55, $22, $A8,$77, $55
+	.byte $88, $55, $85, $88, $55,$55, $44, $77
+	.byte $44, $47, $44, $A4,$77, $55, $22, $25
+	.byte $22, $A4,$25, $22, $25,$25, $55,$55, $22, $55
+	.byte $22, $A6,$77, $57, $55, $58, $88, $55
+	.byte $88, $58, $55,$55, $84, $47, $44,$44, $88
+	.byte $A3,$77, $27, $AC,$22, $25, $22, $25, $22
+	.byte $27, $A4,$77, $57, $A3,$88, $55, $88, $58
+	.byte $A3,$55, $88, $44, $88, $44, $88, $44
+	.byte $77, $AE,$55, $A6,$52, $77, $27, $55, $A4,$58
+	.byte $55, $28, $A4,$55, $88, $47, $88, $44
+	.byte $88, $54, $A0,$15,$55, $27, $22, $A3,$25, $A3,$55
+	.byte $22, $A4,$55, $88, $47, $88, $44, $88
+	.byte $A0,$16,$55, $A5,$22, $25, $55, $25, $22, $25
+	.byte $A3,$55, $88, $47, $88, $74, $88, $A0,$16,$55
+	.byte $AA,$22, $A3,$55, $08, $07, $08, $07, $08
+	.byte $A0,$16,$55, $22,$22, $00, $A8,$22, $25,$25, $A5,$00, $AD,$55
+	.byte $75,$75, $A7,$55, $22,$22, $00, $02,$02, $A3,$82, $22
+	.byte $82, $88,$88, $48, $A5,$00, $AC,$55, $A4,$77, $A3,$55
+	.byte $00, $05, $55, $22,$22, $A3,$00, $08, $88,$88
+	.byte $08, $88, $48, $44,$44, $A5,$00, $AC,$55, $A4,$77
+	.byte $55,$55, $A4,$00, $22,$22, $A6,$00, $80, $48, $A3,$44
+	.byte $A5,$00, $AC,$55, $A4,$77, $55, $05, $A5,$00, $22
+	.byte $A3,$00, $22, $80, $00,$00, $A4,$44, $75,$75, $A3,$55
+	.byte $A4,$50, $A9,$05, $07,$07, $05,$05, $AA,$00, $88,$88, $00,$00
+	.byte $A4,$44, $A3,$22, $A8,$25, $A0,$15,$55, $22, $88,$88, $A5,$44
+	.byte $A0,$11,$22, $50,$50, $00, $A7,$07, $A5,$55, $22, $58
+	.byte $88,$88, $A4,$44, $A0,$10,$22, $00, $55,$55, $AC,$00, $55
+	.byte $22, $55, $88, $28, $24, $A3,$04, $A3,$00
+	.byte $AC,$22, $02, $55,$55, $A4,$75, $A5,$70, $A4,$00, $55
+	.byte $52, $55,$55, $22,$22, $20, $A7,$00, $A4,$02, $A5,$22
+	.byte $02, $A3,$55, $A3,$00, $A6,$07, $A4,$77, $A4,$55, $52
+	.byte $88,$88, $80, $AF,$00, $A4,$55, $AE,$00, $A3,$55, $58
+	.byte $A3,$88, $AE,$00, $A5,$55, $A6,$22, $A7,$20, $80, $A4,$55
+	.byte $A4,$88, $AC,$00, $A5,$55, $A4,$77, $A3,$72, $A5,$22, $82
+	.byte $88,$88, $A4,$55, $A4,$88, $AB,$00, $A5,$55, $A4,$00, $A3,$07
+	.byte $A4,$77, $A5,$78, $A4,$55, $A4,$88
+	.byte $A1
+; cycles=12581