35 lines
1019 B
C++
35 lines
1019 B
C++
//8 special
|
|
|
|
U0 Song()
|
|
{
|
|
CTask *task;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
music_tempo=2.5;
|
|
try {
|
|
task=PopUpViewStr(
|
|
"$$WW,1$$This shows a random passage based on "
|
|
"the time at the moment this song was run. "
|
|
"Talk to God as an offering, then run $MA-X+PU,"AfterEgypt",LM="Cd(\"::/Apps/AfterEgypt\");;#include \"Run\"\\n"$ if you "
|
|
"want God to talk some more. The $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.TXT"$ can "
|
|
"puppet you.\n");
|
|
TaskWait(task);
|
|
SetWinHorz(Fs->win_left,Fs->win_right,task);
|
|
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
|
|
"$$WW+H,1$$";
|
|
DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
|
|
while (!ScanKey) {
|
|
FifoU8Flush(god_fifo);
|
|
GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
|
|
GodPassage(5);
|
|
Play("3qAeABCBqCetABBqCetAAREE2G");
|
|
Play("3qAeABCBqCetABBqCetAAREE2G");
|
|
Play("3eDRRRqGReRRGGGGqE");
|
|
Play("eDRRRqGReRRGGGGqE");
|
|
}
|
|
} catch
|
|
PutExcept;
|
|
Snd(0);
|
|
}
|
|
|
|
Song;
|