GameOver screen optimization and return of Tab in weapon selection :)

This commit is contained in:
Pecusx
2022-10-25 10:03:04 +02:00
parent 89d6f4834b
commit 11592414a8
4 changed files with 7 additions and 7 deletions
+2 -2
View File
@@ -213,13 +213,13 @@ GameOverDL
.byte $70,$40 .byte $70,$40
.byte $47 ; 16 gr8 lines .byte $47 ; 16 gr8 lines
.word GameOverTitle .word GameOverTitle
.byte $60 ; 7 lines down to match new sprite position ; .byte $60 ; 7 lines down to match new sprite position
.byte $4f ; 1 line .byte $4f ; 1 line
.word display+(40*72) .word display+(40*72)
:28 .byte $0f ; 28 lines :28 .byte $0f ; 28 lines
.byte $0f+$80 .byte $0f+$80
.byte $4f ; 1 line .byte $4f ; 1 line
.word display+(40*32) .word display+(40*(32-7)) ;7 lines up to match new sprite position
:30 .byte $0f ; 30 lines :30 .byte $0f ; 30 lines
.byte $0f+$80 ; 1 line .byte $0f+$80 ; 1 line
.byte $4f ; 1 line .byte $4f ; 1 line
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+5 -5
View File
@@ -398,7 +398,7 @@ ChoosingItemForPurchase
jsr getkey jsr getkey
bit escFlag bit escFlag
spl:jmp WaitForKeyRelease ; like jsr ... : rts spl:jmp WaitForKeyRelease ; like jsr ... : rts
cmp #@kbcode._esc ; $2c ; Tab cmp #@kbcode._tab ; $2c ; Tab
jeq ListChange jeq ListChange
cmp #@kbcode._left ; $06 ; cursor left cmp #@kbcode._left ; $06 ; cursor left
jeq ListChange jeq ListChange
@@ -2139,7 +2139,7 @@ MainTanksFloatingLoop
AllTanksFloatingDown AllTanksFloatingDown
stx TankNr stx TankNr
lda Ytankstable,x lda Ytankstable,x
cmp #72 ; tank under screen - no erase cmp #(72-7) ; tank under screen - no erase
bcs NoEraseTank bcs NoEraseTank
mva #1 Erase mva #1 Erase
jsr DrawTankNr jsr DrawTankNr
@@ -2154,9 +2154,9 @@ NoEraseTank
NotFastTank NotFastTank
lda Ytankstable,x lda Ytankstable,x
; cmp #32 ; tank over screen - not visible ; cmp #32 ; tank over screen - not visible
cmp #80 ; tank under screen - new tank randomize cmp #(80-7) ; tank under screen - new tank randomize
bcs TankUnderScreen bcs TankUnderScreen
cmp #72 ; tank under screen but.... parachute cmp #(72-7) ; tank under screen but.... parachute
bcs DrawOnlyParachute bcs DrawOnlyParachute
bcc TankOnScreen bcc TankOnScreen
TankUnderScreen TankUnderScreen
@@ -2177,7 +2177,7 @@ FastTank
jsr GameOverResultsClear jsr GameOverResultsClear
rts rts
RandomizeTankPos RandomizeTankPos
randomize 10 32 ; 10 not 8 - barrel !! :) randomize 10 (32-7) ; 10 not 8 - barrel !! :)
sta Ytankstable,x sta Ytankstable,x
randomize 0 180 randomize 0 180
sta AngleTable,x sta AngleTable,x