Пример #1
0
//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);
}
Пример #2
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);
}
Пример #3
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);
}
Пример #4
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 {
Пример #5
0
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;
}
Пример #6
0
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);
}