Propaganda works

This commit is contained in:
Pecusx
2024-01-27 16:12:52 +01:00
parent 0c83afc9c0
commit c51b0b8659
4 changed files with 20 additions and 7 deletions
+1
View File
@@ -21,6 +21,7 @@
dta d"TAKE A HIKE!"^ dta d"TAKE A HIKE!"^
dta d"MAKE MY DAY."^ dta d"MAKE MY DAY."^
dta d"KNOCK, KNOCK."^ dta d"KNOCK, KNOCK."^
; end of Propaganda :)
dta d"FROM HELL'S HEART I STAB AT THEE..."^ dta d"FROM HELL'S HEART I STAB AT THEE..."^
dta d"DO YOU FEEL LUCKY, TANK?"^ dta d"DO YOU FEEL LUCKY, TANK?"^
dta d"YOU'RE OUTTA HERE."^ dta d"YOU'RE OUTTA HERE."^
+7 -5
View File
@@ -1648,7 +1648,12 @@ notZero
sta temp sta temp
lda xtankstableH,y lda xtankstableH,y
sta temp+1 sta temp+1
AboveTemp jsr Calculate4x4TextPosition
jmp TypeLine4x4.noLengthNoColor ; rts
.endp
;--------------------------------------------------------
.proc Calculate4x4TextPosition
; we have X coordinate of center of text in temp ; we have X coordinate of center of text in temp
; now we should substract length of the text-1 ; now we should substract length of the text-1
; temp2 = (fx-1)*2 ; temp2 = (fx-1)*2
@@ -1746,11 +1751,8 @@ DOTOldLowestValue
lda temp2 lda temp2
sbc #(4+9) ;9 pixels above ground (and tanks...) sbc #(4+9) ;9 pixels above ground (and tanks...)
sta LineYdraw sta LineYdraw
rts
jmp TypeLine4x4.noLengthNoColor ; rts
.endp .endp
;-------------------------------------------------------- ;--------------------------------------------------------
.proc DisplayTankNameAbove ; TankNr in X .proc DisplayTankNameAbove ; TankNr in X
txa ; TankNr txa ; TankNr
BIN
View File
Binary file not shown.
+12 -2
View File
@@ -382,7 +382,10 @@ GoRiotBomb
; ------------------------ ; ------------------------
.proc propaganda .proc propaganda
; propaganda ; propaganda
jsr SetFullScreenSoilRange ; to change lda #36 ; (max propaganda text lenght [17+1] * 4 pixels) / 2
sta ExplosionRadius
jsr CalculateExplosionRange
mwa xdraw tempXROLLER ; save X coordinate of texts mwa xdraw tempXROLLER ; save X coordinate of texts
; all text start from `talk` and end with an inverse. ; all text start from `talk` and end with an inverse.
; we go through the `talk`, count number of inverses. ; we go through the `talk`, count number of inverses.
@@ -408,7 +411,14 @@ nexttext
sty fx sty fx
mwa tempXROLLER temp mwa tempXROLLER temp
jsr Display4x4AboveTank.AboveTemp jsr Calculate4x4TextPosition
lda random
and #%00001111
adc LineYdraw
sbc #8
sta LineYdraw
jsr TypeLine4x4.noLengthNoColor
ldy #15 ldy #15
jsr PauseYFrames jsr PauseYFrames