Texts and more colours on Game Over screen

display.asm

@@ -128,6 +128,7 @@ MoreDown
 ListOfWeapons
  :36 dta d"                                        "
 ListOfWeapons1End
+GameOverResults	; reuse after game (remember to clear on start new)
 ListOfDefensiveWeapons
  :16 dta d"                                        "
 ListOfDefensiveWeaponsEnd ;constant useful when clearing
@@ -148,7 +149,9 @@ EmptyLine
     .ALIGN $1000  ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
 ;-----------------------------------------------
 GameOverDL
-       .byte $70,$70,$70,$40
+       .byte $70,$40
+	   .byte $47	; 16 gr8 lines
+	   .word GameOverTitle
        .byte $4f   ; 1 line
        .word display+(40*72)
        :28 .byte $0f   ; 28 lines
@@ -160,6 +163,13 @@ GameOverDL
        .byte $4f   ; 1 line
        .word display+(40*72)
        :7 .byte $0f    ; 7 lines
+	   .byte $00+$80	; 1 line
+	   .byte $42	; 7 tekst lines
+	   .word GameOverTitle2
+	   .byte $00+$80
+	   .byte $42
+	   .word GameOverResults
+	   :5 .byte $00+$80,$02
        .byte $70
        .byte $41
        .word GameOverDL
@@ -197,5 +207,8 @@ activateTextEnd
 purchaseText
  dta d"Purchase"
 purchaseTextEnd
-
+GameOverTitle
+ dta d"     game  over     "*
+GameOverTitle2
+ dta d" Player    Points    Hits    Money      "
 .endif

scorch.asm

@@ -998,19 +998,30 @@ ClearResults
     ;sta dliA
 	;sty dliY
 	pha
+	phy
 	lda dliCounter
-	bne @+
+	bne EndofPMG
     lda #%00100000	; playfield after P/M
 	STA WSYNC
     sta gtictl
-	inc dliCounter
+	bne EndOfDLI_GO
-	pla
+EndofPMG
-	rti
+	cmp #1
-@
+	bne ColoredLines
     lda #%00100100	; playfield before P/M
 	STA WSYNC
     sta gtictl
+	bne EndOfDLI_GO
+ColoredLines
+	tay
+	lda GameOverColoursTable-3,y	; -2 becouse this is DLI nr 2 and -1 (labels line)
+	ldy #$0a	; text colour (brightnes)
+	STA WSYNC
+	sta COLPF2
+	sty COLPF1
+EndOfDLI_GO
 	inc dliCounter
+	ply
 	pla
 	rti
 .endp
@@ -1019,8 +1030,8 @@ ClearResults
 	;sta dliA
     pha
 	sta WSYNC
-    mva #TextBackgroundColor colpf2
+    mva #TextBackgroundColor COLPF2
-    mva #TextForegroundColor colpf3
+    mva #TextForegroundColor COLPF3
 	;lda dliA
     pla
 DLIinterruptNone

variables.asm

@@ -18,6 +18,10 @@ seppukuVal .by 75
 mountainDeltaH .by 3
 mountainDeltaL .by $ff
 ;----------------------------------------------------
+; Color table for Game Over Screen
+	.by $00		; labels line color
+GameOverColoursTable  .BYTE $80,$40,$c4,$20,$c0,$e4
+;----------------------------------------------------
 skilltable   ; computer controlled players' skills (1-8), 0 - human (no cleaning, ticket #30)
     .DS [MaxPlayers]
 ;----------------------------------------------------