Compare commits

...

15 Commits

Author SHA1 Message Date
gimulnautti e81c27ec61 Lisätty levyimagen latausohje 2023-03-26 17:56:59 +03:00
gimulnautti 201b4f697c korjattu Albert Laineen vaalipiiri 2023-03-04 00:48:20 +02:00
gimulnautti b2af6e7c77 levyimagen tekoscripti lisätty, korjattu muun maan äänestysnumero stringin ylivuoto 2023-03-04 00:02:16 +02:00
gimulnautti 0be8189280 master levyimage levitykseen 2023-03-03 22:21:47 +02:00
gimulnautti ddb99a168f päivitetty aluekohtaiset introt 2023-03-03 22:11:52 +02:00
gimulnautti 38b341cf69 vanhat aluekohtaiset introt poistettu 2023-03-03 22:11:08 +02:00
gimulnautti 726c852afe numerot ja viivat yksinumeroisiin 2023-03-03 22:07:52 +02:00
gimulnautti a6cca51ffd korjaa ruudun tyhjennysrutiinit alussa 2023-03-03 21:32:25 +02:00
gimulnautti 02a404af42 Kaikki introt yhdellä disk imagella 2023-03-02 21:45:29 +02:00
gimulnautti 0f00d61501 lisätty kaikki käännetyt .prg filet masteriin 2023-03-02 21:39:49 +02:00
gimulnautti b36b28ca07 exomize prg 2023-03-02 21:33:31 +02:00
gimulnautti 75c258f738 greetit korjattu 2023-03-02 21:18:00 +02:00
gimulnautti 1cc836cfcd loput ehdokasnumerot demosceneversiossa 2023-03-02 21:00:15 +02:00
gimulnautti c32e866d70 äänestysnumerot laitettu demoscene versioon 2023-03-02 20:48:38 +02:00
gimulnautti 755e0d1f59 korjattu pulkkiksen vaalipiiri 2023-03-02 00:21:43 +02:00
10 changed files with 22 additions and 9 deletions

View File

@ -29,7 +29,7 @@ override_target_settings_org = $810
override_target_settings_ignore_sys = 0
override_target_settings_ignore_prg = 0
output_debug_symbols = 1
open_files = ,piraatti_intro.asm, resources/images/piraattinaamat-2.flf, resources/images/piraattinaamat-1.flf, piraatti_intro.ras
open_files = ,resources/images/piraattinaamat-2.flf, resources/images/piraattinaamat-1.flf, piraatti_intro.ras
project_path = /Users/gimulnautti/piraattipuolue-github/c64-vaali-intro-2023/
zeropage_colormemory = $fb
dirart_flf_file = none
@ -40,7 +40,7 @@ remove_unused_symbols = 1
ignore_initial_jump = 0
current_file = piraatti_intro.ras
output_type = prg
exomizer_toggle = 0
exomizer_toggle = 1
use_track_19 = 1
disable_compiler_comments = 0
charset_ = :resources/character.rom

View File

@ -3,6 +3,11 @@
Commodore 64:llä toteutettu vaalimainos vanhaan kuusnepa demoscene tyyliin
Musiikki toteutettu SIDFactory II
### Levyimagen lataaminen
1. Valitse tiedosto `commodorella_eduskuntaan.d64` ja lataa.
2. Kirjoita tikulle tai oikealle 1541 levykkeelle.
### Kääntäminen
1. Lataa [Turbo Rascal Syntax Error](https://lemonspawn.com/turbo-rascal-syntax-error-expected-but-begin/) retro-kehitysympäristö koneellesi (Win/Mac/Linux)

Binary file not shown.

BIN
helsinki-uusimaa.prg Normal file

Binary file not shown.

BIN
helsinki.prg Normal file

Binary file not shown.

6
make_disk_image.sh Executable file
View File

@ -0,0 +1,6 @@
rm commodorella_eduskuntaan.d64
c1541 -format "eduskuntaan 2023,0" d64 commodorella_eduskuntaan.d64
c1541 -attach commodorella_eduskuntaan.d64 -write piraatti_intro.prg piraattipuolue
c1541 -attach commodorella_eduskuntaan.d64 -write helsinki.prg helsinki
c1541 -attach commodorella_eduskuntaan.d64 -write helsinki-uusimaa.prg helsinki-uusimaa
c1541 -attach commodorella_eduskuntaan.d64 -write muu-maa.prg muu-maa

BIN
muu-maa.prg Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -228,17 +228,17 @@ text : string = (@cmoveto, 6,10,
"RIIKKA NIEMINEN - UUSIMAA", @cpause,
"JARI NIKKINEN - SAVO-KARJALA", @cpause,
"SATU IMMONEN - HELSINKI", @cpause,
"PEKKA MUSTONEN - HELSINKI", @cpause,
"PEKKA MUSTONEN - SAVO-KARJALA", @cpause,
"REETTA OJALA - HELSINKI", @cpause,
"MAREK NETSHADA - HELSINKI", @cpause,
"OLAVI KAUKAMIELI - HELSINKI", @cpause,
"JONI MAHLAMAKI - UUSIMAA", @cpause,
"KAUSTI RANTALAINEN - HELSINKI", @cpause,
"ARI-PEKKA PULKKIS - VAASA", @cpause, @cstop );
"ARI-PEKKA PULKKIS - HELSINKI", @cpause, @cstop );
naamatNumbers : string = ( "123", "456", "789", " 10", "20 ", " 30",
" 40", "50 ", " 60", " 70", " 80", " 90", @cstop);
naamatNumbers : string = ( "353", "113", "356", "91 ", "-5-", " 89",
" 13", " 12", "-8-", "354", " 18", " 17", @cstop);
tab320 : array[25] of integer = buildtable("i*320");
@ -341,7 +341,7 @@ text : string = (@cmoveto, 6,10,
rasterLineMainScroller : byte = 240;
// TODO optimize spaces
scrollText : string = " YARRRR SAILORS WELCOME TO THE FINNISH PIRATE PARTY PARLIAMENTARY ELECTION 2023 INTRO --- VOTE FOR US --- WE ROCK THE WORLD IN 8 BITS AND BEYOND --- WRITTEN BY GIMLE IN TRSE --- MUSIC BY GIMLE WITH SIDFACTORY II --- MUCH LOVE AND GREETINGS TO THE C64 DEMOSCENE --- WE SALUTE SOME GROUNDBREAKING TECHNOLOGICAL PIRATES --- FINNISH GOLD - EXTEND - VIRTUAL DREAMS - FAIRLIGHT - BYTERAPERS - BLOODSUCKERS - ARTLINE DESIGNS - DEKADENCE - BOOZE DESIGN - ACCESSION - NOICE - PROXIMA - ORANGE - CNCD - KEWLERS - MFX - TPOLM - MATUREFURK - KATASTRO FI - SCOOPEX - TAAT - HEDELMAE - JUMALAUTA - KAITA FILMITUOTANTO - BRAINLEZ CODERS - SYMPTOM - GOTO 10 - DAMONES - DA JORMAS - WIDE LOAD - HIRMU - LEUAT ";
scrollText : string = " YARRRR SAILORS WELCOME TO THE FINNISH PIRATE PARTY PARLIAMENTARY ELECTION 2023 INTRO --- VOTE FOR US --- WE ROCK THE WORLD IN 8 BITS AND BEYOND --- WRITTEN BY GIMLE IN TRSE --- MUSIC BY GIMLE WITH SIDFACTORY II --- MUCH LOVE AND GREETINGS TO THE C64 DEMOSCENE --- WE SALUTE SOME GROUNDBREAKING TECHNOLOGICAL PIRATES --- FINNISH GOLD - EXTEND - VIRTUAL DREAMS - FAIRLIGHT - BYTERAPERS - BLOODSUCKERS - ARTLINE DESIGNS - DEKADENCE - BOOZE DESIGN - ACCESSION - NOICE - PROXIMA - ORANGE - CNCD - KEWLERS - MFX - TPOLM - MATUREFURK - KATASTRO FI - PARALLAX - TAAT - HEDELMAE - JUMALAUTA - KAITA FILMITUOTANTO - BRAINLEZ CODERS - SYMPTOM - GOTO 10 - DAMONES - DA JORMAS - WIDE LOAD - HIRMU - LEUAT ";
scrollTextOffset : integer = 0;
scrollTextLength : integer = 0;
scrollCurrent : byte = 0;
@ -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]];