415 lines
5.0 KiB
HolyC
Executable File
415 lines
5.0 KiB
HolyC
Executable File
//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;
|
||
|