2020-07-29 19:34:24 +00:00
|
|
|
|
|
|
|
|
; the sounds
|
|
|
|
|
|
2020-07-30 02:57:54 +00:00
|
|
|
; click button, it goes in, background of yellow/black glows
|
2020-07-29 19:34:24 +00:00
|
|
|
|
|
|
|
|
; #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
|
2020-07-29 21:05:27 +00:00
|
|
|
; flute, water, wind, flame, tick
|
|
|
|
|
|
|
|
|
|
; press with wrong, it flips between in right order, just doesn't
|
|
|
|
|
; display the sound effect name
|
2020-07-29 19:34:24 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
; variables
|
|
|
|
|
; SELENA_BUTTON_STATUS (bitmask)
|
|
|
|
|
; SELENA_ANTENNA_ACTIVE 0..4
|
|
|
|
|
; SELENA_ANTENNA1-5 (value 0..11 for each)
|
|
|
|
|
; SELENA_LOCK1-5
|
|
|
|
|
; SELENA_SUB ????
|
|
|
|
|
|
|
|
|
|
|
2020-07-29 20:03:25 +00:00
|
|
|
;=======================================
|
|
|
|
|
;=======================================
|
|
|
|
|
; handle touching antenna panel
|
|
|
|
|
;=======================================
|
|
|
|
|
;=======================================
|
|
|
|
|
|
|
|
|
|
touch_antenna_panel:
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
; don't click things if already animating
|
|
|
|
|
|
|
|
|
|
lda ANIMATE_FRAME
|
|
|
|
|
beq actually_handle_touch
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
actually_handle_touch:
|
|
|
|
|
|
2020-07-29 20:03:25 +00:00
|
|
|
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
|
2020-07-29 21:05:27 +00:00
|
|
|
cmp #20
|
2020-07-29 20:03:25 +00:00
|
|
|
bcc antenna_nothing ; gap
|
2020-07-29 21:05:27 +00:00
|
|
|
cmp #26
|
2020-07-29 20:03:25 +00:00
|
|
|
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:
|
2020-07-29 21:05:27 +00:00
|
|
|
|
|
|
|
|
; start animation
|
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
sta ANIMATE_FRAME
|
|
|
|
|
sta FRAMEL
|
|
|
|
|
|
|
|
|
|
jsr click_speaker
|
|
|
|
|
|
2020-07-29 20:03:25 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;=======================================
|
|
|
|
|
;=======================================
|
|
|
|
|
; draw the antenna panel
|
|
|
|
|
;=======================================
|
|
|
|
|
;=======================================
|
|
|
|
|
|
2020-07-29 19:34:24 +00:00
|
|
|
draw_antenna_panel:
|
|
|
|
|
|
|
|
|
|
lda SELENA_ANTENNA_ACTIVE
|
2020-07-29 21:05:27 +00:00
|
|
|
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
|
2020-07-29 19:34:24 +00:00
|
|
|
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
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
;======================
|
2020-07-29 19:34:24 +00:00
|
|
|
; draw screen
|
2020-07-29 21:05:27 +00:00
|
|
|
draw_screen:
|
2020-07-29 19:34:24 +00:00
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
lda CURRENT_DISPLAY
|
2020-07-29 19:34:24 +00:00
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
;==========================
|
2020-07-29 19:34:24 +00:00
|
|
|
; print angle
|
|
|
|
|
|
|
|
|
|
; line 21 is at #$650
|
|
|
|
|
|
|
|
|
|
lda #$50
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #$7
|
|
|
|
|
clc
|
|
|
|
|
adc DRAW_PAGE
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
lda CURRENT_DISPLAY
|
2020-07-29 20:03:25 +00:00
|
|
|
tay
|
|
|
|
|
lda SELENA_ANTENNA1,Y
|
|
|
|
|
tay
|
|
|
|
|
|
2020-07-29 19:34:24 +00:00
|
|
|
asl
|
|
|
|
|
asl ; multiply by 4
|
|
|
|
|
tax
|
|
|
|
|
|
2020-07-29 20:03:25 +00:00
|
|
|
ldy #17
|
|
|
|
|
|
2020-07-29 19:34:24 +00:00
|
|
|
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
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
|
|
|
|
|
;===============================
|
2020-07-29 19:34:24 +00:00
|
|
|
; draw sound effect text
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
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
|
2020-07-29 19:34:24 +00:00
|
|
|
|
|
|
|
|
antenna_default_sound:
|
|
|
|
|
|
|
|
|
|
lda #<sound0_static
|
|
|
|
|
sta OUTL
|
|
|
|
|
lda #>sound0_static
|
|
|
|
|
|
|
|
|
|
antenna_print_sound:
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
jsr move_and_print
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
2020-07-29 21:05:27 +00:00
|
|
|
animate_order:
|
|
|
|
|
.byte 3,0,4,1,2
|
2020-07-29 19:34:24 +00:00
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
;===========================
|
|
|
|
|
; draw water background #1
|
|
|
|
|
;===========================
|
|
|
|
|
draw_water_background:
|
2020-07-29 19:34:24 +00:00
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
2020-07-30 05:05:10 +00:00
|
|
|
;===========================
|
|
|
|
|
; 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
|
|
|
|
|
|
|
|
|
|
|
2020-07-30 05:32:39 +00:00
|
|
|
;===========================
|
|
|
|
|
; 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
|
|
|
|
|
|
2020-07-30 05:58:05 +00:00
|
|
|
;===========================
|
|
|
|
|
; 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
|
|
|
|
|
|
|
|
|
|
|
2020-07-30 05:32:39 +00:00
|
|
|
|
|
|
|
|
|
2020-07-30 05:05:10 +00:00
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
;===========================
|
|
|
|
|
; draw tunnel background #5
|
|
|
|
|
;===========================
|
2020-07-30 02:57:54 +00:00
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
;=========================
|
|
|
|
|
; 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2020-07-30 02:57:54 +00:00
|
|
|
;=========================
|
|
|
|
|
; 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
|
|
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
;===============================
|
|
|
|
|
; 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:
|
2020-07-30 02:57:54 +00:00
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
lda #NOTE_D3
|
|
|
|
|
sta speaker_frequency
|
2020-07-30 02:57:54 +00:00
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
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
|
2020-07-30 02:57:54 +00:00
|
|
|
play_tunnel_noise:
|
|
|
|
|
|
|
|
|
|
lda #NOTE_C3
|
|
|
|
|
sta speaker_frequency
|
|
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
lda #15
|
2020-07-30 02:57:54 +00:00
|
|
|
sta speaker_duration
|
|
|
|
|
|
|
|
|
|
jsr speaker_tone
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
2020-07-30 04:07:01 +00:00
|
|
|
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
|
2020-07-29 19:34:24 +00:00
|
|
|
|
2020-07-30 05:05:10 +00:00
|
|
|
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
|
|
|
|
|
|
2020-07-30 05:32:39 +00:00
|
|
|
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
|
|
|
|
|
|
2020-07-30 05:58:05 +00:00
|
|
|
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
|
2020-07-30 05:05:10 +00:00
|
|
|
|
2020-07-30 02:57:54 +00:00
|
|
|
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,$11
|
|
|
|
|
.byte $08,$88,$11,$11,$11,$88,$08,$88,$11
|
2020-07-29 19:34:24 +00:00
|
|
|
|
2020-07-30 14:19:43 +00:00
|
|
|
|
|
|
|
|
; 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
|
|
|
|
|
|
2020-07-31 04:56:40 +00:00
|
|
|
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
|
|
|
|
|
|
2020-07-30 14:19:43 +00:00
|
|
|
; 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 ---> ?
|
|
|
|
|
|
2020-07-31 04:56:40 +00:00
|
|
|
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
|
2020-07-30 14:19:43 +00:00
|
|
|
|
2020-07-31 04:56:40 +00:00
|
|
|
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_controls_pressed:
|
|
|
|
|
|
|
|
|
|
lda CURSOR_X
|
|
|
|
|
cmp #23
|
|
|
|
|
bcs door_button_pressed ; bge
|
|
|
|
|
|
|
|
|
|
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
|
2020-07-30 14:19:43 +00:00
|
|
|
|
2020-07-31 04:56:40 +00:00
|
|
|
red_button_sprite:
|
|
|
|
|
.byte 3,2
|
|
|
|
|
.byte $19,$11,$19
|
|
|
|
|
.byte $91,$11,$91
|
2020-07-31 17:26:55 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;================================
|
|
|
|
|
; tunnel lights
|
|
|
|
|
;================================
|
|
|
|
|
; switch up = lights on
|
|
|
|
|
; switch down = lights off
|
|
|
|
|
; turning one switch also flips other one
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
