55 lines
1.6 KiB
C++
55 lines
1.6 KiB
C++
//7 has graphics
|
||
|
||
|
||
$SP,"<1>",1$
|
||
|
||
$SP,"<2>",2$
|
||
|
||
|
||
|
||
|
||
|
||
F64 t0=0.0;
|
||
|
||
U0 DrawIt(CTask *,CDC *dc)
|
||
{
|
||
SpritePlot3(dc,20,8,0,$IB,"<1>",1$);
|
||
if (t0) {
|
||
SpritePlot3(dc,20,24,0,$IB,"<2>",2$);
|
||
Snd((tM-t0)*100);
|
||
if (tM>t0+0.25)
|
||
t0=0.0;
|
||
}
|
||
}
|
||
|
||
U0 Song()
|
||
{
|
||
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
||
Fs->draw_it=&DrawIt;
|
||
Fs->task_end_cb=&SndTaskEndCB;
|
||
|
||
music_tempo=2.5;
|
||
try {
|
||
while (!ScanKey) {
|
||
Play("3eBCsAGAGeAAetGAAsBBBBeCDqDeEA",
|
||
"Now, \0I \0su\0 \0u\0 \0ure \0 \0 \0 \0won't \0do\0o\0o\0o \0that \0a\0gain!\n\0 \0 \0");
|
||
|
||
t0=tM;
|
||
Play("BCsAGAGeAAetGAAsBBBBeCDqDeEA",
|
||
"Now, \0I \0su\0 \0u\0 \0ure \0 \0 \0 \0won't \0do\0o\0o\0o \0that \0a\0gain!\n\0 \0 \0");
|
||
Play("2qG3etAAGBB2G3eEFCDqFeAGqC",
|
||
" \0 \0 \0 \0 \0 \0 \0Learn\0ing \0from \0 \0my \0 \0mis\0takes.\n\0");
|
||
Play("2G3etAAGBB2G3eEFCDqFeAGqC",
|
||
" \0 \0 \0 \0 \0 \0 \0Learn\0ing \0from \0 \0my \0 \0mis\0takes.\n\0");
|
||
}
|
||
} catch
|
||
CatchAll;
|
||
SettingsPop;
|
||
}
|
||
|
||
Song;
|
||
|