mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-20 22:33:43 +02:00
WIP: my hovercraft is full of eels
This commit is contained in:
+2
-2
@@ -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
@@ -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
Binary file not shown.
+7
-3
@@ -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
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user