48 lines
1.1 KiB
C++
48 lines
1.1 KiB
C++
//8 has graphics
|
|
$SP,"<1>",BI=1$
|
|
|
|
$SP,"<2>",BI=2$
|
|
F64 t0=Beat;
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
F64 dt=Beat-t0,tt;
|
|
CSprite *temps;
|
|
if (dt<16.0)
|
|
tt=0;
|
|
else if (dt<18.0)
|
|
tt=((dt-16)/2)%1;
|
|
else
|
|
tt=1.0;
|
|
temps=SpriteInterpolate($IB,"<1>",BI=1$,$IB,"<2>",BI=2$,tt);
|
|
Sprite3(dc,180,40,0,temps);
|
|
Free(temps);
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music.tempo=3.0;
|
|
try {
|
|
while (!ScanKey) {
|
|
t0=Beat;
|
|
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
|
|
PutExcept;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
3 D K Q Y a 3 E ýÿÿÿK T \ b ýÿÿÿ |