39 lines
2.1 KiB
Plaintext
39 lines
2.1 KiB
Plaintext
//has graphics
|
|
void EndTsk()
|
|
{
|
|
Sound(0);
|
|
Exit;
|
|
}
|
|
|
|
|
|
|
|
$PI,"<1>",1$
|
|
|
|
|
|
|
|
|
|
|
|
void Song()
|
|
{
|
|
Fs->end_task_cb=&EndTsk;
|
|
music_tempo=2.5;
|
|
try {
|
|
while (!ScanKey) {
|
|
Play("3qDGGGGGFF",
|
|
"My \0sins \0grieve \0my \0heaven\0ly \0fath\0er.\r\n\0");
|
|
Play("DGGGGGFF",
|
|
"My \0sins \0grieve \0my \0heaven\0ly \0fath\0er.\r\n\0");
|
|
PutGrElem($IB,"<1>",1$,$IS,"<1>",1$);
|
|
PutS("\r\n\r\n\r\n\r\n\r\n");
|
|
Play("sBBBBqBetAA2GqGetGG3GqGFetFED",
|
|
"I \0 \0won't \0 \0 \0do \0 \0 \0them. \0 \0 \0I \0can't.\r\n\0 \0 \0 \0 \0");
|
|
Play("sBBBBqBetAA2GqGetGG3GqGFetFED",
|
|
"I \0 \0won't \0 \0 \0do \0 \0 \0them. \0 \0 \0I \0can't.\r\n\0 \0 \0 \0 \0");
|
|
}
|
|
} catch
|
|
Fs->catch_except=TRUE;
|
|
Sound(0);
|
|
}
|
|
|
|
Song;
|
|
D 2 / ό��� ��������������������������€���� ό��? ϊ��_ ΰ�� €�� €�� �� ώ� ό ϊ ψ? ψ? π? π ΰ ΰ ΰ ΰ ΰ ΰ ΐ ΰ ΰ ΰ ΰ ΰ π? π? π ψ ϊ� ό� ώ� �� �� ΐ�� θ��? π��� ό���€����ό����������������������������������������€����ψό��?��ϋ��ί��η��ο�����σ��Ώ��ϋ����ύ���ώ�ώ���ύ����ϋ����ϋΏ����ϋΏ��ο�χΏ��χϋχί�ρχϋοί�ώϋχοί��ϋοοί��ϋίοί��ύ�οο��ύ�οο��ύ�Οο����οί����οί����οί����οί����οί����χΏ����χ?�ΐ�χ��Ώ�ϋ�χ�ϋ�ώ��ώύ�ύ���ώ�ω����χ��?��η��ί��ί��ο��?ώ�σ���όό���ƒƒ����ό����������������������������������������€����ψό��?��ϋ��ί��η��ο�����σ��Ώ��ϋ����ύ���ώ�ώ���ύ����ϋ����ϋΏ����ϋΏ��ο�χΏ��χϋχί�ρχϋοί�ώϋχοί��ϋοοί��ϋίοί��ύ�οο��ύ�οο��ύ�Οο����οί����οί����οί����οί����οί����χΏ����χ?�ΐ�χ��Ώ�ϋ�χ�ϋ�ώ��ώύ�ύ���ώ�ω����χ��?��η��ί��ί��ο��?ώ�σ���όό���ƒƒ����ό����������������������������������������€����ψό��?��ϋ��ί��η��ο�����σ��Ώ��ϋ����ύ���ώ�ώ���ύ����ϋ����ϋΏ����ϋΏ��ο�χΏ��χϋχί�ρχϋοί�ώϋχοί��ϋοοί��ϋίοί��ύ�οο��ύ�οο��ύ�Οο����οί����οί����οί����οί����οί����χΏ����χ?�ΐ�χ��Ώ�ϋ�χ�ϋ�ώ��ώύ�ύ���ώ�ω����χ��?��η��ί��ί��ο��?ώ�σ���όό���ƒƒ����ό�������������� � |