peasant: update the kerrek behavior
This commit is contained in:
parent
b390c96f0a
commit
c14d20ca27
|
@ -85,9 +85,10 @@ Peasant1:
|
||||||
+ update x-coords when walk off screen (fence)
|
+ update x-coords when walk off screen (fence)
|
||||||
+ setup priority wall depending on if fence broken (lo-res box?)
|
+ setup priority wall depending on if fence broken (lo-res box?)
|
||||||
- Kerrek 1
|
- Kerrek 1
|
||||||
+ Implement kerrek
|
+ allow kerrek to hit from left (instead of just right)
|
||||||
|
+ make sure kerrek hit animation doesn't go off screen
|
||||||
+ Implement dead kerrek
|
+ Implement dead kerrek
|
||||||
+ Animate kerrek
|
+ Animate kerrek (more frames)
|
||||||
+ Animate shooting kerrek
|
+ Animate shooting kerrek
|
||||||
+ Sound effect when kerrek appears
|
+ Sound effect when kerrek appears
|
||||||
+ Animate getting belt
|
+ Animate getting belt
|
||||||
|
|
|
@ -223,12 +223,15 @@ kerrek_there:
|
||||||
ora #KERREK_ONSCREEN
|
ora #KERREK_ONSCREEN
|
||||||
sta KERREK_STATE
|
sta KERREK_STATE
|
||||||
|
|
||||||
; play sound
|
; play sting
|
||||||
|
inc kerrek_play_sting
|
||||||
jsr kerrek_warning_music ; could be JMP
|
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; oh kerrek where art thine sting
|
||||||
|
kerrek_play_sting:
|
||||||
|
.byte $00
|
||||||
|
|
||||||
kerrek_alive_not_there:
|
kerrek_alive_not_there:
|
||||||
|
|
||||||
kerrek_not_there:
|
kerrek_not_there:
|
||||||
|
@ -270,13 +273,13 @@ kerrek_row4:
|
||||||
; GEFC?
|
; GEFC?
|
||||||
; GFEC?
|
; GFEC?
|
||||||
kerrek_warning_music:
|
kerrek_warning_music:
|
||||||
lda #48
|
lda #96
|
||||||
sta speaker_duration
|
sta speaker_duration
|
||||||
lda #NOTE_G3
|
lda #NOTE_G3
|
||||||
sta speaker_frequency
|
sta speaker_frequency
|
||||||
jsr speaker_beep
|
jsr speaker_beep
|
||||||
|
|
||||||
lda #24
|
lda #48
|
||||||
sta speaker_duration
|
sta speaker_duration
|
||||||
lda #NOTE_F3
|
lda #NOTE_F3
|
||||||
sta speaker_frequency
|
sta speaker_frequency
|
||||||
|
@ -288,7 +291,7 @@ kerrek_warning_music:
|
||||||
sta speaker_frequency
|
sta speaker_frequency
|
||||||
jsr speaker_beep
|
jsr speaker_beep
|
||||||
|
|
||||||
lda #96
|
lda #192
|
||||||
sta speaker_duration
|
sta speaker_duration
|
||||||
lda #NOTE_C3
|
lda #NOTE_C3
|
||||||
sta speaker_frequency
|
sta speaker_frequency
|
||||||
|
@ -655,11 +658,17 @@ kerrek_got_ya:
|
||||||
|
|
||||||
jsr hgr_draw_sprite
|
jsr hgr_draw_sprite
|
||||||
|
|
||||||
|
|
||||||
|
; bonk sound effect
|
||||||
|
lda #96
|
||||||
|
sta speaker_duration
|
||||||
|
lda #NOTE_C3
|
||||||
|
sta speaker_frequency
|
||||||
|
jsr speaker_beep
|
||||||
|
|
||||||
; wait a bit
|
; wait a bit
|
||||||
|
|
||||||
; FIXME: sound effect
|
lda #2
|
||||||
|
|
||||||
lda #5
|
|
||||||
jsr wait_a_bit
|
jsr wait_a_bit
|
||||||
|
|
||||||
|
|
||||||
|
@ -688,6 +697,21 @@ kerrek_got_ya:
|
||||||
|
|
||||||
jsr hgr_draw_sprite
|
jsr hgr_draw_sprite
|
||||||
|
|
||||||
|
; draw big arm
|
||||||
|
|
||||||
|
lda #<kerrek_r_hitting_arm_down_sprite
|
||||||
|
sta INL
|
||||||
|
lda #>kerrek_r_hitting_arm_down_sprite
|
||||||
|
sta INH
|
||||||
|
lda KERREK_X
|
||||||
|
sta CURSOR_X
|
||||||
|
lda KERREK_Y
|
||||||
|
clc
|
||||||
|
adc #11
|
||||||
|
sta CURSOR_Y
|
||||||
|
|
||||||
|
jsr hgr_draw_sprite
|
||||||
|
|
||||||
lda #5
|
lda #5
|
||||||
jsr wait_a_bit
|
jsr wait_a_bit
|
||||||
|
|
||||||
|
|
|
@ -425,6 +425,16 @@ no_draw_gary_flies:
|
||||||
bmi oops_new_location
|
bmi oops_new_location
|
||||||
bne level_over
|
bne level_over
|
||||||
|
|
||||||
|
|
||||||
|
; oh kerrek where is thine sting
|
||||||
|
; play music sting if needed
|
||||||
|
lda kerrek_play_sting
|
||||||
|
beq no_sting
|
||||||
|
jsr kerrek_warning_music
|
||||||
|
dec kerrek_play_sting
|
||||||
|
no_sting:
|
||||||
|
|
||||||
|
|
||||||
; delay
|
; delay
|
||||||
|
|
||||||
lda #200
|
lda #200
|
||||||
|
|
|
@ -357,6 +357,12 @@ not_ned_cottage:
|
||||||
bmi oops_new_location
|
bmi oops_new_location
|
||||||
bne level_over
|
bne level_over
|
||||||
|
|
||||||
|
; play music sting if needed
|
||||||
|
lda kerrek_play_sting
|
||||||
|
beq no_sting
|
||||||
|
jsr kerrek_warning_music
|
||||||
|
dec kerrek_play_sting
|
||||||
|
no_sting:
|
||||||
|
|
||||||
; delay
|
; delay
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue