ootw: split slugs into own file

This commit is contained in:
Vince Weaver 2019-01-19 23:51:58 -05:00
parent 563f263e24
commit dc29dc5cc8
3 changed files with 266 additions and 1 deletions

View File

@ -17,7 +17,7 @@ OOTW: ootw.o
ootw.o: ootw.s \
gr_copy.s gr_fast_clear.s gr_pageflip.s gr_unrle.s gr_putsprite.s \
keyboard.s \
keyboard.s sluggy.s \
ootw_rope.s \
ootw_pool.s ootw_cavern.s physicist.s random16.s slug_cutscene.s \
ootw_pool.inc \

View File

@ -119,6 +119,7 @@ end_message:
.include "ootw_pool.s"
.include "ootw_cavern.s"
.include "physicist.s"
.include "sluggy.s"
.include "text_print.s"
.include "gr_pageflip.s"
.include "gr_unrle.s"

264
ootw/sluggy.s Normal file
View File

@ -0,0 +1,264 @@
; Sluggy Freelance
;==================================
; draw slugs
;==================================
; outstate 0=dead 1=normal 2=dieing 3=falling
slugg0_out: .byte 1 ; 0
slugg0_attack: .byte 0 ; 1
slugg0_dieing: .byte 0 ; 2
slugg0_x: .byte 30 ; 3
slugg0_dir: .byte $ff ; 4
slugg0_gait: .byte 0 ; 5
slugg1_out: .byte 1 ; 6
slugg1_attack: .byte 0
slugg1_dieing: .byte 0
slugg1_x: .byte 30
slugg1_dir: .byte $ff
slugg1_gait: .byte 0
slugg2_out: .byte 1
slugg2_attack: .byte 0
slugg2_dieing: .byte 0
slugg2_x: .byte 30
slugg2_dir: .byte $ff
slugg2_gait: .byte 0
draw_slugs:
ldx #0
stx WHICH_SLUG
draw_slugs_loop:
ldx WHICH_SLUG
lda slugg0_out,X
bne check_kicked ; don't draw if not there
jmp slug_done
check_kicked:
lda slugg0_out,X ; only kick if normal
cmp #1
bne check_attack
;==================
; see if kicked
lda KICKING
beq check_attack
lda PHYSICIST_X
sec
sbc slugg0_x,X ; -4 to +4
clc
adc #4
and #$f8
bne not_kicked
kicked:
lda #2
sta slugg0_out,X
lda #10
sta slugg0_dieing,X
lda DIRECTION
sta slugg0_dir,X
not_kicked:
check_attack:
;==================
; see if attack
lda slugg0_out,X
cmp #1
bne no_attack
lda PHYSICIST_X
sec
sbc slugg0_x,X ; -2 to +2
clc
adc #2
and #$fc
bne no_attack
attack:
;=================
; start an attack
lda #1
sta slugg0_attack,X
lda SLUGDEATH ; don't re-attack if already dead
bne no_attack
lda #$1
sta SLUGDEATH
lda #0
sta SLUGDEATH_PROGRESS
stx WHICH_SLUG
jsr slug_cutscene
ldx WHICH_SLUG
no_attack:
inc slugg0_gait,X ; increment slug gait counter
lda slugg0_gait,X ; only move every 64 frames
and #$3f
cmp #$00
bne slug_no_move
slug_move:
lda slugg0_x,X
clc
adc slugg0_dir,X
sta slugg0_x,X
slug_check_right:
cmp #37
bne slug_check_left
jmp remove_slug
slug_check_left:
cmp #0
bne slug_no_move
jmp remove_slug
slug_no_move:
;===============================
;===============================
; DRAW SLUG
;===============================
;===============================
;==============
; if exploding
;==============
lda slugg0_dieing,X
beq check_draw_attacking
slug_exploding:
stx WHICH_SLUG
tax ; urgh can't forget tax
lda slug_die_progression,X
sta INL
lda slug_die_progression+1,X
sta INH
ldx WHICH_SLUG
bit SPEAKER
lda FRAMEL
and #$f
bne no_progress
bit SPEAKER
dec slugg0_dieing,X
dec slugg0_dieing,X
bne no_progress
jmp remove_slug
no_progress:
jmp slug_selected
;==============
; if attacking
;==============
check_draw_attacking:
lda slugg0_attack,X
beq slug_normal
slug_attacking:
lda slugg0_gait,X
stx WHICH_SLUG
and #$70
lsr
lsr
lsr
tax
lda slug_attack_progression,X
sta INL
lda slug_attack_progression+1,X
sta INH
ldx WHICH_SLUG
jmp slug_selected
;==============
; if normal
;==============
slug_normal:
lda slugg0_gait,X
and #$20
beq slug_squinched
slug_flat:
lda #<slug1
sta INL
lda #>slug1
sta INH
bne slug_selected
slug_squinched:
lda #<slug2
sta INL
lda #>slug2
sta INH
;================
; end slug normal
;================
slug_selected:
lda slugg0_x,X
sta XPOS
lda #30
sec
sbc EARTH_OFFSET
sta YPOS
lda slugg0_dir,X
stx WHICH_SLUG
bmi slug_right
slug_left:
jsr put_sprite
jmp slug_done
slug_right:
jsr put_sprite_flipped
slug_done:
lda WHICH_SLUG
clc
adc #6
tax
stx WHICH_SLUG
cpx #18
beq slug_exit
jmp draw_slugs_loop
slug_exit:
rts
remove_slug:
lda #0
sta slugg0_out,X
jmp slug_done