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
NumberOfDeffensiveTexts=60
.endp
hoverFull dta d"MY HOVERCRAFT IS FULL OF EELS!"
hoverFull dta d"MY HOVERCRAFT IS FULL OF EELS!", $ff
hoverFullEnd
hoverEmpty dta d"RUNNING OUT OF EELS"
hoverEmpty dta d"RUNNING OUT OF EELS", $ff
hoverEmptyEnd
+2 -2
View File
@@ -134,7 +134,7 @@
.zpvar HowToDraw .byte
.zpvar gravity .byte
.zpvar LineLength .word
.zpvar LineAddress4x4 .word
;.zpvar LineAddress4x4 .word
.zpvar tracerflag .byte
.zpvar isInventory .byte
.zpvar DifficultyLevel .byte
@@ -146,7 +146,7 @@
.zpvar RMT_Zero_Page_V .byte
displayposition = modify
LineAddress4x4 = temp
;-------------------------------
BIN
View File
Binary file not shown.
+7 -3
View File
@@ -1582,18 +1582,22 @@ end_found
.proc TypeLine4x4 ;
;-------------------------------
;this routine prints line ending with $ff
;address in LineAddress4x4
;address in LineAddress4x4 (it is the same as `temp`)
;starting from LineXdraw, LineYdraw
lda #1
staplot4x4color
sta plot4x4color
ldy #0
sty LineCharNr
mva #1 plot4x4color
TypeLine4x4Loop
ldy LineCharNr
mwa LineAddress4x4 temp
;mwa LineAddress4x4 temp ; LineAddress4x4 === temp
lda (temp),y
cmp #$ff
beq EndOfTypeLine4x4
+23
View File
@@ -2428,6 +2428,11 @@ InverseScreenByte
; 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.
; now animate Up
mva #0 FloatingAlt ; now it's a counter
@@ -2465,6 +2470,12 @@ ReachSky
jsr DrawTankRocketEngine
; 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
;keyboard reading
@@ -2481,6 +2492,12 @@ KeyboardAndJoyCheck
nop
; 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
; let's animate "engine"
@@ -2736,6 +2753,12 @@ ItIsMe
GoDown
; 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
clc