tank names on gfx screen when aiming #107

artwork/talk.asm

@@ -1,125 +1,128 @@
 .proc talk
-L0 dta c"IN TIMES OF TROUBLE, GO WITH WHAT YOU KNOW."
+L0   dta d"IN TIMES OF TROUBLE, GO WITH WHAT YOU KNOW."
-L1 dta c"DIE!"
+L1   dta d"DIE!"
-L2 dta c"EAT MY SHORTS!"
+L2   dta d"EAT MY SHORTS!"
-L3 dta c"YOU'RE TOAST!"
+L3   dta d"YOU'RE TOAST!"
-L4 dta c"BANZAI!"
+L4   dta d"BANZAI!"
-L5 dta c"FROM HELL'S HEART I STAB AT THEE..."
+L5   dta d"FROM HELL'S HEART I STAB AT THEE..."
-L6 dta c"I DIDN'T DO IT.  NOBODY SAW ME DO IT."
+L6   dta d"I DIDN'T DO IT. NOBODY SAW ME DO IT."
-L7 dta c"TAKE A HIKE!"
+L7   dta d"TAKE A HIKE!"
-L8 dta c"YOU'RE DEAD MEAT."
+L8   dta d"YOU'RE DEAD MEAT."
-L9 dta c"MAKE MY DAY."
+L9   dta d"MAKE MY DAY."
-L10 dta c"CHARGE!"
+L10  dta d"CHARGE!"
-L11 dta c"ATTACK!"
+L11  dta d"ATTACK!"
-L12 dta c"YOU'RE OUTTA HERE."
+L12  dta d"YOU'RE OUTTA HERE."
-L13 dta c"WATTSA MATTA YOU?"
+L13  dta d"WATTSA MATTA YOU?"
-L14 dta c"FREEZE, OR I'LL SHOOT!"
+L14  dta d"FREEZE, OR I'LL SHOOT!"
-L15 dta c"HA HA HA."
+L15  dta d"HA HA HA."
-L16 dta c"WE COME IN PEACE - SHOOT TO KILL!"
+L16  dta d"WE COME IN PEACE - SHOOT TO KILL!"
-L17 dta c"IN YOUR FACE!"
+L17  dta d"IN YOUR FACE!"
-L18 dta c"DIE COMMIE PIG!"
+L18  dta d"DIE COMMIE PIG!"
-L19 dta c"I LOVE THE SMELL OF NAPALM IN THE MORNING."
+L19  dta d"I LOVE THE SMELL OF NAPALM IN THE MORNING."
-L20 dta c"VICTORY!"
+L20  dta d"VICTORY!"
-L21 dta c"SHOW SOME RESPECT."
+L21  dta d"SHOW SOME RESPECT."
-L22 dta c"JUST WHO DO YOU THINK YOU ARE?"
+L22  dta d"JUST WHO DO YOU THINK YOU ARE?"
-L23 dta c"LOOK OUT BELOW!"
+L23  dta d"LOOK OUT BELOW!"
-L24 dta c"KNOCK, KNOCK."
+L24  dta d"KNOCK, KNOCK."
-L25 dta c"LOOK OVER THERE."
+L25  dta d"LOOK OVER THERE."
-L26 dta c"GUESS WHAT'S COMING FOR DINNER?"
+L26  dta d"GUESS WHAT'S COMING FOR DINNER?"
-L27 dta c"MERRY CHRISTMAS."
+L27  dta d"MERRY CHRISTMAS."
-L28 dta c"OPEN WIDE!"
+L28  dta d"OPEN WIDE!"
-L29 dta c"HERE GOES NOTHING..."
+L29  dta d"HERE GOES NOTHING..."
-L30 dta c"DON'T WORRY, IT ISN'T A LIVE ROUND."
+L30  dta d"DON'T WORRY, IT ISN'T A LIVE ROUND."
-L31 dta c"BLOOD, PAIN, VIOLENCE!"
+L31  dta d"BLOOD, PAIN, VIOLENCE!"
-L32 dta c"TAKE THIS, SISSY!"
+L32  dta d"TAKE THIS, SISSY!"
-L33 dta c"I SHALL FLATTEN YOU!"
+L33  dta d"I SHALL FLATTEN YOU!"
-L34 dta c"I SHALL SMASH YOUR UGLY TANK!"
+L34  dta d"I SHALL SMASH YOUR UGLY TANK!"
-L35 dta c"I WONDER WHAT THIS BUTTON DOES?"
+L35  dta d"I WONDER WHAT THIS BUTTON DOES?"
-L36 dta c"DON'T TAKE THIS PERSONALLY."
+L36  dta d"DON'T TAKE THIS PERSONALLY."
-L37 dta c"WOULD THIS MAKE YOU MAD?"
+L37  dta d"WOULD THIS MAKE YOU MAD?"
-L38 dta c"I TOLD YOU TO LEAVE MY SISTER ALONE!"
+L38  dta d"I TOLD YOU TO LEAVE MY SISTER ALONE!"
-L39 dta c"I COULD SPARE YOU, BUT WHY?"
+L39  dta d"I COULD SPARE YOU, BUT WHY?"
-L40 dta c"MY BOMB IS BIGGER THAN YOURS."
+L40  dta d"MY BOMB IS BIGGER THAN YOURS."
-L41 dta c"DON'T FORGET ABOUT ME!"
+L41  dta d"DON'T FORGET ABOUT ME!"
-L42 dta c"HASTA LA VISTA, BABY!"
+L42  dta d"HASTA LA VISTA, BABY!"
-L43 dta c"THIS IS YOUR BRAIN ON SCORCH."
+L43  dta d"THIS IS YOUR BRAIN ON SCORCH."
-L44 dta c"TAKE THIS!"
+L44  dta d"TAKE THIS!"
-L45 dta c"THIS SCREEN AIN'T BIG ENOUGH FOR THE BOTH OF US."
+L45  dta d"THIS SCREEN AIN'T BIG ENOUGH FOR THE BOTH OF US."
-L46 dta c"DIE, ALIEN SWINE!"
+L46  dta d"DIE, ALIEN SWINE!"
-L47 dta c"SAY ARRGGHHHHH...."
+L47  dta d"SAY ARRGGHHHHH...."
-L48 dta c"I SHALL OIL MY TURRET WITH YOUR BLOOD."
+L48  dta d"I SHALL OIL MY TURRET WITH YOUR BLOOD."
-L49 dta c"DIE, TANK-SCUM!"
+L49  dta d"DIE, TANK-SCUM!"
-L50 dta c"I'M GONNA BREAK YOUR FACE!"
+L50  dta d"I'M GONNA BREAK YOUR FACE!"
-L51 dta c"MAMA SAID KNOCK YOU OUT!"
+L51  dta d"MAMA SAID KNOCK YOU OUT!"
-L52 dta c"I HOPE YOU ENJOY PAIN!"
+L52  dta d"I HOPE YOU ENJOY PAIN!"
 ;--------------------------------
-L53 dta c"PARTING IS SUCH SWEET SORROW... NOT!"
+L53  dta d"PARTING IS SUCH SWEET SORROW... NOT!"
-L54 dta c"UGH!"
+L54  dta d"UGH!"
-L55 dta c"AARGH!"
+L55  dta d"AARGH!"
-L56 dta c"AAAGGHHH!"
+L56  dta d"AAAGGHHH!"
-L57 dta c"I'M MELTING!"
+L57  dta d"I'M MELTING!"
-L58 dta c"OOF.."
+L58  dta d"OOF.."
-L59 dta c"OH!"
+L59  dta d"OH!"
-L60 dta c"EEEK!"
+L60  dta d"EEEK!"
-L61 dta c"AACCH!"
+L61  dta d"AACCH!"
-L62 dta c"I HATE IT WHEN THAT HAPPENS."
+L62  dta d"I HATE IT WHEN THAT HAPPENS."
-L63 dta c"ONE DIRECT HIT CAN RUIN YOUR WHOLE DAY."
+L63  dta d"ONE DIRECT HIT CAN RUIN YOUR WHOLE DAY."
-L64 dta c"OH NO!"
+L64  dta d"OH NO!"
-L65 dta c"NOT ME!"
+L65  dta d"NOT ME!"
-L66 dta c"OUCH."
+L66  dta d"OUCH."
-L67 dta c"OH NO, NOT AGAIN."
+L67  dta d"OH NO, NOT AGAIN."
-L68 dta c"ANOTHER ONE BITES THE DUST."
+L68  dta d"ANOTHER ONE BITES THE DUST."
-L69 dta c"GOODBYE."
+L69  dta d"GOODBYE."
-L70 dta c"HELP ME!"
+L70  dta d"HELP ME!"
-L71 dta c"FAREWELL, CRUEL WORLD."
+L71  dta d"FAREWELL, CRUEL WORLD."
-L72 dta c"REMEMBER THE ALAMO!"
+L72  dta d"REMEMBER THE ALAMO!"
-L73 dta c"OH MAN!"
+L73  dta d"OH MAN!"
-L74 dta c"DOOUGH!"
+L74  dta d"DOOUGH!"
-L75 dta c"ANOTHER DAY, ANOTHER BOMB."
+L75  dta d"ANOTHER DAY, ANOTHER BOMB."
-L76 dta c"THIS IS THE END, MY ONLY FRIEND."
+L76  dta d"THIS IS THE END, MY ONLY FRIEND."
-L77 dta c"IT'S ALL OVER."
+L77  dta d"IT'S ALL OVER."
-L78 dta c"THE FAT LADY SANG."
+L78  dta d"THE FAT LADY SANG."
-L79 dta c"WHY DOES EVERYTHING HAPPEN TO ME?"
+L79  dta d"WHY DOES EVERYTHING HAPPEN TO ME?"
-L80 dta c"I'M GOING DOWN."
+L80  dta d"I'M GOING DOWN."
-L81 dta c"I'VE GOT A BAD FEELING ABOUT THIS."
+L81  dta d"I'VE GOT A BAD FEELING ABOUT THIS."
-L82 dta c"CRAPOLA."
+L82  dta d"CRAPOLA."
-L83 dta c"POW!"
+L83  dta d"POW!"
-L84 dta c"BIF!"
+L84  dta d"BIF!"
-L85 dta c"BAM!"
+L85  dta d"BAM!"
-L86 dta c"ZONK!"
+L86  dta d"ZONK!"
-L87 dta c"I SHOULD'VE LISTENED TO MY MOTHER..."
+L87  dta d"I SHOULD'VE LISTENED TO MY MOTHER..."
-L88 dta c"NO... A BUD LIGHT!"
+L88  dta d"NO... A BUD LIGHT!"
-L89 dta c"WHAT WAS THAT NOISE?"
+L89  dta d"WHAT WAS THAT NOISE?"
-L90 dta c"MAMA SAID THERE'D BE DAYS LIKE THIS."
+L90  dta d"MAMA SAID THERE'D BE DAYS LIKE THIS."
-L91 dta c"ITS JUST ONE OF THOSE DAYS..."
+L91  dta d"ITS JUST ONE OF THOSE DAYS..."
-L92 dta c"I SEE A BRIGHT LIGHT..."
+L92  dta d"I SEE A BRIGHT LIGHT..."
-L93 dta c"MOMMY? IS THAT YOU?"
+L93  dta d"MOMMY? IS THAT YOU?"
-L94 dta c"I LET YOU HIT ME!"
+L94  dta d"I LET YOU HIT ME!"
-L95 dta c"SUCKER SHOT!"
+L95  dta d"SUCKER SHOT!"
-L96 dta c"I DIDN'T WANT TO LIVE ANYWAY."
+L96  dta d"I DIDN'T WANT TO LIVE ANYWAY."
-L97 dta c"-<SOB>-"
+L97  dta d"-<SOB>-"
-L98 dta c"WAS THAT AS CLOSE AS I THINK IT WAS?"
+L98  dta d"WAS THAT AS CLOSE AS I THINK IT WAS?"
-L99 dta c"JOIN THE ARMY, SEE THE WORLD THEY SAID."
+L99  dta d"JOIN THE ARMY, SEE THE WORLD THEY SAID."
-L100 dta c"IT WASN'T JUST A JOB IT WAS AN ADVENTURE!"
+L100 dta d"IT WASN'T JUST A JOB IT WAS AN ADVENTURE!"
-L101 dta c"I DIDN'T LIKE VIOLENCE ANYWAY!"
+L101 dta d"I DIDN'T LIKE VIOLENCE ANYWAY!"
-L102 dta c"I THOUGHT YOU LIKED ME?"
+L102 dta d"I THOUGHT YOU LIKED ME?"
-L103 dta c"SUCH SENSELESS VIOLENCE!  I DON'T UNDERSTAND IT."
+L103 dta d"SUCH SENSELESS VIOLENCE! I DON'T UNDERSTAND IT."
-L104 dta c"I THINK THIS GUY'S A LITTLE CRAZY."
+L104 dta d"I THINK THIS GUY'S A LITTLE CRAZY."
-L105 dta c"SOMEHOW I DON'T FEEL LIKE KILLING ANYMORE."
+L105 dta d"SOMEHOW I DON'T FEEL LIKE KILLING ANYMORE."
-L106 dta c"HEY!  KILLIN' AIN'T COOL."
+L106 dta d"HEY! KILLIN' AIN'T COOL."
-L107 dta c"GEE... THANKS."
+L107 dta d"GEE... THANKS."
-L108 dta c"I'VE FALLEN AND I CAN'T GET UP!"
+L108 dta d"I'VE FALLEN AND I CAN'T GET UP!"
-L109 dta c"911?"
+L109 dta d"911?"
-L110 dta c"OH NO!  HERE I BLOW AGAIN!"
+L110 dta d"OH NO! HERE I BLOW AGAIN!"
-L111 dta c"I'LL BE BACK..."
+L111 dta d"I'LL BE BACK..."
-L112 dta c"HEY - I'VE GOT LAWYERS."
+L112 dta d"HEY - I'VE GOT LAWYERS."
-L113 dta c"TIME TO CALL 1-900-SUE-TANK."
+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
+    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
-OffensiveTextLengths
+    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 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 >LEND
 NumberOfOffensiveTexts=54
 NumberOfDeffensiveTexts=60
 .endp

artwork/textconv.py

@@ -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))

display.asm

@@ -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

textproc.asm

@@ -1320,26 +1320,27 @@ nineplus dta d"9"+1
 space    dta d" "
 
 ;--------------------------------------------------------
-.proc DisplayOffensiveTextNr ;
+.proc Display4x4AboveTank ;
-    ;This routine displays texts using PutChar4x4
+    ; Displays texts using PutChar4x4 above tank and mountains.
-    ;pretty cool, eh
+    ; 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
+    ;now we should substract length of the text-1
-    ldx TextNumberOff
+    
-    lda talk.OffensiveTextLengths,x
+    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
+    and #$3f ;always CAPITAL letters
-    sbc #32 ;conversion from ASCII to .sbyte
 
     sta CharCode4x4
     lda TextCounter
@@ -1462,13 +1457,65 @@ DOTNcharloop
     jsr PutChar4x4
 
     inc TextCounter
-    ldx TextNumberOff
+    lda fx
-    lda talk.OffensiveTextLengths,x
     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

weapons.asm

@@ -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