mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-16 17:55:09 +00:00
tfv: allow landing by pressing return over grass
This commit is contained in:
parent
efdcf2bada
commit
6d5b75d918
@ -94,11 +94,11 @@ flying_keyboard:
|
|||||||
|
|
||||||
lda LASTKEY
|
lda LASTKEY
|
||||||
|
|
||||||
cmp #('Q') ; if quit, then return
|
; cmp #('Q') ; if quit, then return
|
||||||
bne skipskip
|
; bne skipskip
|
||||||
rts
|
; rts
|
||||||
|
|
||||||
skipskip:
|
;skipskip:
|
||||||
|
|
||||||
cmp #('W')
|
cmp #('W')
|
||||||
bne check_down
|
bne check_down
|
||||||
@ -222,6 +222,57 @@ check_land:
|
|||||||
; 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:
|
check_help:
|
||||||
cmp #('H')
|
cmp #('H')
|
||||||
@ -231,7 +282,6 @@ check_help:
|
|||||||
; HELP
|
; HELP
|
||||||
;=====
|
;=====
|
||||||
|
|
||||||
|
|
||||||
check_done:
|
check_done:
|
||||||
|
|
||||||
;================
|
;================
|
||||||
|
Loading…
Reference in New Issue
Block a user