; The Stone Ship Puzzles

; by deater (Vince Weaver) <vince@deater.net>

	; at start, no electricity
	;	all lights on umbrella off
	;	tunnels dark and flooded
	;	steps to cabin are flooded, lights off past airlock, can't
	;		touch book
	;	lighthouse is flooded

	; lights are always on in red/blue rooms

	; umbrella pump -- only one can be on, touching twice toggles
	;	#1 drains main cabin
	;	#2 drains tunnels
	;	#3 drain the elevator room

	; treasure chest
	;	1st drain tower room
	;	2nd go down, open tap, let water drain
	;	3rd close tap
	;	4th raise water again
	;	5th click on chained key which will unlock chest
	;	6th click on key in chest which will get picked up
	;	7th open trapdoor. animation.  lock and key fall to
	;		floor down below
	;		you can still pick up the key down there
	; in game if you leave the lighthouse
	;	while you have the key, the key ends up on the floor
	;	down below

	; charged battery turns on lights in cabin/tunnels
	;	charge runs down over time

	; compass rose puzzle
	;	press wrong one and lights go out (all energy to zero)
	;		also siren plays
	;		blue light at end of corridor
	;	press right one, lights in the cabin go on
	;		also light outside the compass window



	; lighthouse backgrounds
	;    water, no trunk, hatch closed
	;    water, no trunk, hatch open
	;    water, trunk, hatch closed
	;    water, trunk, hatch open
	;		prev two, trunk open/closed
	;    nowater, hatch closed
	;    nowater, hatch open

	; idea: baseline with water trunk, water no trunk, nowater
	;	draw hatch as sprite




	;==================================
	; compass puzzle
	;==================================
compass_puzzle:
	rts


	;===================================
	; crawlways
	;===================================
enter_crawlway_left:
	lda	#STONEY_CRAWLWAY_ENTRANCE_LEFT
	sta	LOCATION

	lda	#DIRECTION_W
	sta	DIRECTION

	jmp	change_location

enter_crawlway_right:
	lda	#STONEY_CRAWLWAY_ENTRANCE_RIGHT
	sta	LOCATION

	lda	#DIRECTION_E
	sta	DIRECTION

	jmp	change_location


	;==========================
	; handle compass room right

view_compass_right:
	lda	CURSOR_X
	cmp	#12
	bcs	goto_compass_right		; blt

goto_left_tunnel:

	lda	#DIRECTION_E
	sta	DIRECTION

	lda	#STONEY_COMPASS_ROOM_LEFT
	sta	LOCATION
	jmp	change_location

goto_compass_right:

	lda	#DIRECTION_W
	sta	DIRECTION

	lda	#STONEY_COMPASS_ROSE_RIGHT
	sta	LOCATION

	jmp	change_location



	;==========================
	; handle compass room left

view_compass_left:
	lda	CURSOR_X
	cmp	#28
	bcc	goto_compass_left		; blt

goto_right_tunnel:

	lda	#DIRECTION_S
	sta	DIRECTION

	lda	#STONEY_COMPASS_ROOM_RIGHT
	sta	LOCATION
	jmp	change_location

goto_compass_left:

	lda	#STONEY_COMPASS_ROSE_LEFT
	sta	LOCATION

	jmp	change_location


	;======================
	; handle umbrella pump buttons

umbrella_buttons:

	lda	CURSOR_X
	cmp	#15
	bcc	left_button_pressed
	cmp	#19
	bcc	center_button_pressed

right_button_pressed:
	; drain lighthouse

	lda	#2
	bne	done_umbrella
left_button_pressed:
	; drain mist tunnel
	lda	#0
	beq	done_umbrella

center_button_pressed:
	; drain room tunnels
	lda	#1

done_umbrella:
	sta	PUMP_STATE
	rts


	;========================
	; handle generator crank
handle_crank:

	inc	CRANK_ANGLE
	lda	CRANK_ANGLE
	and	#$3
	sta	CRANK_ANGLE

	lda	BATTERY_CHARGE
	cmp	#7
	beq	skip_charge

	inc	BATTERY_CHARGE
skip_charge:

	rts


do_draw_umbrella_light:
	lda	DIRECTION
	cmp	#DIRECTION_W
	bne	done_draw_umbrella

	lda	PUMP_STATE
	asl
	asl		; *4
	tay

	lda	#$99	; orange

	sta	$528+15,Y	; page 0
	sta	$928+15,Y	; page 1
			; 15,20
			; 19,20
			; 23,20
done_draw_umbrella:
	rts


do_draw_crank_handle:

	lda	DIRECTION
	cmp	#DIRECTION_W
	bne	done_draw_it

	lda	CRANK_ANGLE
	asl
	tay
	lda	crank_sprites,Y
	sta	INL
	lda	crank_sprites+1,Y
	sta	INH

	lda	#17
	sta	XPOS
	lda	#32
	bne	draw_it

do_draw_battery_level:

	lda	BATTERY_CHARGE
	and	#7
	asl
	tay
	lda	battery_sprites,Y
	sta	INL
	lda	battery_sprites+1,Y
	sta	INH

	lda	#16
	sta	XPOS
	lda	#20
;	bne	draw_it

draw_it:
	sta	YPOS
	jsr	put_sprite_crop
done_draw_it:
	rts

do_animate_magic_table:

	; handle book rising from table

	lda	ANIMATE_FRAME
	asl
	tay
	lda	table_movie,Y
	sta	INL
	lda	table_movie+1,Y
	sta	INH

	lda	#18
	sta	XPOS
	lda	#14
	sta	YPOS

	jsr	put_sprite_crop

	lda	FRAMEL
	and	#$1f
	bne	done_animate_table

	lda	ANIMATE_FRAME
	cmp	#4
	beq	done_animate_table

	inc	ANIMATE_FRAME
done_animate_table:
	rts




crank_sprites:
	.word crank_sprite0,crank_sprite1,crank_sprite2,crank_sprite3

battery_sprites:
	.word battery_sprite0,battery_sprite1,battery_sprite2,battery_sprite3
	.word battery_sprite4,battery_sprite5,battery_sprite6,battery_sprite7

table_movie:
	.word	table_frame0,table_frame1,table_frame2,table_frame3
	.word	table_frame4

table_frame0:
	.byte 5,5
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$dA,$dA,$dA,$dA

table_frame1:
	.byte 5,5
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $dA,$Ad,$dA,$dA,$dA
	.byte $dd,$Ad,$Ad,$Ad,$Ad

table_frame2:
	.byte 5,5
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $Ad,$dd,$dd,$dd,$dd
	.byte $da,$dd,$77,$7d,$da
	.byte $dd,$dd,$77,$dd,$Ad

table_frame3:
	.byte 5,5
	.byte $AA,$dA,$dA,$da,$da
	.byte $AA,$dd,$dd,$dd,$dd
	.byte $AA,$dd,$dd,$dd,$dd
	.byte $AA,$dd,$dd,$dd,$dd
	.byte $AA,$dd,$dd,$dd,$dd

table_frame4:
	.byte 5,5
	.byte $AA,$07,$d7,$d7,$07
	.byte $AA,$00,$dd,$dd,$dd
	.byte $AA,$00,$d5,$d5,$dd
	.byte $AA,$00,$dd,$dd,$dd
	.byte $AA,$00,$dd,$dd,$0d



crank_sprite0:
	.byte 5,5
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$dd,$AA,$AA
	.byte $AA,$AA,$dd,$AA,$AA
	.byte $AA,$11,$AA,$AA,$AA

crank_sprite1:
	.byte 5,5
	.byte $1A,$AA,$AA,$AA,$AA
	.byte $A1,$dA,$dA,$AA,$AA
	.byte $AA,$AA,$ad,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA

crank_sprite2:
	.byte 5,5
	.byte $AA,$AA,$AA,$dA,$11
	.byte $AA,$AA,$dA,$AA,$AA
	.byte $AA,$AA,$Ad,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA

crank_sprite3:
	.byte 5,5
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$AA,$AA,$AA
	.byte $AA,$AA,$Ad,$AA,$AA
	.byte $AA,$AA,$AA,$dA,$1d
	.byte $AA,$AA,$AA,$A1,$AA

battery_sprite0:
	.byte 1,7
	.byte $51,$AA,$AA,$AA,$AA,$AA,$AA

battery_sprite1:
	.byte 1,7
	.byte $51,$AA,$AA,$AA,$AA,$AA,$FF

battery_sprite2:
	.byte 1,7
	.byte $51,$AA,$AA,$AA,$AA,$FF,$FF

battery_sprite3:
	.byte 1,7
	.byte $51,$AA,$AA,$AA,$FF,$FF,$FF

battery_sprite4:
	.byte 1,7
	.byte $51,$AA,$AA,$FF,$FF,$FF,$FF

battery_sprite5:
	.byte 1,7
	.byte $51,$AA,$FF,$FF,$FF,$FF,$FF

battery_sprite6:
	.byte 1,7
	.byte $51,$FF,$FF,$FF,$FF,$FF,$FF

battery_sprite7:
	.byte 1,7
	.byte $5c,$FF,$FF,$FF,$FF,$FF,$FF




;======================================
; 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
	sta	XPOS
	lda	#18
	sta	YPOS

	; left tile

	lda	telescope_angle
	tay
	lda	telescope_tile_lookup,Y
	asl
	tay
	lda	telescope_sprites,Y
	sta	INL
	lda	telescope_sprites+1,Y
	sta	INH
	jsr	put_sprite_crop

	; right tile
	lda	#20
	sta	XPOS
	lda	#18
	sta	YPOS

	lda	telescope_angle
	tay
	iny
	lda	telescope_tile_lookup,Y
	asl
	tay
	lda	telescope_sprites,Y
	sta	INL
	lda	telescope_sprites+1,Y
	sta	INH
	jsr	put_sprite_crop

	; update angle text

	; want normal text
	lda	#$09		; ora
	sta	ps_smc1
	lda	#$80
	sta	ps_smc1+1

	; smc the addresses
	lda	DRAW_PAGE
	clc
	adc	#$7
	sta	dt_smc1+2
	sta	dt_smc2+2
	sta	dt_smc3+2
	sta	dt_smc4+2
	sta	dt_smc5+2
	sta	dt_smc6+2
	sta	dt_smc7+2
	sta	dt_smc8+2
	sta	dt_smc9+2

	lda	telescope_angle
	ror
	bcc	even_angle

odd_angle:
	lda	#<telescope_string_odd
	sta	OUTL
	lda	#>telescope_string_odd
	sta	OUTH
	jsr	move_and_print
	jsr	move_and_print

	; 0 should print      0         10
	; 1 should print          10
	; 2 should prrint    10         20

	lda	telescope_angle
	tax

	cpx	#71
	bne	odd_not_zero

	lda	#' '|$80
dt_smc7:
	sta	$750+21

odd_not_zero:

	inx
	lda	telescope_angle_strings,X
	ora	#$80
dt_smc1:
	sta	$750+19
	lda	telescope_angle_strings+1,X
	ora	#$80
dt_smc2:
	sta	$750+20


	jmp	done_display_telescope

even_angle:
	lda	#<telescope_string_even
	sta	OUTL
	lda	#>telescope_string_even
	sta	OUTH
	jsr	move_and_print
	jsr	move_and_print

	; 0 should print      0         10
	; 1 should print          10
	; 2 should prrint    10         20

	lda	telescope_angle
	and	#$fe
	tax

	bne	not_left_zero

	lda	#' '|$80
dt_smc8:
	sta	$750+17

not_left_zero:
	cpx	#70
	bne	not_right_zero

	lda	#' '|$80
dt_smc9:
	sta	$750+25

not_right_zero:


	lda	telescope_angle_strings,X
	ora	#$80
dt_smc3:
	sta	$750+15
	lda	telescope_angle_strings+1,X
	ora	#$80
dt_smc4:
	sta	$750+16

	inx
	inx
	lda	telescope_angle_strings,X
	ora	#$80
dt_smc5:
	sta	$750+23
	lda	telescope_angle_strings+1,X
	ora	#$80
dt_smc6:
	sta	$750+24


done_display_telescope:
	; restore inverse text
	lda	#$29
	sta	ps_smc1
	lda	#$3f
	sta	ps_smc1+1

	rts


; rotate the telescop
telescope_pan:
	lda	CURSOR_X
	cmp	#20
	bcs	telescope_right


telescope_left:
	dec	telescope_angle
	bpl	done_telescope
	lda	#71
	bne	store_telescope	; bra

telescope_right:
	inc	telescope_angle
	lda	telescope_angle
	cmp	#72
	bne	done_telescope

	lda	#0
store_telescope:
	sta	telescope_angle

done_telescope:
	rts

telescope_string_odd:
	.byte 16,21,"    :    ",0
	.byte 16,22,"     0   ",0

telescope_string_even:
	.byte 16,21,":       :",0
	.byte 16,22," 0       0",0

telescope_angle_strings:
	.byte " 0"
	.byte " 1"
	.byte " 2"
	.byte " 3"
	.byte " 4"
	.byte " 5"
	.byte " 6"
	.byte " 7"
	.byte " 8"
	.byte " 9"
	.byte "10"
	.byte "11"
	.byte "12"
	.byte "13"
	.byte "14"
	.byte "15"
	.byte "16"
	.byte "17"
	.byte "18"
	.byte "19"
	.byte "20"
	.byte "21"
	.byte "22"
	.byte "23"
	.byte "24"
	.byte "25"
	.byte "26"
	.byte "27"
	.byte "28"
	.byte "29"
	.byte "30"
	.byte "31"
	.byte "32"
	.byte "33"
	.byte "34"
	.byte "35"
	.byte " 0"
	.byte " 1"

telescope_angle:
	.byte	$00


telescope_tile_lookup:
	.byte  2, 3, 4, 3, 0, 0		;   0
	.byte  0, 1, 0, 0, 5, 0		;  30
	.byte  6, 7, 0, 8, 9, 0		;  60
	.byte  3,10, 0, 0,11, 0		;  90
	.byte  0, 0,12,13, 0, 3		; 120
	.byte 10, 0, 0, 5, 1, 2		; 150
	.byte 11, 0,14, 0, 2,15		; 180
	.byte  9, 5, 0, 3,16, 0		; 210
	.byte 16, 1, 0, 2,16, 0		; 240
	.byte  4, 0, 0, 0, 0, 0		; 270
	.byte  3, 7, 0, 0, 0, 0		; 300
	.byte  0, 0, 2, 2, 0, 1		; 330
	.byte  2			; 360


telescope_sprites:
	.word telescope_bg0_sprite
	.word telescope_bg1_sprite
	.word telescope_bg2_sprite
	.word telescope_bg3_sprite
	.word telescope_bg4_sprite
	.word telescope_bg5_sprite
	.word telescope_bg6_sprite
	.word telescope_bg7_sprite
	.word telescope_bg8_sprite
	.word telescope_bg9_sprite
	.word telescope_bg10_sprite
	.word telescope_bg11_sprite
	.word telescope_bg12_sprite
	.word telescope_bg13_sprite
	.word telescope_bg14_sprite
	.word telescope_bg15_sprite
	.word telescope_bg16_sprite

telescope_bg0_sprite:
	.byte 1,1
	.byte $aa

telescope_bg1_sprite:
	.byte 3,6
	.byte $ff,$ff,$ff
	.byte $ff,$55,$55
	.byte $ff,$55,$55
	.byte $57,$55,$55
	.byte $55,$55,$55
	.byte $55,$55,$55

telescope_bg2_sprite:
	.byte 3,6
	.byte $ff,$ff,$ff
	.byte $ff,$ff,$ff
	.byte $ff,$ff,$ff
	.byte $67,$67,$67
	.byte $66,$66,$55
	.byte $66,$55,$55

telescope_bg3_sprite:
	.byte 4,6
	.byte $ff,$ff,$5f,$ff
	.byte $ff,$ff,$55,$55
	.byte $ff,$ff,$55,$55
	.byte $67,$67,$55,$55
	.byte $66,$66,$55,$55
	.byte $66,$55,$55,$55

telescope_bg4_sprite:
	.byte 3,6
	.byte $ff,$5f,$ff
	.byte $55,$55,$ff
	.byte $55,$55,$ff
	.byte $55,$55,$67
	.byte $55,$55,$66
	.byte $55,$55,$55

telescope_bg5_sprite:
	.byte 3,7
	.byte $ff,$55,$55
	.byte $ff,$55,$55
	.byte $ff,$55,$55
	.byte $67,$55,$55
	.byte $66,$55,$55
	.byte $66,$55,$55
	.byte $66,$55,$55

telescope_bg6_sprite:
	.byte 4,7
	.byte $ff,$ff,$ff,$55
	.byte $ff,$ff,$ff,$55
	.byte $ff,$ff,$55,$55
	.byte $67,$67,$55,$55
	.byte $66,$55,$55,$55
	.byte $66,$55,$55,$55
	.byte $56,$55,$55,$55

telescope_bg7_sprite:
	.byte 1,7
	.byte $55
	.byte $55
	.byte $55
	.byte $55
	.byte $55
	.byte $55
	.byte $55

telescope_bg8_sprite:
	.byte 4,7
	.byte $77,$77,$ff,$ff
	.byte $77,$77,$ff,$ff
	.byte $77,$77,$ff,$ff
	.byte $77,$77,$67,$55
	.byte $77,$77,$56,$55
	.byte $77,$57,$55,$55
	.byte $57,$55,$55,$55

telescope_bg9_sprite:
	.byte 2,7
	.byte $ff,$ff
	.byte $ff,$ff
	.byte $ff,$ff
	.byte $55,$67
	.byte $55,$66
	.byte $55,$66
	.byte $55,$55

telescope_bg10_sprite:
	.byte 4,6
	.byte $ff,$ff,$ff,$ff
	.byte $5f,$ff,$ff,$ff
	.byte $55,$ff,$7f,$ff
	.byte $55,$67,$77,$67
	.byte $55,$55,$77,$77
	.byte $55,$55,$57,$77


telescope_bg11_sprite:
	.byte 4,7
	.byte $ff,$55,$ff,$5f
	.byte $ff,$55,$00,$55
	.byte $ff,$55,$00,$55
	.byte $67,$55,$00,$55
	.byte $66,$55,$00,$55
	.byte $66,$55,$00,$55
	.byte $66,$55,$00,$55

telescope_bg12_sprite:
	.byte 4,7
	.byte $ff,$ff,$ff,$df
	.byte $ff,$ff,$ff,$ff
	.byte $ff,$ff,$ff,$ee
	.byte $67,$67,$ee,$ee
	.byte $66,$ee,$ee,$ee
	.byte $66,$ee,$ee,$ee
	.byte $e6,$ee,$ee,$ee

telescope_bg13_sprite:
	.byte 4,7
	.byte $df,$ff,$ff,$ff
	.byte $ff,$ff,$ff,$ff
	.byte $ee,$ff,$ff,$ff
	.byte $ee,$ee,$67,$67
	.byte $ee,$ee,$ee,$66
	.byte $ee,$ee,$ee,$66
	.byte $ee,$ee,$ee,$e6

telescope_bg14_sprite:
	.byte 4,7
	.byte $ff,$77,$7f,$77
	.byte $ff,$77,$77,$77
	.byte $ff,$77,$77,$77
	.byte $55,$57,$55,$77
	.byte $55,$55,$55,$77
	.byte $55,$55,$55,$77
	.byte $55,$55,$55,$77

telescope_bg15_sprite:
	.byte 4,7
	.byte $ff,$ff,$ff,$ff
	.byte $ff,$ff,$ff,$ff
	.byte $77,$ff,$ff,$55
	.byte $77,$77,$67,$55
	.byte $77,$77,$55,$55
	.byte $77,$77,$55,$55
	.byte $66,$66,$55,$55

telescope_bg16_sprite:
	.byte 4,6
	.byte $ff,$ff,$ff,$ff
	.byte $55,$ff,$ff,$ff
	.byte $55,$55,$55,$ff
	.byte $55,$55,$55,$67
	.byte $55,$55,$55,$55
	.byte $55,$55,$55,$55