Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-08 16:30:38 +00:00
Code Issues Projects Releases Wiki Activity

ootw: c2: more elevator

Browse Source
This commit is contained in:
Vince Weaver 2019-07-11 11:28:30 -04:00
parent a746be4fe8
commit 1996ad5f90
1 changed files with 35 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
ootw/ootw_c2_elevator.s
View File

@ -38,10 +38,10 @@ ootw_elevator:
elevator4: elevator4:
lda #(-4+128) lda #(-4+128)
sta LEFT_LIMIT sta LEFT_LIMIT
lda #(30+128) lda #(21+128)
sta RIGHT_LIMIT sta RIGHT_LIMIT
; set right exit ; set left exit
lda #3 lda #3
sta eel_smc+1 sta eel_smc+1
@ -72,13 +72,15 @@ elevator_setup_done:
lda #0 lda #0
sta GAIT sta GAIT
sta GAME_OVER
;============================ ;============================
; Elevator Loop ; Elevator Loop
;============================ ;============================
elevator_loop: elevator_loop:
lda #0
sta GAME_OVER
;================================ ;================================
; copy background to current page ; copy background to current page
@ -87,16 +89,28 @@ elevator_loop:
;================================ ;================================
; draw elevator ; draw elevator
lda #17 lda #16
sta XPOS sta XPOS
lda #32 lda #32
sta YPOS sta YPOS
lda #<elevator_sprite lda FRAMEL
and #$10
bne elevator_anim2
lda #<elevator_sprite1
sta INL sta INL
lda #>elevator_sprite lda #>elevator_sprite1
sta INH
jmp draw_elevator
elevator_anim2:
lda #<elevator_sprite2
sta INL
lda #>elevator_sprite2
sta INH sta INH
draw_elevator:
jsr put_sprite_crop jsr put_sprite_crop
@ -152,14 +166,16 @@ elevator_frame_no_oflo:
cmp #1 cmp #1
beq elevator_exit_left beq elevator_exit_left
; exit to right ; exit to right ???
; it's never possible to exit right from an elevator screen
elevator_exit_right: elevator_exit_right:
lda #0 lda #0
sta PHYSICIST_STATE
lda RIGHT_LIMIT
sec
sbc #$81
sta PHYSICIST_X sta PHYSICIST_X
eer_smc: jmp still_in_elevator
lda #$0
sta WHICH_CAVE
jmp done_elevator
elevator_exit_left: elevator_exit_left:
lda #37 lda #37
@ -241,9 +257,14 @@ elevator_fb_c:
elevator_sprite: elevator_sprite1:
.byte $8,$1 .byte 10,1
.byte $25,$25,$25,$25,$25,$25,$25,$25 .byte $5A,$25,$25,$25,$25,$25,$25,$25,$25,$A5
elevator_sprite2:
.byte 10,1
.byte $A5,$25,$25,$25,$25,$25,$25,$25,$25,$5A
; low/high nothing ; low/high nothing
; high/low xBxxxxxx ; high/low xBxxxxxx