64 lines
1.9 KiB
Plaintext
64 lines
1.9 KiB
Plaintext
//has graphics
|
||
|
||
|
||
$PI,"<2>",2$
|
||
|
||
$PI,"<1>",1$
|
||
|
||
|
||
|
||
|
||
|
||
void EndTsk()
|
||
{
|
||
Sound(0);
|
||
Exit;
|
||
}
|
||
|
||
double t0=0.0;
|
||
|
||
void DrawIt(TssStruct *tss)
|
||
{
|
||
GrBitMap *base=GrAlias(grbase2,tss);
|
||
|
||
//$FG,2$The following draws the normal text.$FG$
|
||
LtfUpdateBothLtf(tss);
|
||
|
||
GrElemsPlot(base,20,8,0,$IB,"<2>",2$);
|
||
if (t0) {
|
||
GrElemsPlot(base,20,24,0,$IB,"<1>",1$);
|
||
Sound((t-t0)*100);
|
||
if (t>t0+0.15)
|
||
t0=0.0;
|
||
}
|
||
GrDel(base);
|
||
}
|
||
|
||
void Song()
|
||
{
|
||
void *old_update=Fs->update_win;
|
||
Fs->update_win=&DrawIt;
|
||
Fs->end_task_cb=&EndTsk;
|
||
music_tempo=2.5;
|
||
try {
|
||
while (!ScanKey) {
|
||
Play("3eBCsAGAGeAAetGAAsBBBBeCDqDeEA",
|
||
"Now, \0I \0su\0 \0u\0 \0ure \0 \0 \0 \0won't \0do\0o\0o\0o \0that \0a\0gain!\r\n\0 \0 \0");
|
||
|
||
t0=t;
|
||
Play("BCsAGAGeAAetGAAsBBBBeCDqDeEA",
|
||
"Now, \0I \0su\0 \0u\0 \0ure \0 \0 \0 \0won't \0do\0o\0o\0o \0that \0a\0gain!\r\n\0 \0 \0");
|
||
Play("2qG3etAAGBB2G3eEFCDqFeAGqC",
|
||
" \0 \0 \0 \0 \0 \0 \0Learn\0ing \0from \0 \0my \0 \0mis\0takes.\r\n\0");
|
||
Play("2G3etAAGBB2G3eEFCDqFeAGqC",
|
||
" \0 \0 \0 \0 \0 \0 \0Learn\0ing \0from \0 \0my \0 \0mis\0takes.\r\n\0");
|
||
}
|
||
} catch
|
||
Fs->catch_except=TRUE;
|
||
Fs->update_win=old_update;
|
||
Sound(0);
|
||
}
|
||
|
||
Song;
|
||
M % ! ! % % " " C Å []Û¶m’$¥(I²µ¶]ÛçI’4IR)1Ø0lض͵mž$I’dD…I¢$Ù¶mÛ¶Í>OÒ$É@†mÛ¶móÖmílÛ6Ož$“$I’mÛ¶mk]Û¶ýŸ$I’$I2Q’eÛ¶mÛ¶ú<O’$I’$“dsmÛ&O’$I’a’$I‚mÛf×öO’$E1I Û¶®m›$I’I’؆mÛ¶mÛ¶mÛæm¶Ïó$I’¤‰Â¶mÛ6¯Û¼Íum“$Ï“$I’¤¢d0l¶mÛ¶mÛ¶mëæm^mÿôIò$I’$&L¢lÛ¼º&I’$I’$I’$IRIn[·v�M“$I’d’$Ù¶mÛ¶mÛºÎuM’$I’$™$Á ¶
|
||
Û†mÛ¶mÛÚµ¶mž'I’$É$I¶m›g›<I’$I’$I’T’$É6lÛ¶mÛ¶ÎÛlÛöIš$I’$I’$)RI’$¶®mÛ$M’'I’$)&I°mÛ¶mÝæš'I2I’`Ù¶mkm“çI’I’ ضmضmÛ:Ï'yž$É$L‚mضmÛ¶m[×mÝæm¶Oò$IŠ%Û6¯ë¼®-I’&I’$I&Ø°mضmÛ¶m[WŸäIš4I’$I’$ÉdÛF’$I’$I’$I’$É“$`Û¶mÛ¶mÛ¶mÛ¶mÛf*
|
||
“dÛ¶n³ëÚ&O’"£0R’$Û¶mÛ¼uó¶nÞæÕ=“$I’$I1 †mÛ¶mÛLž$I’$I’$“$I°µõ:×5 : |