dos33fsprogs/mist/selena_sound_puzzle.s

; the sounds

; click button, it goes in, background of yellow/black glows

; #1 switch in forest, drips in pool -- running water
; #2 switch, chasm with fire -- fire noise
; #3 switch, by clocks, -- ticking and ringing
; #4 switch, crystals -- flute
; #5 switch, entrance to tunnel -- wind

; the puzzle in the panel
; line up pointer with dish
; buttons blink when close to point proper dir
; when source selected, only makes noise from that source

; on display, display is degrees wide (217->187 = 30 degrees, so 12 images?)

; #1 pool	-- 153.4
; #2 chasm	-- 130.3
; #3 clock  	-- 55.6
; #4 crystals	-- 15.0
; #5 tunnel	-- 212.2

; press sum button, goes to each in turn (on display and numbers, not yellow)
; 15, 153, 212, 130, 55
; crystals, pool, tunnel, chasm, clock
;  flute, water, wind, flame, tick

; press with wrong, it flips between in right order, just doesn't
; display the sound effect name


; variables
;	SELENA_BUTTON_STATUS (bitmask)
;	SELENA_ANTENNA_ACTIVE 0..4
;       SELENA_ANTENNA1-5 (value 0..11 for each)
;	SELENA_LOCK1-5
;	SELENA_SUB ????


;=======================================
;=======================================
; handle touching antenna panel
;=======================================
;=======================================

touch_antenna_panel:

	; don't click things if already animating

	lda	ANIMATE_FRAME
	beq	actually_handle_touch
	rts

actually_handle_touch:

	lda	CURSOR_Y
	cmp	#32
	bcs	antenna_bottom_row	; bge

	lda	CURSOR_X
	cmp	#9
	bcc	antenna_nothing
	cmp	#13
	bcc	decrement_angle
	cmp	#18
	bcc	increment_angle
	cmp	#20
	bcc	antenna_nothing		; gap
	cmp	#26
	bcc	summation

antenna_nothing:
	rts


antenna_bottom_row:

	lda	CURSOR_X
	cmp	#11
	bcc	antenna_0

	cmp	#16
	bcc	antenna_1

	cmp	#21
	bcc	antenna_2

	cmp	#25
	bcc	antenna_3

	lda	#4
	bne	done_bottom_row		; bra

antenna_0:
	lda	#0
	beq	done_bottom_row		; bra
antenna_1:
	lda	#1
	bne	done_bottom_row		; bra
antenna_2:
	lda	#2
	bne	done_bottom_row		; bra
antenna_3:
	lda	#3

done_bottom_row:
	sta	SELENA_ANTENNA_ACTIVE

	rts

increment_angle:
	lda	SELENA_ANTENNA_ACTIVE
	tay
	lda	SELENA_ANTENNA1,Y
	clc
	adc	#1
	cmp	#12
	bne	done_increment_angle
	lda	#0

done_increment_angle:
	sta	SELENA_ANTENNA1,Y
	rts

decrement_angle:
	lda	SELENA_ANTENNA_ACTIVE
	tay
	lda	SELENA_ANTENNA1,Y
	sec
	sbc	#1
	bpl	done_decrement_angle
	lda	#11

done_decrement_angle:
	sta	SELENA_ANTENNA1,Y
	rts

summation:

	; start animation

	lda	#1
	sta	ANIMATE_FRAME
	sta	FRAMEL

	jsr	click_speaker

	rts



;=======================================
;=======================================
; draw the antenna panel
;=======================================
;=======================================

draw_antenna_panel:

	lda	SELENA_ANTENNA_ACTIVE
	sta	CURRENT_DISPLAY

	;=======================
	; handle animation
	lda	ANIMATE_FRAME
	beq	not_animating

	; display them in order
	tay
	dey
	lda	animate_order,Y
	sta	CURRENT_DISPLAY

	; see if should increment
	lda	FRAMEL
	and	#$7f
	bne	not_animating

	; increment

	inc	ANIMATE_FRAME
	lda	ANIMATE_FRAME
	cmp	#6
	bne	animate_click

	lda	#0
	sta	ANIMATE_FRAME
	jmp	not_animating
animate_click:

	jsr	click_speaker

not_animating:

	;======================
	; draw lit button
draw_lit_button:

	lda	ANIMATE_FRAME	; don't draw button if animating
	bne	draw_screen

	lda	CURRENT_DISPLAY
	tay

	lda	antenna_icon_xs,Y
	sta	XPOS
	lda	#34
	sta	YPOS
	tya
	asl
	tay
	lda	antenna_icons,Y
	sta	INL
	lda	antenna_icons+1,Y
	sta	INH

	jsr	put_sprite_crop

	;======================
	; draw screen
draw_screen:

	lda	CURRENT_DISPLAY
	tay
	lda	SELENA_ANTENNA1,Y
	tay

	lda	antenna_display_ys,Y
	sta	YPOS
	lda	#15
	sta	XPOS
	tya
	asl
	tay
	lda	antenna_display,Y
	sta	INL
	lda	antenna_display+1,Y
	sta	INH

	jsr	put_sprite_crop


	;==========================
	; print angle

	; line 21 is at #$650

	lda	#$50
	sta	OUTL
	lda	#$7
	clc
	adc	DRAW_PAGE
	sta	OUTH

	lda	CURRENT_DISPLAY
	tay
	lda	SELENA_ANTENNA1,Y
	tay

	asl
	asl				; multiply by 4
	tax

	ldy	#17

	lda	antenna_angles,X
	ora	#$80
	sta	(OUTL),Y
	iny
	lda	antenna_angles+1,X
	ora	#$80
	sta	(OUTL),Y
	iny
	lda	antenna_angles+2,X
	ora	#$80
	sta	(OUTL),Y
	iny
	iny				; skip decimal point
	lda	antenna_angles+3,X
	ora	#$80
	sta	(OUTL),Y


	;===============================
	; draw sound effect text

	lda	CURRENT_DISPLAY
	beq	test_position1
	cmp	#1
	beq	test_position2
	cmp	#2
	beq	test_position3
	cmp	#3
	beq	test_position4

test_position5:
	lda	SELENA_ANTENNA5
	cmp	#7
	bne	antenna_default_sound
	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON5
	beq	antenna_default_sound
	lda	#<sound5_tunnel
	sta	OUTL
	lda     #>sound5_tunnel
	jmp	antenna_print_sound

test_position1:
	lda	SELENA_ANTENNA1
	cmp	#5
	bne	antenna_default_sound
	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON1
	beq	antenna_default_sound
	lda	#<sound1_water
	sta	OUTL
	lda     #>sound1_water
	jmp	antenna_print_sound

test_position2:
	lda	SELENA_ANTENNA2
	cmp	#4
	bne	antenna_default_sound
	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON2
	beq	antenna_default_sound
	lda	#<sound2_flame
	sta	OUTL
	lda     #>sound2_flame
	jmp	antenna_print_sound

test_position3:
	lda	SELENA_ANTENNA3
	cmp	#2
	bne	antenna_default_sound
	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON3
	beq	antenna_default_sound
	lda	#<sound3_clocks
	sta	OUTL
	lda     #>sound3_clocks
	jmp	antenna_print_sound

test_position4:
	lda	SELENA_ANTENNA4
	cmp	#1
	bne	antenna_default_sound
	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON4
	beq	antenna_default_sound
	lda	#<sound4_crystals
	sta	OUTL
	lda     #>sound4_crystals
	jmp	antenna_print_sound

antenna_default_sound:

	lda	#<sound0_static
	sta	OUTL
	lda     #>sound0_static

antenna_print_sound:
	sta	OUTH

	jsr	move_and_print

	rts

animate_order:
	.byte 3,0,4,1,2

sound_names:

sound0_static:
	.byte 16,21,"[STATIC]",0

sound1_water:
	.byte 12,21,"[RUNNING WATER]",0

sound2_flame:
	.byte 13,21,"[ROARING FIRE]",0

sound3_clocks:
	.byte 12,21,"[CLOCK TICKING]",0

sound4_crystals:
	.byte 10,21,"[FLUTE-LIKE WHISTLE]",0

sound5_tunnel:
	.byte 13,21,"[RUSHING WIND]",0


antenna_angles:
	.byte	"0000"		; 0 = 0
	.byte	"0150"		; 1 = 30  15.0 crystal
	.byte	"0556"		; 2 = 60  55.6 clock
	.byte	"0900"		; 3 = 90
	.byte	"1303"		; 4 = 120 130.3 chasm
	.byte	"1534"		; 5 = 150 153.4 pool
	.byte	"1800"		; 6 = 180
	.byte	"2122"		; 7 = 210 212.2 tunnel
	.byte	"2400"		; 8 = 240
	.byte	"2700"		; 9 = 270
	.byte	"3000"		; 10 = 300
	.byte	"3300"		; 11 = 330

antenna_icon_xs:
	.byte 8,13,18,23,27

antenna_icons:
	.word icon_water_sprite
	.word icon_flame_sprite
	.word icon_clock_sprite
	.word icon_crystal_sprite
	.word icon_tunnel_sprite

icon_water_sprite:
	.byte 4,3
	.byte $dd,$dd,$d0,$dd
	.byte $dd,$dd,$d0,$dd
	.byte $0d,$d0,$0d,$d0

icon_flame_sprite:
	.byte 4,3
	.byte $dd,$dd,$d0,$dd
	.byte $d0,$0d,$dd,$d0
	.byte $dd,$dd,$d0,$0d

icon_clock_sprite:
	.byte 4,3
	.byte $d0,$dd,$0d,$dd
	.byte $00,$dd,$dd,$0d
	.byte $00,$d0,$dd,$0d

icon_crystal_sprite:
	.byte 3,3
	.byte $dd,$0d,$dd
	.byte $dd,$00,$dd
	.byte $dd,$d0,$dd

icon_tunnel_sprite:
	.byte 4,3
	.byte $d0,$0d,$dd,$0d
	.byte $dd,$00,$00,$dd
	.byte $0d,$00,$00,$0d

antenna_display_ys:
	.byte  4+6, 0+6, 0+6
	.byte  4+6, 2+6, 6+6
	.byte 10+6, 2+6, 8+6
	.byte 10+6,10+6,10+6

antenna_display:
	.word antenna_display0_sprite
	.word antenna_display1_sprite
	.word antenna_display2_sprite
	.word antenna_display3_sprite
	.word antenna_display4_sprite
	.word antenna_display5_sprite
	.word antenna_display6_sprite
	.word antenna_display7_sprite
	.word antenna_display8_sprite
	.word antenna_display9_sprite
	.word antenna_display10_sprite
	.word antenna_display11_sprite

antenna_display0_sprite:
	.byte 9,5
	.byte $66,$66,$66,$66,$66,$66,$56,$66,$66
	.byte $66,$b6,$66,$66,$66,$66,$55,$56,$86
	.byte $66,$bb,$66,$66,$99,$56,$85,$88,$88
	.byte $66,$bb,$55,$66,$85,$88,$88,$88,$88
	.byte $86,$8b,$85,$88,$88,$88,$88,$88,$88


antenna_display1_sprite:
	.byte 9,7
	.byte $66,$66,$66,$66,$66,$bb,$66,$66,$66
	.byte $66,$66,$66,$66,$66,$bb,$66,$66,$66
	.byte $86,$66,$66,$33,$56,$bb,$66,$66,$bb
	.byte $88,$86,$56,$55,$55,$bb,$66,$66,$bb
	.byte $88,$55,$55,$55,$55,$bb,$66,$66,$5b
	.byte $55,$55,$55,$55,$55,$55,$66,$66,$55
	.byte $55,$55,$55,$85,$88,$65,$66,$66,$65

antenna_display2_sprite:
	.byte 9,7
	.byte $66,$66,$66,$55,$55,$66,$56,$55,$66
	.byte $66,$66,$66,$44,$45,$66,$77,$77,$66
	.byte $66,$66,$66,$44,$44,$66,$55,$57,$66
	.byte $66,$66,$66,$44,$44,$66,$55,$55,$66
	.byte $66,$56,$66,$44,$d4,$77,$55,$55,$56
	.byte $56,$88,$86,$44,$11,$77,$55,$55,$55
	.byte $88,$88,$88,$87,$71,$87,$88,$88,$88

antenna_display3_sprite:
	.byte 9,5
	.byte $56,$66,$66,$66,$66,$66,$66,$66,$66
	.byte $55,$57,$76,$66,$66,$66,$66,$66,$66
	.byte $55,$55,$57,$66,$77,$66,$66,$86,$66
	.byte $85,$55,$55,$57,$55,$57,$56,$88,$88
	.byte $88,$88,$85,$85,$85,$88,$85,$55,$55

antenna_display4_sprite:
	.byte 9,6
	.byte $66,$66,$66,$66,$96,$96,$96,$66,$66
	.byte $66,$66,$66,$66,$59,$56,$59,$66,$66
	.byte $11,$11,$11,$11,$11,$44,$94,$91,$11
	.byte $11,$11,$11,$11,$11,$54,$44,$99,$11
	.byte $11,$88,$88,$11,$11,$55,$54,$54,$51
	.byte $81,$88,$88,$88,$85,$85,$85,$85,$85

antenna_display5_sprite:
	.byte 9,4
	.byte $11,$66,$66,$66,$66,$66,$66,$66,$66
	.byte $11,$66,$66,$88,$88,$88,$88,$86,$66
	.byte $51,$55,$86,$88,$88,$88,$88,$88,$88
	.byte $85,$88,$88,$88,$88,$88,$88,$88,$88

antenna_display6_sprite:
	.byte 9,2
	.byte $88,$66,$66,$66,$66,$66,$66,$66,$66
	.byte $88,$88,$66,$66,$66,$66,$66,$66,$66

antenna_display7_sprite:
	.byte 9,6
	.byte $66,$66,$36,$66,$56,$66,$66,$66,$66
	.byte $66,$66,$3b,$66,$55,$66,$66,$66,$66
	.byte $66,$56,$53,$56,$44,$66,$66,$66,$66
	.byte $88,$88,$88,$88,$88,$88,$88,$88,$88
	.byte $88,$88,$88,$88,$88,$88,$88,$88,$88
	.byte $88,$88,$88,$88,$88,$88,$88,$88,$88

antenna_display8_sprite:
	.byte 9,3
	.byte $88,$88,$88,$88,$88,$88,$55,$86,$58
	.byte $88,$88,$88,$88,$88,$88,$55,$55,$55
	.byte $88,$88,$88,$88,$88,$58,$55,$55,$55

antenna_display9_sprite:
	.byte 9,2
	.byte $86,$66,$66,$66,$66,$66,$66,$66,$66
	.byte $88,$86,$86,$86,$66,$66,$66,$86,$88

antenna_display10_sprite:
	.byte 9,2
	.byte $86,$86,$66,$66,$66,$66,$66,$66,$66
	.byte $88,$88,$88,$88,$88,$88,$86,$86,$86

antenna_display11_sprite:
	.byte 9,2
	.byte $55,$86,$86,$86,$86,$86,$86,$86,$66
	.byte $88,$88,$88,$88,$88,$88,$88,$88,$88

	;===========================
	; draw water background #1
	;===========================
draw_water_background:

	lda	DIRECTION
	and	#$f
	cmp	#DIRECTION_W
	bne	done_draw_water_background

	bit	TEXTGR		; we do this because we aren't a standalone
				; location

	lda	#<sound1_water
	sta	OUTL
	lda     #>sound1_water
	sta	OUTH
	jsr	move_and_print

	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON1
	beq	done_draw_water_background

	lda	#17
	sta	XPOS
	lda	#10
	sta	YPOS
	lda	#<water_bg_sprite
	sta	INL
	lda	#>water_bg_sprite
	sta	INH
	jsr	put_sprite_crop

done_draw_water_background:
	rts


	;===========================
	; draw chasm background #2
	;===========================
draw_chasm_background:

	lda	DIRECTION
	and	#$f
	cmp	#DIRECTION_S
	bne	done_draw_chasm_background

	bit	TEXTGR		; we do this because we aren't a standalone
				; location

	lda	#<sound2_flame
	sta	OUTL
	lda     #>sound2_flame
	sta	OUTH
	jsr	move_and_print

	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON2
	beq	done_draw_chasm_background

	lda	#17
	sta	XPOS
	lda	#6
	sta	YPOS
	lda	#<chasm_bg_sprite
	sta	INL
	lda	#>chasm_bg_sprite
	sta	INH
	jsr	put_sprite_crop

done_draw_chasm_background:
	rts


	;===========================
	; draw clock background #3
	;===========================
draw_clock_background:

	lda	#<sound3_clocks
	sta	OUTL
	lda     #>sound3_clocks
	sta	OUTH
	jsr	move_and_print

	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON3
	beq	done_draw_clock_background

	lda	#17
	sta	XPOS
	lda	#6
	sta	YPOS
	lda	#<clock_bg_sprite
	sta	INL
	lda	#>clock_bg_sprite
	sta	INH
	jsr	put_sprite_crop

done_draw_clock_background:
	rts

	;===========================
	; draw crystal background #4
	;===========================
draw_crystal_background:

	lda	#<sound4_crystals
	sta	OUTL
	lda     #>sound4_crystals
	sta	OUTH
	jsr	move_and_print

	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON4
	beq	done_draw_crystal_background

	lda	#16
	sta	XPOS
	lda	#10
	sta	YPOS
	lda	#<crystal_bg_sprite
	sta	INL
	lda	#>crystal_bg_sprite
	sta	INH
	jsr	put_sprite_crop

done_draw_crystal_background:
	rts





	;===========================
	; draw tunnel background #5
	;===========================
draw_tunnel_background:

	lda	#<sound5_tunnel
	sta	OUTL
	lda     #>sound5_tunnel
	sta	OUTH
	jsr	move_and_print

	lda	SELENA_BUTTON_STATUS
	and	#SELENA_BUTTON5
	beq	done_draw_tunnel_background

	lda	#16
	sta	XPOS
	lda	#12
	sta	YPOS
	lda	#<tunnel_bg_sprite
	sta	INL
	lda	#>tunnel_bg_sprite
	sta	INH
	jsr	put_sprite_crop

done_draw_tunnel_background:
	rts


	;=========================
	; water button #1
	;=========================
water_button_pressed:

	lda	SELENA_BUTTON_STATUS
	eor	#SELENA_BUTTON1
	sta	SELENA_BUTTON_STATUS

	and	#SELENA_BUTTON1
	beq	done_water_button_pressed

	jsr	play_water_noise

done_water_button_pressed:
	rts


	;=========================
	; chasm button #2
	;=========================
chasm_button_pressed:

	lda	SELENA_BUTTON_STATUS
	eor	#SELENA_BUTTON2
	sta	SELENA_BUTTON_STATUS

	and	#SELENA_BUTTON2
	beq	done_chasm_button_pressed

	jsr	play_chasm_noise

done_chasm_button_pressed:
	rts


	;=========================
	; clock button #3
	;=========================
clock_button_pressed:

	lda	SELENA_BUTTON_STATUS
	eor	#SELENA_BUTTON3
	sta	SELENA_BUTTON_STATUS

	and	#SELENA_BUTTON3
	beq	done_tunnel_button_pressed

	jsr	play_clock_noise

done_clock_button_pressed:
	rts


	;=========================
	; crystal button #4
	;=========================
crystal_button_pressed:

	lda	SELENA_BUTTON_STATUS
	eor	#SELENA_BUTTON4
	sta	SELENA_BUTTON_STATUS

	and	#SELENA_BUTTON4
	beq	done_crystal_button_pressed

	jsr	play_crystal_noise

done_crystal_button_pressed:
	rts



	;=========================
	; tunnel button
	;=========================
tunnel_button_pressed:

	lda	SELENA_BUTTON_STATUS
	eor	#SELENA_BUTTON5
	sta	SELENA_BUTTON_STATUS

	and	#SELENA_BUTTON5
	beq	done_tunnel_button_pressed

	jsr	play_tunnel_noise

done_tunnel_button_pressed:
	rts

;===============================
; play the noises
;===============================

	; water #1
play_water_noise:

;	lda	#NOTE_E3
;	sta	speaker_frequency

;	lda	#15
;	sta	speaker_duration

;	jsr	speaker_tone

	rts

	; fire #2
play_chasm_noise:

;	lda	#NOTE_D3
;	sta	speaker_frequency

;	lda	#15
;	sta	speaker_duration

;	jsr	speaker_tone

	rts

	; clock #3
play_clock_noise:

;	ldx	#5
;clock_noise_loop:
;	jsr	click_speaker

;	lda	#200
;	jsr	WAIT

;	dex
;	bne	clock_noise_loop

	rts

	; whistle #4
play_crystal_noise:

;	lda	#NOTE_E3
;	sta	speaker_frequency

;	lda	#10
;	sta	speaker_duration

;	jsr	speaker_tone

;	lda	#NOTE_E4
;	sta	speaker_frequency

;	lda	#10
;	sta	speaker_duration

;	jsr	speaker_tone

	rts

	; tunnel #5
play_tunnel_noise:

;	lda	#NOTE_C3
;	sta	speaker_frequency

;	lda	#15
;	sta	speaker_duration

;	jsr	speaker_tone

	rts


water_bg_sprite:
	.byte 7,11
	.byte $dd,$dd,$dd,$ff,$dd,$dd,$dd
	.byte $dd,$dd,$dd,$ff,$ff,$dd,$dd
	.byte $dd,$dd,$dd,$df,$df,$dd,$dd
	.byte $dd,$dd,$dd,$ff,$dd,$dd,$dd
	.byte $dd,$dd,$dd,$ff,$ff,$dd,$dd
	.byte $dd,$dd,$dd,$df,$df,$dd,$dd
	.byte $df,$fd,$df,$fd,$df,$fd,$df
	.byte $dd,$dd,$dd,$dd,$dd,$dd,$dd
	.byte $8d,$8d,$8d,$8d,$8d,$8d,$8d
	.byte $32,$82,$12,$12,$12,$82,$32
	.byte $33,$88,$91,$81,$81,$98,$33

chasm_bg_sprite:
	.byte 7,9
	.byte $dd,$df,$fd,$dd,$fd,$dd,$dd
	.byte $dd,$df,$fd,$dd,$fd,$df,$dd
	.byte $ff,$df,$fd,$dd,$fd,$df,$dd
	.byte $dd,$ff,$dd,$ff,$dd,$dd,$dd
	.byte $dd,$dd,$df,$fd,$df,$df,$fd
	.byte $dd,$dd,$dd,$df,$fd,$ff,$dd
	.byte $8d,$8d,$8d,$8d,$8d,$8d,$8f
	.byte $22,$32,$32,$32,$32,$32,$22
	.byte $33,$98,$11,$11,$11,$98,$33

clock_bg_sprite:
	.byte 6,10
	.byte $fd,$dd,$dd,$dd,$dd,$dd
	.byte $fd,$dd,$dd,$fd,$dd,$dd
	.byte $ff,$fd,$dd,$dd,$dd,$dd
	.byte $ff,$ff,$dd,$dd,$dd,$fd
	.byte $ff,$ff,$dd,$fd,$dd,$dd
	.byte $ff,$ff,$ff,$df,$dd,$dd
	.byte $dd,$df,$dd,$dd,$dd,$df
	.byte $8d,$8d,$8d,$8d,$8d,$8d
	.byte $82,$82,$82,$82,$82,$82
	.byte $88,$08,$11,$11,$11,$08

crystal_bg_sprite:
	.byte 9,11
	.byte $dd,$dd,$dd,$fd,$df,$fd,$dd,$dd,$dd
	.byte $dd,$dd,$fd,$df,$fd,$df,$fd,$dd,$dd
	.byte $dd,$dd,$ff,$dd,$ff,$dd,$ff,$dd,$dd
	.byte $dd,$dd,$ff,$dd,$ff,$dd,$ff,$dd,$dd
	.byte $fd,$dd,$ff,$dd,$ff,$dd,$ff,$dd,$fd
	.byte $dd,$df,$dd,$df,$dd,$df,$dd,$df,$dd
	.byte $dd,$dd,$dd,$dd,$dd,$dd,$dd,$dd,$dd
	.byte $28,$28,$28,$28,$28,$28,$28,$28,$28
	.byte $88,$88,$88,$08,$08,$08,$88,$88,$88
	.byte $88,$88,$00,$18,$18,$18,$00,$88,$88
	.byte $88,$88,$00,$88,$81,$88,$00,$88,$88

tunnel_bg_sprite:
	.byte 9,10
	.byte $dd,$dd,$dd,$dd,$dd,$fd,$df,$df,$fd
	.byte $dd,$fd,$fd,$fd,$dd,$ff,$dd,$fd,$ff
	.byte $ff,$dd,$dd,$ff,$dd,$ff,$dd,$dd,$dd
	.byte $ff,$ff,$dd,$ff,$dd,$ff,$dd,$dd,$dd
	.byte $dd,$fd,$fd,$ff,$fd,$ff,$fd,$dd,$dd
	.byte $df,$fd,$fd,$ff,$fd,$ff,$fd,$ff,$dd
	.byte $8d,$8d,$8f,$8f,$8f,$8f,$8d,$8d,$8d
	.byte $22,$22,$22,$82,$82,$02,$22,$22,$22
	.byte $88,$80,$88,$88,$88,$88,$80,$88,$22
	.byte $08,$88,$11,$11,$11,$88,$08,$88,$22


;	control panel
;	5 sliders, 10 positions
;		0 - wind (tunnel)
;		1 - slide whistle
;		2 - train whistle
;		3 - missile launch
;		4 - electric sparks
;		5 - flute noise (crystals)
;		6 - flame (chasm)
;		7 - clocks (clocks)
;		8 - clanking metal
;		9 - water (pool)
;
; solution = 5 - 9 - 0 - 6 - 7

LOCK_SOLUTION_1 = 5	; flute
LOCK_SOLUTION_2 = 9	; water
LOCK_SOLUTION_3 = 0	; wind
LOCK_SOLUTION_4 = 6	; flame
LOCK_SOLUTION_5 = 7	; clocks

; if it's right and press button, plays each sound in turn
;	while lights up button, then opens door and puts
;	you in front of it.

; if it's wrong ---> ?

door_sound_table:
	.word	sound5_tunnel	; [RUSHING WIND]	door0
	.word	door1_whistle	; [SLIDE WHISTLE]	door1
	.word	door2_train	; [TRAIN WHISTLE]	door2
	.word	door3_missile	; [MISSILE LAUNCH]	door3
	.word	door4_sparks	; [ELECTRIC SPARKS]	door4
	.word	sound4_crystals	; [FLUTE-LIKE WHISTLE]	door5
	.word	sound2_flame	; [ROARING FIRE]	door6
	.word	sound3_clocks	; [CLOCK TICKING]	door7
	.word	door8_metal	; [CLANKING METAL]	door8
	.word	sound1_water	; [RUNNING WATER]	door9

door1_whistle:
	.byte 12,21,"[SLIDE WHISTLE]",0

door2_train:
	.byte 12,21,"[TRAIN WHISTLE]",0

door3_missile:
	.byte 12,21,"[MISSILE LAUNCH]",0

door4_sparks:
	.byte 11,21,"[ELECTRIC SPARKS]",0

door8_metal:
	.byte 12,21,"[CLANKING METAL]",0



	;===============================
	; draw the buttons on door panel
	;===============================

door_draw_buttons:

	; print last sound pressed
	lda	ANIMATE_FRAME		; depend on this being 0 at entry
	bne	no_need_to_init

	lda	#0
	sta	LAST_PLAYED

	inc	ANIMATE_FRAME

no_need_to_init:

	lda	LAST_PLAYED
	beq	no_need_to_print

	asl
	tay
	dey
	dey
	lda	door_sound_table,Y
	sta	OUTL
	lda	door_sound_table+1,Y
	sta	OUTH

	jsr	move_and_print

no_need_to_print:


	ldx	#0
draw_door_buttons_outer_loop:
	ldy	#10			; 13,10

draw_door_buttons_loop:

	; set the output address for current Y

	lda	gr_offsets,Y
	clc
	adc	#13			; 13,10
	sta	door_buttons_smc+1
	iny
	lda	gr_offsets,Y
	clc
	adc	DRAW_PAGE
	sta	door_buttons_smc+2
	iny

	; if Y==(RN*2) + 10+2 (pre incremented)

	txa
	lsr
	tax	; X is *2, convert down to load lock value

	lda	SELENA_LOCK1,X

	asl
	clc
	adc	#12
	sta	TEMP

	txa	; convert X back to *2
	asl
	tax

	; see if draw or not

	cpy	TEMP
	bne	door_button_none

	; we are drawing
	lda	ROCKET_HANDLE_STEP
	beq	door_button_plain
	sta	TEMP
	dec	TEMP
	cpx	TEMP
	beq	door_button_green

door_button_plain:
	lda	#$48
	bne	draw_door_button	; bra

door_button_green:
	lda	#$c8
	bne	draw_door_button

door_button_none:
	lda	#$00

draw_door_button:

door_buttons_smc:
	sta	$400,X

	cpy	#30
	bne	draw_door_buttons_loop

	inx
	inx
	cpx	#10
	bne	draw_door_buttons_outer_loop

	rts


	;============================
	; door buttons pressed
	;===========================

door_controls_pressed:

	lda	CURSOR_X
	cmp	#23
	bcs	door_button_pressed			; bge
	cmp	#20			; need to check this
	bcc	door_sliders_pressed	; otherwise we increment stuff past
					; lock in zero page
	rts

door_sliders_pressed:

	sec
	sbc	#10	; get X to be which slider
	lsr
	tax

	; if (CURSOR_Y-10)/2 > selena_lock, increment
	; if (CURSOR_Y-10)/2 < selena_lock, decrement
	; 	cursor_y is 10 .. 28
	;	subtract 10, is 0 to 18

	lda	CURSOR_Y
	sec
	sbc	#10
	lsr

	cmp	SELENA_LOCK1,X
	beq	door_slider_play_tone	; cliked on it, play tone
	bpl	door_slider_increment	; clicked above, increment

door_slider_decrement:
	lda	SELENA_LOCK1,X
	beq	door_slider_play_tone	; don't make smaller than 0
	dec	SELENA_LOCK1,X
	jmp	door_slider_play_tone

door_slider_increment:
	lda	SELENA_LOCK1,X
	cmp	#9
	bcs	door_slider_play_tone	; don't make larger than 9
	inc	SELENA_LOCK1,X

door_slider_play_tone:

	lda	SELENA_LOCK1,X
	clc
	adc	#1			; 0 means no display, so offset by 1
	sta	LAST_PLAYED

        rts


door_button_pressed:

        ;==================================
        ; turn buttons green one at a time

	lda	#1
	sta	ROCKET_HANDLE_STEP

door_button_draw_buttons:


	ldx	#0

door_buttons_outer_loop:

	lda	SELENA_LOCK1,X
	sta	LAST_PLAYED
	inc	LAST_PLAYED	; value we want is 1+value

	txa
	pha

	jsr	gr_copy_to_current

	lda	#25
	sta	XPOS
	lda	#24
	sta	YPOS
	lda	#<red_button_sprite
	sta	INL
	lda	#>red_button_sprite
	sta	INH
	jsr	put_sprite_crop


;	lda	DRAW_PAGE		; draw to visible screen
;	eor	#$4
;	sta	DRAW_PAGE

;	ldx	#0





	jsr	door_draw_buttons

;	pla
;	tax
;	pha

	jsr	page_flip

	; play sound
	; we delay instead

	ldx	#10
long_fake_sound:
	lda	#200
	jsr	WAIT
	dex
	bne	long_fake_sound

	pla
	tax

	inc	ROCKET_HANDLE_STEP
	inc	ROCKET_HANDLE_STEP

check_end:
	inx
	cpx	#5
	bne	door_buttons_outer_loop

;	lda	DRAW_PAGE		; flip back to way it was
;	eor	#$4
;	sta	DRAW_PAGE

	lda	#0
	sta	ROCKET_HANDLE_STEP
	sta	LAST_PLAYED

	; check to see if right code

	lda	SELENA_LOCK1
	cmp	#LOCK_SOLUTION_1
	bne	done_checking_door_code

	lda	SELENA_LOCK2
	cmp	#LOCK_SOLUTION_2
	bne	done_checking_door_code

	lda	SELENA_LOCK3
	cmp	#LOCK_SOLUTION_3
	bne	done_checking_door_code

	lda	SELENA_LOCK4
	cmp	#LOCK_SOLUTION_4
	bne	done_checking_door_code

	lda	SELENA_LOCK5
	cmp	#LOCK_SOLUTION_5
	bne	done_checking_door_code

door_correct_code:

	; open door

	lda	#SELENA_BUNKER_OPEN
	sta	LOCATION

	lda	#DIRECTION_E
	sta	DIRECTION

	jsr	change_location

done_checking_door_code:

	rts

red_button_sprite:
	.byte 3,2
	.byte $19,$11,$19
	.byte $91,$11,$91



;================================
; tunnel lights
;================================
; switch up = lights on
; switch down = lights off
; turning one switch also flips other one
;
; technically the bottom of steps gets slightly lighter but we ignore
; also in game the two bottom locations are slightly different
; you also can click the switch from multiple angles but we removed
;	that as it made things a lot easier

tunnel_toggle_lights:
	lda	SELENA_BUTTON_STATUS
	eor	#SELENA_LIGHTSWITCH
	sta	SELENA_BUTTON_STATUS

	jsr	update_tunnel_lights
	jmp	change_location


	;===========================================
	; update backgrounds based on light switch
	;===========================================

update_tunnel_lights:

	lda	SELENA_BUTTON_STATUS
	bmi	tunnel_lights_on

tunnel_lights_off:

	ldy	#LOCATION_EAST_BG

	lda	#<tunnel_e_lzsa
	sta	location31,Y				; SELENA_TUNNEL
	lda	#>tunnel_e_lzsa
	sta	location31+1,Y				; SELENA_TUNNEL

	lda	#<tunnel_basement_lzsa
	sta	location32,Y				; SELENA_ANTENNA_BASEMENT
	lda	#>tunnel_basement_lzsa
	sta	location32+1,Y				; SELENA_ANTENNA_BASEMENT

	ldy	#LOCATION_WEST_BG

	lda	#<tunnel_w_lzsa
	sta	location31,Y				; SELENA_TUNNEL
	lda	#>tunnel_w_lzsa
	sta	location31+1,Y				; SELENA_TUNNEL

	lda	#<tunnel_basement_lzsa
	sta	location30,Y				; SELENA_TUNNEL_BASEMENT
	lda	#>tunnel_basement_lzsa
	sta	location30+1,Y				; SELENA_TUNNEL_BASEMENT

	jmp	done_tunnel_lights

tunnel_lights_on:

	ldy	#LOCATION_EAST_BG

	lda	#<tunnel_middle_lightson_e_lzsa
	sta	location31,Y				; SELENA_TUNNEL
	lda	#>tunnel_middle_lightson_e_lzsa
	sta	location31+1,Y				; SELENA_TUNNEL

	lda	#<tunnel_lightson_e_lzsa
	sta	location32,Y				; SELENA_ANTENNA_BASEMENT
	lda	#>tunnel_lightson_e_lzsa
	sta	location32+1,Y				; SELENA_ANTENNA_BASEMENT

	ldy	#LOCATION_WEST_BG

	lda	#<tunnel_middle_lightson_w_lzsa
	sta	location31,Y				; SELENA_TUNNEL
	lda	#>tunnel_middle_lightson_w_lzsa
	sta	location31+1,Y				; SELENA_TUNNEL

	lda	#<tunnel_lightson_w_lzsa
	sta	location30,Y				; SELENA_TUNNEL_BASEMENT
	lda	#>tunnel_lightson_w_lzsa
	sta	location30+1,Y				; SELENA_TUNNEL_BASEMENT


done_tunnel_lights:

	rts