82 lines
3.3 KiB
HolyC
82 lines
3.3 KiB
HolyC
|
//9 has graphics
|
|||
|
|
$BG,0$
|
|||
|
|
$SP,"<1>",BI=1$
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
$BG$
|
|||
|
|
#define X 330
|
|||
|
|
#define Y 35
|
|||
|
|
|
|||
|
|
F64 t0=Beat;
|
|||
|
|
|
|||
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|||
|
|
{
|
|||
|
|
I64 i;
|
|||
|
|
F64 x,y,dt=Beat-t0;
|
|||
|
|
Sprite3(dc,X,Y,0,$IB,"<1>",BI=1$);
|
|||
|
|
if (Beat-t0<24) {
|
|||
|
|
if (Rand<0.7) {
|
|||
|
|
dc->color=YELLOW;
|
|||
|
|
GrPlot(dc,X-12,Y+1);
|
|||
|
|
GrPlot(dc,X-12,Y+2);
|
|||
|
|
GrPlot(dc,X-11,Y+4);
|
|||
|
|
GrPlot(dc,X+10,Y+4);
|
|||
|
|
GrPlot(dc,X+4,Y+4);
|
|||
|
|
GrPlot(dc,X+5,Y+4);
|
|||
|
|
GrPlot(dc,X+6,Y+4);
|
|||
|
|
GrPlot(dc,X+7,Y+5);
|
|||
|
|
GrPlot(dc,X+8,Y+5);
|
|||
|
|
}
|
|||
|
|
for (i=0;i<512;i++) {
|
|||
|
|
x=1.0-Rand`3.0;
|
|||
|
|
y=Rand;
|
|||
|
|
x=5.0*Sin(<EFBFBD>*Sqrt(y))*x;
|
|||
|
|
y=25.0*y;
|
|||
|
|
if (Rand*(x*x+2.0)*Sqrt(y)<4.0) {
|
|||
|
|
if (Rand<0.5)
|
|||
|
|
dc->color=BLUE;
|
|||
|
|
else
|
|||
|
|
dc->color=LTBLUE;
|
|||
|
|
} else
|
|||
|
|
dc->color=YELLOW;
|
|||
|
|
if (RandI16<0)
|
|||
|
|
x=-x;
|
|||
|
|
x+=150.0*Sin(<EFBFBD>*dt)/(35-y)`1.5;
|
|||
|
|
GrPlot(dc,X+x,Y-y);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
U0 Song()
|
|||
|
|
{
|
|||
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|||
|
|
Fs->text_attr=BLACK<<4+LTGRAY;
|
|||
|
|
Fs->draw_it=&DrawIt;
|
|||
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|||
|
|
MusicSettingsRst;
|
|||
|
|
music.tempo=2.0;
|
|||
|
|
try {
|
|||
|
|
"$$BG+H,BLACK$$$$FD+H,LTGRAY$$";
|
|||
|
|
while (TRUE) {
|
|||
|
|
t0=Beat;
|
|||
|
|
"$$WHITE$$God said this was a dirge.\n$$FG$$";
|
|||
|
|
Play("5FqDqD4eA5CqEqEqDqDq",
|
|||
|
|
"Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0");
|
|||
|
|
Play("5FqDqD4eA5CqEqEqDqDq",
|
|||
|
|
"Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0");
|
|||
|
|
Play("5DqGqFeGFqFqEqE4qBq",
|
|||
|
|
" \0Ash \0to... \0and \0 \0dust \0to \0dust.\n\0");
|
|||
|
|
Play("5DqGqFeGFqFqEqE4qBq",
|
|||
|
|
" \0Ash \0to... \0and \0 \0dust \0to \0dust.\n\0");
|
|||
|
|
}
|
|||
|
|
} catch
|
|||
|
|
PutExcept;
|
|||
|
|
SettingsPop;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Song;
|
|||
|
|
<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 7 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>
|