289 lines
2.8 KiB
C++
289 lines
2.8 KiB
C++
//7 has graphics
|
|
|
|
|
|
$SP,"<1>",BI=1$
|
|
|
|
|
|
F64 t0=Beat;
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
F64 tt=Wrap(ã/2*(Beat-t0),0);
|
|
dc->flags|=DCF_TRANSFORMATION;
|
|
GrRotXEqu(dc->r,0.3*Sin(tt/4));
|
|
if (ã/2<=tt<=3*ã/2)
|
|
tt=ã-tt;
|
|
GrRotYEqu(dc->r,tt);
|
|
dc->x=325;
|
|
dc->y=35;
|
|
Sprite3(dc,0,0,0,$IB,"<1>",BI=1$);
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
music_tempo=2.5;
|
|
"$$WW+H,1$$";
|
|
try {
|
|
while (!ScanKey) {
|
|
t0=Beat;
|
|
Play("3etFG2G3sACACDGDGCCCCBDBDDBDBqDG",
|
|
"I \0 \0don't \0 \0know \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0where \0 \0I'll \0 \0get \0 \0the \0 \0mon\0ey.\n\0");
|
|
Play("etFG2G3sACACDGDGCCCCBDBDDBDBqDG",
|
|
"I \0 \0don't \0 \0know \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0where \0 \0I'll \0 \0get \0 \0the \0 \0mon\0ey.\n\0");
|
|
Play("eFDqDsAAAAeFFetBGADABeD2G3qD",
|
|
"$$RED$$Have \0no \0fear. \0 \0 \0 \0 \0 \0 \0God's \0 \0got \0 \0a \0 \0hold \0on \0you.\n\0");
|
|
Play("eFDqDsAAAAeFFetBGADABeD2G3qD",
|
|
"Have \0no \0fear. \0 \0 \0 \0 \0 \0 \0God's \0 \0got \0 \0a \0 \0hold \0on \0you.$$FG$$\n\0");
|
|
"$$GREEN$$(Semi-joke: credit card 'hold' ;-)\n$$FG$$";
|
|
}
|
|
} catch
|
|
PutExcept;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
R ( ( õÿÿÿìÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ |