Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-16 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity

tfv: flight turning

Browse Source
This commit is contained in:
Vince Weaver 2017-09-11 15:58:23 -04:00
parent 6f1ece4a0e
commit e907b00c6e
1 changed files with 72 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
tfv/tfv_flying.s
View File

@ -130,7 +130,19 @@ check_left:
; LEFT PRESSED ; LEFT PRESSED
;============= ;=============
inc TURNING lda TURNING
bmi turn_left
beq turn_left
lda #$0
sta TURNING
clv
bvc check_right
turn_left:
lda #253 ; -3
sta TURNING
dec ANGLE dec ANGLE
check_right: check_right:
@ -141,7 +153,17 @@ check_right:
; RIGHT PRESSED ; RIGHT PRESSED
;============== ;==============
dec TURNING lda TURNING ;; FIXME: optimize me
bpl turn_right
lda #0
sta TURNING
clv
bvc check_speedup
turn_right:
lda #3
sta TURNING
inc ANGLE inc ANGLE
check_speedup: check_speedup:
@ -270,10 +292,24 @@ draw_background:
clv clv
lda TURNING lda TURNING
bmi draw_ship_right beq draw_ship_forward
bne draw_ship_left bpl draw_ship_right
bmi draw_ship_left ;; FIXME: optimize order
draw_ship_forward: draw_ship_forward:
; Draw Shadow
lda #>shadow_forward
sta INH
lda #<shadow_forward
sta INL
lda #(SHIPX+3)
sta XPOS
clc
lda SPACEZ_I
adc #31
sta YPOS
jsr put_sprite
lda #>ship_forward lda #>ship_forward
sta INH sta INH
lda #<ship_forward lda #<ship_forward
@ -281,6 +317,22 @@ draw_ship_forward:
bvc draw_ship bvc draw_ship
draw_ship_right: draw_ship_right:
dec TURNING
; Draw Shadow
lda #>shadow_right
sta INH
lda #<shadow_right
sta INL
lda #(SHIPX+3)
sta XPOS
clc
lda SPACEZ_I
adc #31
sta YPOS
jsr put_sprite
lda #>ship_right lda #>ship_right
sta INH sta INH
lda #<ship_right lda #<ship_right
@ -288,6 +340,22 @@ draw_ship_right:
bvc draw_ship bvc draw_ship
draw_ship_left: draw_ship_left:
inc TURNING
; Draw Shadow
lda #>shadow_left
sta INH
lda #<shadow_left
sta INL
lda #(SHIPX+3)
sta XPOS
clc
lda SPACEZ_I
adc #31
sta YPOS
jsr put_sprite
lda #>ship_left lda #>ship_left
sta INH sta INH
lda #<ship_left lda #<ship_left