/ Vijos / 讨论 / 分享 /

大神之作--对于我这个新手来说,哈哈

分享一个游戏

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.

1 条评论

  • 1