那些RPG

#include<cstdlib>
#include<windows.h>
#include<string>
#include<iostream>
#include<conio.h>
#include<ctime>
#define qdo 262
#define qre 294
#define qmi 330
#define qfa 349
#define qso 392
#define qla 440
#define qsi 494
#define do 523
#define re 578
#define mi 659
#define fa 698
#define so 784
#define la 880
#define si 988
#define do1 1046
#define re1 1175
#define mi1 1318
#define fa1 1480
#define so1 1568
#define la1 1760
#define si1 1976
#define sqdo 277
#define sqre 311
#define sqfa 370
#define sqso 415
#define sqla 466
#define sdo 554
#define sre 622
#define sfa 740
#define sso 831
#define sla 932
#define sdo1 1046
#define sre1 1245
#define sfa1 1480
#define sso1 1661
#define sla1 1865
#define b(a,b) Beep(a,b)
using namespace std;
int choice,num=rand()%5+1;
char a=0,b=0,c=0,d=0;
string acc[5]={"心脏病","高烧","流感","恶性肿瘤","脱水"};
int user_input;
void wait()
{
Sleep(100);
user_input=getchar();
}
void slowout(char *p)
{
while(1)
{
if(*p!=0)
{
printf("%c",*p++);
}
else
break;
Sleep(105);
}
}

void cls()
{
Sleep(100);
system("cls");
}
int main()
{
system("color 70");
string name;
int k=0;
start:cls();
goto a1;
gameover:
slowout("游戏结束。");

slowout("按回车键继续");
user_input=getche();
if(user_input=13)
goto a4;

a1:
if(a==0)
{
printf(" ");
slowout("城");
slowout("堡\n");
printf(" ");
slowout("The");
printf(" ");
slowout("castle\n");
printf(" ");
slowout("By:\n");
printf(" ");
slowout("工程师\n\n\n");
printf(" ");
slowout("2.0.3Beta\n\n\n");
for(int ii=1; ii<=2; ii++) {
system("color 20");
system("color 40");
system("color 60");
system("color 80");
system("color 90");
system("color b0");
system("color d0");
system("color 10");
}
system("color 70");
system("cls");
a=1;
slowout("你的名字:");
cin>>name;
if(name=="工程师")
{
slowout("不行，换一个：");
cin>>name;
}
else if(name=="sans")
{
int ac=40;
int x=GetSystemMetrics(SM_CXSCREEN);
int y=GetSystemMetrics(SM_CYSCREEN);
srand(time(0));
while(ac--)
{
SetCursorPos(rand()%x,rand()%y);
Sleep(250);
}
return 0;
}
else if(name=="Data"||name=="data")
{
slowout("1.0.0:新鲜出炉\n");
slowout("1.0.1:新增音乐\n");
slowout("1.0.2:DEBUG\n");
slowout("1.0.3:新增闪亮特效，且移除了音乐233\n");
slowout("1.0.4:新增打字特效\n");
slowout("1.0.5:使打字函数不许打空格\n");
slowout("2.0.0:使最佳结局增加音乐233\n");
slowout("2.0.1:DEBUG\n");
slowout("2.0.2:新增<<疾病之书>>\n");
slowout("2.0.3:DEBUG\n");
slowout("支持正版！！！工程师！！");
goto a4;
}

slowout("你,住在山中的小木屋里。");
wait();
slowout("某天早上，你刚要出门，却发现不远处有一座从未见过的城堡。");
wait();
slowout("出于好奇，你走近了它。");
wait();}
goto a4;
a2:slowout("突然，方孔中射出无数支箭，你被射死了。");
wait();
slowout("失败01:城堡不喜欢没礼貌的孩子");
wait();
goto gameover;
a3:cls();
slowout("你又敲了三下门，门打开了。");
wait();
slowout("门里面是一个昏暗的大厅，墙壁上的火把提供了照明。");
wait();
slowout("你慢步走进去，嘭 门在你身后关上了。\n");
slowout("1-试着打开门逃出去\n");
slowout("2-继续前进");
s3:wait();
switch(user_input)
{
case '1':goto a10;
case '2':goto a13;
default:goto s3;
}
a4:cls();
slowout("城堡看起来很古老，古旧的红色木门紧关着。\n");
wait();
slowout("1-推门进去\n");
slowout("2-敲三下门试试\n");
slowout("3-离开");
s4:wait();
switch(user_input)
{
case'1':goto a8;
case'2':goto a15;
case'3':goto a16;
default:goto s4;
}
a5:slowout("......");
wait();
slowout("你用力拉把手，喀哒一声，门没有开，地面却崩塌了。\n");
wait();
slowout("你掉了下去，在这下面满满的尖刺在等着你。\n");
wait();
slowout("失败03:城堡不喜欢胆小的孩子。\n");
wait();
goto gameover;
a6:cls();
slowout("你推开那扇门，里面是一个小房间.");
wait();
slowout("墙壁上插着一支火把。");
wait();
slowout("地上的阶梯似乎通向地下室.\n");
wait();
slowout("1-从阶梯下去\n");
slowout("2-先把火把丢下去");
s6:wait();
switch(user_input)
{
case '1':goto a11;
case '2':goto a12;
default:goto s6;
}
a7:slowout("桌子上有一个金色的碗和银色的碗，金色的碗里盛满了美味的汤，而银色的碗里盛满了小石子\n");
wait();
slowout("1-喝金碗里的汤\n");
slowout("2-倒掉银碗里的石子\n");
slowout("3-继续探索");
s7:wait();
switch(user_input)
{
case '1':goto a17;
case'2':goto a14;
case'3':goto a19;
default:goto s7;
}
a8:cls();
slowout("你推开门，门里是一间狭小的房屋，正对的墙上有很多方孔。\n");
wait();
goto a2;
a9:system("cls");
slowout("走廊的尽头是一个房间，你看到一张长长的餐桌。\n");
wait();
goto a7;
a10:cls();
slowout("你试图推门，推不开。");
wait();
slowout("你看到门上的把手，想到了这门可能是要向后拉。");
wait();
goto a5;
a11:cls();
slowout("你走了下去，下面空荡荡的什么也没有。");
wait();
slowout("在你感到呼吸困难的时候已经晚了。");
wait();
slowout("你死于窒息。");
wait();
slowout("失败04:城堡不喜欢鲁莽的孩子。");
wait();
goto gameover;
a12:cls();
a=2;
slowout("你把火把丢下去，火把很快熄灭了。");
wait();
slowout("你庆幸自己没有直接走下去，你退回到了大厅。\n");
wait();
slowout("1-走上台阶\n");
slowout("2-去走廊");
s12:wait();
switch(user_input)
{
case '1':goto a18;
case '2':goto a9;
default:goto s12;
}
a13:cls();
slowout("大厅里光线略有些昏暗。");
wait();
slowout("你看到正对着你的是一扇门，在你的左边是螺旋向上的台阶，右边是一条走廊。\n");
wait();
slowout("1-进入那扇门\n");
slowout("2-走上台阶\n");
slowout("3-去走廊那边看看");
s13:wait();
switch(user_input)
{
case '1':goto a6;
case '2':goto a18;
case '3':goto a9;
default:goto s13;
}
a14:cls();
slowout("你倒掉了银碗里的石子，看到碗底刻着的字。\n");
slowout("[厨房的橱柜下面]");
wait();
slowout("你走向厨房.");
goto a20;
a15:cls();
slowout("你敲了三下门，门一点反应都没有。\n");
wait();
slowout("1-再敲三下门\n");
slowout("2-推门进去\n");
slowout("3-不想进去了");
s15:wait();
switch(user_input)
{
case '1':goto a3;
case '2':goto a8;
case '3':goto a16;
default:goto s15;
}
a16:cls();
slowout("你并没有进入城堡，而是回到家中。");
wait();
slowout("城堡持续存在了几天，在那之后，你发现城堡不见了。");
wait();
slowout("你忘记了这座城堡曾经存在过，继续着原来的生活。");
wait();
slowout("\n失败02:城堡不喜欢没有冒险精神的孩子。");
wait();
goto gameover;
a17:cls();
slowout("你端起金碗，一饮而尽。");
wait();
slowout("你很快就察觉到了腹中的异样，你中毒身亡。");
wait();
slowout("失败05:城堡不喜欢贪食的孩子。");
wait();
goto gameover;
a18:cls();
slowout("你走上楼梯，在你面前的是一条过道。");
wait();
slowout("左边是一扇双开的门，右边是一扇单开的门。\n");
wait();
slowout("1-进入双开的门\n");
slowout("2-进入单开的门\n");
slowout("3-沿着这条走廊向前走");
s18:wait();
switch(user_input)
{
case '1':goto a26;
case '2':goto a27;
case '3':goto a28;
default:goto s18;
}
a19:cls();
slowout("你发现这房间的尽头通向近似厨房的房间。");
wait();
slowout("你进去搜索了一圈，一无所获。");
wait();
slowout("于是你回到了大厅。\n");
wait();
slowout("1-去楼上\n");
if(a==2)
slowout("2-走进中间的房间（已探索）");
else
slowout("2-走进中间的房间");
s19:wait();
switch(user_input)
{
case '1':goto a18;
case '2':goto a19s;
default:goto s19;
}
a19s:if(a==2)
{
slowout("由于那里的地下室过于危险，你还是决定上楼。");
wait();
goto a18;
}
else
goto a6;
a20:slowout("你来回走了两圈，找到了厨房。");
wait();
slowout("你望向橱柜下方，找到了一封信。\n");
b=1;
wait();
slowout("1-拆开看看\n");
slowout("2-就这样回到大厅并上楼\n");
if(a==2)
slowout("3-走进大厅中间的房间（已探索）");
else
slowout("3-走进大厅中间的房间");
s20:wait();
switch(user_input)
{
case '1':goto a25;
case '2':goto a18;
case '3':goto a19s;
default:goto s20;
}
a21:cls();
slowout("你拿起《魔法入门》。");
wait();
slowout("里面都是奇怪的符号，看不懂。");
wait();
goto a29;
a22:cls();
slowout("你把《机关》从书架抽出来。");
wait();
slowout("...");
wait();
slowout("突然，书架向你倒了下来。");
wait();
slowout("你被压在了下面。");
wait();
slowout("你的头被砸出血了，临死大呼:“果然是机关啊！”");
wait();
slowout("失败07:城堡不喜欢投机取巧的孩子。");
wait();
goto gameover;
a23:cls();
slowout("你翻开《城堡常识》。");
wait();
slowout("书上说这城堡是有灵性的，还有一系列对城堡主人的介绍。");
wait();
d=1;
goto a29;
a24:

cls();

slowout("你翻开那本书，书中奇怪的图案令你感到不适。");
wait();
slowout("你死了。");
wait();
slowout("此时书上写着:人吃五谷杂粮，哪有不得病的？");
wait();
slowout("失败08:城堡不喜欢武断的孩子。");
wait();
goto gameover;
a25:cls();
slowout("你拆开信封，里面一股粉尘使你不停咳嗽。");
wait();
slowout("里面的纸条写着:您订购的砒霜，请验收。");
wait();
slowout("失败06:城堡不喜欢窥探隐私的孩子。");
wait();
goto gameover;
a26:cls();
slowout("你推开了门，这个房间看起来像一个藏书室。");
wait();
slowout("里面很多书架平行地摆放着，每个书架上的书看起来是一样的。");
wait();
slowout("你擦了擦书脊上的灰尘，勉强看清了书名。");
wait();
goto a29;
a27:cls();
slowout("你打开了那扇门。");
wait();
slowout("门里的房间很小，桌子上一个玻璃沙漏中燃烧着火焰。");
wait();
slowout("周围是大大小小的试管，烧瓶，里面装着各种颜色的液体。");
wait();
slowout("这时，一只老鼠出现在你的视野，它感受到了你的存在，一扭头逃走了。");
wait();
slowout("但是，它的动作碰倒了一个塞住的绿色瓶子。\n");
wait();
slowout("1-把瓶子扶起来\n");
slowout("2-不管它");
s27:wait();
switch(user_input)
{
case '1':goto a30;
case '2':goto a31;
default:goto s27;
}
a28:cls();
slowout("你来到了走廊的尽头");
wait();
goto a32;
a29:cls();
slowout("你要阅读哪本书？\n");
wait();
slowout("1-《魔法入门》\n");
slowout("2-《机关》\n");
slowout("3-《城堡常识》\n");
slowout("4-《疾病法典》\n");
slowout("5-算了");
s29:wait();
switch(user_input)
{
case '1':goto a21;
case '2':goto a22;
case '3':goto a23;
case '4':goto a24;
case '5':goto a2a;
default:goto s29;
}
a2a:cls();
slowout("要去哪里？\n");
wait();
slowout("1-对面单开门的房间\n");
slowout("2-沿走廊走下去");
s2a:wait();
switch(user_input)
{
case '1':goto a27;
case '2':goto a28;
default:goto s2a;
}
a30:cls();
slowout("你一把抓住这个瓶子。");
wait();
slowout("瓶子里装满了绿色液体，标签上写着<<毁灭之星>>。");
wait();
c=1;
slowout("你决定拿着它。");
wait();
slowout("现在要去哪里？\n");
wait();
slowout("1-对面那扇双开的门\n");
slowout("2-走向走廊的深处");
s30:wait();
switch(user_input)
{
case '1':goto a26;
case '2':goto a28;
default:goto s30;
}
a31:cls();
slowout("瓶子慢慢滚到桌子边缘，然后摔在地上。");
wait();
slowout("瓶子里的是不稳定物质，爆炸并引起了连锁反应。");
wait();
slowout("你被炸成了灰烬。");
wait();
slowout("失败09:城堡不喜欢冷漠的孩子。");
wait();
goto gameover;
a32:cls();
slowout("在你面前站着一副盔甲。");
wait();
slowout("不知为什么，它自己动了起来。");
wait();
slowout("它向你移动并试图用手里的剑把你杀死！\n");
wait();
slowout("1-试着用拳头打它\n");
slowout("2-尝试逃跑\n");
if(c==1)
slowout("3-试着把易爆物质扔向它");
s32:wait();
switch(user_input)
{
case '1':goto a43;
case '2':goto a44;
case '3':goto a32a;
default:goto s32;
}
a32a:if(c==1)
goto a42;
else
goto s32;
a33:cls();
slowout("走廊在这里向左转弯。");
wait();
slowout("走过这个拐角向前，你看见你的左侧有一扇门，前方则是螺旋向上的楼梯。\n");
wait();
slowout("1-进入那个房间\n");
slowout("2-走上楼梯");
s33:wait();
switch(user_input)
{
case '1':goto a40;
case '2':goto a41;
default:goto s33;
}
a34:cls();
slowout("你打开衣柜，里面一片漆黑。");
wait();
slowout("这时，突然从里面走出一个骨瘦如柴的男子，缓缓走到床边坐下。");
wait();
if(b==1)
{
slowout("“有我的信？”他用沙哑的声音问。");
wait();
goto a47;
}
goto a38;
a35:cls();
slowout("床头柜里有两粒不知名的药丸。");
wait();
slowout("出于戒备你并没有尝试");
wait();
goto a39;
a36:cls();
slowout("你站在镜子前。");
wait();
slowout("你突然发现，镜子里的你是一具骷髅！");
wait();
slowout("你受到了惊吓，连忙转过头去。");
wait();
goto a39;
a37:cls();
slowout("宝座的扶手上放着一顶镶嵌着宝石的金色王冠。\n");
wait();
slowout("1-把它戴在头上\n");
slowout("2-试着把它带回家\n");
slowout("3-试着擦拭王冠");
s37:wait();
switch(user_input)
{
case '1':goto a46;
case '2':goto a48;
case '3':goto a54;
default:goto s37;
}
a38:cls();
slowout("他看到你，叹了一口气，回到了衣柜中。");
wait();
slowout("你把柜门关上了。");
wait();
a39:cls();
slowout("你要翻看哪里？\n");
wait();
slowout("1-衣柜\n");
slowout("2-床头柜\n");
slowout("3-梳妆镜\n");
slowout("4-离开");
s39:wait();
switch(user_input)
{
case '1':goto a34;
case '2':goto a35;
case '3':goto a36;
case '4':goto a41;
default:goto s39;
}
a40:cls();
slowout("你推开门，里面是一间卧室。");
wait();
slowout("或许有什么值得寻找的东西？");
wait();
goto a39;
a41:cls();
slowout("你走上台阶，来到三层。");
wait();
slowout("正对你的是一扇红色金边的大门，你毫不犹豫地走了进去。");
wait();
goto a45;
a42:cls();
slowout("你掏出小瓶子丢向它。");
wait();
slowout("......");
wait();
slowout("轰——");
wait();
slowout("它在一声爆炸后化作了一堆废铁。");
wait();
slowout("你越过这堆废铁继续前进");
wait();
goto a33;
a43:cls();
slowout("你用拳头砸向它，它毫发无损，你却感觉到拳头的疼痛。");
wait();
slowout("它好像被激怒了，挥斧向你砍来。");
wait();
slowout("你被砍死了。");
wait();
slowout("失败10:城堡不喜欢自不量力的孩子。");
wait();
goto gameover;
a44:cls();
slowout("你不顾一切地逃到大厅，跑到最开始的门口。");
wait();
goto a10;
a45:cls();
slowout("门里面长长的红地毯延伸出去，末端是一个装饰华丽的宝座。");
wait();
slowout("你走近了它。");
wait();
goto a37;
a46:cls();
slowout("你把王冠戴在了头上。");
wait();
slowout("这时，你突然发现你旁边还有一个人。");
wait();
slowout("在你发现他的时候，他已经飞速地跑开了。\n");
wait();
slowout("1-追上他\n");
slowout("2-不管他");
s46:wait();
switch(user_input)
{
case '1':goto a52;
case '2':goto a53;
default:goto s46;
}
a47:cls();
slowout("你把信塞给他。");
wait();
slowout("他看到信点了点头，对你念了一堆不知所云的咒语就回到衣柜里了。");
wait();
slowout("你决定上楼。");
wait();
goto a50;
a48:cls();
slowout("你拿着王冠，跑到城堡的大门处。");
wait();
slowout("你试着推门，门纹丝不动。");
wait();
slowout("这时，你听到轰隆隆的响声。");
wait();
slowout("回头一看，那盔甲重新组合起来了。");
wait();
slowout("它一斧劈中了你。");
wait();
slowout("失败11:城堡不喜欢贪财的孩子。");
wait();
goto gameover;
a49:cls();
slowout("他告诉你他就是城堡的主人。");
wait();
slowout("他还告诉了你这城堡的诅咒:");
wait();
slowout("一旦戴上王冠就会成为城堡的主人，在下一个访客来到这里之前，是无法走出城堡的。");
wait();
slowout("如果你戴上了王冠，他就会得到解放。\n");
wait();
slowout("1-我想戴上王冠，解开他的束缚。\n");
slowout("2-我要尝试打破这个诅咒，即使付出生命的代价。");
s49:wait();
switch(user_input)
{
case '1':goto a53;
case '2':goto a61;
default:goto s49;
}
a50:cls();
slowout("你跑上楼梯，正对着你的是一扇红色金边的大门。");
wait();
slowout("你毫不犹豫走了进去。");
goto a55;
a51:cls();
slowout("你快步来到二楼，进入了藏书室。");
wait();
if(d=1)
goto a56;
else
goto a57;
a52:cls();
slowout("你试图追上他，可惜他跑得飞快，很快就从大门冲出去了。");
wait();
slowout("你再想出去，发现大门又关得紧紧的。");
wait();
slowout("无奈之中你不知道接下来该做什么。");
wait();
slowout("不过王冠似乎在指引你去二楼那个双开门的房间，也就是藏书室。");
wait();
goto a51;
a53:cls();
slowout("你坐在宝座上。");
wait();
slowout("不知为何王冠似乎在指引你去二楼那个双开门的房间，也就是藏书室。");
wait();
goto a51;
a54:cls();
slowout("你用袖子擦拭了几下王冠，王冠上的宝石闪了一下。");
wait();
slowout("这时，你脑内传来声音：你可以离开了。\n");
wait();
slowout("1-戴上王冠\n");
slowout("2-离开城堡");
s54:wait();
switch(user_input)
{
case '1':goto a46;
case '2':goto a60;
default:goto s54;
}
a55:cls();
slowout("在大门里，一条长长的红地毯通向前方.");
wait();
slowout("红地毯的尽头是装饰华美的宝座，宝座上有一个人。");
wait();
slowout("他见到你，很快站了起来。");
wait();
slowout("你向他打招呼，他很诧异你能够看到他。");
wait();
slowout("这时，你注意到了宝座上放着一顶镶嵌着宝石的金色王冠。\n");
wait();
slowout("1-戴上王冠\n");
slowout("2-把王冠带出城堡\n");
slowout("3-试着擦拭王冠\n");
slowout("和那个人交谈");
s55:wait();
switch(user_input)
{
case '1':goto a46;
case '2':goto a48;
case '3':goto a54;
case '4':goto a49;
default:goto s55;
}
a56:cls();
slowout("你再次打开《城堡常识》。");
wait();
slowout("发现上面的文字变得清晰了。");
wait();
slowout("你开始阅读这本书。");
wait();
goto a58;
a57:cls();
slowout("你随手拿了一本书，书名叫《城堡常识》。");
wait();
a58:cls();
slowout("书上说这城堡是遭受诅咒的城堡。");
wait();
slowout("戴上王冠后将永远无法离开城堡或摘下王冠，并且来访者无法看到城堡主人。");
wait();
slowout("到有人踏入了这座城堡才可以摘下王冠。");
wait();
slowout("只有来访者戴上了王冠，上一任主人才可以走出城堡。");
wait();
a59:cls();
slowout("你又阅读了《魔法基础》，读得很顺利。");
wait();
slowout("学会了如何控制这座城堡瞬移。");

wait();
slowout("你每天在这里过着奢华的生活，现在你就是城堡的主人。");
wait();
slowout("很多年过去了，你已经驾驶城堡去了无数地方，但没有别人敢进入城堡。");
wait();
slowout("结局1:城堡喜欢孤独的孩子。");
wait();
goto gameover;
a60:cls();
slowout("你来到大门前，轻推大门，大门缓缓打开了。");
wait();
slowout("你回到家，背后传来一声轻轻的叹息。");
wait();
slowout("城堡存在了几天，然后悄无声息地消失了 。");
wait();
slowout("你继续了平常的生活。");
wait();
slowout("结局2:城堡喜欢质洁的孩子。");
wait();
goto gameover;
a61:cls();
slowout("你把你的想法说给那个人听，他同意了，并提出了一个方案。");
wait();
slowout("他带你来到二楼单开门的房间，那里储存着大量不稳定的魔法药剂。");
wait();
slowout("你们将所有容器打开，将其中的液体倾倒满整个城堡。");
wait();
slowout("最后，你把<<毁灭之星>>用力摔在地上。");
wait();
slowout("它引发了连锁反应：粉碎了六大宝石，点燃了淡紫的《圣水》、酒红色的《爱意》、金黄的《点金》，玻璃沙漏冒出了一火星……火焰吞没了你们两个人。");
wait();
slowout("城堡轰然倒塌，诅咒被打破了。");
wait();
slowout("结局3:城堡喜欢你。");
int pai=550,ban=pai/2;
b(la, ban);
b(si, ban);
b(do1, pai + ban);
b(si, ban);
b(do1, pai);
b(mi1, pai);
b(si, pai + pai + pai);

b(mi, ban);
b(mi, ban);
b(la, pai + ban);
b(so, ban);
b(la, pai);
b(do1, pai);
b(so, pai + pai + pai);

b(mi, ban);
b(fa, pai + ban);
b(mi, ban);
b(fa, pai);
b(do1, pai);
b(mi, pai + pai);

b(0, ban);
b(do1, ban);
b(do1, ban);
b(do1, ban);
b(si, pai + ban);
b(fa, ban);
b(fa, pai);
b(si, pai);
b(si, pai + pai);

b(0, pai);

b(la, ban);
b(si, ban);
b(do1, pai + ban);
b(si, ban);
b(do1, pai);
b(mi1, pai);
b(si, pai + pai + pai);

b(mi, ban);
b(mi, ban);
b(la, pai + ban);
b(so, ban);
b(la, pai);
b(do1, pai);
b(so, pai + pai + pai);


b(re, ban);
b(mi, ban);
b(fa, pai);
b(do1, ban);
b(si, ban);
b(si, ban);
b(do1, ban);
b(do1, pai);
b(re1, ban);
b(re1, ban);
b(mi1, ban);
b(do1, ban);
b(do1, pai + pai);

b(do1, ban);
b(si, ban);
b(la, ban);
b(la, ban);
b(si, pai);
b(so, pai);
b(la, pai + pai + pai);

b(do1, ban);
b(re1, ban);
b(mi1, pai + ban);
b(re1, ban);
b(mi1, pai);
b(so1, pai);
b(re1, pai + pai + pai);

b(so, ban);
b(so, ban);
b(do1, pai + ban);
b(si, ban);
b(do1, pai);
b(mi1, pai);
b(mi1, pai + pai + pai + pai);
b(la, ban);
b(si, ban);
b(do1, pai);
b(si, pai);
b(re1, ban);
b(re1, ban);
b(do1, pai + ban);
b(so, ban);
b(so, pai + pai);

b(fa1, pai);
b(mi1, pai);
b(re1, pai);
b(do1, pai);
b(mi1, pai + pai + pai);

b(mi1, pai);
b(la1, pai+pai);
b(so1, pai);
b(so1, pai);
b(mi1, ban);
b(re1, ban);
b(do1, pai+pai);

b(0, ban);
b(do1, ban);
b(re1, pai);
b(do1, ban);
b(re1, ban);
b(re1, pai);
b(so1, pai);
b(mi1, pai + pai + pai);
b(mi1, pai);
b(la1, pai + pai);
b(so1, pai + pai);

b(mi1, ban);
b(re1, ban);
b(do1, pai + pai);
b(0, ban);
b(do1, ban);
b(re1, pai);
b(do1, ban);
b(re1, ban);
b(re1, pai);
b(si, pai);
b(la, pai + pai + pai);

wait();
goto gameover;
return 0;
}