52 lines
1.1 KiB
C++
52 lines
1.1 KiB
C++
//8 has graphics
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
|
|
$SP,"<2>",2$
|
|
|
|
F64 t0=tMBeat;
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
F64 dt=tMBeat-t0,tt;
|
|
U8 *inter;
|
|
if (dt<16.0)
|
|
tt=0;
|
|
else if (dt<18.0)
|
|
tt=((dt-16)/2)%1;
|
|
else
|
|
tt=1.0;
|
|
inter=SpriteInterpolate($IB,"<1>",1$,$IB,"<2>",2$,tt);
|
|
SpritePlot3(dc,180,40,0,inter);
|
|
Free(inter);
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music_tempo=3.0;
|
|
try {
|
|
while (!ScanKey) {
|
|
t0=tMBeat;
|
|
DocClear;
|
|
Play("3qFeRRqAeRAqGDetBACeCB",
|
|
"God \0 \0 \0is \0 \0a \0good \0God. \0(Thank \0 \0 \0God!!)\n\0 \0");
|
|
Play("qFeRRqAeRAqGDetBACeCB",
|
|
"God \0 \0 \0is \0 \0a \0good \0God. \0(Thank \0 \0 \0God!!)\n\0 \0");
|
|
Play("qGsCECEeC2GqR3FeEDqEF",
|
|
" \0 \0 \0 \0 \0 \0 \0 \0He \0is \0a \0good \0God.\n\0");
|
|
Play("GsCECEeC2GqR3FeEDqEF",
|
|
" \0 \0 \0 \0 \0 \0 \0 \0He \0is \0a \0good \0God.\n\0");
|
|
}
|
|
} catch
|
|
CatchAll;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
3 D K Q Y a 3 E ýÿÿÿK T \ b ýÿÿÿ |