53 lines
2.0 KiB
Plaintext
53 lines
2.0 KiB
Plaintext
//has graphics
|
||
$PI,"<PI2>",2$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
void EndTsk()
|
||
{
|
||
Sound(0);
|
||
Exit;
|
||
}
|
||
|
||
void Song()
|
||
{
|
||
Fs->end_task_cb=&EndTsk;
|
||
music_tempo=2.5;
|
||
try {
|
||
PutS("$$WW+H,1$$");
|
||
while (!ScanKey) {
|
||
Play("3eEGqACetCFGeEFqGetGFEqA",
|
||
"Look \0at \0that! \0 \0 \0 \0Dew \0 \0 \0on \0flow\0 \0 \0ers.\r\n\0");
|
||
Play("eEGqACetCFGeEFqGetGFEqA",
|
||
"Look \0at \0that! \0 \0 \0 \0Dew \0 \0 \0on \0flow\0 \0 \0ers.\r\n\0");
|
||
PutGrElem($IB,"<IB2>",2$,$IS,"<IS2>",2$);
|
||
PutS("$$CM,0,7$$");
|
||
Play("eDEqEAEFCCetCAD",
|
||
"Pret\0ty \0when \0 \0they \0catch \0the \0light.\r\n\0 \0 \0 \0");
|
||
Play("eDEqEAEFCCetCAD",
|
||
"Pret\0ty \0when \0 \0they \0catch \0the \0light.\r\n\0 \0 \0 \0");
|
||
PutS("$$FG,GREEN$$(It's easy to be dark and profound all the time in arrogance. "
|
||
"Sometimes, I search for self-evident goodness.)\r\n$$FG$$");
|
||
}
|
||
} catch
|
||
Fs->catch_except=TRUE;
|
||
Sound(0);
|
||
}
|
||
|
||
Song;
|
||
|