415 lines
5.0 KiB
HolyC
415 lines
5.0 KiB
HolyC
|
//Scroll Down
|
|||
|
$BG,11$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$BG,14$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$SP,"<1>",BI=1$
|
|||
|
$BG,11$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$BG,14$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$SP,"<2>",BI=2$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$SP,"<3>",BI=3$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$SP,"<4>",BI=4$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$SP,"<5>",BI=5$
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
|
|||
|
$SP,"<6>",BI=6$
|
|||
|
$BG$
|
|||
|
|
|||
|
U0 DrawIt(CTask *task,CDC *dc)
|
|||
|
{
|
|||
|
U8 *tmps;
|
|||
|
Sprite3(dc,100,task->pix_height-60,0,$IB,"<3>",BI=3$);
|
|||
|
Sprite3(dc,194,task->pix_height-140,0,$IB,"<4>",BI=4$);
|
|||
|
Sprite3(dc,400,task->pix_height-10,0,$IB,"<5>",BI=5$);
|
|||
|
Sprite3(dc,50,task->pix_height-160,0,$IB,"<6>",BI=6$);
|
|||
|
tmps=SpriteInterpolate(Tri(tS,2.0),$IB,"<1>",BI=1$,$IB,"<2>",BI=2$);
|
|||
|
Sprite3(dc,0,task->pix_height,0,tmps);
|
|||
|
Free(tmps);
|
|||
|
}
|
|||
|
|
|||
|
U0 SongTask(I64)
|
|||
|
{//Randomly generate (by God :-)
|
|||
|
Fs->task_end_cb=&SndTaskEndCB;
|
|||
|
MusicSettingsRst;
|
|||
|
while (TRUE) {
|
|||
|
Play("4qG5eCGqE4A5FCeDF4qB");
|
|||
|
Play("4G5eCGqE4A5FCeDF4qB");
|
|||
|
Play("4B5DeF4G5etE4BAqBAetA5EDeE4G");
|
|||
|
Play("4qB5DeF4G5etE4BAqBAetA5EDeE4G");
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
U0 Main()
|
|||
|
{
|
|||
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|||
|
Fs->draw_it=&DrawIt;
|
|||
|
Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
|
|||
|
AutoComplete;
|
|||
|
WinBorder;
|
|||
|
WinMax;
|
|||
|
DocClear;
|
|||
|
Fs->text_attr=YELLOW<<4+BLACK;
|
|||
|
"$$BG,LTCYAN$$%h31c",'\n';
|
|||
|
View;
|
|||
|
SettingsPop;
|
|||
|
}
|
|||
|
|
|||
|
Main;
|
|||
|
|