mist: stoney: add in the right hand tunnels

they are almost mirror images of the left ones, but not sure it
would be worth it to add mirroring code

mist/graphics_stoney/Makefile

@@ -44,7 +44,9 @@ stoney_graphics.inc:	\
 	crawlway_e.lzsa crawlway_w.lzsa \
 	blue_room_n.lzsa blue_room_s.lzsa blue_room_e.lzsa blue_room_w.lzsa \
 	map_case_open_e.lzsa map_case_closed_e.lzsa \
-	right_airlock_open_n.lzsa \
+	right_tunnel1_n.lzsa right_tunnel1_s.lzsa \
+	right_tunnel2_n.lzsa right_tunnel2_s.lzsa right_tunnel2_w.lzsa \
+	right_airlock_n.lzsa right_airlock_s.lzsa right_airlock_open_n.lzsa \
 	left_letter.lzsa
 	echo "arrival_n_lzsa: .incbin \"arrival_n.lzsa\"" > stoney_graphics.inc
 	echo "arrival_s_lzsa: .incbin \"arrival_s.lzsa\"" >> stoney_graphics.inc
@@ -123,6 +125,13 @@ stoney_graphics.inc:	\
 	echo "blue_room_w_lzsa: .incbin \"blue_room_w.lzsa\"" >> stoney_graphics.inc
 	echo "map_case_open_e_lzsa: .incbin \"map_case_open_e.lzsa\"" >> stoney_graphics.inc
 	echo "map_case_closed_e_lzsa: .incbin \"map_case_closed_e.lzsa\"" >> stoney_graphics.inc
+	echo "right_tunnel1_n_lzsa: .incbin \"right_tunnel1_n.lzsa\"" >> stoney_graphics.inc
+	echo "right_tunnel1_s_lzsa: .incbin \"right_tunnel1_s.lzsa\"" >> stoney_graphics.inc
+	echo "right_tunnel2_n_lzsa: .incbin \"right_tunnel2_n.lzsa\"" >> stoney_graphics.inc
+	echo "right_tunnel2_s_lzsa: .incbin \"right_tunnel2_s.lzsa\"" >> stoney_graphics.inc
+	echo "right_tunnel2_w_lzsa: .incbin \"right_tunnel2_w.lzsa\"" >> stoney_graphics.inc
+	echo "right_airlock_n_lzsa: .incbin \"right_airlock_n.lzsa\"" >> stoney_graphics.inc
+	echo "right_airlock_s_lzsa: .incbin \"right_airlock_s.lzsa\"" >> stoney_graphics.inc
 	echo "right_airlock_open_n_lzsa: .incbin \"right_airlock_open_n.lzsa\"" >> stoney_graphics.inc
 	echo "left_letter_lzsa: .incbin \"left_letter.lzsa\"" >> stoney_graphics.inc
 

mist/leveldata_stoney.inc

@@ -441,7 +441,7 @@ location23:
 location24:
 	.byte	$ff				; north exit
 	.byte	$ff				; south exit
-	.byte	STONEY_TELESCOPE_VIEW		; east exit
+	.byte	$ff				; east exit
 	.byte	STONEY_TELESCOPE_PATH3		; west exit
 	.byte	$ff		; north exit_dir
 	.byte	$ff		; south exit_dir
@@ -452,7 +452,10 @@ location24:
 	.word	telescope_e_lzsa	; east bg
 	.word	telescope_w_lzsa	; west bg
 	.byte	BG_EAST|BG_WEST
-	.byte	$ff
+	.byte   DIRECTION_E     ; special exit
+	.byte	16,25   ; special x
+	.byte	10,20   ; special y
+	.word	goto_telescope-1
 
 ; STONEY_TELESCOPE_VIEW		-- telescope
 location25:
@@ -657,8 +660,8 @@ location36:
 	.byte	DIRECTION_S	; south exit_dir
 	.byte	$ff		; east exit_dir
 	.byte	$ff		; west exit_dir
-	.word	left_tunnel1_n_lzsa	; north bg
-	.word	left_tunnel1_s_lzsa	; south bg
+	.word	right_tunnel1_n_lzsa	; north bg
+	.word	right_tunnel1_s_lzsa	; south bg
 	.word	$0000			; east bg
 	.word	$0000			; west bg
 	.byte	BG_NORTH|BG_SOUTH
@@ -674,9 +677,9 @@ location37:
 	.byte	DIRECTION_S	; south exit_dir
 	.byte	DIRECTION_E	; east exit_dir
 	.byte	DIRECTION_W	; west exit_dir
-	.word	left_tunnel2_n_lzsa	; north bg
-	.word	left_tunnel2_s_lzsa	; south bg
-	.word	left_tunnel2_w_lzsa	; east bg
+	.word	right_tunnel2_n_lzsa	; north bg
+	.word	right_tunnel2_s_lzsa	; south bg
+	.word	right_tunnel2_w_lzsa	; east bg
 	.word	$0000			; west bg
 	.byte	BG_NORTH|BG_SOUTH|BG_EAST
 	.byte	$ff
@@ -691,8 +694,8 @@ location38:
 	.byte	DIRECTION_S	; south exit_dir
 	.byte	$ff		; east exit_dir
 	.byte	$ff		; west exit_dir
-	.word	left_airlock_n_lzsa	; north bg
-	.word	left_airlock_s_lzsa	; south bg
+	.word	right_airlock_n_lzsa	; north bg
+	.word	right_airlock_s_lzsa	; south bg
 	.word	$0000			; east bg
 	.word	$0000			; west bg
 	.byte	BG_NORTH|BG_SOUTH

mist/stoney_puzzles.s

@@ -322,6 +322,20 @@ battery_sprite7:
 ; telescope
 ;======================================
 
+goto_telescope:
+
+	; reset to 0 each time
+	lda	#71
+	sta	telescope_angle
+
+	lda	#STONEY_TELESCOPE_VIEW
+	sta	LOCATION
+
+	lda	#DIRECTION_E|DIRECTION_SPLIT
+	sta	DIRECTION
+
+	jmp	change_location
+
 display_telescope:
 
 	lda	#16