54 lines
1.7 KiB
C++
54 lines
1.7 KiB
C++
//9 has graphics
|
||
|
||
|
||
|
||
|
||
$SP,"<1>",BI=1$
|
||
|
||
|
||
F64 t0=Beat;
|
||
|
||
U0 DrawIt(CTask *,CDC *dc)
|
||
{
|
||
I64 i,x,y;
|
||
x=30+200*(Saw(Beat-t0,8.0));
|
||
y=40;
|
||
Sprite3(dc,x,y,0,$IB,"<1>",BI=1$);
|
||
dc->color=YELLOW;
|
||
for (i=0;i<5;i++)
|
||
GrLine(dc,x,y,x+RandI16%100,y+RandI16%50+50);
|
||
dc->color=WHITE;
|
||
for (i=0;i<5;i++)
|
||
GrLine(dc,x,y,x+RandI16%100,y+RandI16%50+50);
|
||
}
|
||
|
||
U0 Song()
|
||
{
|
||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||
Fs->text_attr=LTCYAN<<4+BLACK;
|
||
Fs->draw_it=&DrawIt;
|
||
Fs->task_end_cb=&SndTaskEndCB;
|
||
|
||
music.tempo=2.5;
|
||
try {
|
||
"$$BG+H,LTCYAN$$$$FG+H,BLACK$$";
|
||
while (!ScanKey) {
|
||
t0=Beat;
|
||
DocClear;
|
||
Play("3qBeB2GqG3DBeA2GqR3etGED",
|
||
"Sees \0the \0 \0end \0from \0the \0start.\n\0 \0 \0 \0 \0 \0");
|
||
Play("qBeB2GqG3DBeA2GqR3etGED",
|
||
"Got \0Heav\0 \0en \0down \0to \0art.\n\0 \0 \0 \0 \0When \0");
|
||
Play("eB2G3qGRsFEFECBCB2qGG3etDRD",
|
||
"filled \0with \0doubt.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0It'\0 \0ll \0");
|
||
Play("eB2G3qGRsFEFECBCB2qGG3etDRD",
|
||
"all \0work \0out.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||
}
|
||
} catch
|
||
PutExcept;
|
||
SettingsPop;
|
||
}
|
||
|
||
Song;
|
||
( â Òÿÿÿïÿÿÿ$C*Q(I¤HžÿMß·m“b’($éû¦Û›7ûÿO“4Mû´mwö6oÛÖm’Û¶yvÛvm·a¶Ë€Ø¶m[ H’$IB†‰’$”HûæÉŸ$™ Ëÿÿÿ÷ÿÿÿþ}߶m àÿÿÿ I’$I‘
|
||
òÿÿÿøÿÿÿ¶mß7 ùÿÿÿ $ ß ‘(R¢HRE&ID2dD1THQ$E’?oÛ·mÛ¶]·ÝºmÞlÛ6oß·ëºÝºm[Ýv¶aÁ†a¶aömÛ¶a¶mÛÖÛ¶mÛ¶mÛ¶5H$� ûÿÿÿ¶m·Ý¼ÍÛ¼
|
||
Û ) ìÿÿÿ¶mߦmÛë¶u
|
||
®·z›·mÛ¶m Öÿÿÿ ¾oú<I’ þÿÿÿ üÿÿÿéÿÿÿüÿÿÿþÿÿÿ 6mž¾O† ÈE‰ ýÿÿÿ $ï“Q¶mÝÖuÝ òÿÿÿÿÿÿÿÛ�- Óÿÿÿ÷ÿÿÿöÞíÿÿÿ
|
||
Îÿÿÿ þÿÿÿ |