TempleOS-Rijn/Apps/Psalmody/Examples/josh.CPP

//7 has graphics





$SP,"<1>",BI=1$


U0 Song()
{
  CTask *task;
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
  music.tempo= 2.480;
  music.stacatto_factor= 0.814;
  try {
    task=PopUpViewPrint(
	  "$LK,"Psalms,18:26",A="BF:Psalms,18:26"$ Try other translations.\n"
	  "$LK,"Numbers,11:1",A="BF:Numbers,11:1"$ Read the whole chapter.\n"
	  "$LK,"1 Kings,22:1",A="BF:1 Kings,22:1"$ Read the whole chapter.\n"
	  );
    TaskWait(task);
    SetWinHorz(Fs->win_left,Fs->win_right,task);
    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
    while (!ScanKey) {
      Play("3sCACAeABqAeFAetDF2GeG3FqG2G",
	    "$$CL$$Oh, \0 \0my \0 \0 \0 \0Gosh!\n\0 \0 \0 \0 \0You \0 \0 \0lied!\n\0$$GREEN$$God talking...\n$$FG$$\0");
      Play("3sCACAeABqAeFAetDF2GeG3FqG2G",
	    "$$RED$$Just \0 \0 \0 \0 \0 \0joshed.\n\0 \0 \0Shhh. \0 \0 \0 \0Con\0fide.\n\0 \0");
      "%17c",CH_SPACE;
      Sprite($IB,"<1>",BI=1$);
      Play("3eDCqD2G3etE2G3GqDDeGAqD",
	    "\nI \0am \0God.\n\0 \0I \0 \0can \0lie.\n\0 \0 \0 \0 \0");
      Play("eDCqD2G3etE2G3GqDDeGAqD",
	    "I \0am \0God.\n\0 \0I \0 \0can \0lie.$$FG$$\n\0 \0 \0 \0 \0");
    }
  } catch
    PutExcept;
  Snd(0);
}

Song;

:7ôÿÿÿÜÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ