program xiyou(input,output); var q,w,e,r,t,y,u,i,o,p,a,lv,s,d,f,djingyan,jingyan,g,h,j,k,l,money,rwjingyan,zwq,fwq,zhiye,gong,fang,bisha, xsheng,dsheng,qian,shangyao,bigshangyao:longint; z,x,c,v,b,n,m:string; sjingyan:array[1..30] of longint= (40,80,150,270,410,620,730,840,950,1060,1270,1480,1690,1900,2210,2490,2800,3200,3680,4200,5000,5500,6100 ,7300,8500,9760,10900,13100,15500,18000); sjj:array[1..10] of longint=(5,16,24,38,49,60,71,82,99,120); gname1:array[0..3] of string=('怪松鼠','食人草','飞啄鸟','小熊'); gname2:array[0..3] of string=('小铁球','铁刺团','铁人','铁巨人'); qqq,www,eee,rrr,ttt,yyy,uuu,iii,ooo,ppp:longint; qq,ww,ee,rr,tt,yy,uu,ii,oo,pp,aa,ss,dd,ff,gg,hh,jj,kk,ll,rwwc:array[0..10000] of longint; f1,f2:text; zz,xx,cc,vv,bb,nn,mm:array[0..10000,0..10000] of longint; twq:array[0..7] of string; twqg,twqf,twqbs:array[0..7] of longint; wq1:array[0..7] of string=('无','铁剑','钢剑','勇者之剑','银剑','必杀剑','光之剑','封印之剑'); wq1g:array[0..7] of longint=(0,15,45,50,90,40,100,200); wq1f:array[0..7] of longint=(0,2,5,10,15,4,17,20); wq1bs:array[0..7] of longint=(0,2,4,5,5,20,7,10); wq3:array[0..7] of string=('无','铁斧','钢斧','勇者之斧','银斧','必杀斧','炎之斧','天雷之斧'); wq3g:array[0..7] of longint=(0,20,50,70,100,50,120,230); wq3f:array[0..7] of longint=(0,0,2,6,10,2,13,16); wq3bs:array[0..7] of longint=(0,1,2,4,5,22,7,12); wq2:array[0..7] of string=('无','铁枪','钢枪','勇者之枪','银枪','必杀枪','龙王枪','疾风之枪'); wq2g:array[0..7] of longint=(0,17,48,70,95,45,110,215); wq2f:array[0..7] of longint=(0,2,3,8,13,3,15,18); wq2bs:array[0..7] of longint=(0,0,2,3,4,21,6,11); procedure ready; begin write('输入文件名:'); readln(c); assign(f1,c); reset(f1); for i:=0 to 100 do readln(f1,rwwc[i]); readln(f1,money); readln(f1,lv); readln(f1,jingyan); readln(f1,djingyan); for i:=0 to 6 do begin readln(f1,twq[i]); readln(f1,twqg[i]); readln(f1,twqf[i]); readln(f1,twqbs[i]); end; readln(f1,zwq); readln(f1,fwq); readln(f1,gong); readln(f1,fang); readln(f1,xsheng); readln(f1,dsheng); readln(f1,zhiye); readln(f1,z); readln(f1,bisha); readln(f1,shangyao); readln(f1,bigshangyao); readln(f1,rwjingyan); close(f1); writeln('读入成功!(按回车键继续)'); readln; end; procedure save; var i:longint; begin writeln('输入保存文件名:'); readln(c); assign(f2,c); rewrite(f2); for i:=0 to 100 do writeln(f2,rwwc[i]); writeln(f2,money); writeln(f2,lv); writeln(f2,jingyan); writeln(f2,djingyan); for i:=0 to 6 do begin writeln(f2,twq[i]); writeln(f2,twqg[i]); writeln(f2,twqf[i]); writeln(f2,twqbs[i]); end; writeln(f2,zwq); writeln(f2,fwq); writeln(f2,gong); writeln(f2,fang); writeln(f2,xsheng); writeln(f2,dsheng); writeln(f2,zhiye); writeln(f2,z); writeln(f2,bisha); writeln(f2,shangyao); writeln(f2,bigshangyao); writeln(f2,rwjingyan); close(f2); writeln('保存成功!(按回车键继续)'); readln; end; procedure huiche; begin writeln; writeln('(按回车键继续)'); readln; end; procedure start1; begin writeln('无敌西游第一部前言!'); writeln; writeln('一天,被称为天才的你正在电脑上玩耍,忽然……'); writeln('有一个大手从电脑里面伸了过来,'); writeln('它把你牢牢地抓住了,然后缩回了电脑,'); writeln('然后你就昏迷了,隐隐听见打斗的声音……'); writeln('你有一种预感,这里,一定是个不平凡的世界……'); writeln; writeln('                      创作者:王昱炜!'); writeln; writeln('(按回车键继续)'); readln; for w:=1 to 50 do writeln; writeln('当你醒来的时候,你躺在一张床上'); writeln('这时候,有一个人走过来了。'); writeln; writeln('他说:嗨,你好,我叫杰克,你在这儿昏迷很久了,终于醒了?'); huiche; writeln; writeln('你说:这是哪儿?'); writeln; writeln('他说:你好啊,这里是无敌西游,你貌似不是这里的人啊'); huiche; writeln; writeln('你说:我……现在是公元几几年?'); writeln; writeln('他说:你不知道?是公元前6780年'); huiche; writeln; writeln('我说:啊?……'); writeln; writeln('他说:看样子你貌似是外地人,走,我带你去见神父'); huiche; writeln; writeln('他拖着你走了,你们一起来到了礼拜堂'); writeln; writeln('叮咚——教堂的声音响起——'); huiche; writeln; writeln('杰克说:走吧,神父能为你解答问题'); writeln; writeln('你们一起来到了神父面前——'); writeln; writeln('杰克说:你问问题吧,我在外面等你。'); writeln; writeln('杰克出去了'); huiche; writeln; writeln('神父说:哈,年轻人,你是来求一个职业的吗?'); writeln; writeln('你说:嗯?什么职业?'); huiche; writeln; writeln('神父说:啊,多么单纯的年轻人啊,我要赐予你神圣的职业!'); writeln; writeln('你说:职业是什么东西啊(估计是个好东西)'); huiche; writeln; writeln('神父说:职业能让你的能力提升很多,也能让你拥有不一般的力量'); writeln; writeln('你说:真的吗?(O(∩_∩)O哈哈~)'); writeln; writeln('神父说:当然是真的,来,选择一个职业吧'); huiche; writeln; end; procedure look; begin writeln; writeln('当前人物等级:',lv,'级'); writeln; writeln('经验值为:',jingyan,'/',djingyan); writeln; writeln('还差',djingyan-jingyan,'点经验升级哦,加油吧!'); writeln; writeln('当前人物职业:',z); if zhiye=1 then begin writeln; writeln('当前人物的主武器:',wq1[zwq]); writeln; writeln('当前人物的副武器:',wq1[fwq]); end; if zhiye=2 then begin writeln; writeln('当前人物的主武器:',wq2[zwq]); writeln; writeln('当前人物的副武器:',wq2[fwq]); end; if zhiye=3 then begin writeln; writeln('当前人物的主武器:',wq3[zwq]); writeln; writeln('当前人物的副武器:',wq3[fwq]); end; writeln; writeln('人物攻击力:',gong+twqg[zwq],'   人物防守力:',fang+twqf[zwq],'  人物必杀率:',bisha+twqbs [zwq],'%'); writeln; writeln('人物生命值:',xsheng,'/',dsheng); writeln; writeln('人物金钱:',money); writeln; writeln('伤药个数:',shangyao); writeln; writeln('大伤药个数:',bigshangyao); writeln; writeln; writeln('(按回车键继续)'); readln; end; procedure zhiye1; begin writeln; writeln('在这个世界里,每个人都可以拥有职业,你想拥有职业吗?选择一个吧'); writeln; writeln('职业1:剑士'); writeln('      攻击力:25  防守力:10  生命:100  必杀:10%'); writeln('    剑士特效:克制斧头兵'); writeln; writeln('职业2:骑士'); writeln('      攻击力:22  防守力:11  生命:110  必杀:5%'); writeln('    骑士特效:克制剑士'); writeln; writeln('职业3:斧头兵'); writeln('      攻击力:29  防守力:8  生命:95  必杀:5%'); writeln('    斧头兵特效:克制骑士'); writeln; writeln; writeln('认真的选择吧,年轻人!选择好后告诉我'); writeln; write('你选择职业几?(输入序号)'); readln(zhiye); if zhiye=1 then begin z:='剑士'; gong:=25; fang:=10; dsheng:=100; xsheng:=100; bisha:=10; end; if zhiye=2 then begin z:='骑士'; gong:=22; fang:=11; dsheng:=110; xsheng:=110; bisha:=5; end; if zhiye=3 then begin z:='斧头兵'; gong:=29; fang:=8; dsheng:=95; xsheng:=95; bisha:=5; end; writeln('选好了吗?马上进行职业典礼!'); writeln('3'); writeln('2'); writeln('1'); writeln('恭喜你已经成为了',z,'!'); lv:=5; writeln; writeln('(按回车键继续)'); readln; end; procedure dstore; begin writeln; repeat writeln; writeln('欢迎来到道具店'); writeln; writeln('你现在有:',money,'元'); writeln; writeln('你想买些什么呢?'); writeln; writeln('1、伤药:战斗的时候补充50血, 40元1个'); writeln; writeln('2、大伤药:战斗的时候补充150血 120元一个'); writeln; writeln('3、人物经验卡:人物经验+100 300元一个'); writeln; writeln('4、离开商店'); writeln; write('你想买哪个?(输入序号):'); readln(q); if q=1 then if money>=40 then begin writeln; money:=money-40; writeln('购买成功!你现在还有',money,'元了'); shangyao:=shangyao+1; writeln; end else begin writeln; writeln('你的钱不够啊'); writeln; end; if q=2 then if money>=130 then begin writeln; money:=money-130; writeln('购买成功!你现在还有',money,'元了'); bigshangyao:=bigshangyao+1; writeln; end else begin writeln; writeln('你的钱不够啊'); writeln; end; if q=3 then if money>=300 then begin writeln; money:=money-300; writeln('购买成功!你现在还有',money,'元了'); rwjingyan:=rwjingyan+1; writeln; end else begin writeln; writeln('你的钱不够啊'); writeln; end; writeln; write('你现在还要买东西吗?(Y/N)'); readln(x); until x='N'; writeln; writeln('(按回车键继续)'); readln; end; procedure bao; begin writeln; writeln('这是你的包裹,来看看吧'); writeln('1、你有伤药',shangyao,'个'); writeln('2、你有大伤药',bigshangyao,'个'); writeln('3、你有人物经验卡',rwjingyan,'个'); if zhiye=1 then begin writeln('4、你现在的主武器是:',wq1[zwq]); writeln('           武器攻击力是:',wq1g[zwq]); writeln('           武器防御力是:',wq1f[zwq]); writeln('           武器必杀率是:',wq1bs[zwq]); writeln('5、你现在的副武器是:',wq1[fwq]); writeln('           武器攻击力是:',wq1g[fwq]); writeln('           武器防御力是:',wq1f[fwq]); writeln('           武器必杀率是:',wq1bs[fwq]); end; if zhiye=2 then begin writeln('4、你现在的主武器是:',wq2[zwq]); writeln('           武器攻击力是:',wq1g[zwq]); writeln('           武器防御力是:',wq2f[zwq]); writeln('           武器必杀率是:',wq2bs[zwq]); writeln('5、你现在的副武器是:',wq2[fwq]); writeln('           武器攻击力是:',wq2g[fwq]); writeln('           武器防御力是:',wq2f[fwq]); writeln('           武器必杀率是:',wq2bs[fwq]); end; if zhiye=3 then begin writeln('4、你现在的主武器是:',wq3[zwq]); writeln('           武器攻击力是:',wq3g[zwq]); writeln('           武器防御力是:',wq3f[zwq]); writeln('           武器必杀率是:',wq3bs[zwq]); writeln('5、你现在的副武器是:',wq3[fwq]); writeln('           武器攻击力是:',wq3g[fwq]); writeln('           武器防御力是:',wq3f[fwq]); writeln('           武器必杀率是:',wq3bs[fwq]); end; end; procedure start2; begin writeln; writeln('神父说:你已经成为了',z,',是不是感觉自己充满了力量?'); writeln; writeln('你说:是的,我现在好像很不一样了'); huiche; writeln; writeln('神父说:年轻人,我们世界需要你来保护,你现在已经有了职业,该去……'); writeln; writeln('你说:我应该去干吗?'); huiche; writeln; writeln('神父说:你要踏上征途了,有了职业就要开始了冒险!'); writeln; writeln('你说:那……什么时候开始?'); huiche; writeln; writeln('神父说:明天就动身吧,今天你先准备一下吧'); writeln; writeln('你说:好的,神父先生再见!'); writeln; writeln('神父说:明天见!'); huiche; writeln; writeln('你走出了礼拜堂'); writeln; writeln('杰克问:嘿嘿,你已经拥有了职业,哇!真羡慕你啊'); huiche; writeln; writeln('你说:嗯,我明天就要开始冒险了'); writeln; writeln('杰克说:明天?这么快,这样吧,我先帮你准备一下东西'); huiche; writeln; writeln('你说:那就谢谢你了'); writeln; writeln('杰克说:不谢,我带你去采购一些东西吧'); huiche; writeln; writeln('你说:额,我好像没带钱……(我没有钱啊)'); writeln; writeln('杰克说:算了,就当是我对你的仰慕,送你500元吧'); huiche; writeln; writeln('你说:真的?那就太谢谢你了'); writeln; writeln('杰克说:都是朋友了,还那么拘谨干什么,走,去商店!'); money:=money+500; huiche; writeln; end; procedure start3; begin writeln; writeln('你走出了商店,杰克过来了'); writeln; writeln('杰克说:商店里面的东西好吧,但是也要注意别一次性花光啊'); huiche; writeln; writeln('你说:是啊,但是现在我要去哪呢?'); writeln; writeln('杰克说:这样吧,你先来我家,我来为你准备准备'); huiche; writeln; writeln('你说:那就太感谢你了'); writeln; writeln('杰克说:没关系,不过以后你发达了可别忘记我啊'); huiche; writeln; writeln('你说:一定不会!'); writeln; writeln('杰克说:哈哈,走吧'); huiche; writeln; writeln('你和杰克来到了杰克家'); huiche; writeln; writeln('杰克说:你明天出去冒险遇到危险不会就这样赤手空拳打斗吧?'); writeln; writeln('你说:啊?那我该怎么办?'); huiche; writeln; writeln('杰克说:这样吧,我家正好有一个武器,我用不了,你试试'); writeln; writeln(''); writeln; writeln('你说:那……好吧,我试试看'); huiche; if zhiye=1 then begin twq:=wq1; twqf:=wq1f; twqg:=wq1g; twqbs:=wq1bs; end; if zhiye=2 then begin twq:=wq2; twqf:=wq2f; twqg:=wq2g; twqbs:=wq2bs; end; if zhiye=3 then begin twq:=wq3; twqf:=wq3f; twqg:=wq3g; twqbs:=wq3bs; end; writeln; writeln('杰克拿出了',twq[1]); writeln; writeln('杰克说:这把剑我用不好,你是',z,',应该可以'); huiche; writeln; writeln('你毫不费力的举起来了',twq[1]); writeln; writeln('杰克说:哇!果然你就是这个武器的主人啊,',twq[1],'送你了'); huiche; writeln; writeln('你说:那就多谢了啊'); zwq:=1; writeln; writeln('杰克说:现在是不是想看一下自己的能力?'); writeln; writeln('你说:是的,我要怎么查看呢?'); huiche; writeln; writeln('杰克说:其实,只要输入“i”就能看到自己的能力了'); writeln; writeln('你说:真的吗?我来试试'); huiche; writeln; end; procedure start4; begin writeln; writeln('杰克说:看看你的能力,是不是很强大?'); writeln; writeln('你说:嗯,不过还是谢谢你给我的武器啊'); huiche; writeln; writeln('杰克说:不用谢,哎,对了!'); writeln; writeln('你说:嗯?还需要什么?'); huiche; writeln; writeln('杰克说:你现在可以在这里储存一下记录,方便以后的旅行啊!'); writeln; writeln('你说:可以吗?'); huiche; writeln; writeln('杰克说:当然可以,只要你输入指令“s”就能保存记录了,试试看吧'); writeln; writeln('你说:好的,我来试试'); writeln; huiche; end; procedure start5; begin writeln; writeln('杰克说:保存好了吧,这样下次就能省去前面的阶段了'); writeln; writeln('你说:是的啊,这样真方便啊'); huiche; writeln; writeln('杰克说:哎,你刚刚买了些什么?'); writeln; writeln('你说:我?哎呀,我忘记了,我该怎么办?'); huiche; writeln; writeln('杰克说:其实你可以查看自己的包裹的'); writeln; writeln('你说:啊?我该怎么查看啊'); huiche; writeln; writeln('杰克说:其实查看很简单的,输入“b”就可以了'); writeln; writeln('你说:啊,我知道了,我现在来试一试'); writeln; writeln('杰克说:你试试吧'); huiche; writeln; end; procedure start6; begin writeln; writeln(''); writeln; writeln('杰克说:你买的东西这回都知道了吧?'); writeln; writeln('你说:是的啊,那么下一步我们该去哪?'); huiche; writeln; writeln('杰克说:我也不太清楚,我能做到的只有这些'); writeln; writeln('你说:那我先去你家休息一会吧'); huiche; writeln; writeln('杰克说:哎呦,我怎么忘记了,走走走,让你累了啊,对不起啊'); writeln; writeln('你说:没关系哈,走吧'); huiche; writeln; writeln('你们一起来到了杰克的家里'); huiche; writeln; writeln('杰克说:家里不是很豪华,凑合着住吧'); writeln; writeln('你说:哪有这回事,没关系的,我倒是很期待明天的旅程啊,今天累死我了'); huiche; writeln; writeln('杰克说:累了,那就休息吧,没关系的'); writeln; writeln('你说:好吧,谢谢啊……'); huiche; writeln; for w:=1 to 20 do writeln; end; procedure start7; begin writeln; writeln('第二天了……'); writeln; writeln('杰克说:快起来啦,神父在外面等你!'); huiche; writeln; writeln('你说:啊!稍等片刻!'); writeln; writeln('过了一会……'); huiche; writeln; writeln('你走出了门外'); writeln; writeln('神父说:年轻人,马上就要踏上旅途了,你准备好了吗?'); huiche; writeln; writeln('你说:我准备好了!'); writeln; writeln('神父说:好的,那么现在就动身前往第一个目标:铁城吧'); huiche; writeln; writeln('“哎!等会!”这时一个人跑过来了'); writeln; writeln('你说:嗯?谁啊?'); huiche; writeln; writeln('那个人说:呼呼,你好,我叫吴仁杰,我是一个剑士,能帮我一个忙吗?'); writeln; writeln('你说:剑士?你说说看'); huiche; writeln; writeln('吴仁杰说:呼,我有一个亲戚在铁城,能不能帮我……'); writeln; writeln('你说:是不是送信?'); huiche; writeln; writeln('吴仁杰说:不是,能不能……带我一起去?'); writeln; writeln('你说:神父先生,我能带他去吗?(多一份力量多一份生存希望!)'); huiche; writeln; writeln('神父说:年轻人,一切你自己做主啊'); writeln; writeln('你说:额,好吧,那就一起去吧,人多力量大'); huiche; writeln; writeln('吴仁杰说:啊!太感谢你了!放心!我绝对不是累赘!'); writeln; writeln('(新人物吴仁杰加入!)'); huiche; writeln; writeln('你说:那今后我们就在一个队里面了!'); writeln; writeln('杰克说:哎呀,真羡慕你们有职业的人啊'); huiche; writeln; writeln('你说:呵呵,那么,我们就起程了,诸位再见!'); writeln; writeln('杰克说:再见!要保重啊!回头给我带份礼物!'); huiche; writeln; writeln('神父说:呵呵,年轻人啊,做事要谨慎啊,再见!'); writeln; writeln('你说:嗯,我一定会谨慎的!大家再见!'); huiche; writeln; writeln('就这样,你和吴仁杰开始了向铁城进发的冒险之路......'); writeln; huiche; writeln; end; procedure go1; begin writeln; writeln; writeln; writeln; writeln('吴仁杰说:想要去铁城首先要通过小树林,小心点吧'); huiche; writeln; writeln('你说:恩,我会小心的,你也一样啊'); writeln; writeln('吴仁杰说:我....我能不能不参加战斗?'); huiche; writeln; writeln('你说:啥?为什么?(你不参加战斗我带你干什么?)'); writeln; writeln('吴仁杰说:那个...我是刚刚才获得职业的,所以.....'); huiche; writeln; writeln('你说:好吧,那你就在一边看着吧!(可恶啊,我不也是第一次战斗的吗?)'); writeln; writeln('吴仁杰说:嗯...我不能参加战斗,所以很抱歉,但是给你这个作为补偿吧'); huiche; writeln; writeln('你说:啥?是什么?(钱啊,我要钱!)'); writeln; writeln('吴仁杰说:我身上带了500元就送你了吧,当作是补偿'); money:=money+500; huiche; writeln; writeln('你说:呵呵,谢谢了(欧耶!~\(≧▽≦)/~万岁!)'); writeln; writeln('吴仁杰说:嗯,这段路程就麻烦您了'); huiche; writeln; writeln('你说:小意思,小意思'); writeln; writeln('吴仁杰说:当你战斗的时候,我会在一旁学习的'); huiche; writeln; writeln('你说:那是,那是,要多学习嘛'); writeln; writeln('吴仁杰说:马上就是小树林了,要准备好战斗哦'); huiche; writeln; writeln('你说:嗯。对了,小树林里面会有什么东西?'); writeln; writeln('吴仁杰说:小树林里面会有一些食人草、怪松鼠、飞啄鸟等怪物啊'); huiche; writeln; writeln('你说:啥?啥?啥?(怪物!.....)'); writeln; writeln('吴仁杰说:嗯,你要小心一点啊'); huiche; writeln; writeln('你说:好....好吧(唉,会死人啊)'); writeln; writeln('吴仁杰说:小心!前面是怪松鼠!'); huiche; writeln; writeln('你说:什么!'); writeln; writeln('你遇到了怪松鼠!开始战斗吧!'); huiche; repeat randomize; p:=random(100); o:=random(15); i:=random(2); until (p>=50)and(o>=11); writeln; writeln('怪松鼠有',p,'滴血!'); writeln; repeat   writeln('你干什么?(输入序号)');   writeln;   writeln('1、普通攻击  2、使用道具  3、逃跑');   readln(w);   writeln;   if w=1 then begin     writeln('你使用了普通攻击!');     writeln;     randomize;     u:=random(100);     y:=gong+twqg[zwq];     t:=fang+twqf[zwq];     if u<=bisha+twqbs[zwq] then begin       writeln('哇塞!必杀了!');       y:=(gong+twqg[zwq])+(gong+twqg[zwq]);     end;     writeln;     writeln('你伤害怪松鼠了',y-i,'滴血!');     writeln('怪松鼠现在还有',p,'-',y-i,'=',p-y+i,'滴血!');     p:=p-y+i;     huiche;     writeln;     if o-t>0 then begin     writeln('怪松鼠伤害你了',o-t,'滴血!');     writeln('你现在还有',xsheng,'-',o-t,'=',xsheng-o+t,'滴血!');     end     else writeln('它不伤你一点血!');   end;   writeln;   if w=2 then begin      writeln('在战斗中只能使用这两个东西');      writeln;      writeln('1、你有伤药',shangyao,'个');      writeln;      writeln('2、你有大伤药',bigshangyao,'个');      writeln;      writeln('3、不用了,继续战斗');      writeln;      write('你要用哪个?(输入序号)');      readln(e);      writeln;      if (e=1)and(shangyao>0) then begin        xsheng:=xsheng+50;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=2)and(bigshangyao>0) then begin        xsheng:=xsheng+150;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;    end;   if w=3 then begin   writeln('我擦!这可是新手任务哎,这都想逃跑?');   writeln;   writeln('别想着逃跑的念头了,打赢有奖励哦');   huiche;   writeln;   end;   writeln; if xsheng<0 then begin writeln('你说:好...痛苦,我...我要死...死了吗...(END)'); huiche; halt; end; if p<=0 then begin writeln('恭喜你,胜利了!'); writeln; jingyan:=jingyan+20; writeln('你获得了经验20点!你还有',djingyan-20,'就能升级了!'); writeln; money:=money+40; writeln('恭喜你获得了金钱40!你现在有',money,'元了!'); huiche; writeln; end; until (p<=0)or(xsheng<=0); writeln; writeln; writeln('你说:呼呼,终于打倒了'); writeln; writeln('吴仁杰说:刚刚的战斗真精彩啊!'); writeln; writeln('你说:嗯,下面继续前进吧.'); writeln; huiche; for p:=1 to 20 do writeln; end; procedure go2; begin writeln; writeln('吴仁杰说:哎,对了,刚刚怪物身上有没有什么东西?'); writeln; writeln('你说:嗯,有20点经验和40元钱(欧耶!)'); huiche; writeln; writeln('吴仁杰说:哇,有了足够的经验就能升级了哎!'); writeln; writeln('你说:嗯。(是的吧?以前在电脑上玩的游戏就是这样的)'); huiche; writeln; writeln('吴仁杰说:我们现在已经走了小树林全长的5%了'); writeln; writeln('你说:嗯,还有95%的路程啊'); huiche; writeln; writeln('吴仁杰说:我们一分钟大约可以走5%的路程'); writeln; writeln('你说:那还有19分钟就能走到铁城了'); huiche; writeln; writeln('吴仁杰说:嗯,不过还是得小心一下树林里面的怪物啊'); writeln; writeln('你说:那是,那是'); huiche; writeln; writeln('吴仁杰说:这个树林里面适合一些等级低的人练级呢!'); writeln; writeln('你说:嗯,还可以得钱(我就看中这一点)'); huiche; writeln; writeln('吴仁杰说:其实升级的话能力会提高很多'); writeln; writeln('你说:这我当然知道(废话,否则要升级干嘛)'); huiche; writeln; writeln('吴仁杰说:能力提升的话就能去其他地方练级了,连说话都有底了'); writeln; writeln('你说:嗯?(去其他地方练级?这样岂不是得的钱更多?)'); huiche; writeln; writeln('吴仁杰说:说不定还能成为绝世高手呢!'); writeln; writeln('你说:好啊好啊,那就边走遍练级吧,正好我也想试试身手'); huiche; writeln; writeln('吴仁杰说:嗯,这样也方便以后的行程'); writeln; writeln('你说:那就先打5只怪物试试吧'); huiche; writeln; writeln('吴仁杰说:小心点啊,要是死了就不好玩了'); writeln; writeln('你说:嗯(废话,我想死吗!)'); huiche; writeln; writeln('主线任务更新!(输入指令r查看)'); huiche; writeln; end; procedure shengji; begin writeln; writeln('恭喜你!升级了!~\(≧▽≦)/~啦啦啦'); jingyan:=jingyan+www; jingyan:=jingyan-djingyan; djingyan:=sjingyan[lv-4]; writeln; writeln('你的等级从',lv,'提升到',lv+1,'了!'); writeln; lv:=lv+1; repeat     randomize;     www:=random(25); until www>5; writeln('你的攻击力从',gong,'提升到',gong+www,'了!'); writeln; gong:=gong+www; repeat     randomize;     www:=random(15); until www>5; writeln('你的防御力从',fang,'提升到',fang+www,'了!'); fang:=fang+www; writeln; repeat     randomize;     www:=random(25); until www>15; writeln('你的生命力从',dsheng,'提升到',dsheng+www,'了!'); dsheng:=dsheng+www; xsheng:=dsheng; writeln; writeln; writeln('这次升级真是爽歪歪了!'); writeln; huiche; writeln; end; procedure k1; begin randomize; ppp:=random(4); writeln('你遇到了',gname1[ppp],'!开始战斗吧!'); huiche; if ppp=0 then begin   repeat     randomize;     p:=random(100);     o:=random(15);     i:=random(2);   until (p>=60)and(o>=11); end; if ppp=1 then begin   repeat     randomize;     p:=random(80);     o:=random(20);     i:=random(2);   until (p>=40)and(o>=13); end; if ppp=2 then begin   repeat     randomize;     p:=random(90);     o:=random(17);     i:=random(3);   until (p>=50)and(o>=12); end; if ppp=3 then begin   repeat     randomize;     p:=random(150);     o:=random(15);     i:=random(10);   until (p>=90)and(o>=10)and(i>5); end; writeln; writeln(gname1[ppp],'有',p,'滴血!'); writeln; repeat   writeln('你干什么?(输入序号)');   writeln;   writeln('1、普通攻击  2、使用道具  3、逃跑');   readln(w);   writeln;   if w=1 then begin     writeln('你使用了普通攻击!');     writeln;     randomize;     u:=random(100);     y:=gong+twqg[zwq];     t:=fang+twqf[zwq];     if u<=bisha+twqbs[zwq] then begin       writeln('哇塞!必杀了!');       y:=(gong+twqg[zwq])+(gong+twqg[zwq]);     end;     writeln;     writeln('你伤害',gname1[ppp],'了',y-i,'滴血!');     writeln(gname1[ppp],'现在还有',p,'-',y-i,'=',p-y+i,'滴血!');     p:=p-y+i;     huiche;     writeln;     if o-t>0 then begin     writeln(gname1[ppp],'伤害你了',o-t,'滴血!');     writeln('你现在还有',xsheng,'-',o-t,'=',xsheng-o+t,'滴血!');     xsheng:=xsheng-o+t;     huiche;     writeln;     end     else writeln('它不伤你一点血!');   end;   writeln;   if w=2 then begin      writeln('在战斗中只能使用这三个东西');      writeln;      writeln('1、你有伤药',shangyao,'个');      writeln;      writeln('2、你有大伤药',bigshangyao,'个');      writeln;      writeln('3、你有人物经验卡',rwjingyan,'个');      writeln;      writeln('4、不用了,继续战斗');      writeln;      write('你要用哪个?(输入序号)');      readln(e);      writeln;      if (e=1)and(shangyao>0) then begin        xsheng:=xsheng+50;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=2)and(bigshangyao>0) then begin        xsheng:=xsheng+150;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=3)and(rwjingyan>0) then begin        jingyan:=jingyan+100;        if jingyan>djingyan then begin          shengji;end        else begin          writeln;          writeln('你成功获得了经验100!还有',djingyan-jingyan,'点经验就能升级了!');          huiche;          writeln;        end;      end;    end;   if w=3 then begin     randomize;     www:=random(100);     if www<=40 then begin       writeln;       writeln;       writeln('你说:我闪!哈哈,拜拜!');       writeln;       writeln('逃跑成功!');       huiche;       writeln;       break;     end     else begin       writeln;       writeln;       writeln('逃跑失败啦');       huiche;       writeln;     end;     end;   writeln; if xsheng<0 then begin writeln('你说:好...痛苦,我...我要死...死了吗...(END)'); huiche; halt; end; if p<=0 then begin   writeln('恭喜你,胜利了!');   rwwc[1]:=rwwc[1]+1;   writeln;   repeat     randomize;     www:=random(25);   until www>15;   if jingyan+www>=djingyan then begin     writeln;     writeln;     shengji;     end   else begin     writeln('你获得了经验',www,'点!你还有',djingyan-jingyan-www,'就能升级了!');     jingyan:=jingyan+www;   end;   repeat     randomize;     www:=random(30);   until www>10;   writeln;   money:=money+www;   writeln('恭喜你获得了金钱,',www,'!你现在有',money,'元了!');   huiche;   writeln; end; until (p<=0)or(xsheng<=0); end; procedure go3; begin writeln; writeln('你说:哼哼,小小的怪物根本不是我的对手!'); writeln; writeln('吴仁杰说:看!前面就是铁城了!'); huiche; writeln; writeln('你说:哇,终于到了!'); writeln; writeln('吴仁杰说:嗯,好期待啊'); huiche; writeln; writeln('过了一会.......'); writeln; writeln('你说:这...这就是铁城吗?(好恢弘)'); writeln; writeln('吴仁杰说:真好!我们进去吧'); huiche; writeln; writeln('你说:好的。'); writeln; writeln('你们走进了铁城里面'); huiche; writeln; writeln('吴仁杰说:铁城也算得上是繁华了'); writeln; writeln('你说:我还从来没来过铁城,铁城里面都有些什么?'); huiche; writeln; writeln('吴仁杰说:铁城里面有集市、拍卖场和斗技场!'); writeln; writeln('你说:斗技场?拍卖场?'); huiche; writeln; writeln('吴仁杰说:对啊,具体的我也不知道太多'); writeln; writeln('你说:哦,我去看看'); huiche; writeln; writeln('吴仁杰说:我先去看望亲戚了,你先在城里面转转吧,拜拜'); writeln; writeln('你说:再见!'); huiche; writeln; for i:=1 to 20 do writeln; end; procedure go4; begin writeln; writeln('你说:嗯...这么多地方,我该去哪呢?'); writeln; repeat   writeln;   writeln('你现在想去哪?(输入序号)');   writeln;   writeln('1、道具店');   writeln;   writeln('2、拍卖场');   writeln;   writeln('3、斗技场');   writeln;   writeln('4、等吴仁杰出来');   readln(w);   writeln;   writeln;   if w=1 then dstore;   if w=4 then     if qqq=1 then exit     else begin       writeln('还没逛完呢,别着急啊');       huiche;       writeln;     end;   if w=2 then begin      writeln;      writeln('对不起,今天拍卖场不开放');      writeln;      huiche;   end;   if w=3 then begin      qqq:=1;      writeln;      writeln('你来到了斗技场门口');      writeln;      writeln('士兵说:对不起,由于上次暗城的袭击,所以斗技场今天不开放');      huiche;      writeln;      writeln('你说:嗯?暗城的袭击?');      writeln;      writeln('士兵说:对,那是几天前的事情,我们的铁将军不在,所以....');      huiche;      writeln;      writeln('你说:铁将军?');      writeln;      writeln('士兵说:对,铁将军是铁城攻击力最高的人,可惜那天他不在');      huiche;      writeln;      writeln('你说:哦,那我先走了');      writeln;      writeln('士兵说:再见!');      huiche;      writeln;      writeln('你说:铁将军攻击力最高?不知道他等级多少了.....');      writeln;      huiche;    end;  until (q=4)and(qqq=1); end; procedure go5; begin for i:=1 to 20 do writeln; writeln('吴仁杰出来了'); writeln; writeln('你说:你终于出来啦,等你好久了'); huiche; writeln; writeln('吴仁杰说:嗯,我的亲戚让我帮她去铁城遗址看看'); writeln; writeln('你说:铁城遗址?'); huiche; writeln; writeln('吴仁杰说:嗯,铁城遗址是以前铁城的地方'); writeln; writeln('你说:以前的铁城...为什么要搬移铁城的位置呢'); huiche; writeln; writeln('吴仁杰:我也不太清楚,据说是经历了一场大战之后搬移的'); writeln; writeln('你说:大战?难道是暗城的袭击?'); huiche; writeln; writeln('吴仁杰说:我不知道,但是那场战斗连铁将军也束手无策!'); writeln; writeln('你说:什么!铁将军不是铁城中攻击力最高的人吗?'); huiche; writeln; writeln('吴仁杰说:嗯,但是铁城可不是天下最厉害的城池啊'); writeln; writeln('你说:哦,幸好那场战斗没被我碰上'); huiche; writeln; writeln('吴仁杰说:嗯,不过铁城遗址里面残留了很多远古的东西'); writeln; writeln('你说:什么?(有钱吗?)'); huiche; writeln; writeln('吴仁杰说:如果运气好的话也许会得到一些非凡的东西吧'); writeln; writeln('你说:这样啊,那我们就快走吧'); huiche; writeln; writeln('吴仁杰说:好!'); writeln; writeln; writeln('就这样,二人淘宝小分队开始了淘宝大行动!'); writeln; huiche; writeln; end; procedure go6; begin writeln; writeln; writeln; writeln('你们来到了铁城遗址'); writeln; writeln('吴仁杰说:看,这里就是铁城遗址!'); huiche; writeln; writeln('你说:哇,铁城遗址果然很大啊!'); writeln; writeln('吴仁杰说:对,如果我们运气好的话,就能得到一些不平凡的东西呢!'); huiche; writeln; writeln('你说:你说的对,那我们开始寻找吧!'); writeln; writeln('吴仁杰说:好的!'); huiche; writeln; writeln('2个小时过去了......'); huiche; writeln; writeln('吴仁杰:唉,什么也没发现啊......'); writeln; writeln('你说:我也是,难道这里的宝物都给别人挂搜完了?'); huiche; writeln; writeln('吴仁杰说:唉.....哎?你看那是什么!'); writeln; writeln('你说:嗯?'); huiche; writeln; writeln('你看见了一个石碑'); huiche; writeln; writeln(''); writeln; writeln('你说:那是石碑啊'); writeln; writeln('吴仁杰说:这里怎么会有石碑?走!去看看'); huiche; writeln; writeln('你和吴仁杰走近了石碑,仔细地观察了起来'); huiche; writeln; writeln('吴仁杰说:这个石碑上面刻着一个字,未,这有什么寓意?'); writeln; writeln('被称为天才的你当然知道了,所以你想了一会,说:'); huiche; writeln; writeln('你说:啊!我知道了,其实这个“未”是很有寓意的!'); writeln; writeln('吴仁杰说:嗯?你知道了什么?'); huiche; writeln; writeln('你说:其实,未代表着很多意思'); writeln; writeln('      第一种意思,就是这里还从未被发现过'); huiche; writeln; writeln('      第二种意思,未的两横上面短,下面长,这意味着....'); writeln; writeln('吴仁杰说:意味着什么?'); huiche; writeln; writeln('你说:这意味着下面的东西要比上面的东西要好!'); writeln; writeln('吴仁杰说:上面有东西吗?'); huiche; writeln; writeln('你说:未,中间一竖就像是刀一样从中间劈开'); writeln; writeln('吴仁杰说:啊,我知道了,是不是让我们把石碑劈开?'); huiche; writeln; writeln('你说:对,未下面的两撇是有着开放的意思,两撇也可以组成一个“人”字'); writeln; writeln('吴仁杰说:难道下面有人居住吗?'); huiche; writeln; writeln('你说:这我也不知道,反正下面的东西一定要比上面的东西要好!'); writeln; writeln('吴仁杰说:哎呀,你真是天才,我现在就来把它劈开!'); huiche; writeln; writeln('轰!'); huiche; writeln; writeln('吴仁杰说:咳咳...有什么东西啊'); writeln; writeln('你说:快看!'); huiche; writeln; writeln('吴仁杰说:那是.....金钱!'); writeln; writeln('你说:总共...共有两千元!(发了啊!)'); huiche; writeln; writeln('吴仁杰说:哇塞!'); writeln; writeln('你说:咳咳...这样吧,这些钱我们各分两半吧'); huiche; writeln; writeln('吴仁杰说:不,不,不,这些钱是因为你才发现的,你要比我得的多'); writeln; writeln('你说:那...那就恭敬不如从命了(哇哈哈!)'); huiche; money:=money+1500; writeln; writeln('恭喜你获得了1500元!'); writeln; writeln('吴仁杰说:看来你分析的很对啊,那么我们怎样才能到下面去呢?'); huiche; writeln; writeln('你说:看来还是和这个石碑有关系'); writeln; writeln('吴仁杰说:难道“未”字还有什么奥秘吗?'); huiche; writeln; writeln('你说:这个未字是一个对称的字,那么只要我们组成一个对称的图形就行了'); writeln; writeln('吴仁杰说:组成一个对称的图形?'); huiche; writeln; writeln('你说:随便拿两样相同的东西吧'); writeln; writeln('吴仁杰拿出了2个伤药'); huiche; writeln; writeln('你说:虽然不知道行不行,但是试一下总比不试好吧'); writeln; writeln('你把这两个伤药放好'); huiche; writeln; writeln('轰隆隆......光芒万丈......'); huiche; writeln; writeln('吴仁杰说:啊,果然有效......'); writeln; writeln('你和吴仁杰都昏迷过去了'); huiche; writeln; writeln('你说:额,这是哪里?'); writeln; writeln('吴仁杰说:啊,我们现在在哪?'); huiche; writeln; writeln('这时,前面走来了一个奇怪的东西'); writeln; writeln('吴仁杰说:那是什么?'); huiche; writeln; writeln('你说:不好!那是怪物!'); writeln; writeln('   你遇到了铁人!准备战斗吧'); writeln; end; procedure go7; begin huiche; repeat randomize; p:=random(150); o:=random(50); i:=random(40); until (p>=100)and(o>=30)and(i>=30); writeln; writeln('铁人有',p,'滴血!'); writeln; repeat   writeln('你干什么?(输入序号)');   writeln;   writeln('1、普通攻击  2、使用道具  3、逃跑');   readln(w);   writeln;   if w=1 then begin     writeln('你使用了普通攻击!');     writeln;     randomize;     u:=random(100);     y:=gong+twqg[zwq];     t:=fang+twqf[zwq];     if u<=bisha+twqbs[zwq] then begin       writeln('哇塞!必杀了!');       y:=(gong+twqg[zwq])+(gong+twqg[zwq]);     end;     writeln;     writeln('你伤害铁人了',y-i,'滴血!');     writeln('铁人现在还有',p,'-',y-i,'=',p-y+i,'滴血!');     p:=p-y+i;     huiche;     writeln;     if o-t>0 then begin     writeln('铁人伤害你了',o-t,'滴血!');     writeln('你现在还有',xsheng,'-',o-t,'=',xsheng-o+t,'滴血!');     end     else writeln('它不伤你一点血!');   end;   writeln;   if w=2 then begin      writeln('在战斗中只能使用这两个东西');      writeln;      writeln('1、你有伤药',shangyao,'个');      writeln;      writeln('2、你有大伤药',bigshangyao,'个');      writeln;      writeln('3、你有人物经验卡',rwjingyan,'个');      writeln;      writeln('4、不用了,继续战斗');      writeln;      write('你要用哪个?(输入序号)');      readln(e);      writeln;      if (e=1)and(shangyao>0) then begin        xsheng:=xsheng+50;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=2)and(bigshangyao>0) then begin        xsheng:=xsheng+150;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=3)and(rwjingyan>0) then begin        jingyan:=jingyan+100;        if jingyan>djingyan then begin          shengji;end        else begin          writeln;          writeln('你成功获得了经验100!还有',djingyan-jingyan,'点经验就能升级了!');          huiche;          writeln;        end;    end;   if w=3 then begin   writeln('我擦!这可是新手任务哎,这都想逃跑?');   writeln;   writeln('别想着逃跑的念头了,打赢有奖励哦');   huiche;   writeln;   end;   writeln; if xsheng<0 then begin writeln('你说:好...痛苦,我...我要死...死了吗...(END)'); huiche; halt; end; if p<=0 then begin writeln('恭喜你,胜利了!'); writeln;   jingyan:=jingyan+60;   if jingyan<djingyan then begin     writeln('你获得了经验60点!你还有',djingyan-jingyan,'就能升级了!');     huiche;   end else shengji;   writeln;   money:=money+50;   writeln('恭喜你获得了金钱50!你现在有',money,'元了!');   huiche; writeln; end; end; until (p<=0)or(xsheng<=0); writeln; writeln('你说:呼呼,这里怎么也有怪物?'); writeln; writeln('吴仁杰说:我不知道啊,不过有怪物说明肯定有奖励啦'); huiche; writeln; writeln('你说:嗯,说的倒也对啊,那我们继续往前走吧'); writeln; writeln('吴仁杰说:前进!'); huiche; writeln; end; procedure go8; begin writeln; writeln('吴仁杰说:现在已经是尽头了啊.....'); writeln; writeln('你说:为什么什么也没有?'); huiche; writeln; writeln('吴仁杰:嗯?那是!'); writeln; writeln('一个大型的东西走过来了'); huiche; writeln; writeln('它说:人类,你们为什么要来这里?'); writeln; writeln('吴仁杰说:我...我是来淘宝的'); huiche; writeln; writeln('它说:哼哼,人类,这里可不允许你们来,除非.....'); writeln; writeln('你说:除非什么?'); huiche; writeln; writeln('它说:除非你能接受我们铁人家族的考验!'); writeln; writeln('你说:什么?(铁人家族?)'); huiche; writeln; writeln('它说:哈哈,如果你能连续打败5只铁人外加2只铁巨人和我,我就让你们通过'); writeln; writeln('吴仁杰说:啊,这会很难打的,我看我们还是先在外面练练级吧'); huiche; writeln; writeln('你说:嗯,等到我强大的时候再去打!'); writeln; writeln('它说:哈哈,胆小鬼,我等待着那一天!'); huiche; writeln; end;   procedure help; begin writeln('欢迎来玩无敌西游V1.1,本游戏操作很简单'); writeln('1、输入k就是寻找怪物'); writeln('2、输入b就是查看包裹'); writeln('3、输入i就是查看自己的能力'); writeln('4、输入m就是购买东西'); writeln('5、输入h就是查看帮助'); writeln('6、输入s就是保存记录'); writeln('7、输入d就是读取记录'); writeln('8、输入r就是查看任务'); writeln('就这么简单(按回车键继续)'); readln; end; procedure shilian2; begin randomize; ppp:=random(4); writeln('你遇到了',gname2[ppp],'!开始战斗吧!'); huiche; if ppp=0 then begin   repeat     randomize;     p:=random(500);     o:=random(70);     i:=random(25);   until (p>=400)and(o>=50)and(i>=5); end; if ppp=1 then begin   repeat     randomize;     p:=random(100);     o:=random(80);     i:=random(35);   until (p>=80)and(o>=50)and(i>=15); end; if ppp=2 then begin   repeat     randomize;     p:=random(150);     o:=random(80);     i:=random(40);   until (p>=100)and(o>=40)and(i>=20); end; if ppp=3 then begin   repeat     randomize;     p:=random(160);     o:=random(90);     i:=random(60);   until (p>=130)and(o>=60)and(i>=40); end; writeln; writeln(gname2[ppp],'有',p,'滴血!'); writeln; repeat   writeln('你干什么?(输入序号)');   writeln;   writeln('1、普通攻击  2、使用道具  3、逃跑');   readln(w);   writeln;   if w=1 then begin     writeln('你使用了普通攻击!');     writeln;     randomize;     u:=random(100);     y:=gong+twqg[zwq];     t:=fang+twqf[zwq];     if u<=bisha+twqbs[zwq] then begin       writeln('哇塞!必杀了!');       y:=(gong+twqg[zwq])+(gong+twqg[zwq]);     end;     writeln;     writeln('你伤害',gname2[ppp],'了',y-i,'滴血!');     writeln(gname2[ppp],'现在还有',p,'-',y-i,'=',p-y+i,'滴血!');     p:=p-y+i;     huiche;     writeln;     if o-t>0 then begin     writeln(gname2[ppp],'伤害你了',o-t,'滴血!');     writeln('你现在还有',xsheng,'-',o-t,'=',xsheng-o+t,'滴血!');     xsheng:=xsheng-o+t;     huiche;     writeln;     end     else writeln('它不伤你一点血!');   end;   writeln;   if w=2 then begin      writeln('在战斗中只能使用这三个东西');      writeln;      writeln('1、你有伤药',shangyao,'个');      writeln;      writeln('2、你有大伤药',bigshangyao,'个');      writeln;      writeln('3、你有人物经验卡',rwjingyan,'个');      writeln;      writeln('4、不用了,继续战斗');      writeln;      write('你要用哪个?(输入序号)');      readln(e);      writeln;      if (e=1)and(shangyao>0) then begin        xsheng:=xsheng+50;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=2)and(bigshangyao>0) then begin        xsheng:=xsheng+150;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=3)and(rwjingyan>0) then begin        jingyan:=jingyan+100;        if jingyan>djingyan then begin          shengji;end        else begin          writeln;          writeln('你成功获得了经验100!还有',djingyan-jingyan,'点经验就能升级了!');          huiche;          writeln;        end;      end;    end;   if w=3 then begin     randomize;     www:=random(100);     if www<=40 then begin       writeln;       writeln;       writeln('你说:我闪!哈哈,拜拜!');       writeln;       writeln('逃跑成功!');       huiche;       writeln;       break;     end     else begin       writeln;       writeln;       writeln('逃跑失败啦');       huiche;       writeln;     end;     end;   writeln; if xsheng<0 then begin writeln('你说:好...痛苦,我...我要死...死了吗...(END)'); huiche; halt; end; if p<=0 then begin   writeln('恭喜你,胜利了!');   rwwc[2]:=rwwc[2]+1;   writeln;   repeat     randomize;     www:=random(100);   until www>60;   if jingyan+www>=djingyan then begin     writeln;     writeln;     shengji;     end   else begin     writeln('你获得了经验',www,'点!你还有',djingyan-jingyan-www,'就能升级了!');     jingyan:=jingyan+www;   end;   repeat     randomize;     www:=random(100);   until www>60;   writeln;   money:=money+www;   writeln('恭喜你获得了金钱,',www,'!你现在有',money,'元了!');   huiche;   writeln; end; until (p<=0)or(xsheng<=0); end; procedure go9; begin writeln; writeln; for i:=1 to 20 do writeln; writeln('吴仁杰说:经过这段时间的训练,我们已经足够强大了!'); writeln; writeln('你说:对,是时候去和铁人家族切磋了!'); huiche; writeln; writeln('吴仁杰说:来吧!'); writeln; writeln('你说:我们不怕你!'); huiche; writeln; writeln('轰隆隆,铁人BOSS来了'); writeln; writeln('你说:铁人BOSS,我来接受你的考验了!'); huiche; writeln; writeln('铁人BOSS说:哈哈,出口狂言,来吧!'); writeln; writeln('准备接受铁人BOSS的挑战!'); huiche; end; procedure go10; begin writeln; writeln(gname2[ppp],'有',p,'滴血!'); writeln; repeat   writeln('你干什么?(输入序号)');   writeln;   writeln('1、普通攻击  2、使用道具  3、逃跑');   readln(w);   writeln;   if w=1 then begin     writeln('你使用了普通攻击!');     writeln;     randomize;     u:=random(100);     y:=gong+twqg[zwq];     t:=fang+twqf[zwq];     if u<=bisha+twqbs[zwq] then begin       writeln('哇塞!必杀了!');       y:=(gong+twqg[zwq])+(gong+twqg[zwq]);     end;     writeln;     writeln('你伤害',gname2[ppp],'了',y-i,'滴血!');     writeln(gname2[ppp],'现在还有',p,'-',y-i,'=',p-y+i,'滴血!');     p:=p-y+i;     huiche;     writeln;     if o-t>0 then begin     writeln(gname2[ppp],'伤害你了',o-t,'滴血!');     writeln('你现在还有',xsheng,'-',o-t,'=',xsheng-o+t,'滴血!');     xsheng:=xsheng-o+t;     huiche;     writeln;     end     else writeln('它不伤你一点血!');   end;   writeln;   if w=2 then begin      writeln('在战斗中只能使用这三个东西');      writeln;      writeln('1、你有伤药',shangyao,'个');      writeln;      writeln('2、你有大伤药',bigshangyao,'个');      writeln;      writeln('3、你有人物经验卡',rwjingyan,'个');      writeln;      writeln('4、不用了,继续战斗');      writeln;      write('你要用哪个?(输入序号)');      readln(e);      writeln;      if (e=1)and(shangyao>0) then begin        xsheng:=xsheng+50;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=2)and(bigshangyao>0) then begin        xsheng:=xsheng+150;        if xsheng>dsheng then xsheng:=dsheng;        writeln('使用成功!你现在血量是:',xsheng,'/',dsheng);        bigshangyao:=bigshangyao-1;      end;      if (e=3)and(rwjingyan>0) then begin        jingyan:=jingyan+100;        if jingyan>djingyan then begin          shengji;end        else begin          writeln;          writeln('你成功获得了经验100!还有',djingyan-jingyan,'点经验就能升级了!');          huiche;          writeln;        end;      end;    end;   if w=3 then begin     randomize;     www:=random(100);     if www<=40 then begin       writeln;       writeln;       writeln('你说:我闪!哈哈,拜拜!');       writeln;       writeln('逃跑成功!');       huiche;       writeln;       break;     end     else begin       writeln;       writeln;       writeln('逃跑失败啦');       huiche;       writeln;     end;     end;   writeln; if xsheng<0 then begin writeln('你说:好...痛苦,我...我要死...死了吗...(END)'); huiche; halt; end; if p<=0 then begin   writeln('恭喜你,胜利了!');   rwwc[2]:=rwwc[2]+1;   writeln;   repeat     randomize;     www:=random(100);   until www>60;   if jingyan+www>=djingyan then begin     writeln;     writeln;     shengji;     end   else begin     writeln('你获得了经验',www,'点!你还有',djingyan-jingyan-www,'就能升级了!');     jingyan:=jingyan+www;   end;   repeat     randomize;     www:=random(100);   until www>60;   writeln;   money:=money+www;   writeln('恭喜你获得了金钱,',www,'!你现在有',money,'元了!');   huiche;   writeln; end; until (p<=0)or(xsheng<=0); end; begin djingyan:=sjingyan[1]; jingyan:=0; start1; zhiye1; start2; dstore; start3; repeat   writeln;   write('请输入指令:');   readln(x);   writeln;   if (x='i')or(x='I') then look;   if (x<>'i')and(x<>'I') then begin   writeln;   writeln('杰克说:是输入i或者I,不是其他字符啊,再来一遍吧');   end; until (x='i')or(x='I'); start4; repeat   writeln;   write('请输入指令:');   readln(x);   writeln;   if (x='s')or(x='S') then save;   if (x<>'s')and(x<>'S') then begin   writeln;   writeln('杰克说:是输入s或者S,不是其他字符啊,再来一遍吧');   end; until (x='s')or(x='S'); start5; repeat   writeln;   write('请输入指令:');   readln(x);   writeln;   if (x='b')or(x='B') then bao;   if (x<>'b')and(x<>'B') then begin   writeln;   writeln('杰克说:是输入b或者B,不是其他字符啊,再来一遍吧');   end; until (x='b')or(x='B'); start6; start7; writeln; writeln; writeln('现在可以存档了哦,你要存档吗?(Y/N)'); readln(x); if (x='Y')or(x='y') then save; go1; go2; writeln; for i:=1 to 20 do writeln; repeat   writeln;   writeln;   write('请输入指令(输入h查看帮助,输入t退出自己行动模式)');   readln(x);   writeln;   writeln;   if (x='b')or(x='B') then bao;   if (x='s')or(x='S') then save;   if (x='d')or(x='D') then ready;   if (x='i')or(x='I') then look;   if (x='h')or(x='H') then help;   if (x='m')or(x='M') then begin     writeln('小树林可没有商店啊');     huiche;   end;   if (x='r')or(x='R') then begin     writeln('当前主线任务:在小树林打死5只怪物');     writeln;     write('完成情况:');     if rwwc[1]>=5 then writeln('已完成')     else writeln('未完成,还要打死',5-rwwc[1],'只怪物');     huiche;   end;   if (x='k')or(x='K') then k1;   if rwwc[1]>=5 then begin     writeln('你的主线任务已经完成,可以退出了');     writeln;   end; until (x='t')or(x='T'); go3; go4; writeln; writeln; writeln('现在可以存档了哦,你要存档吗?(Y/N)'); readln(x); if (x='Y')or(x='y') then save; go5; go6; go7; go8; writeln; for i:=1 to 20 do writeln; repeat   writeln;   writeln;   write('请输入指令(输入h查看帮助,输入t退出自己行动模式)');   readln(x);   writeln;   writeln;   if (x='b')or(x='B') then bao;   if (x='s')or(x='S') then save;   if (x='d')or(x='D') then ready;   if (x='i')or(x='I') then look;   if (x='h')or(x='H') then help;   if (x='m')or(x='M') then begin     writeln('铁城遗址内部可没有商店啊');     huiche;   end;   if (x='r')or(x='R') then begin     writeln('当前主线任务:在铁城遗址内部打死5只怪物');     writeln;     write('完成情况:');     if rwwc[2]>=5 then writeln('已完成')     else writeln('未完成,还要打死',5-rwwc[2],'只怪物');     huiche;   end;   if (x='k')or(x='K') then shilian2;   if rwwc[2]>=5 then begin     writeln('你的主线任务已经完成,可以退出了');     writeln;   end;   if (x='t')or(x='T') then begin     writeln;     writeln;     writeln('吴仁杰说:铁人家族很强大的,你准备好了吗?(Y/N)');     readln(c);   end;   if c='Y' then break;   writeln;   writeln; until ((x='t')and(c='Y'))or((x='T')and(c='Y')); go9; go10; end.             

评论