;=============================
; elevator1 handle pulled

; FIXME: check for water power
; FIXME: animate
elev1_handle:

	; click speaker
	bit	SPEAKER

	; check for water power

	; go to bottom floor, which involves moving to CHANNEL level

	lda	#CHANNEL_IN_ELEV1_CLOSED
	sta	LOCATION

	lda	#DIRECTION_E
	sta	DIRECTION

	lda	#LOAD_CHANNEL
	sta	WHICH_LOAD

	lda	#$ff
	sta	LEVEL_OVER

	lda	CHANNEL_SWITCHES		; make elevator down
	and	#~CHANNEL_ELEVATOR1_UP
	sta	CHANNEL_SWITCHES


	rts


;=========================
;=========================
; close elevator1 door
;=========================
;=========================

elev1_close_door:

	lda	#ARBOR_INSIDE_ELEV1
	sta	LOCATION
	jmp	change_location


;==================================
;==================================
; hut handle, toggle top stair gate
;==================================
;==================================

hut_handle:
	lda	CHANNEL_SWITCHES
	eor	#CHANNEL_SW_GATE_TOP
	sta	CHANNEL_SWITCHES
	jsr	update_arbor_state
	jmp	change_location



;=============================
;=============================
; elevator2 handle pulled
;=============================
;=============================


; FIXME: check for water power
; FIXME: animate
elevator2_handle:

	; click speaker
	bit	SPEAKER

	; check for water power

	lda	LOCATION
	cmp	#ARBOR_INSIDE_ELEV2_CLOSED
	beq	elev2_goto_top

elev2_goto_bottom:
	lda	#ARBOR_INSIDE_ELEV2_CLOSED
	bne	done_elev2_handle

elev2_goto_top:
	lda	#ARBOR_IN_ELEV2_TOP_CLOSED

done_elev2_handle:
	sta	LOCATION
	jmp	change_location


;=========================
;=========================
; close elevator2 door
;=========================
;=========================

elevator2_close_door:

	lda	LOCATION
	cmp	#ARBOR_INSIDE_ELEV2_OPEN
	bne	elev2_close_top

elev2_close_bottom:
	lda	#ARBOR_INSIDE_ELEV2_CLOSED
	bne	done_elev2_close_door

elev2_close_top:
	lda	#ARBOR_IN_ELEV2_TOP_CLOSED

done_elev2_close_door:
	sta	LOCATION
	jmp	change_location



;=========================
;=========================
; handle_top_gate
;=========================
;=========================

handle_top_gate:

	lda	CHANNEL_SWITCHES
	and	#CHANNEL_SW_GATE_TOP
	beq	done_handle_top_gate		; if gate not open


	lda	#ARBOR_STEPS_TOP
	sta	LOCATION
	jsr	change_location


done_handle_top_gate:
	rts


;=================================
;=================================
; handle gate at bottom of stairs
;=================================
;=================================

stair_gate:

	lda	CHANNEL_SWITCHES
	and	#CHANNEL_SW_GATE_BOTTOM
	beq	stair_gate_closed		; if gate not open


stair_gate_open:

	; 13-16 close gate
	lda	CURSOR_X
	cmp	#16
	bcc	close_stair_gate

	; otherwise, exit back to channelwood

	lda	#CHANNEL_STEPS_DOOR
	sta	LOCATION

	lda	#DIRECTION_E
	sta	DIRECTION

	lda	#LOAD_CHANNEL
	sta	WHICH_LOAD

	lda	#$ff
	sta	LEVEL_OVER

	rts



close_stair_gate:

	; open the gate

	lda	CHANNEL_SWITCHES
	and	#~CHANNEL_SW_GATE_BOTTOM
	jmp	update_stair_gate


stair_gate_closed:

	; open the gate

	lda	CHANNEL_SWITCHES
	ora	#CHANNEL_SW_GATE_BOTTOM

update_stair_gate:
	sta	CHANNEL_SWITCHES

	jsr	update_arbor_state

	jmp	change_location


;===============================================
;===============================================
; update all backgrounds based on switch states
;===============================================
;===============================================

update_arbor_state:

	lda	CHANNEL_SWITCHES
	and	#CHANNEL_SW_GATE_TOP
	beq	top_gate_closed

top_gate_open:

	; change top gate to open

	; change far view
	ldy	#LOCATION_SOUTH_BG
	lda	#<switch_hut_open_s_lzsa
	sta	location14,Y				; ARBOR_SWITCH_HUT
	lda	#>switch_hut_open_s_lzsa
	sta	location14+1,Y				; ARBOR_SWITCH_HUT

	; change bridge view
	ldy	#LOCATION_WEST_BG
	lda	#<bridge7_open_w_lzsa
	sta	location22,Y				; ARBOR_BRIDGE7
	lda	#>bridge7_open_w_lzsa
	sta	location22+1,Y				; ARBOR_BRIDGE7

	; change doors, elevator closed view
	; should be gate open, elevator closed
	lda	#<doors_open_elev2_closed_w_lzsa
	sta	location23,Y				; ARBOR_DOORS
	lda	#>doors_open_elev2_closed_w_lzsa
	sta	location23+1,Y				; ARBOR_DOORS

	; change doors, elevator open view
	; should be gate open, elevator open
	lda	#<doors_open_w_lzsa
	sta	location24,Y				; ARBOR_DOORS_ELEV2_OPEN
	lda	#>doors_open_w_lzsa
	sta	location24+1,Y				; ARBOR_DOORS_ELEV2_OPEN

	; change to allow traversing gate
	ldy	#LOCATION_SPECIAL_EXIT
	lda	#DIRECTION_W
	sta	location23,Y				; ARBOR_DOORS
	sta	location24,Y				; ARBOR_DOORS_ELEV2_OPEN

	jmp	top_gate_done

top_gate_closed:

	; change top gate to closed

	; change far view
	ldy	#LOCATION_SOUTH_BG
        lda	#<switch_hut_closed_s_lzsa
        sta	location14,Y				; ARBOR_SWITCH_HUT
        lda	#>switch_hut_closed_s_lzsa
        sta	location14+1,Y				; ARBOR_SWITCH_HUT

	; change bridge view
	ldy	#LOCATION_WEST_BG
	lda	#<bridge7_closed_w_lzsa
	sta	location22,Y				; ARBOR_BRIDGE7
	lda	#>bridge7_closed_w_lzsa
	sta	location22+1,Y				; ARBOR_BRIDGE7

	; change doors, elevator closed view
	; should be gate closed, elevator closed
	lda	#<doors_closed_w_lzsa
	sta	location23,Y				; ARBOR_DOORS
	lda	#>doors_closed_w_lzsa
	sta	location23+1,Y				; ARBOR_DOORS

	; change doors, elevator open view
	; should be gate closed, elevator open
	lda	#<doors_elev2_open_w_lzsa
	sta	location24,Y				; ARBOR_DOORS_ELEV2_OPEN
	lda	#>doors_elev2_open_w_lzsa
	sta	location24+1,Y				; ARBOR_DOORS_ELEV2_OPEN

	; change to disallow traversing gate
	ldy	#LOCATION_SPECIAL_EXIT
	lda	#$ff
	sta	location23,Y				; ARBOR_DOORS
	sta	location24,Y				; ARBOR_DOORS_ELEV2_OPEN

top_gate_done:


update_stair_door:

	lda	CHANNEL_SWITCHES
	and	#CHANNEL_SW_GATE_BOTTOM
	beq	bottom_gate_closed

bottom_gate_open:

	; change bottom gate to open

	ldy	#LOCATION_WEST_BG
	lda	#<steps_bottom_open_w_lzsa
	sta	location32,Y				; ARBOR_STEPS_BOTTOM
	lda	#>steps_bottom_open_w_lzsa
	sta	location32+1,Y				; ARBOR_STEPS_BOTTOM

	jmp	bottom_gate_done

bottom_gate_closed:

	ldy	#LOCATION_WEST_BG
	lda	#<steps_bottom_closed_w_lzsa
	sta	location32,Y				; ARBOR_STEPS_BOTTOM
	lda	#>steps_bottom_closed_w_lzsa
	sta	location32+1,Y				; ARBOR_STEPS_BOTTOM


bottom_gate_done:

done_update_arbor_state:

	rts