Scrollin tökkiminen vasemmasa reunassa korjattu siirtämällä bordereita sisäänpäin. Teksti vaati uudelleen asettelun
This commit is contained in:
parent
fde541ab41
commit
864471d582
|
@ -57,9 +57,12 @@ var
|
|||
|
||||
@define spriteLoc $3c80
|
||||
@define charSetCopyLoc $c000
|
||||
|
||||
charsetCopyBlock : array[1024] of byte = buildtable("0") at @charSetCopyLoc;
|
||||
|
||||
@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");
|
||||
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);
|
||||
|
||||
@define numMainTextPages 6
|
||||
mainText : string = ( @cmoveto, 0, 3, " COMMODORELLA ",
|
||||
@cmoveto, 0, 4, " EDUSKUNTAAN ",
|
||||
@cmoveto, 0, 5, " 2023 ",
|
||||
mainText : string = (
|
||||
@cmoveto, 0, 3, " COMMODORELLA",
|
||||
@cmoveto, 0, 4, " EDUSKUNTAAN",
|
||||
@cmoveto, 0, 5, " ---------",
|
||||
@cmoveto, 0, 6, " 2023",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " RADIKAALISTI ",
|
||||
@cmoveto, 0, 3, " AVOINTA ",
|
||||
@cmoveto, 0, 4, " DEMOKRATIAA ",
|
||||
@cmoveto, 0, 5, " VALTIONHALLINNON ",
|
||||
@cmoveto, 0, 6, " LIVESTREAMAUS ",
|
||||
@cmoveto, 0, 7, " LAHTOKOHTAISESTI ",
|
||||
@cmoveto, 0, 2, " RADIKAALISTI",
|
||||
@cmoveto, 0, 3, " AVOINTA",
|
||||
@cmoveto, 0, 4, " DEMOKRATIAA",
|
||||
@cmoveto, 0, 5, " VALTIONHALLINNON",
|
||||
@cmoveto, 0, 6, " LIVESTREAMAUS",
|
||||
@cmoveto, 0, 7, " LAHTOKOHTAISESTI",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI ",
|
||||
@cmoveto, 0, 3, " LAAJA JULKISUUSLAKI",
|
||||
@cmoveto, 0, 4, "KANSANAANESTYSALOITE",
|
||||
@cmoveto, 0, 5, " RAHANKERAYSLAIN ",
|
||||
@cmoveto, 0, 6, " UUDISTUS ",
|
||||
@cmoveto, 0, 7, " PERUSTULO ",
|
||||
@cmoveto, 0, 2, " LOBBAUS NAKYVAKSI",
|
||||
@cmoveto, 0, 3, "LAAJA JULKISUUSLAKI",
|
||||
@cmoveto, 0, 4, "KANSANAANESTYSALOI-",
|
||||
@cmoveto, 0, 5, "TE PERUSOIKEUDET",
|
||||
@cmoveto, 0, 6, "YKSITYISYYDENSUOJA",
|
||||
@cmoveto, 0, 7, " YHDENVERTAISUUS",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " KESTAVYYSSIIRTYMA",
|
||||
@cmoveto, 0, 3, " VETYTALOUDEN",
|
||||
@cmoveto, 0, 4, " TEKNOLOGIATUKI",
|
||||
@cmoveto, 0, 5, " RAHANKERAYSLAIN",
|
||||
@cmoveto, 0, 6, " UUDISTUS",
|
||||
@cmoveto, 0, 7, " PERUSTULO",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " PERUSOIKEUDET ",
|
||||
@cmoveto, 0, 3, " YKSITYISYYDENSUOJA ",
|
||||
@cmoveto, 0, 4, " YHDENVERTAISUUS ",
|
||||
@cmoveto, 0, 5, " KESTAVYYSSIIRTYMA ",
|
||||
@cmoveto, 0, 6, " VETYTALOUDEN ",
|
||||
@cmoveto, 0, 7, " TEKNOLOGIATUKI ",
|
||||
@cmoveto, 0, 2, "HYVINVOINTIALUEIDEN",
|
||||
@cmoveto, 0, 3, " VERONKANTO-OIKEUS",
|
||||
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIA",
|
||||
@cmoveto, 0, 5, " LUONTO MAANKAYTTO",
|
||||
@cmoveto, 0, 6, " KESTAVYYS",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " HYVINVOINTIALUEIDEN",
|
||||
@cmoveto, 0, 3, " VERONKANTO-OIKEUS ",
|
||||
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIAN",
|
||||
@cmoveto, 0, 5, " VAHVISTAMINEN ",
|
||||
@cmoveto, 0, 6, " LUONTO MAANKAYTTO ",
|
||||
@cmoveto, 0, 7, " KESTAVYYS ",
|
||||
@cpage,
|
||||
@cmoveto, 0, 3, " TIETOPOLITIIKAN ",
|
||||
@cmoveto, 0, 4, " VAKIINNUTTAMINEN ",
|
||||
@cmoveto, 0, 5, " OSAKSI HALLINTO- ",
|
||||
@cmoveto, 0, 6, " RAKENNETTA ",
|
||||
@cmoveto, 0, 3, " TIETOPOLITIIKAN",
|
||||
@cmoveto, 0, 4, " VAKIINNUTTAMINEN",
|
||||
@cmoveto, 0, 5, " OSAKSI HALLINTO-",
|
||||
@cmoveto, 0, 6, " RAKENNETTA",
|
||||
@cpage, @cstop);
|
||||
|
||||
mainPartAddressTable : array[25] of integer;
|
||||
|
@ -634,7 +638,7 @@ begin
|
|||
begin
|
||||
if (tp[0] = @cmoveto) then
|
||||
begin
|
||||
x := tp[1] * 2;
|
||||
x := tp[1] * 2 + 1;
|
||||
y := tp[2] * 3 - 1;
|
||||
sp := AddressTable(#mainPartAddressTable, x, y);
|
||||
tp += 3;
|
||||
|
@ -1133,6 +1137,8 @@ begin
|
|||
|
||||
numLinesPtr := #numLines2;
|
||||
|
||||
hideborderx(1); // avoid choppy scroll
|
||||
|
||||
InitMainPart();
|
||||
end;
|
||||
end;
|
||||
|
|
Loading…
Reference in New Issue