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

Scrollin tökkiminen vasemmasa reunassa korjattu siirtämällä bordereita sisäänpäin. Teksti vaati uudelleen asettelun

This commit is contained in:
gimulnautti 2023-02-19 20:10:08 +02:00
parent fde541ab41
commit 864471d582
1 changed files with 40 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
piraatti_intro.ras
View File

@ -57,9 +57,12 @@ var
@define spriteLoc $3c80 @define spriteLoc $3c80
@define charSetCopyLoc $c000 @define charSetCopyLoc $c000
charsetCopyBlock : array[1024] of byte = buildtable("0") at @charSetCopyLoc;
@define spriteBank 0 @define spriteBank 0
spriteCopyBlock : array[63] of byte = buildtable("i") at @spriteLoc; spriteCopyBlock : array[63] of byte = buildtable("0") at @spriteLoc;
lookup3Dx : array[40] of integer = buildtable("300 * (i - 20) / 200"); lookup3Dx : array[40] of integer = buildtable("300 * (i - 20) / 200");
lookup3Dy : array[25] of integer = buildtable("300 * (i - 11) / 30"); lookup3Dy : array[25] of integer = buildtable("300 * (i - 11) / 30");
@ -261,42 +264,43 @@ text : string = (@cmoveto, 6,10,
mainPartBigFont:incbin("resources/charsets/broadway_xy.bin", @mainPartBigFontLoc); mainPartBigFont:incbin("resources/charsets/broadway_xy.bin", @mainPartBigFontLoc);
@define numMainTextPages 6 @define numMainTextPages 6
mainText : string = ( @cmoveto, 0, 3, " COMMODORELLA ", mainText : string = (
@cmoveto, 0, 4, " EDUSKUNTAAN ", @cmoveto, 0, 3, " COMMODORELLA",
@cmoveto, 0, 5, " 2023 ", @cmoveto, 0, 4, " EDUSKUNTAAN",
@cmoveto, 0, 5, " ---------",
@cmoveto, 0, 6, " 2023",
@cpage, @cpage,
@cmoveto, 0, 2, " RADIKAALISTI ", @cmoveto, 0, 2, " RADIKAALISTI",
@cmoveto, 0, 3, " AVOINTA ", @cmoveto, 0, 3, " AVOINTA",
@cmoveto, 0, 4, " DEMOKRATIAA ", @cmoveto, 0, 4, " DEMOKRATIAA",
@cmoveto, 0, 5, " VALTIONHALLINNON ", @cmoveto, 0, 5, " VALTIONHALLINNON",
@cmoveto, 0, 6, " LIVESTREAMAUS ", @cmoveto, 0, 6, " LIVESTREAMAUS",
@cmoveto, 0, 7, " LAHTOKOHTAISESTI ", @cmoveto, 0, 7, " LAHTOKOHTAISESTI",
@cpage, @cpage,
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI ", @cmoveto, 0, 2, " LOBBAUS NAKYVAKSI",
@cmoveto, 0, 3, " LAAJA JULKISUUSLAKI", @cmoveto, 0, 3, "LAAJA JULKISUUSLAKI",
@cmoveto, 0, 4, "KANSANAANESTYSALOITE", @cmoveto, 0, 4, "KANSANAANESTYSALOI-",
@cmoveto, 0, 5, " RAHANKERAYSLAIN ", @cmoveto, 0, 5, "TE PERUSOIKEUDET",
@cmoveto, 0, 6, " UUDISTUS ", @cmoveto, 0, 6, "YKSITYISYYDENSUOJA",
@cmoveto, 0, 7, " PERUSTULO ", @cmoveto, 0, 7, " YHDENVERTAISUUS",
@cpage, @cpage,
@cmoveto, 0, 2, " PERUSOIKEUDET ", @cmoveto, 0, 2, " KESTAVYYSSIIRTYMA",
@cmoveto, 0, 3, " YKSITYISYYDENSUOJA ", @cmoveto, 0, 3, " VETYTALOUDEN",
@cmoveto, 0, 4, " YHDENVERTAISUUS ", @cmoveto, 0, 4, " TEKNOLOGIATUKI",
@cmoveto, 0, 5, " KESTAVYYSSIIRTYMA ", @cmoveto, 0, 5, " RAHANKERAYSLAIN",
@cmoveto, 0, 6, " VETYTALOUDEN ", @cmoveto, 0, 6, " UUDISTUS",
@cmoveto, 0, 7, " TEKNOLOGIATUKI ", @cmoveto, 0, 7, " PERUSTULO",
@cpage, @cpage,
@cmoveto, 0, 2, " HYVINVOINTIALUEIDEN", @cmoveto, 0, 2, "HYVINVOINTIALUEIDEN",
@cmoveto, 0, 3, " VERONKANTO-OIKEUS ", @cmoveto, 0, 3, " VERONKANTO-OIKEUS",
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIAN", @cmoveto, 0, 4, "PAIKALLISDEMOKRATIA",
@cmoveto, 0, 5, " VAHVISTAMINEN ", @cmoveto, 0, 5, " LUONTO MAANKAYTTO",
@cmoveto, 0, 6, " LUONTO MAANKAYTTO ", @cmoveto, 0, 6, " KESTAVYYS",
@cmoveto, 0, 7, " KESTAVYYS ",
@cpage, @cpage,
@cmoveto, 0, 3, " TIETOPOLITIIKAN ", @cmoveto, 0, 3, " TIETOPOLITIIKAN",
@cmoveto, 0, 4, " VAKIINNUTTAMINEN ", @cmoveto, 0, 4, " VAKIINNUTTAMINEN",
@cmoveto, 0, 5, " OSAKSI HALLINTO- ", @cmoveto, 0, 5, " OSAKSI HALLINTO-",
@cmoveto, 0, 6, " RAKENNETTA ", @cmoveto, 0, 6, " RAKENNETTA",
@cpage, @cstop); @cpage, @cstop);
mainPartAddressTable : array[25] of integer; mainPartAddressTable : array[25] of integer;
@ -634,7 +638,7 @@ begin
begin begin
if (tp[0] = @cmoveto) then if (tp[0] = @cmoveto) then
begin begin
x := tp[1] * 2; x := tp[1] * 2 + 1;
y := tp[2] * 3 - 1; y := tp[2] * 3 - 1;
sp := AddressTable(#mainPartAddressTable, x, y); sp := AddressTable(#mainPartAddressTable, x, y);
tp += 3; tp += 3;
@ -1133,6 +1137,8 @@ begin
numLinesPtr := #numLines2; numLinesPtr := #numLines2;
hideborderx(1); // avoid choppy scroll
InitMainPart(); InitMainPart();
end; end;
end; end;