Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-13 19:05:15 +00:00
Code Issues Projects Releases Wiki Activity

tfv: allow landing by pressing return over grass

Browse Source
This commit is contained in:
Vince Weaver 2017-11-17 16:54:29 -05:00
parent efdcf2bada
commit 6d5b75d918
1 changed files with 55 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
tfv/tfv_flying.s
View File

@ -94,11 +94,11 @@ flying_keyboard:
lda LASTKEY
cmp #('Q') ; if quit, then return
bne skipskip
rts
; cmp #('Q') ; if quit, then return
; bne skipskip
; rts
skipskip:
;skipskip:
cmp #('W')
bne check_down
@ -222,6 +222,57 @@ check_land:
; LAND
;=====
; finds value in space_x.i,space_y.i
; returns color in A
lda CX_I
sta SPACEX_I
lda CY_I
sta SPACEY_I
jsr lookup_map
cmp #COLOR_BOTH_LIGHTGREEN
bne landing_message
landing_loop:
jsr draw_background_mode7
; Draw Shadow
lda #>shadow_forward
sta INH
lda #<shadow_forward
sta INL
lda #(SHIPX+3)
sta XPOS
clc
lda SPACEZ_I
adc #31
and #$fe ; make sure it's even
sta YPOS
jsr put_sprite
lda #>ship_forward
sta INH
lda #<ship_forward
sta INL
lda #SHIPX
sta XPOS
lda SHIPY
sta YPOS
jsr put_sprite
jsr page_flip
dec SPACEZ_I
bpl landing_loop
rts ; finish flying
landing_message:
check_help:
cmp #('H')
@ -231,7 +282,6 @@ check_help:
; HELP
;=====
check_done:
;================