Gimle
/
c64-vaali-intro-2023
2
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

korjaa ruudun tyhjennysrutiinit alussa

This commit is contained in:
gimulnautti 2023-03-03 21:32:25 +02:00
parent 759c21215f
commit 32d28e9103
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
piraatti_intro.ras
View File

@ -223,6 +223,7 @@ text : string = (@cmoveto, 6,10,
26, 12, 13, 12); 26, 12, 13, 12);
naamatNames : string = ( naamatNames : string = (
<<<<<<< HEAD
"RICHARD ANDERSSON - HELSINKI", @cpause, "RICHARD ANDERSSON - HELSINKI", @cpause,
"VILLE HAUTAKANGAS - HELSINKI", @cpause, "VILLE HAUTAKANGAS - HELSINKI", @cpause,
"SAKARI HELKE - HELSINKI", @cpause, "SAKARI HELKE - HELSINKI", @cpause,
@ -239,6 +240,24 @@ text : string = (@cmoveto, 6,10,
naamatNumbers : string = ( " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ", naamatNumbers : string = ( " 2 ", " 3 ", " 4 ", " 5 ", " 6 ", " 7 ",
" 8 ", " 9 ", "10 ", " 11", " 12", "13 ", @cstop); " 8 ", " 9 ", "10 ", " 11", " 12", "13 ", @cstop);
=======
"JUHO KARVINEN - PIRKANMAA", @cpause,
"TEEMU LINDROOS - PIRKANMAA", @cpause,
"ARTO TAMMENOKSA - PIRKANMAA", @cpause,
"KLAUS TORNKVIST - PIRKANMAA", @cpause,
"JARNO YLTAVA - PIRKANMAA", @cpause,
"LEINARD KOHONEN - HAME", @cpause,
"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 = ( "113", "114", "115", "116", "117 ", "140",
" 88", "89 ", " 90", "91 ", " 2 ", " 2 ", @cstop);
>>>>>>> a6cca51 (korjaa ruudun tyhjennysrutiinit alussa)
tab320 : array[25] of integer = buildtable("i*320"); tab320 : array[25] of integer = buildtable("i*320");
@ -1388,7 +1407,8 @@ begin
begin begin
fgColBefore := 0; fgColBefore := 0;
Fill(screen_char_loc, KEY_SPACE, 255); 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(); GoToPurpleBarRasterStart();
currentPartDone := true; currentPartDone := true;
screen_fg_col := 0; screen_fg_col := 0;
@ -1521,7 +1541,8 @@ begin
CreateAddressTable(#mainPartAddressTable, $4400, 40, 25); CreateAddressTable(#mainPartAddressTable, $4400, 40, 25);
CreateAddressTable(#colorAddressTable, $d800, 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]]; for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]];