75 lines
2.4 KiB
C++
75 lines
2.4 KiB
C++
//8 has graphics
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<2>",2$
|
|
|
|
|
|
|
|
|
|
F64 t0=tMBeat;
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
F64 dt=tMBeat-t0;
|
|
U8 *inter;
|
|
if (dt>=16.0) {
|
|
inter=CSpriteInterpolate($IB,"<1>",1$,$IB,"<2>",2$,Abs((4.0*tM%2-1)%1));
|
|
CSpritePlot3(dc,20,20,0,inter);
|
|
Free(inter);
|
|
}
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
CTask *task;
|
|
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music_tempo=2.5;
|
|
try {
|
|
task=PopUpViewStr(
|
|
"$LK-A,"BF:Proverbs,10:19"$\n"
|
|
"$LK-A,"BF:Proverbs,15:2"$\n"
|
|
"$LK-A,"BF:Proverbs,17:28"$\n"
|
|
"$LK-A,"BF:Proverbs,29:11"$\n"
|
|
);
|
|
TaskWait(task);
|
|
task->win_right=Fs->win_right;
|
|
task->win_left=Fs->win_left;
|
|
task->win_top=Fs->win_bottom+3;
|
|
task->win_bottom=task->win_top+12;
|
|
TaskDerivedValsUpdate(task);
|
|
|
|
while (!ScanKey) {
|
|
t0=tMBeat;
|
|
Play("3qGE2eG3BqGetDBDeDE2qGetG3BF",
|
|
"Wise \0men \0use \0few \0words.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
|
Play("qGE2eG3BqGetDBDeDE2qGetG3BF",
|
|
"Wise \0men \0use \0few \0words.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
|
Play("eEAsFEFEqFAetDBEAA2G3qCA",
|
|
"Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.\n\0 \0 \0");
|
|
Play("eEAsFEFEqFAetDBEAA2G3qCA",
|
|
"Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.\n\0 \0 \0");
|
|
}
|
|
} catch
|
|
CatchAll;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
A øÿÿÿ ÷ÿÿÿ ÷ÿÿÿ ÷ÿÿÿ ÷ÿÿÿ! !
|
|
ÿÿÿÿ þÿÿÿ
|
|
ùÿÿÿ
|
|
ùÿÿÿ ùÿÿÿ ùÿÿÿ þÿÿÿ ýÿÿÿ ýÿÿÿ ûÿÿÿ ûÿÿÿ
|
|
|
|
A øÿÿÿ! $ ÷ÿÿÿ ÷ÿÿÿ ÷ÿÿÿ ÷ÿÿÿ! !
|
|
|
|
ÿÿÿÿ þÿÿÿ
|
|
ùÿÿÿ
|
|
ùÿÿÿ ùÿÿÿ ùÿÿÿ þÿÿÿ ýÿÿÿ ýÿÿÿ ûÿÿÿ ûÿÿÿ
|
|
! ! ! !
|
|
|
|
|
|
|