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

lisätty ohjelmatekstejä

This commit is contained in:
gimulnautti 2023-02-20 19:47:07 +02:00
parent 18e2ab75f2
commit 3b39c13b76
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
piraatti_intro.ras
View File

@ -287,15 +287,22 @@ text : string = (@cmoveto, 6,10,
@cmoveto, 0, 2, " KESTAVYYSSIIRTYMA", @cmoveto, 0, 2, " KESTAVYYSSIIRTYMA",
@cmoveto, 0, 3, " VETYTALOUDEN", @cmoveto, 0, 3, " VETYTALOUDEN",
@cmoveto, 0, 4, " TEKNOLOGIATUKI", @cmoveto, 0, 4, " TEKNOLOGIATUKI",
@cmoveto, 0, 5, "PAIKALLISDEMOKRATIA",
@cmoveto, 0, 6, " LUONTO MAANKAYTTO",
@cmoveto, 0, 7, " KESTAVYYS",
@cpage,
@cmoveto, 0, 3, "HYVINVOINTIALUEIDEN",
@cmoveto, 0, 4, " VERONKANTO-OIKEUS",
@cmoveto, 0, 5, " RAHANKERAYSLAIN", @cmoveto, 0, 5, " RAHANKERAYSLAIN",
@cmoveto, 0, 6, " UUDISTUS", @cmoveto, 0, 6, " UUDISTUS",
@cmoveto, 0, 7, " PERUSTULO", @cmoveto, 0, 7, " PERUSTULO",
@cpage, @cpage,
@cmoveto, 0, 2, "HYVINVOINTIALUEIDEN", @cmoveto, 0, 2, " TAVOITTEELLINEN",
@cmoveto, 0, 3, " VERONKANTO-OIKEUS", @cmoveto, 0, 3, " TUTKIMUS- JA",
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIA", @cmoveto, 0, 4, " INNOVAATIO-",
@cmoveto, 0, 5, " LUONTO MAANKAYTTO", @cmoveto, 0, 5, " POLITIIKKA",
@cmoveto, 0, 6, " KESTAVYYS", @cmoveto, 0, 6, " TYOPERAINEN",
@cmoveto, 0, 7, " MAAHANMUUTTO",
@cpage, @cpage,
@cmoveto, 0, 3, " TIETOPOLITIIKAN", @cmoveto, 0, 3, " TIETOPOLITIIKAN",
@cmoveto, 0, 4, " VAKIINNUTTAMINEN", @cmoveto, 0, 4, " VAKIINNUTTAMINEN",
@ -1477,7 +1484,7 @@ begin
if (mainState = @mainFadeToPicture and mainTime > 200) then GoToNextMainPart(); if (mainState = @mainFadeToPicture and mainTime > 200) then GoToNextMainPart();
if (mainState = @mainFadeToText and mainTime > 100) then GoToNextMainPart(); if (mainState = @mainFadeToText and mainTime > 100) then GoToNextMainPart();
if (mainState = @mainPicture and mainTime > 650) then GoToNextMainPart(); if (mainState = @mainPicture and mainTime > 650) then GoToNextMainPart();
if (mainState = @mainShowText and mainTime > 400) then GoToNextMainPart(); if (mainState = @mainShowText and mainTime > 500) then GoToNextMainPart();
GoToPurpleBarRasterStart(); GoToPurpleBarRasterStart();
end; end;