WIP: my hovercraft is full of eels

This commit is contained in:
2022-08-21 01:11:58 -04:00
parent ed3952e89e
commit 132f2afd67
5 changed files with 34 additions and 7 deletions
+2 -2
View File
@@ -127,7 +127,7 @@ OffensiveTextTableH
NumberOfOffensiveTexts=54 NumberOfOffensiveTexts=54
NumberOfDeffensiveTexts=60 NumberOfDeffensiveTexts=60
.endp .endp
hoverFull dta d"MY HOVERCRAFT IS FULL OF EELS!" hoverFull dta d"MY HOVERCRAFT IS FULL OF EELS!", $ff
hoverFullEnd hoverFullEnd
hoverEmpty dta d"RUNNING OUT OF EELS" hoverEmpty dta d"RUNNING OUT OF EELS", $ff
hoverEmptyEnd hoverEmptyEnd
+2 -2
View File
@@ -134,7 +134,7 @@
.zpvar HowToDraw .byte .zpvar HowToDraw .byte
.zpvar gravity .byte .zpvar gravity .byte
.zpvar LineLength .word .zpvar LineLength .word
.zpvar LineAddress4x4 .word ;.zpvar LineAddress4x4 .word
.zpvar tracerflag .byte .zpvar tracerflag .byte
.zpvar isInventory .byte .zpvar isInventory .byte
.zpvar DifficultyLevel .byte .zpvar DifficultyLevel .byte
@@ -146,7 +146,7 @@
.zpvar RMT_Zero_Page_V .byte .zpvar RMT_Zero_Page_V .byte
displayposition = modify displayposition = modify
LineAddress4x4 = temp
;------------------------------- ;-------------------------------
BIN
View File
Binary file not shown.
+7 -3
View File
@@ -1582,18 +1582,22 @@ end_found
.proc TypeLine4x4 ; .proc TypeLine4x4 ;
;------------------------------- ;-------------------------------
;this routine prints line ending with $ff ;this routine prints line ending with $ff
;address in LineAddress4x4 ;address in LineAddress4x4 (it is the same as `temp`)
;starting from LineXdraw, LineYdraw ;starting from LineXdraw, LineYdraw
lda #1
staplot4x4color
sta plot4x4color
ldy #0 ldy #0
sty LineCharNr sty LineCharNr
mva #1 plot4x4color
TypeLine4x4Loop TypeLine4x4Loop
ldy LineCharNr ldy LineCharNr
mwa LineAddress4x4 temp ;mwa LineAddress4x4 temp ; LineAddress4x4 === temp
lda (temp),y lda (temp),y
cmp #$ff cmp #$ff
beq EndOfTypeLine4x4 beq EndOfTypeLine4x4
+23
View File
@@ -2427,6 +2427,11 @@ InverseScreenByte
mva #sfx_plasma_2_2 sfx_effect mva #sfx_plasma_2_2 sfx_effect
; display text 4x4 - fuel full ; display text 4x4 - fuel full
mwa #hoverFull LineAddress4x4
mwa #((ScreenWidth/2)-((hoverFullEnd-hoverFull)*2)) LineXdraw ; centering
mva #4 LineYdraw
jsr TypeLine4x4
; TankNr in X reg. ; TankNr in X reg.
; now animate Up ; now animate Up
@@ -2465,6 +2470,12 @@ ReachSky
jsr DrawTankRocketEngine jsr DrawTankRocketEngine
; display text 4x4 - fuel full (clear text) ; display text 4x4 - fuel full (clear text)
mwa #hoverFull LineAddress4x4
mwa #((ScreenWidth/2)-((hoverFullEnd-hoverFull)*2)) LineXdraw ; centering
mva #4 LineYdraw
lda #0
jsr TypeLine4x4.staplot4x4color
; check keyboard/joy and move tank left/right - code copied from BeforeFire ; check keyboard/joy and move tank left/right - code copied from BeforeFire
;keyboard reading ;keyboard reading
@@ -2481,6 +2492,12 @@ KeyboardAndJoyCheck
nop nop
; display text 4x4 - low fuel ; display text 4x4 - low fuel
mwa #hoverEmpty LineAddress4x4
mwa #((ScreenWidth/2)-((hoverEmptyEnd-hoverEmpty)*2)) LineXdraw ; centering
mva #4 LineYdraw
;lda #0
jsr TypeLine4x4 ;.staplot4x4color
notpressed notpressed
; let's animate "engine" ; let's animate "engine"
@@ -2736,6 +2753,12 @@ ItIsMe
GoDown GoDown
; display text 4x4 - low fuel (clear text) ; display text 4x4 - low fuel (clear text)
mwa #hoverEmpty LineAddress4x4
mwa #((ScreenWidth/2)-((hoverEmptyEnd-hoverEmpty)*2)) LineXdraw ; centering
mva #4 LineYdraw
lda #0
jsr TypeLine4x4.staplot4x4color
mwa #mountaintable temp mwa #mountaintable temp
clc clc