390 lines
4.7 KiB
C++
390 lines
4.7 KiB
C++
$BD,11$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$BD,14$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"",1$
|
||
$BD,11$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$BD,14$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"",2$
|
||
$BD,15$
|
||
$SP,"<3>",3$
|
||
|
||
|
||
|
||
|
||
$SP,"<4>",4$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"<5>",5$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"<6>",6$
|
||
|
||
|
||
U0 DrawIt(CTask *task,CDC *dc)
|
||
{
|
||
U8 *temps;
|
||
SpritePlot3(dc,100,task->win_pixel_height-60,0,$IB,"<3>",3$);
|
||
SpritePlot3(dc,194,task->win_pixel_height-140,0,$IB,"<4>",4$);
|
||
SpritePlot3(dc,400,task->win_pixel_height-10,0,$IB,"<5>",5$);
|
||
SpritePlot3(dc,50,task->win_pixel_height-160,0,$IB,"<6>",6$);
|
||
temps=SpriteInterpolate($IB,"<1>",1$,$IB,"<2>",2$,Tri(tT,2.0));
|
||
SpritePlot3(dc,0,task->win_pixel_height,0,temps);
|
||
Free(temps);
|
||
}
|
||
|
||
U0 SongTask(I64)
|
||
{ //Randomly generate (by God :-)
|
||
Fs->task_end_cb=&SndTaskEndCB;
|
||
MusicSettingsRst;
|
||
while (TRUE) {
|
||
Play("2qG3eCGqEAFCeDFqB");
|
||
Play("2G3eCGqEAFCeDFqB");
|
||
Play("BDeF2G3etEBAqBAetAEDeE2G");
|
||
Play("3qBDeF2G3etEBAqBAetAEDeE2G");
|
||
}
|
||
}
|
||
|
||
U0 Main()
|
||
{
|
||
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
||
Fs->draw_it=&DrawIt;
|
||
Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
|
||
WinMax;
|
||
WinBorder;
|
||
WordStat;
|
||
DocClear;
|
||
Fs->text_attr=YELLOW<<4+BLACK;
|
||
"$$BG,LTCYAN$$"; NewLine(31);
|
||
View;
|
||
SettingsPop;
|
||
}
|
||
|
||
Main;
|
||
|