Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-20 03:35:24 +00:00
Code Issues Projects Releases Wiki Activity
c831602aba
dos33fsprogs/ootw/ootw_c1_arrival.s

730 lines
10 KiB
ArmAsm
Raw Normal View History

ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
; Ootw Checkpoint1 -- arriving with a splash
ootw_c1_arrival:
;===========================
; Enable graphics
bit LORES
bit SET_GR
bit FULLGR
;===========================
; Setup pages (is this necessary?)
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
;=============================
; Load background to $c00
lda #>(underwater_rle)
sta GBASH
lda #<(underwater_rle)
sta GBASL
lda #$c ; load image off-screen $c00
jsr load_rle_gr
;=================================
; do intro flash
jsr do_flash
;=================================
; setup vars
lda #0
sta GAME_OVER
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
sta GAIT
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
lda #20
sta BUBBLES_Y
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
sta CONSOLE_Y
sta PHYSICIST_Y
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
lda #17
sta PHYSICIST_X
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
bit KEYRESET ; clear keypress
ootw: monster ai
2019-07-30 21:03:43 +00:00
; reset tentacle monster
lda #46
sta tentacle_ypos
sta tentacle_ypos+1
sta tentacle_ypos+2
sta tentacle_ypos+3
sta tentacle_ypos+4
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;============================
; Underwater Loop
;============================
underwater_loop:
;================================
; copy background to current page
;================================
jsr gr_copy_to_current
;=======================
; draw Surface ripple
;=======================
ootw: surface ripples
2019-07-28 04:09:30 +00:00
jsr draw_surface_ripple
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;======================
; draw console
;======================
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
lda #16
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
sta XPOS
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
lda CONSOLE_Y
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
sta YPOS
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
lda #<console_sprite
sta INL
lda #>console_sprite
sta INH
jsr put_sprite_crop
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;=================================
; draw physicist
;=================================
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
lda PHYSICIST_X
sta XPOS
lda PHYSICIST_Y
ootw: surface ripples
2019-07-28 04:09:30 +00:00
and #$fe
sta YPOS
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
ldy GAIT
lda swim_progression,Y
sta INL
lda swim_progression+1,Y
sta INH
jsr put_sprite_crop
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;======================
; draw monster
;======================
ootw: monster ai
2019-07-30 21:03:43 +00:00
jsr draw_tentacle_monster
jsr move_tentacle_monster
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;======================
; draw bubbles
;======================
lda BUBBLES_Y
cmp #2
bcc no_draw_bubbles ; blt
sta YPOS
lda #17
sta XPOS
lda #<bubbles_sprite
sta INL
lda #>bubbles_sprite
sta INH
jsr put_sprite_crop
no_draw_bubbles:
;===============================
; check keyboard
;===============================
lda KEYPRESS
bpl underwater_done_keyboard
cmp #27+$80
beq underwater_escape
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
cmp #'A'+$80
beq uw_left_pressed
cmp #8+$80
beq uw_left_pressed
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
cmp #'D'+$80
beq uw_right_pressed
cmp #$15+$80
beq uw_right_pressed
cmp #'W'+$80
beq uw_up_pressed
cmp #$0B+$80
beq uw_up_pressed
cmp #'S'+$80
beq uw_down_pressed
cmp #$0A+$80
beq uw_down_pressed
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
jmp underwater_done_keyboard
underwater_escape:
lda #$ff
sta GAME_OVER
bne underwater_done_keyboard ; bra
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
uw_left_pressed:
dec PHYSICIST_X
jmp underwater_done_keyboard
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
uw_right_pressed:
inc PHYSICIST_X
jmp underwater_done_keyboard
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
uw_up_pressed:
dec PHYSICIST_Y
jmp underwater_done_keyboard
uw_down_pressed:
inc PHYSICIST_Y
jmp underwater_done_keyboard
underwater_done_keyboard:
bit KEYRESET
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;=================================
; move things
;=================================
;===================
; move bubbles
;===================
lda FRAMEL
and #$f
bne no_move_bubbles
ldx BUBBLES_Y
beq no_move_bubbles
dex
dex
stx BUBBLES_Y
no_move_bubbles:
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
;===================
; move console
;===================
lda FRAMEL
and #$1f
bne no_move_console
ldx CONSOLE_Y
ootw: fix some issues from last night
2019-07-29 15:38:48 +00:00
cpx #48
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
bcs no_move_console ; bge
inx
inx
stx CONSOLE_Y
no_move_console:
;===================
; move physicist
;===================
; gradually pull you down
lda FRAMEL
and #$f
bne no_move_swim
lda GAIT
clc
adc #$2
and #$f
sta GAIT
no_move_swim:
lda FRAMEL
and #$1f
bne no_move_physicist
ldx PHYSICIST_Y
cpx #34
ootw: fix wrong jump
2019-07-27 23:30:52 +00:00
bcs no_move_physicist ; bge
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
ootw: monster ai
2019-07-30 21:03:43 +00:00
; temporarily disable for monster debugging
; inx
; inx
; stx PHYSICIST_Y
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
no_move_physicist:
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;===============
; page flip
jsr page_flip
;================
; inc frame count
inc FRAMEL
bne underwater_frame_no_oflo
inc FRAMEH
underwater_frame_no_oflo:
;==========================
; check if done this level
;==========================
lda GAME_OVER
cmp #$ff
beq done_underwater
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
; check if leaving the pool
lda PHYSICIST_Y
cmp #$FE
beq done_underwater
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
; loop forever
jmp underwater_loop
done_underwater:
rts
ootw: surface ripples
2019-07-28 04:09:30 +00:00
;==============================
; draw surface ripple
;==============================
draw_surface_ripple:
lda #8
sta XPOS
lda #0
sta YPOS
lda FRAMEL
and #$60
lsr
lsr
lsr
lsr
tay
lda ripple_progression,Y
sta INL
lda ripple_progression+1,Y
sta INH
jsr put_sprite_crop
rts
ripple_progression:
.word ripple1_sprite
.word ripple2_sprite
.word ripple3_sprite
.word ripple4_sprite
ripple1_sprite:
.byte 24,1
.byte $26,$22,$66,$6E,$2E,$6E,$25,$25,$66,$6E,$6E,$66
.byte $66,$66,$66,$5E,$2F,$2F,$6F,$66,$66,$66,$26,$26
ripple2_sprite:
.byte 24,1
.byte $26,$22,$66,$6E,$2E,$6E,$25,$65,$66,$6E,$2E,$66
.byte $66,$66,$26,$5E,$2F,$2F,$2F,$66,$66,$26,$26,$26
ripple3_sprite:
.byte 24,1
.byte $26,$22,$66,$6E,$2E,$6E,$65,$65,$66,$2E,$2E,$66
.byte $66,$66,$66,$5E,$2F,$2F,$2F,$26,$66,$26,$26,$26
ripple4_sprite:
.byte 24,1
.byte $26,$22,$66,$6E,$6E,$6E,$65,$65,$25,$2E,$6E,$66
.byte $66,$66,$26,$5E,$2F,$2F,$2F,$66,$66,$26,$26,$26
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
bubbles_sprite:
.byte 5,2
.byte $6A,$AA,$A6,$7A,$6A
.byte $AA,$AA,$A6,$AA,$AA
ootw: more underwater you can sorta swim now, and the console sinks
2019-07-26 05:01:21 +00:00
console_sprite:
.byte 6,5
.byte $AA,$A5,$55,$5A,$AA,$AA
.byte $AA,$AA,$00,$05,$05,$AA
.byte $5A,$05,$00,$00,$00,$55
.byte $AA,$A5,$55,$00,$00,$55
.byte $AA,$AA,$A5,$A0,$A0,$A5
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;============================
; Do Flash
;============================
do_flash:
lda #0
sta FRAMEL
;============================
; Flash Loop
;============================
flash_loop:
;================================
; Handle Flash
;================================
lda FRAMEL
cmp #180
bcc no_flash ; blt
cmp #182
bcc first_flash
bcs second_flash
first_flash:
; Load background to $1000
lda #>(uboot_flash1_rle)
sta GBASH
lda #<(uboot_flash1_rle)
sta GBASL
lda #$10 ; load image off-screen $c00
jsr load_rle_gr
jsr gr_overlay
jmp check_flash_done
second_flash:
; Load background to $1000
lda #>(uboot_flash2_rle)
sta GBASH
lda #<(uboot_flash2_rle)
sta GBASL
lda #$10 ; load image off-screen $c00
jsr load_rle_gr
jsr gr_overlay
jmp check_flash_done
no_flash:
;================================
; copy background to current page
;================================
jsr gr_copy_to_current
ootw: update sprites
2019-07-29 13:05:27 +00:00
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;=======================
; draw Surface ripple
;=======================
ootw: surface ripples
2019-07-28 04:09:30 +00:00
jsr draw_surface_ripple
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;=======================
; draw Overall ripple
;=======================
ootw: update sprites
2019-07-29 13:05:27 +00:00
check_flash_done:
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
;===============
; page flip
jsr page_flip
;================
; inc frame count
inc FRAMEL
bne flash_frame_no_oflo
inc FRAMEH
flash_frame_no_oflo:
;==========================
; check if done this level
;==========================
lda FRAMEL
cmp #184
beq done_flash
; loop forever
jmp flash_loop
done_flash:
rts
ootw: monster ai
2019-07-30 21:03:43 +00:00
;======================
;======================
; move tentacle monster
;======================
;======================
move_tentacle_monster:
lda FRAMEL
and #$7
bne no_move_tentacle
ldx #0
jsr random16
lda SEEDL
sta MONSTER_AI
move_tentacle_monster_loop:
ror MONSTER_AI
lda MONSTER_AI
and #$2
eor #$ff
sec
adc tentacle_ypos,X
sta tentacle_ypos,X
; bne random_not_move
; dec tentacle_ypos,X
random_not_move:
inc tentacle_gait,X
lda tentacle_gait,X
and #$7
sta tentacle_gait,X
inx
cpx #5
bne move_tentacle_monster_loop
no_move_tentacle:
rts
;======================
;======================
; draw tentacle monster
;======================
;======================
draw_tentacle_monster:
ldx #0
draw_tentacle_monster_loop:
jsr draw_one_tentacle
inx
cpx #5
bne draw_tentacle_monster_loop
rts
tentacle_xpos:
.byte 10,15,20,25,30
tentacle_ypos:
.byte 46,46,46,46,46
tentacle_gait:
.byte 0,5,2,7,4
;======================
;======================
; draw one tentacle
;======================
;======================
draw_one_tentacle:
; #1
lda tentacle_xpos,X
sta XPOS
lda tentacle_ypos,X
and #$fe
sta YPOS
ldy tentacle_gait,X
lda tentacle_monster_progress_lo,Y
sta INL
lda tentacle_monster_progress_hi,Y
sta INH
txa
pha
jsr put_sprite_crop
pla
tax
rts
tentacle_monster_progress_lo:
.byte <tentacle_sprite1
.byte <tentacle_sprite2
.byte <tentacle_sprite3
.byte <tentacle_sprite4
.byte <tentacle_sprite5
.byte <tentacle_sprite6
.byte <tentacle_sprite7
.byte <tentacle_sprite8
tentacle_monster_progress_hi:
.byte >tentacle_sprite1
.byte >tentacle_sprite2
.byte >tentacle_sprite3
.byte >tentacle_sprite4
.byte >tentacle_sprite5
.byte >tentacle_sprite6
.byte >tentacle_sprite7
.byte >tentacle_sprite8
tentacle_sprite1:
.byte 3,8
.byte $55,$AA,$AA
.byte $55,$AA,$AA
.byte $55,$AA,$AA
.byte $A5,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
tentacle_sprite2:
.byte 3,8
.byte $55,$AA,$AA
.byte $55,$5A,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
tentacle_sprite3:
.byte 3,8
.byte $A5,$5A,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
tentacle_sprite4:
.byte 3,8
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
tentacle_sprite5:
.byte 3,8
.byte $AA,$5A,$A5
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
ootw: monster ai
2019-07-30 21:03:43 +00:00
tentacle_sprite6:
.byte 3,8
.byte $AA,$5A,$A5
.byte $AA,$55,$AA
.byte $AA,$AA,$55
.byte $AA,$AA,$55
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
tentacle_sprite7:
.byte 3,8
.byte $5A,$A5,$AA
.byte $55,$AA,$AA
.byte $AA,$55,$AA
.byte $AA,$5A,$55
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
tentacle_sprite8:
.byte 3,8
.byte $AA,$55,$AA
.byte $55,$AA,$AA
.byte $55,$AA,$AA
.byte $A5,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
.byte $AA,$55,$AA
ootw: start work on underwater scene
2019-07-25 21:09:44 +00:00
Reference in New Issue Copy Permalink