//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
task=PopUpViewStr(
"$LK-A,"BF:Luke,7:42"$\n"
"\n"
"Prodigal Son\n"
"$LK-A,"BF:Luke,15:21"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
music_tempo=2.5;
try {
"$$WW+H,1$$";
while (!ScanKey) {
Play("3qGGsEAEAqAsF2G3F2G3qCeEFqD",
"Life, \0life, \0isn't \0 \0 \0 \0fair. \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
Play("GGsEAEAqAsF2G3F2G3qCeEFqD",
"Waaa, \0waaa, \0isn't \0 \0 \0 \0fair. \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
Play("eFCqEBDBE2eG3EsFEFE",
" \0 \0I \0 \0ne\0ver \0sin.\n\0 \0 \0 \0 \0 \0 \0");
Play("eFCqEBDBE2eG3EsFEFE",
" \0 \0I \0 \0ne\0ver \0win.\n\0 \0 \0 \0 \0 \0 \0");
"$$FG,GREEN$$(A warning on presumption. 'Who loves more man -- forgiven big debt or little?' See prodigal son.)$$FG$$\n";
}
} catch
CatchAll;
Snd(0);
}
//8 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
try {
task=PopUpViewStr(
"$LK-A,"BF:Matthew,19:16"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
"$$WW+H,1$$";
while (!ScanKey) {
Play("3eGAetCCCFFDqAeAAFAAFqG",
"I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
Play("eGAetCCCFFDqAeAAFAAFqG",
"I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
Play("EeEGqEeEEqDBetCCGqC",
"What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
Play("EeEGqEeEEqDBetCCGqC",
"What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
"$$FG,GREEN$$(Christ said sell all and follow me.)\n$$FG$$";
}
} catch
CatchAll;
Snd(0);
}
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
music_tempo=2.5;
try {
task=PopUpViewStr(
"$$WW+H,1$$$LK-A,"BF:Matthew,22:35"$\n\n"
"How many people hear \"Love God with all heart "
"mind and soul; and neighbor as self,\" but walk "
"away thinking \"Love neighbor with all heart "
"mind and soul?\"\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
Play("3qFeA2G3qBeGBqEetDCBqEeFF",
"First, \0lo\0ve \0God \0with \0 \0ALL \0$$FG,RED$$heart$$FG$$, \0mind \0and \0soul.\n\0 \0 \0");
PutSprite($IB,"<heart>",1$);
"$$CM,0,6$$";
Play("qFeA2G3qBeGBqEetDCBqEeFF",
"First, \0lo\0ve \0God \0with \0 \0ALL \0$$FG,RED$$heart$$FG$$, \0mind \0and \0soul.\n\0 \0 \0");
PutSprite($IB,"<heart>",1$);
"$$CM,0,6$$";
Play("GBsADADqE2G3eCDqG2sG3B2G3BetBDB",
"What's \0 \0 \0 \0 \0 \0left? \0 \0I \0don't \0know.\n\0 \0 \0 \0 \0 \0 \0 \0");
Play("eGBsADADqE2G3eCDqG2sG3B2G3BetBDB",
"What's \0 \0 \0 \0 \0 \0left? \0 \0I \0don't \0know.\n\0 \0 \0 \0 \0 \0 \0 \0");
}
} catch
CatchAll;
Snd(0);
}
CSrvCmd *TaskTextInputQue(CTask *srv,CTask *master,
U8 *data,I64 flags)
{
CSrvCmd *result;
Bool old_preempt=Preempt(OFF);
CTask *task;
if (!data || !TaskValidate(srv) ||
master && !TaskValidate(master) ||
srv->popup_task && !Bt(&srv->task_flags,TASKf_FILTER_INPUT)) {
Preempt(old_preempt);
return NULL;
}
result=ACAlloc(sizeof(CSrvCmd));
result->master_task=master; //in case somebody cares
result->cmd_code=SVCT_TEXT_INPUT;
result->flags=flags;
result->aux_str=AStrNew(data);
PushFD;
task=srv->last_input_filter_task;
if (Bt(&flags,SVCf_HIGHEST_PRIORITY) || task==srv) {
if (task!=srv)
TaskWait(srv);
task=Spawn(&InputFilterTask,NULL,"Input Filter",,srv);
Cli;
task->next_input_filter_task=srv->next_input_filter_task;
task->last_input_filter_task=srv;
srv->next_input_filter_task=task;
task->next_input_filter_task->last_input_filter_task=task;
} else {
U0 Song()
{
CTask *task;
MusicSettingsRst;
music_tempo= 2.350;
music_stacatto_factor= 0.900;
try {
task=PopUpViewStr(
"$LK,"Ecclesiastes,2:24","BF:Ecclesiastes,2:24"$\n"
"$LK,"Ecclesiastes,3:13","BF:Ecclesiastes,3:13"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
Fs->draw_it=&DrawIt;
Fs->task_end_cb=&SndTaskEndCB;
while (!ScanKey) {
t0=tMBeat;
Play("M5/43qEAeDDCCqBEAeDD",
"Up \0a\0bove \0He \0gen\0tly \0smiles\n\0as \0we \0meet \0and \0");
Play("CCqBFBeEEDDqCF",
"con\0quer \0trials.\n\0$$FG,RED$$You \0can \0do \0it \0lit\0tle \0one.\n\0With\0");
Play("BeEEDDqC",
"out \0work \0there \0is \0no \0fun.\n$FG$\0");
}
} catch
CatchAll;
SettingsPop;
}
static void Render() {
// LONG lines = ReadLineCounter();
{
BlitterClear(screen, active);
DrawSpans(screen->planes[active]);
BlitterFill(screen, active);
}
// Log("anim: %ld\n", ReadLineCounter() - lines);
{
WORD n = DEPTH;
while (--n >= 0) {
WORD i = (active + n + 1 - DEPTH) % (DEPTH + 1);
if (i < 0)
i += DEPTH + 1;
CopInsSet32(bplptr[n], screen->planes[i]);
}
}
TaskWait(VBlankEvent);
active = (active + 1) % (DEPTH + 1);
}