$SP,"<1>",1$ $SP,"<2>",2$ U0 DrawGodTalking(CTask *,CDC *dc) { I64 i; F64 m,a,x1,y1,x2,y2; SpritePlot3(dc,0,70,0,$IB,"<1>",1$); SpritePlot3(dc,200,70,0,$IB,"<2>",2$); dc->color=win_updates&15; for (i=0;i<256;i++) { m=Sqr(Rand); a=2*г*Rand; P2R(&x1,&y1,m,a); m=Sqr(Rand); a=2*г*Rand; P2R(&x2,&y2,m,a); GrLine(dc,235+30*x1,40+30*y1,235+30*x2,40+30*y2); } } U0 RandWord() {// $WW,1$$LK+PU,"Holy Spirit Instructions","FI:::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$ // $LK,"HolySpirit.CPP.Z","FI:::/TempleOS/Apps/HolySpirit/HolySpirit.CPP.Z"$ if (ws_num_words) "%s ",ws_sorted_words[TimerPickedBits(32)%ws_num_words]->str; } U0 RandQuote() { // $WW,1$$LK+PU,"Holy Spirit Instructions","FI:::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$ I64 i,size,l=300; U8 *bible_filename=Define("ST_BIBLE_FILE"); U8 *buf=FileRead(bible_filename,&size); if (buf) { i=TimerPickedBits(32)%(size-l); //$LK,"HolySpirit.CPP.Z","FI:::/TempleOS/Apps/HolySpirit/HolySpirit.CPP.Z"$ buf[i+l]=0; "%s",buf+i; Free(buf); } } U0 UpTheMountain() { I64 i; Mountain; Horeb; SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush","MN:SettingsPush"$ Fs->text_attr=YELLOW<<4+BLUE; Fs->draw_it=&DrawGodTalking; "$$BG,YELLOW$$$$WW,1$$$$CM,0,30$$God Says...$$FG,RED$$\n"; TimerPickFlush; if (TimerPickedBits(1)) for (i=0;i<16;i++) RandWord; else RandQuote; "$$FG$$\n\nPress $FG,2$$FG$.\n"; View; DocClear; SettingsPop(Fs,TSF_SAME_SONG); } ц эяяя эяяя. .Pэяяя Pэяяяьяяя Oьяяяr Nьяяяt Qыяяяoыяяя pыяяяx x‚щяяя qьяяяzщяяя zщяяя}ояяя }ояяяoояяя oояяяkщяяя vтяяяvтяяя -Пяяя $аяяя<Шяяя &Щяяя$Пяяя няяяЧяяя уяяя0кяяя #няяя,гяяя цяяядяяя