mist: nibel: can get blue page now

mist/Makefile

@@ -282,7 +282,7 @@ nibel.o:	nibel.s zp.inc hardware.inc common_defines.inc \
 	common_routines.inc \
 	graphics_nibel/nibel_graphics.inc \
 	leveldata_nibel.inc \
-	nibel_switches.s
+	handle_pages.s nibel_switches.s
 	ca65 -o nibel.o nibel.s -l nibel.lst
 
 ####

mist/common_routines.inc

@@ -41,11 +41,11 @@ change_location	=$1acd
 move_and_print	=$1b65
 
 ; page_sprites.inc
-blue_page_sprite	=$1d33
-red_page_sprite	=$1d7f
-white_page_sprite	=$1d95
-blue_page_small_sprite	=$1dab
-red_page_small_sprite	=$1db3
+blue_page_sprite	=$1c7a
+red_page_sprite	=$1c90
+white_page_sprite	=$1ca6
+blue_page_small_sprite	=$1cbc
+red_page_small_sprite	=$1cc4
 
 ; audio files
 linking_noise	= $9000

mist/leveldata_nibel.inc

@@ -147,7 +147,12 @@ location7:
 	.word	blue_house_e_lzsa		; east bg
 	.word	blue_house_w_lzsa		; west bg
 	.byte	BG_NORTH|BG_SOUTH|BG_EAST|BG_WEST
-	.byte	$ff
+	.byte	DIRECTION_E		; special exit
+	.byte	5,11			; special x
+	.byte	40,46			; special y
+	.word	nibel_take_blue_page-1	; special function
+
+
 
 ; NIBEL_BLUE_HOUSE_VIEWER	-- blue house viewer machine
 location8:

mist/loader.s

@@ -731,8 +731,8 @@ sectbl:	.byte $00,$0d,$0b,$09,$07,$05,$03,$01,$0e,$0c,$0a,$08,$06,$04,$02,$0f
         .include        "text_print.s"
 	.include	"loadstore.s"
 
-	.include        "common_sprites.inc"
         .include        "page_sprites.inc"
+	.include        "common_sprites.inc"
 
 loader_end:
 

mist/nibel.s

@@ -72,11 +72,17 @@ game_loop:
 	; handle special-case forground logic
 	;====================================
 
-;	lda	LOCATION
-;	cmp	#CHANNEL_BOOK_OPEN
+	lda	LOCATION
+	cmp	#NIBEL_BLUE_ROOM
+	beq	fg_draw_blue_page
 ;	beq	animate_mist_book
 
-;	jmp	nothing_special
+	jmp	nothing_special
+
+fg_draw_blue_page:
+	jsr	draw_blue_page
+	jmp	nothing_special
+
 
 nothing_special:
 
@@ -132,4 +138,5 @@ really_exit:
 	; level data
 	.include	"leveldata_nibel.inc"
 
-
+	; book pages
+	.include	"handle_pages.s"

mist/nibel_switches.s

@@ -41,4 +41,72 @@ elevator2_close_door:
 	jmp	change_location
 
 
+nibel_take_red_page:
+	lda	#CHANNEL_PAGE
+	jmp	take_red_page
 
+nibel_take_blue_page:
+	lda	#CHANNEL_PAGE
+	jmp	take_blue_page
+
+
+draw_blue_page:
+	lda	DIRECTION
+	cmp	#DIRECTION_E
+	bne	no_draw_page
+
+	lda	BLUE_PAGES_TAKEN
+	and	#CHANNEL_PAGE
+	bne	no_draw_page
+
+	lda	#6
+	sta	XPOS
+	lda	#42
+	sta	YPOS
+
+	lda	#<blue_page_sprite
+	sta	INL
+	lda	#>blue_page_sprite
+	sta	INH
+
+	jmp	put_sprite_crop		; tail call
+
+no_draw_page:
+	rts
+
+
+
+
+; viewer
+
+; position 1
+; [talking in another language]
+
+viewer1_text:
+.byte "[WORDS IN ANOTHER LANGUAGE]"
+
+; position 2
+; [scary talking in another language]
+viewer2_text:
+.byte "[OMINIOUS WORDS IN ANOTHER LANGUAGE]"
+
+; position 3
+; [ more talking in another language]
+
+viewer3_text:
+.byte "[MORE OMINIOUS WORDS IN ANOTHER LANGUAGE]"
+
+; position 4
+; Sirrus: I hope I pushed the right button
+; my dear brother.what an interesting device you have here
+; I'm not erasing anything important am I? haha
+; remember he is preparing.  take only 1 page my dear
+; brother
+
+viewer4_text:
+;                1         2         3
+;      0123456789012345678901234567890123456789
+.byte "I HOPE I PUSHED THE RIGHT BUTTON."
+.byte "WHAT AN INTERESTING DEVICE YOU HAVE HERE"
+.byte "NOT ERASING ANYTHING IMPORTANT, AM I?"
+.byte "TAKE ONLY ONE PAGE MY DEAR BROTHER."