From a6cca51ffd3dbe61b1d6f3073a0a7d039ad157f6 Mon Sep 17 00:00:00 2001
From: gimulnautti <toni@futurefly.net>
Date: Fri, 3 Mar 2023 21:32:25 +0200
Subject: [PATCH] korjaa ruudun tyhjennysrutiinit alussa

---
 piraatti_intro.ras | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

diff --git a/piraatti_intro.ras b/piraatti_intro.ras
index 67b5a0e..ff7f111 100644
--- a/piraatti_intro.ras
+++ b/piraatti_intro.ras
@@ -223,22 +223,22 @@ text : string = (@cmoveto, 6,10,
 												26, 12, 13, 12);
 												
 	naamatNames : string = (	
-								"TONI AITTONIEMI - UUSIMAA", @cpause,
 								"JUHO KARVINEN - PIRKANMAA", @cpause,
-								"RIIKKA NIEMINEN - UUSIMAA", @cpause,
-								"JARI NIKKINEN - SAVO-KARJALA", @cpause,
-								"SATU IMMONEN - HELSINKI", @cpause,
-								"PEKKA MUSTONEN - SAVO-KARJALA", @cpause,
+								"TEEMU LINDROOS - PIRKANMAA", @cpause,
+								"ARTO TAMMENOKSA - PIRKANMAA", @cpause,
+								"KLAUS TORNKVIST - PIRKANMAA", @cpause,
+								"JARNO YLTAVA - PIRKANMAA", @cpause,
+								"LEINARD KOHONEN - HAME", @cpause,
 
-								"REETTA OJALA - HELSINKI", @cpause,
-								"MAREK NETSHADA - HELSINKI", @cpause,
-								"OLAVI KAUKAMIELI - HELSINKI", @cpause,
-								"JONI MAHLAMAKI - UUSIMAA", @cpause,
-								"KAUSTI RANTALAINEN - HELSINKI", @cpause,
-								"ARI-PEKKA PULKKIS - HELSINKI", @cpause, @cstop );
+								"ALEKSI LOFGREN - SAVO-KARJALA", @cpause,
+								"PEKKA MUSTONEN - SAVO-KARJALA", @cpause,
+								"TIIA MUSTONEN - SAVO-KARJALA", @cpause,
+								"JARI NIKKINEN - SAVO-KARJALA", @cpause,
+								"TAPANI PARKKINEN - KESKI-SUOMI", @cpause,
+								"CHRISTER WAREN - SATAKUNTA", @cpause, @cstop );
 								
-	naamatNumbers : string = (	"353", "113", "356", " 91", " 5 ", "89 ",
-								" 13", "12 ", " 8 ", "354", " 18", " 17", @cstop);
+	naamatNumbers : string = (	"113", "114", "115", "116", "117 ", "140",
+								" 88", "89 ", " 90", "91 ", " 2 ", " 2 ", @cstop);
 							   	
 
 	tab320 : array[25] of integer = buildtable("i*320");	
@@ -314,9 +314,9 @@ text : string = (@cmoveto, 6,10,
 							@cmoveto, 0, 2, "   ANONYMISOIDUT",
 							@cmoveto, 0, 3, "    OPEN ACCESS",
 							@cmoveto, 0, 4, "    TIETOKANNAT",
-							@cmoveto, 0, 5, "  JULKINEN SEKTORI",
+							@cmoveto, 0, 5, "   JULKISHALLINTO",
 							@cmoveto, 0, 6, "TIETEEN TEKNOLOGIAN",
-							@cmoveto, 0, 7, "     MOOTTORINA",
+							@cmoveto, 0, 7, "    MOOTTORINA",
 							@cpage,
 							@cmoveto, 0, 3, "  TIETOPOLITIIKAN",
 							@cmoveto, 0, 4, "  VAKIINNUTTAMINEN",
@@ -1388,7 +1388,8 @@ begin
 		begin
 			fgColBefore := 0;
 			Fill(screen_char_loc, KEY_SPACE, 255);
-			FillFast(screen_char_loc + 256, KEY_SPACE, 127);
+			FillFast(screen_char_loc + 255, KEY_SPACE, 127);
+			Fill(^$06F8, KEY_SPACE, 240);
 			GoToPurpleBarRasterStart();
 			currentPartDone := true;
 			screen_fg_col := 0;
@@ -1521,7 +1522,8 @@ begin
 	CreateAddressTable(#mainPartAddressTable, $4400, 40, 25);
 	CreateAddressTable(#colorAddressTable, $d800, 40, 25);
 	
-	Fill(^$0528, KEY_SPACE, 240);
+	Fill(^$0518, KEY_SPACE, 240);
+	Fill(^$0608, KEY_SPACE, 80);
 	
 	for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]];