mist: can go in the dentist chair room

I recorded a video of part of this process

mist/TODO

@@ -1,11 +1,10 @@
+General:
 + Insert floppy #100 joke?
 + double link noise (once when leave, once when get there?)
-
 + allow turning around
 + adjust grab window on letter
 + add missing red book step
-
-+ LOADING screen
++ Move sound to language card (meaning no sound on II+ w/o language card)
 
 Make game winnable:
 + Allow access to all marker switches
@@ -13,26 +12,33 @@ Make game winnable:
 + Allow grabbing white page
 + allow entering code
 
-
-Ending:
-+ Turning
-+ Allow looking at green book on shelf
-+ Atrus at end -- hires?
-
-
 MIST island:
-+ Tunnel to generator
++ Scenery
+	- Projector room, with message
+	- Tunnel to generator
+	- Climb towers with circuit breakers (2)
+	- Dentist chair
+	- Raised ship
+	- fireplace close/open
++ fireplace puzzle
++ bookshelf close?
++ book?
++ atrus at end
 + Generator puzzle
 + Dentist chair
 + Raise ship
++ Fireplace: 8x6 grid
++ Readable books
++ Tower rotation
 
 MECHE age:
-+ Linking book animation
-+ Implement
++ Everything in age
 
 SPACESHIP age:
-+ Keyboard
++ Keyboard/music
 + Linking book
++ Complicated age with sounds
++ That whole rediculous underground cart sequence
 
 Tree age:
 + Tree puzzle
@@ -40,30 +46,17 @@ Tree age:
 Stoneship age:
 + ?
 
-Move sound to language card (meaning no sound on II+ w/o language card)
-
-
-
-Marker Switches (8):
-+ * Dock
-+ * Gears
-+ * Dentist
-+ * Pool
-+ * Spaceship
-+ * Clock
-+ * Cabin
-+ * Generator
-
-Fireplace:
-+ 8x6 grid
-
-more pictures?
-+ open gear
-+ gear linking book
-+ fireplace close
-+ inside fireplace
-+ fireplace puzzle
-+ bookshelf close?
-+ book?
-+ atrus at end
+Ending:
++ Turning
++ Allow looking at green book on shelf
++ Atrus at end -- hires?
++ Marker Switches (8):
+	* Dock
+	* Gears
+	* Dentist
+	* Pool
+	* Spaceship
+	* Clock
+	* Cabin
+	* Generator
 

mist/graphics_island/Makefile

@@ -42,7 +42,8 @@ mist_graphics.inc:	\
 	clock_inside_s.lzsa clock_inside_open.lzsa \
 	fireplace_e.lzsa \
 	in_fireplace_w.lzsa in_fireplace_door.lzsa \
-	gear_open_e.lzsa
+	gear_open_e.lzsa \
+	chair_view_s.lzsa chair_view_n.lzsa
 	echo "m_link_book_lzsa: .incbin \"m_link_book.lzsa\"" > mist_graphics.inc
 	echo "dock_n_lzsa: .incbin \"dock_n.lzsa\"" >> mist_graphics.inc
 	echo "dock_s_lzsa: .incbin \"dock_s.lzsa\"" >> mist_graphics.inc
@@ -110,6 +111,8 @@ mist_graphics.inc:	\
 	echo "in_fireplace_w_lzsa: .incbin \"in_fireplace_w.lzsa\"" >> mist_graphics.inc
 	echo "in_fireplace_door_lzsa: .incbin \"in_fireplace_door.lzsa\"" >> mist_graphics.inc
 	echo "gear_open_e_lzsa: .incbin \"gear_open_e.lzsa\"" >> mist_graphics.inc
+	echo "chair_view_s_lzsa: .incbin \"chair_view_s.lzsa\"" >> mist_graphics.inc
+	echo "chair_view_n_lzsa: .incbin \"chair_view_n.lzsa\"" >> mist_graphics.inc
 
 %.gr: %.png
 	$(PNG2GR) $< $@

mist/graphics_island/mist_graphics.inc

@@ -65,3 +65,5 @@ fireplace_e_lzsa: .incbin "fireplace_e.lzsa"
 in_fireplace_w_lzsa: .incbin "in_fireplace_w.lzsa"
 in_fireplace_door_lzsa: .incbin "in_fireplace_door.lzsa"
 gear_open_e_lzsa: .incbin "gear_open_e.lzsa"
+chair_view_s_lzsa: .incbin "chair_view_s.lzsa"
+chair_view_n_lzsa: .incbin "chair_view_n.lzsa"

mist/leveldata_island.inc

@@ -40,7 +40,7 @@ locations:
 	.word location16,location17,location18,location19
 	.word location20,location21,location22,location23
 	.word location24,location25,location26,location27
-	.word location28,location29,location30
+	.word location28,location29,location30,location31
 
 ; myst linking book
 location0:
@@ -427,11 +427,11 @@ location20:
 
 ; dentist door
 location21:
-	.byte	21		; north exit
+	.byte	31		; north exit
 	.byte	9		; south exit
 	.byte	$ff		; east exit
 	.byte	$ff		; west exit
-	.byte	DIRECTION_S	; north exit_dir
+	.byte	DIRECTION_N	; north exit_dir
 	.byte	DIRECTION_W	; south exit_dir
 	.byte	$ff		; east exit_dir
 	.byte	$ff		; west exit_dir
@@ -604,3 +604,22 @@ location30:
 	.byte	14,24		; special y
 	.word	exit_level-1	; special function
 
+; chair view
+location31:
+	.byte	31		; north exit
+	.byte	21		; south exit
+	.byte	$ff		; east exit
+	.byte	$ff		; west exit
+	.byte	DIRECTION_S	; north exit_dir
+	.byte	DIRECTION_S	; south exit_dir
+	.byte	$ff		; east exit_dir
+	.byte	$ff		; west exit_dir
+	.word	chair_view_n_lzsa	; north bg
+	.word	chair_view_s_lzsa	; south bg
+	.word	gear_open_e_lzsa	; east bg
+	.word	$0000			; west bg
+	.byte	BG_NORTH | BG_SOUTH
+	.byte	$ff		; TODO: lightswitch
+
+
+