46 lines
2.0 KiB
C++
46 lines
2.0 KiB
C++
//8 has graphics
|
||
$SP,"<1>",BI=1$
|
||
|
||
|
||
|
||
|
||
|
||
U0 Song()
|
||
{
|
||
CTask *task;
|
||
Fs->task_end_cb=&SndTaskEndCB;
|
||
music.tempo=2.5;
|
||
try {
|
||
task=PopUpViewPrint("$LK,"Philippians,4:8",A="BF:Philippians,4:8"$\n");
|
||
TaskWait(task);
|
||
SetWinHorz(Fs->win_left,Fs->win_right,task);
|
||
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
|
||
"$$WW+H,1$$";
|
||
while (!ScanKey) {
|
||
Play("3eEGqACetCFGeEFqGetGFEqA",
|
||
"Look \0at \0that! \0 \0 \0 \0Dew \0 \0 \0on \0flow\0 \0 \0ers.\n\0");
|
||
Play("eEGqACetCFGeEFqGetGFEqA",
|
||
"Look \0at \0that! \0 \0 \0 \0Dew \0 \0 \0on \0flow\0 \0 \0ers.\n\0");
|
||
Sprite($IB,"<1>",BI=1$);
|
||
"$$CM,0,7$$";
|
||
Play("eDEqEAEFCCetCAD",
|
||
"Pret\0ty \0when \0 \0they \0catch \0the \0light.\n\0 \0 \0 \0");
|
||
Play("eDEqEAEFCCetCAD",
|
||
"Pret\0ty \0when \0 \0they \0catch \0the \0light.\n\0 \0 \0 \0");
|
||
"$$GREEN$$(It's easy to be dark and profound all the time in arrogance. "
|
||
"Sometimes, I search for self-evident goodness.)\n$$FG$$";
|
||
}
|
||
} catch
|
||
PutExcept;
|
||
Snd(0);
|
||
}
|
||
|
||
Song;
|
||
|