46 lines
794 B
Plaintext
46 lines
794 B
Plaintext
BoolU4 old_io_sound=TRUE;
|
|
|
|
void SongEndTsk()
|
|
{
|
|
Sound(0);
|
|
IOSound(old_io_sound);
|
|
Exit;
|
|
}
|
|
|
|
void SongTsk()
|
|
{
|
|
I8 i;
|
|
Fs->end_task_cb=&SongEndTsk;
|
|
old_io_sound=IOSound(OFF);
|
|
ResetMusicSettings;
|
|
for (i=0;i<1;i++) {
|
|
Play("2qG3ECB2eGG3qCeFDsBGBG");
|
|
Play("2qG3ECB2eGG3qCeFDsBGBG");
|
|
Play("qEeEFqEB2eG3FetCAGqFC");
|
|
Play("EeEFqEB2eG3FetCAGqFC");
|
|
}
|
|
XTalk(Fs->parent_tss,".");
|
|
}
|
|
|
|
void SplashOnTop()
|
|
{
|
|
while (TRUE) {
|
|
WinToTop(Fs->parent_tss);
|
|
WinSync;
|
|
}
|
|
}
|
|
|
|
void StartSong()
|
|
{
|
|
Type("::/LT/Doc/StartUp.TXZ");
|
|
Fs->win_left=TEXT_COLS/4;
|
|
Fs->win_right=3*TEXT_COLS/4;
|
|
Fs->win_top=TEXT_ROWS/4;
|
|
Fs->win_bottom=3*TEXT_ROWS/4;
|
|
Spawn(&SongTsk,"Start Song",Fs);
|
|
Spawn(&SplashOnTop,"Splash On Top",Fs);
|
|
GetChar;
|
|
}
|
|
|
|
StartSong;
|