tank names on gfx screen when aiming #107

This commit is contained in:
2022-07-09 21:42:30 -04:00
parent 48bfd3824d
commit 541a7566cb
6 changed files with 199 additions and 194 deletions
+121 -118
View File
@@ -1,125 +1,128 @@
.proc talk
L0 dta c"IN TIMES OF TROUBLE, GO WITH WHAT YOU KNOW."
L1 dta c"DIE!"
L2 dta c"EAT MY SHORTS!"
L3 dta c"YOU'RE TOAST!"
L4 dta c"BANZAI!"
L5 dta c"FROM HELL'S HEART I STAB AT THEE..."
L6 dta c"I DIDN'T DO IT. NOBODY SAW ME DO IT."
L7 dta c"TAKE A HIKE!"
L8 dta c"YOU'RE DEAD MEAT."
L9 dta c"MAKE MY DAY."
L10 dta c"CHARGE!"
L11 dta c"ATTACK!"
L12 dta c"YOU'RE OUTTA HERE."
L13 dta c"WATTSA MATTA YOU?"
L14 dta c"FREEZE, OR I'LL SHOOT!"
L15 dta c"HA HA HA."
L16 dta c"WE COME IN PEACE - SHOOT TO KILL!"
L17 dta c"IN YOUR FACE!"
L18 dta c"DIE COMMIE PIG!"
L19 dta c"I LOVE THE SMELL OF NAPALM IN THE MORNING."
L20 dta c"VICTORY!"
L21 dta c"SHOW SOME RESPECT."
L22 dta c"JUST WHO DO YOU THINK YOU ARE?"
L23 dta c"LOOK OUT BELOW!"
L24 dta c"KNOCK, KNOCK."
L25 dta c"LOOK OVER THERE."
L26 dta c"GUESS WHAT'S COMING FOR DINNER?"
L27 dta c"MERRY CHRISTMAS."
L28 dta c"OPEN WIDE!"
L29 dta c"HERE GOES NOTHING..."
L30 dta c"DON'T WORRY, IT ISN'T A LIVE ROUND."
L31 dta c"BLOOD, PAIN, VIOLENCE!"
L32 dta c"TAKE THIS, SISSY!"
L33 dta c"I SHALL FLATTEN YOU!"
L34 dta c"I SHALL SMASH YOUR UGLY TANK!"
L35 dta c"I WONDER WHAT THIS BUTTON DOES?"
L36 dta c"DON'T TAKE THIS PERSONALLY."
L37 dta c"WOULD THIS MAKE YOU MAD?"
L38 dta c"I TOLD YOU TO LEAVE MY SISTER ALONE!"
L39 dta c"I COULD SPARE YOU, BUT WHY?"
L40 dta c"MY BOMB IS BIGGER THAN YOURS."
L41 dta c"DON'T FORGET ABOUT ME!"
L42 dta c"HASTA LA VISTA, BABY!"
L43 dta c"THIS IS YOUR BRAIN ON SCORCH."
L44 dta c"TAKE THIS!"
L45 dta c"THIS SCREEN AIN'T BIG ENOUGH FOR THE BOTH OF US."
L46 dta c"DIE, ALIEN SWINE!"
L47 dta c"SAY ARRGGHHHHH...."
L48 dta c"I SHALL OIL MY TURRET WITH YOUR BLOOD."
L49 dta c"DIE, TANK-SCUM!"
L50 dta c"I'M GONNA BREAK YOUR FACE!"
L51 dta c"MAMA SAID KNOCK YOU OUT!"
L52 dta c"I HOPE YOU ENJOY PAIN!"
L0 dta d"IN TIMES OF TROUBLE, GO WITH WHAT YOU KNOW."
L1 dta d"DIE!"
L2 dta d"EAT MY SHORTS!"
L3 dta d"YOU'RE TOAST!"
L4 dta d"BANZAI!"
L5 dta d"FROM HELL'S HEART I STAB AT THEE..."
L6 dta d"I DIDN'T DO IT. NOBODY SAW ME DO IT."
L7 dta d"TAKE A HIKE!"
L8 dta d"YOU'RE DEAD MEAT."
L9 dta d"MAKE MY DAY."
L10 dta d"CHARGE!"
L11 dta d"ATTACK!"
L12 dta d"YOU'RE OUTTA HERE."
L13 dta d"WATTSA MATTA YOU?"
L14 dta d"FREEZE, OR I'LL SHOOT!"
L15 dta d"HA HA HA."
L16 dta d"WE COME IN PEACE - SHOOT TO KILL!"
L17 dta d"IN YOUR FACE!"
L18 dta d"DIE COMMIE PIG!"
L19 dta d"I LOVE THE SMELL OF NAPALM IN THE MORNING."
L20 dta d"VICTORY!"
L21 dta d"SHOW SOME RESPECT."
L22 dta d"JUST WHO DO YOU THINK YOU ARE?"
L23 dta d"LOOK OUT BELOW!"
L24 dta d"KNOCK, KNOCK."
L25 dta d"LOOK OVER THERE."
L26 dta d"GUESS WHAT'S COMING FOR DINNER?"
L27 dta d"MERRY CHRISTMAS."
L28 dta d"OPEN WIDE!"
L29 dta d"HERE GOES NOTHING..."
L30 dta d"DON'T WORRY, IT ISN'T A LIVE ROUND."
L31 dta d"BLOOD, PAIN, VIOLENCE!"
L32 dta d"TAKE THIS, SISSY!"
L33 dta d"I SHALL FLATTEN YOU!"
L34 dta d"I SHALL SMASH YOUR UGLY TANK!"
L35 dta d"I WONDER WHAT THIS BUTTON DOES?"
L36 dta d"DON'T TAKE THIS PERSONALLY."
L37 dta d"WOULD THIS MAKE YOU MAD?"
L38 dta d"I TOLD YOU TO LEAVE MY SISTER ALONE!"
L39 dta d"I COULD SPARE YOU, BUT WHY?"
L40 dta d"MY BOMB IS BIGGER THAN YOURS."
L41 dta d"DON'T FORGET ABOUT ME!"
L42 dta d"HASTA LA VISTA, BABY!"
L43 dta d"THIS IS YOUR BRAIN ON SCORCH."
L44 dta d"TAKE THIS!"
L45 dta d"THIS SCREEN AIN'T BIG ENOUGH FOR THE BOTH OF US."
L46 dta d"DIE, ALIEN SWINE!"
L47 dta d"SAY ARRGGHHHHH...."
L48 dta d"I SHALL OIL MY TURRET WITH YOUR BLOOD."
L49 dta d"DIE, TANK-SCUM!"
L50 dta d"I'M GONNA BREAK YOUR FACE!"
L51 dta d"MAMA SAID KNOCK YOU OUT!"
L52 dta d"I HOPE YOU ENJOY PAIN!"
;--------------------------------
L53 dta c"PARTING IS SUCH SWEET SORROW... NOT!"
L54 dta c"UGH!"
L55 dta c"AARGH!"
L56 dta c"AAAGGHHH!"
L57 dta c"I'M MELTING!"
L58 dta c"OOF.."
L59 dta c"OH!"
L60 dta c"EEEK!"
L61 dta c"AACCH!"
L62 dta c"I HATE IT WHEN THAT HAPPENS."
L63 dta c"ONE DIRECT HIT CAN RUIN YOUR WHOLE DAY."
L64 dta c"OH NO!"
L65 dta c"NOT ME!"
L66 dta c"OUCH."
L67 dta c"OH NO, NOT AGAIN."
L68 dta c"ANOTHER ONE BITES THE DUST."
L69 dta c"GOODBYE."
L70 dta c"HELP ME!"
L71 dta c"FAREWELL, CRUEL WORLD."
L72 dta c"REMEMBER THE ALAMO!"
L73 dta c"OH MAN!"
L74 dta c"DOOUGH!"
L75 dta c"ANOTHER DAY, ANOTHER BOMB."
L76 dta c"THIS IS THE END, MY ONLY FRIEND."
L77 dta c"IT'S ALL OVER."
L78 dta c"THE FAT LADY SANG."
L79 dta c"WHY DOES EVERYTHING HAPPEN TO ME?"
L80 dta c"I'M GOING DOWN."
L81 dta c"I'VE GOT A BAD FEELING ABOUT THIS."
L82 dta c"CRAPOLA."
L83 dta c"POW!"
L84 dta c"BIF!"
L85 dta c"BAM!"
L86 dta c"ZONK!"
L87 dta c"I SHOULD'VE LISTENED TO MY MOTHER..."
L88 dta c"NO... A BUD LIGHT!"
L89 dta c"WHAT WAS THAT NOISE?"
L90 dta c"MAMA SAID THERE'D BE DAYS LIKE THIS."
L91 dta c"ITS JUST ONE OF THOSE DAYS..."
L92 dta c"I SEE A BRIGHT LIGHT..."
L93 dta c"MOMMY? IS THAT YOU?"
L94 dta c"I LET YOU HIT ME!"
L95 dta c"SUCKER SHOT!"
L96 dta c"I DIDN'T WANT TO LIVE ANYWAY."
L97 dta c"-<SOB>-"
L98 dta c"WAS THAT AS CLOSE AS I THINK IT WAS?"
L99 dta c"JOIN THE ARMY, SEE THE WORLD THEY SAID."
L100 dta c"IT WASN'T JUST A JOB IT WAS AN ADVENTURE!"
L101 dta c"I DIDN'T LIKE VIOLENCE ANYWAY!"
L102 dta c"I THOUGHT YOU LIKED ME?"
L103 dta c"SUCH SENSELESS VIOLENCE! I DON'T UNDERSTAND IT."
L104 dta c"I THINK THIS GUY'S A LITTLE CRAZY."
L105 dta c"SOMEHOW I DON'T FEEL LIKE KILLING ANYMORE."
L106 dta c"HEY! KILLIN' AIN'T COOL."
L107 dta c"GEE... THANKS."
L108 dta c"I'VE FALLEN AND I CAN'T GET UP!"
L109 dta c"911?"
L110 dta c"OH NO! HERE I BLOW AGAIN!"
L111 dta c"I'LL BE BACK..."
L112 dta c"HEY - I'VE GOT LAWYERS."
L113 dta c"TIME TO CALL 1-900-SUE-TANK."
L53 dta d"PARTING IS SUCH SWEET SORROW... NOT!"
L54 dta d"UGH!"
L55 dta d"AARGH!"
L56 dta d"AAAGGHHH!"
L57 dta d"I'M MELTING!"
L58 dta d"OOF.."
L59 dta d"OH!"
L60 dta d"EEEK!"
L61 dta d"AACCH!"
L62 dta d"I HATE IT WHEN THAT HAPPENS."
L63 dta d"ONE DIRECT HIT CAN RUIN YOUR WHOLE DAY."
L64 dta d"OH NO!"
L65 dta d"NOT ME!"
L66 dta d"OUCH."
L67 dta d"OH NO, NOT AGAIN."
L68 dta d"ANOTHER ONE BITES THE DUST."
L69 dta d"GOODBYE."
L70 dta d"HELP ME!"
L71 dta d"FAREWELL, CRUEL WORLD."
L72 dta d"REMEMBER THE ALAMO!"
L73 dta d"OH MAN!"
L74 dta d"DOOUGH!"
L75 dta d"ANOTHER DAY, ANOTHER BOMB."
L76 dta d"THIS IS THE END, MY ONLY FRIEND."
L77 dta d"IT'S ALL OVER."
L78 dta d"THE FAT LADY SANG."
L79 dta d"WHY DOES EVERYTHING HAPPEN TO ME?"
L80 dta d"I'M GOING DOWN."
L81 dta d"I'VE GOT A BAD FEELING ABOUT THIS."
L82 dta d"CRAPOLA."
L83 dta d"POW!"
L84 dta d"BIF!"
L85 dta d"BAM!"
L86 dta d"ZONK!"
L87 dta d"I SHOULD'VE LISTENED TO MY MOTHER..."
L88 dta d"NO... A BUD LIGHT!"
L89 dta d"WHAT WAS THAT NOISE?"
L90 dta d"MAMA SAID THERE'D BE DAYS LIKE THIS."
L91 dta d"ITS JUST ONE OF THOSE DAYS..."
L92 dta d"I SEE A BRIGHT LIGHT..."
L93 dta d"MOMMY? IS THAT YOU?"
L94 dta d"I LET YOU HIT ME!"
L95 dta d"SUCKER SHOT!"
L96 dta d"I DIDN'T WANT TO LIVE ANYWAY."
L97 dta d"-<SOB>-"
L98 dta d"WAS THAT AS CLOSE AS I THINK IT WAS?"
L99 dta d"JOIN THE ARMY, SEE THE WORLD THEY SAID."
L100 dta d"IT WASN'T JUST A JOB IT WAS AN ADVENTURE!"
L101 dta d"I DIDN'T LIKE VIOLENCE ANYWAY!"
L102 dta d"I THOUGHT YOU LIKED ME?"
L103 dta d"SUCH SENSELESS VIOLENCE! I DON'T UNDERSTAND IT."
L104 dta d"I THINK THIS GUY'S A LITTLE CRAZY."
L105 dta d"SOMEHOW I DON'T FEEL LIKE KILLING ANYMORE."
L106 dta d"HEY! KILLIN' AIN'T COOL."
L107 dta d"GEE... THANKS."
L108 dta d"I'VE FALLEN AND I CAN'T GET UP!"
L109 dta d"911?"
L110 dta d"OH NO! HERE I BLOW AGAIN!"
L111 dta d"I'LL BE BACK..."
L112 dta d"HEY - I'VE GOT LAWYERS."
L113 dta d"TIME TO CALL 1-900-SUE-TANK."
LEND
OffensiveTextTableL
dta <L0,<L1,<L2,<L3,<L4,<L5,<L6,<L7,<L8,<L9,<L10,<L11,<L12,<L13,<L14,<L15,<L16,<L17,<L18,<L19,<L20,<L21,<L22,<L23,<L24,<L25,<L26,<L27,<L28,<L29,<L30,<L31,<L32,<L33,<L34,<L35,<L36,<L37,<L38,<L39,<L40,<L41,<L42,<L43,<L44,<L45,<L46,<L47,<L48,<L49,<L50,<L51,<L52,<L53,<L54,<L55,<L56,<L57,<L58,<L59,<L60,<L61,<L62,<L63,<L64,<L65,<L66,<L67,<L68,<L69,<L70,<L71,<L72,<L73,<L74,<L75,<L76,<L77,<L78,<L79,<L80,<L81,<L82,<L83,<L84,<L85,<L86,<L87,<L88,<L89,<L90,<L91,<L92,<L93,<L94,<L95,<L96,<L97,<L98,<L99,<L100,<L101,<L102,<L103,<L104,<L105,<L106,<L107,<L108,<L109,<L110,<L111,<L112,<L113
dta <L0,<L1,<L2,<L3,<L4,<L5,<L6,<L7,<L8,<L9,<L10,<L11,<L12,<L13,<L14,<L15,<L16,<L17,<L18,<L19,<L20,<L21,<L22,<L23,<L24,<L25,<L26,<L27,<L28,<L29,<L30,<L31,<L32,<L33,<L34,<L35,<L36,<L37,<L38,<L39,<L40,<L41,<L42,<L43,<L44,<L45,<L46,<L47,<L48,<L49,<L50,<L51,<L52
dta <L53,<L54,<L55,<L56,<L57,<L58,<L59,<L60,<L61,<L62,<L63,<L64,<L65,<L66,<L67,<L68,<L69,<L70,<L71,<L72,<L73,<L74,<L75,<L76,<L77,<L78,<L79,<L80,<L81,<L82,<L83,<L84,<L85,<L86,<L87,<L88,<L89,<L90,<L91,<L92,<L93,<L94,<L95,<L96,<L97,<L98,<L99,<L100,<L101,<L102,<L103,<L104,<L105,<L106,<L107,<L108,<L109,<L110,<L111,<L112,<L113
dta <LEND
OffensiveTextTableH
dta >L0,>L1,>L2,>L3,>L4,>L5,>L6,>L7,>L8,>L9,>L10,>L11,>L12,>L13,>L14,>L15,>L16,>L17,>L18,>L19,>L20,>L21,>L22,>L23,>L24,>L25,>L26,>L27,>L28,>L29,>L30,>L31,>L32,>L33,>L34,>L35,>L36,>L37,>L38,>L39,>L40,>L41,>L42,>L43,>L44,>L45,>L46,>L47,>L48,>L49,>L50,>L51,>L52,>L53,>L54,>L55,>L56,>L57,>L58,>L59,>L60,>L61,>L62,>L63,>L64,>L65,>L66,>L67,>L68,>L69,>L70,>L71,>L72,>L73,>L74,>L75,>L76,>L77,>L78,>L79,>L80,>L81,>L82,>L83,>L84,>L85,>L86,>L87,>L88,>L89,>L90,>L91,>L92,>L93,>L94,>L95,>L96,>L97,>L98,>L99,>L100,>L101,>L102,>L103,>L104,>L105,>L106,>L107,>L108,>L109,>L110,>L111,>L112,>L113
OffensiveTextLengths
dta 43,4,14,13,7,35,37,12,17,12,7,7,18,17,22,9,33,13,15,42,8,18,30,15,13,16,31,16,10,20,35,22,17,20,29,31,27,24,36,27,29,22,21,29,10,48,17,20,38,15,26,24,22,36,4,6,9,12,5,3,5,6,28,39,6,7,5,17,27,8,8,22,19,7,7,26,32,14,18,33,15,34,8,4,4,4,5,36,18,20,36,29,23,19,17,12,29,7,36,39,41,30,23,48,34,42,25,14,31,4,26,15,23,28
dta >L0,>L1,>L2,>L3,>L4,>L5,>L6,>L7,>L8,>L9,>L10,>L11,>L12,>L13,>L14,>L15,>L16,>L17,>L18,>L19,>L20,>L21,>L22,>L23,>L24,>L25,>L26,>L27,>L28,>L29,>L30,>L31,>L32,>L33,>L34,>L35,>L36,>L37,>L38,>L39,>L40,>L41,>L42,>L43,>L44,>L45,>L46,>L47,>L48,>L49,>L50,>L51,>L52
dta >L53,>L54,>L55,>L56,>L57,>L58,>L59,>L60,>L61,>L62,>L63,>L64,>L65,>L66,>L67,>L68,>L69,>L70,>L71,>L72,>L73,>L74,>L75,>L76,>L77,>L78,>L79,>L80,>L81,>L82,>L83,>L84,>L85,>L86,>L87,>L88,>L89,>L90,>L91,>L92,>L93,>L94,>L95,>L96,>L97,>L98,>L99,>L100,>L101,>L102,>L103,>L104,>L105,>L106,>L107,>L108,>L109,>L110,>L111,>L112,>L113
dta >LEND
NumberOfOffensiveTexts=54
NumberOfDeffensiveTexts=60
.endp
-48
View File
@@ -1,48 +0,0 @@
import sys
from string import strip
lineCount = 0
lengths = []
alltexts = []
for line in open("TALK1.txt"):
lineCount+=1
line = strip(line)
lengths.append(len(line))
alltexts.append(line)
off = lineCount
for line in open("TALK2.txt"):
lineCount+=1
line = strip(line)
lengths.append(len(line))
alltexts.append(line)
tmpNo = 0
for line in alltexts:
print ("L"+str(tmpNo)+' dta "'+line+'"')
tmpNo+= 1
l=""
for i in range(0,lineCount):
l+="<L"+str(i)+","
l=l[:-1]
print ("OffensiveTextTableL")
print (" dta "+l)
l=""
for i in range(0,lineCount):
l+=">L"+str(i)+","
l=l[:-1]
print ("OffensiveTextTableH")
print (" dta "+l)
l=""
for i in range(0,lineCount):
l+=str(lengths[i])+","
l=l[:-1]
print ("OffensiveTextLengths")
print (" dta "+l)
deff = lineCount-off
print ("NumberOfOffensiveTexts="+str(off))
print ("NumberOfDeffensiveTexts="+str(deff))
+1 -3
View File
@@ -89,7 +89,7 @@ dl ; MAIN game display list
.by $0f+$80 ; DLI (black to end);1
:38 .byte $0f ;35 ..... = 200
.by $4f
.wo LastLine ; additional line of ground
.wo EmptyLine ; additional line of ground
.byte $41
.word dl
;-----------------------------------------------
@@ -143,8 +143,6 @@ purchaseActivate
dta d" - Finish "
EmptyLine
dta d" "
LastLine
:40 dta $00
; -------------------------------------------------
.ALIGN $1000 ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
NameScreen
BIN
View File
Binary file not shown.
+71 -24
View File
@@ -1320,26 +1320,27 @@ nineplus dta d"9"+1
space dta d" "
;--------------------------------------------------------
.proc DisplayOffensiveTextNr ;
;This routine displays texts using PutChar4x4
;pretty cool, eh
.proc Display4x4AboveTank ;
; Displays texts using PutChar4x4 above tank and mountains.
; Pretty cool, eh!
;parameters are:
;Y - number of tank above which text is displayed
;TextNumber - number of offensive text to display
;fx - length of text
;textAddress - address of the text
;lets calculate position of the text first!
;that's easy because we have number of tank
;and xtankstableL and H keep X position of a given tank
;save vars (messed when printing...)
lda xtankstableL,y
sta temp
lda xtankstableH,y
sta temp+1
;now we should substract length of the text
ldx TextNumberOff
lda talk.OffensiveTextLengths,x
;now we should substract length of the text-1
ldy fx
dey
tya
asl
sta temp2
mva #0 temp2+1
@@ -1350,7 +1351,7 @@ space dta d" "
;stored in temp2
sbw temp temp2 ; here begin of the text is in TEMP !!!!
;now we should check overflows
lda temp+1
;lda temp+1 ; opty
bpl DOTNnotLessThanZero
;less than zero, so should be zero
mwa #0 temp
@@ -1360,7 +1361,7 @@ DOTNnotLessThanZero
;so check if end larger than screenwidth
lda talk.OffensiveTextLengths,x
lda fx
asl
asl
;length in pixels -
@@ -1381,7 +1382,7 @@ DOTNnotLessThanZero
;then screenwidth - length is fine
lda talk.OffensiveTextLengths,x
lda fx
asl
asl
sta temp
@@ -1401,7 +1402,7 @@ DOTNnoOverflow
;now let's get y position
;we will try to put text as low as possible
;just above mountains (so mountaintable will be checked)
lda talk.OffensiveTextLengths,x
lda fx
asl
asl
tay
@@ -1433,19 +1434,13 @@ DOTOldLowestValue
sbc #(4+9) ;9 pixels above ground (and tanks...)
sta TextPositionY
lda talk.OffensiveTextTableL,x
sta TextAddress
lda talk.OffensiveTextTableH,x
sta TextAddress+1
mva #0 TextCounter
DOTNcharloop
mwa TextAddress temp
DOTNcharloop
ldy TextCounter
lda (temp),y
SEC
sbc #32 ;conversion from ASCII to .sbyte
and #$3f ;always CAPITAL letters
sta CharCode4x4
lda TextCounter
@@ -1462,13 +1457,65 @@ DOTNcharloop
jsr PutChar4x4
inc TextCounter
ldx TextNumberOff
lda talk.OffensiveTextLengths,x
lda fx
cmp TextCounter
bne DOTNcharloop
rts
.endp
;--------------------------------------------------------
.proc DisplayOffensiveTextNr ;
ldx TextNumberOff
lda talk.OffensiveTextTableL,x
sta TextAddress
lda talk.OffensiveTextTableH,x
sta TextAddress+1
inx ; the next text
lda talk.OffensiveTextTableH,x
sta temp+1
lda talk.OffensiveTextTableL,x
sta temp ; opty possible
; substract address of the next text from previous to get text length
sbw temp TextAddress temp2
mva temp2 fx
jsr Display4x4AboveTank
rts
.endp
;--------------------------------------------------------
.proc DisplayTankNameAbove ;
lda tankNr
:3 asl ; *8
clc
adc #<TanksNames
sta temp ; TextAddress
lda #0
adc #>Tanksnames
sta temp+1 ; TextAddress+1
mwa temp TextAddress
;find length of the tank's name
ldy #0
@
lda (temp),y
beq end_found
iny
cpy #8
bne @-
dey
end_found
iny
sty fx
ldy tankNr
jsr Display4x4AboveTank
rts
.endp
;-------------------------------
.proc TypeLine4x4 ;
;-------------------------------
@@ -1479,6 +1526,7 @@ DOTNcharloop
ldy #0
sty LineCharNr
mva #1 plot4x4color
TypeLine4x4Loop
ldy LineCharNr
@@ -1491,7 +1539,6 @@ TypeLine4x4Loop
sta CharCode4x4
mwa LineXdraw dx
mva LineYdraw dy
mva #1 plot4x4color
jsr PutChar4x4 ;type empty pixels as well!
adw LineXdraw #4
inc LineCharNr
+6 -1
View File
@@ -1111,7 +1111,6 @@ ToHighFill
jne RepeatFill
rts
.endp
;--------------------------------------------------
.proc BeforeFire ;TankNr (byte)
;--------------------------------------------------
@@ -1146,6 +1145,9 @@ ContinueToCheckMaxForce2
wait ; best after drawing a tank
mva #1 plot4x4color
jsr DisplayTankNameAbove
;keyboard reading
; KBCODE keeps code of last keybi
@@ -1392,6 +1394,9 @@ pressedS
pressedSpace
;=================================
;we shoot here!!!
mva #0 plot4x4color
jsr DisplayTankNameAbove
mva #0 pressTimer ; reset
jsr WaitForKeyRelease
lda pressTimer