piraatti_intro.ras: %retab!
This commit is contained in:
parent
054a0ea3e1
commit
451f9106df
SSH Key Fingerprint:
SHA256:CXLULpqNBdUKB6E6fLA1b/4SzG0HvKD19PbIePU175Q
|
|
@ -31,7 +31,7 @@ var
|
|||
@define mainFadeToText 3
|
||||
|
||||
mainState : byte = @mainPicture;
|
||||
mainTime : integer = 0;
|
||||
mainTime : integer = 0;
|
||||
|
||||
/*
|
||||
Opening writer main variables
|
||||
|
|
@ -74,7 +74,7 @@ var
|
|||
*/
|
||||
|
||||
text : string = (@cmoveto, 6,10,
|
||||
"TIETOYHTEISKUNTA TARVITSEE ", @cpause,12,
|
||||
"TIETOYHTEISKUNTA TARVITSEE ", @cpause,12,
|
||||
@cmoveto, 10,12,
|
||||
"TEKNOLOGIAPUOLUEEN ", @cpause,32,
|
||||
@cstop);
|
||||
|
|
@ -89,11 +89,11 @@ text : string = (@cmoveto, 6,10,
|
|||
fastPlasmaSweep : array[256] of byte = buildtable("10 * (-Math.cos(2 * i * 6.28 / 256) * 0.5 + 0.5)");
|
||||
|
||||
textPlStartX : byte = 0;
|
||||
textPlStartY : byte = 0;
|
||||
textPlEndX : byte = 40;
|
||||
textPlEndY : byte = 7;
|
||||
textPlStartY : byte = 0;
|
||||
textPlEndX : byte = 40;
|
||||
textPlEndY : byte = 7;
|
||||
textPlOfsX, textPlOfsY : byte = 0;
|
||||
textPlAdd : byte = 0;
|
||||
textPlAdd : byte = 0;
|
||||
|
||||
textBlinkOfs : byte = 0;
|
||||
|
||||
|
|
@ -166,7 +166,7 @@ text : string = (@cmoveto, 6,10,
|
|||
/*
|
||||
Main part
|
||||
*/
|
||||
@define mainpart_bitmapArea $6000 // <-- VIDEO BUFFER IS HERE!!
|
||||
@define mainpart_bitmapArea $6000 // <-- VIDEO BUFFER IS HERE!!
|
||||
|
||||
@define piraattinaamat1_color $5200
|
||||
@define piraattinaamat1_data $8000
|
||||
|
|
@ -203,17 +203,17 @@ text : string = (@cmoveto, 6,10,
|
|||
@piraattinaamat2_data, @piraattinaamat2_color,
|
||||
@piraattinaamat2_data, @piraattinaamat2_color);
|
||||
|
||||
naamatCoordinates : array[] of byte = ( 0, 0, 13, 12,
|
||||
naamatCoordinates : array[] of byte = ( 0, 0, 13, 12,
|
||||
13, 0, 13, 12,
|
||||
26, 0, 13, 12,
|
||||
0, 12, 13, 12,
|
||||
0, 12, 13, 12,
|
||||
13, 12, 13, 12,
|
||||
26, 12, 13, 12,
|
||||
|
||||
0, 0, 13, 12,
|
||||
0, 0, 13, 12,
|
||||
13, 0, 13, 12,
|
||||
26, 0, 13, 12,
|
||||
0, 12, 13, 12,
|
||||
0, 12, 13, 12,
|
||||
13, 12, 13, 12,
|
||||
26, 12, 13, 12);
|
||||
|
||||
|
|
@ -233,7 +233,7 @@ text : string = (@cmoveto, 6,10,
|
|||
"ARI-PEKKA PULKKIS - VAASA", @cpause, @cstop );
|
||||
|
||||
naamatNumbers : string = ( "123", "456", "789", " 10", "20 ", " 30",
|
||||
" 40", "50 ", " 60", " 70", " 80", " 90", @cstop);
|
||||
" 40", "50 ", " 60", " 70", " 80", " 90", @cstop);
|
||||
|
||||
|
||||
tab320 : array[25] of integer = buildtable("i*320");
|
||||
|
|
@ -257,42 +257,42 @@ 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, " 2023 ",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " RADIKAALISTI ",
|
||||
@cmoveto, 0, 3, " AVOINTA ",
|
||||
@cmoveto, 0, 4, " DEMOKRATIAA ",
|
||||
@cmoveto, 0, 2, " RADIKAALISTI ",
|
||||
@cmoveto, 0, 3, " AVOINTA ",
|
||||
@cmoveto, 0, 4, " DEMOKRATIAA ",
|
||||
@cmoveto, 0, 5, " VALTIONHALLINNON ",
|
||||
@cmoveto, 0, 6, " LIVESTREAMAUS ",
|
||||
@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, 5, " RAHANKERAYSLAIN ",
|
||||
@cmoveto, 0, 6, " UUDISTUS ",
|
||||
@cmoveto, 0, 7, " PERUSTULO ",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " PERUSOIKEUDET ",
|
||||
@cmoveto, 0, 2, " PERUSOIKEUDET ",
|
||||
@cmoveto, 0, 3, " YKSITYISYYDENSUOJA ",
|
||||
@cmoveto, 0, 4, " YHDENVERTAISUUS ",
|
||||
@cmoveto, 0, 4, " YHDENVERTAISUUS ",
|
||||
@cmoveto, 0, 5, " KESTAVYYSSIIRTYMA ",
|
||||
@cmoveto, 0, 6, " VETYTALOUDEN ",
|
||||
@cmoveto, 0, 7, " TEKNOLOGIATUKI ",
|
||||
@cmoveto, 0, 6, " VETYTALOUDEN ",
|
||||
@cmoveto, 0, 7, " TEKNOLOGIATUKI ",
|
||||
@cpage,
|
||||
@cmoveto, 0, 2, " HYVINVOINTIALUEIDEN",
|
||||
@cmoveto, 0, 3, " VERONKANTO-OIKEUS ",
|
||||
@cmoveto, 0, 4, "PAIKALLISDEMOKRATIAN",
|
||||
@cmoveto, 0, 5, " VAHVISTAMINEN ",
|
||||
@cmoveto, 0, 5, " VAHVISTAMINEN ",
|
||||
@cmoveto, 0, 6, " LUONTO MAANKAYTTO ",
|
||||
@cmoveto, 0, 7, " KESTAVYYS ",
|
||||
@cmoveto, 0, 7, " KESTAVYYS ",
|
||||
@cpage,
|
||||
@cmoveto, 0, 3, " TIETOPOLITIIKAN ",
|
||||
@cmoveto, 0, 3, " TIETOPOLITIIKAN ",
|
||||
@cmoveto, 0, 4, " VAKIINNUTTAMINEN ",
|
||||
@cmoveto, 0, 5, " OSAKSI HALLINTO- ",
|
||||
@cmoveto, 0, 6, " RAKENNETTA ",
|
||||
@cmoveto, 0, 6, " RAKENNETTA ",
|
||||
@cpage, @cstop);
|
||||
|
||||
mainPartAddressTable : array[25] of integer;
|
||||
|
|
@ -312,7 +312,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 IN 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 --- ";
|
||||
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 IN 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 --- ";
|
||||
scrollTextOffset : integer = 0;
|
||||
scrollTextLength : integer = 0;
|
||||
scrollCurrent : byte = 0;
|
||||
|
|
@ -379,27 +379,27 @@ end;
|
|||
procedure CopyCharsetRomToRam(targetHi : byte);
|
||||
begin
|
||||
asm("
|
||||
ldx #$08 ; we loop 8 times (8x255 = 2Kb)
|
||||
lda #$33 ; make the CPU see the Character Generator ROM...
|
||||
sta $01 ; ...at $D000 by storing %00110011 into location $01
|
||||
lda #$d0 ; load high byte of $D000
|
||||
sta $fc ; store it in a free location we use as vector
|
||||
ldy #$00 ; init counter with 0
|
||||
sty $fb ; store it as low byte in the $FB/$FC vector
|
||||
lda $fd ; second pair in $FD/$FE
|
||||
lda targetHi ; point to target
|
||||
sta $fe
|
||||
ldx #$08 ; we loop 8 times (8x255 = 2Kb)
|
||||
lda #$33 ; make the CPU see the Character Generator ROM...
|
||||
sta $01 ; ...at $D000 by storing %00110011 into location $01
|
||||
lda #$d0 ; load high byte of $D000
|
||||
sta $fc ; store it in a free location we use as vector
|
||||
ldy #$00 ; init counter with 0
|
||||
sty $fb ; store it as low byte in the $FB/$FC vector
|
||||
lda $fd ; second pair in $FD/$FE
|
||||
lda targetHi ; point to target
|
||||
sta $fe
|
||||
|
||||
loopc lda ($fb),y ; read byte from vector stored in $fb/$fc
|
||||
sta ($fd),y ; write to the RAM
|
||||
iny ; do this 255 times...
|
||||
bne loopc ; ..for low byte $00 to $FF
|
||||
inc $fc ; when we passed $FF increase high byte...
|
||||
inc $fe
|
||||
dex ; ... and decrease X by one before restart
|
||||
bne loopc ; We repeat this until X becomes Zero
|
||||
lda #$37 ; switch in I/O mapped registers again...
|
||||
sta $01 ; ... with %00110111 so CPU can see them
|
||||
loopc lda ($fb),y ; read byte from vector stored in $fb/$fc
|
||||
sta ($fd),y ; write to the RAM
|
||||
iny ; do this 255 times...
|
||||
bne loopc ; ..for low byte $00 to $FF
|
||||
inc $fc ; when we passed $FF increase high byte...
|
||||
inc $fe
|
||||
dex ; ... and decrease X by one before restart
|
||||
bne loopc ; We repeat this until X becomes Zero
|
||||
lda #$37 ; switch in I/O mapped registers again...
|
||||
sta $01 ; ... with %00110111 so CPU can see them
|
||||
");
|
||||
end;
|
||||
|
||||
|
|
@ -562,14 +562,14 @@ begin
|
|||
10, // Volume
|
||||
Random()/128 + 5, // Hi byte frequency
|
||||
0*16+0, // Attack voice 1
|
||||
15*16 + 3, // Sustain = 16*15 + release=6
|
||||
15*16 + 3, // Sustain = 16*15 + release=6
|
||||
1 +sid_noise, // Waveform
|
||||
sid_noise); // waveform
|
||||
PlaySound(sid_channel2,
|
||||
13, // Volume
|
||||
6, // Hi byte frequency
|
||||
6, // Hi byte frequency
|
||||
0*16+0, // Attack voice 1
|
||||
4*16 + 3, // Sustain = 16*15 + release=6
|
||||
4*16 + 3, // Sustain = 16*15 + release=6
|
||||
1 + sid_tri, // Waveform
|
||||
sid_tri); // waveform
|
||||
end;
|
||||
|
|
@ -752,7 +752,7 @@ begin
|
|||
tempPtr2 += 320;
|
||||
end;
|
||||
|
||||
// color data #1
|
||||
// color data #1
|
||||
tempPtr2 := #screen_char_loc2;
|
||||
tempPtr2 += toY2 * 40 + toX2;
|
||||
|
||||
|
|
@ -1347,7 +1347,7 @@ begin
|
|||
fadeOfsCurrent := 0;
|
||||
end;
|
||||
end;
|
||||
if (fadeStateCurrent = @fadeStateText) then
|
||||
if (fadeStateCurrent = @fadeStateText) then
|
||||
begin
|
||||
fadeTemp := textFadeLumi[fadeOfsCurrent];
|
||||
Fill(screen_col_loc, fadeTemp, 255);
|
||||
|
|
|
|||
Loading…
Reference in New Issue