//9 has graphics $BG,0$ $SP,"<1>",BI=1$ $BG$ #define X 330 #define Y 35 F64 t0=Beat; U0 DrawIt(CTask *,CDC *dc) { I64 i; F64 x,y,dt=Beat-t0; Sprite3(dc,X,Y,0,$IB,"<1>",BI=1$); if (Beat-t0<24) { if (Rand<0.7) { dc->color=YELLOW; GrPlot(dc,X-12,Y+1); GrPlot(dc,X-12,Y+2); GrPlot(dc,X-11,Y+4); GrPlot(dc,X+10,Y+4); GrPlot(dc,X+4,Y+4); GrPlot(dc,X+5,Y+4); GrPlot(dc,X+6,Y+4); GrPlot(dc,X+7,Y+5); GrPlot(dc,X+8,Y+5); } for (i=0;i<512;i++) { x=1.0-Rand`3.0; y=Rand; x=5.0*Sin(ã*Sqrt(y))*x; y=25.0*y; if (Rand*(x*x+2.0)*Sqrt(y)<4.0) { if (Rand<0.5) dc->color=BLUE; else dc->color=LTBLUE; } else dc->color=YELLOW; if (RandI16<0) x=-x; x+=150.0*Sin(ã*dt)/(35-y)`1.5; GrPlot(dc,X+x,Y-y); } } } U0 Song() { SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$ Fs->text_attr=BLACK<<4+LTGRAY; Fs->draw_it=&DrawIt; Fs->task_end_cb=&SndTaskEndCB; MusicSettingsRst; music.tempo=2.0; try { "$$BG+H,BLACK$$$$FD+H,LTGRAY$$"; while (TRUE) { t0=Beat; "$$WHITE$$God said this was a dirge.\n$$FG$$"; Play("5FqDqD4eA5CqEqEqDqDq", "Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0"); Play("5FqDqD4eA5CqEqEqDqDq", "Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0"); Play("5DqGqFeGFqFqEqE4qBq", "\0Ash \0to... \0and \0\0dust \0to \0dust.\n\0"); Play("5DqGqFeGFqFqEqE4qBq", "\0Ash \0to... \0and \0\0dust \0to \0dust.\n\0"); } } catch PutExcept; SettingsPop; } Song; òðÿÿÿúÿÿÿ7ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ