说是魔兽   只是人物的名字是魔兽的   
比较简单   但是比较耐玩
一楼度娘

program RPG(input,output);
uses crt;
type
jk=record
name:string;
sm:longint;
gj:longint;
fy:longint;
dj:longint;
jy:longint;
end;
var
wo:record
name:string;
sm:longint;
gj:longint;
fy:longint;
mf:longint;
jb:longint;
jy:longint;
dj:longint;
end;
wb,ta:record
name:string;
sm:longint;
gj:longint;
fy:longint;
dj:longint;
jy:longint;
end;
gg:array[1..1000]of jk;
ch,sh,ah,c:char;i,g,x,y:longint;st1:string; f1,f2:text;
begin
writeln('是否打开上次储存?');
readln(ch);
if ch='Y' then begin
write('输入文件名:');
readln(st1);
assign(f1,st1);
reset(f1);
readln(f1,wo.name);
readln(f1,wo.sm);
readln(f1,wo.gj);
readln(f1,wo.fy);
readln(f1,wo.mf);
readln(f1,wo.jb);
readln(f1,wo.jy);
readln(f1,wo.dj);
readln(f1,g);
for i:=1 to g do
begin
readln(f1,gg[i].name);
readln(f1,gg[i].sm);
readln(f1,gg[i].gj);
readln(f1,gg[i].fy);
readln(f1,gg[i].dj);
end;
close(f1);
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
delay(1000);
end;
if ch<>'Y' then begin
wo.jb:=0; wo.jy:=0; wo.dj:=1;
writeln('请选择战士:');
delay(1000);
writeln('矮子------------a');
writeln('牛头------------n');
writeln('鹿人------------l');
writeln('甲虫------------j');
writeln('曽哥------------z');

readln(ch);
case ch of
'a':begin wo.name:='矮子';wo.sm:=2000;wo.gj:=22;wo.fy:=20;wo.mf:=20;
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
delay(1000);end;
'n':begin wo.name:='牛头';wo.sm:=2200;wo.gj:=20;wo.fy:=20;wo.mf:=20;
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
delay(1000);end;
'l':begin wo.name:='鹿人';wo.sm:=2000;wo.gj:=20;wo.fy:=20;wo.mf:=22;
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
delay(1000);end;

'j':begin wo.name:='甲虫';wo.sm:=2000;wo.gj:=20;wo.fy:=22;wo.mf:=20;
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
delay(1000);end;
'z':begin wo.name:='曾哥';wo.sm:=2000;wo.gj:=20;wo.fy:=20;wo.mf:=20;wo. jb:=1000;
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
delay(1000);end;
end;
end;
repeat
writeln('你要去哪儿?');
writeln('森林---------------s');
writeln('沼泽---------------z');
writeln('城堡---------------c');
writeln('地府---------------d');
writeln('龙宫---------------l');
writeln('天宫---------------g');
writeln('神墓---------------m');
writeln('西天---------------x');
writeln('商店---------------a');
writeln('炼丹房-------------f');
writeln('怪物战场-----------n');
writeln('怪物商店-----------w');
writeln('捕捉怪物-----------b');
writeln('看怪物背包---------k');
writeln('退出---------------t');
readln(ch);

case ch of
'n':
begin
randomize;
x:=random(9);
case x of
0:begin ta.name:='蚊香蝌蚪';ta.sm:=70;ta.gj:=47;ta.fy:=27;ta.dj:=1; end;
1:begin ta.name:='阿柏蛇';ta.sm:=100;ta.gj:=60;ta.fy:=50;ta.dj:=1; end;
2:begin ta.name:='双弹瓦斯';ta.sm:=100;ta.gj:=50;ta.fy:=70;ta.dj:=1; end;
3:begin ta.name:='蚊香蛙';ta.sm:=130;ta.gj:=80;ta.fy:=60;ta.dj:=1; end;
4:begin ta.name:='椰蛋树';ta.sm:=100;ta.gj:=70;ta.fy:=50;ta.dj:=2; end;
5:begin ta.name:='小巨鳄';ta.sm:=150;ta.gj:=70;ta.fy:=20;ta.dj:=2; end;
6:begin ta.name:='可达鸭';ta.sm:=200;ta.gj:=100;ta.fy:=25;ta.dj:=2; end;
7:begin ta.name:='诺基亚';ta.sm:=700;ta.gj:=350;ta.fy:=300;ta.dj:=5; end;
8:begin ta.name:='快龙';ta.sm:=500;ta.gj:=270;ta.fy:=250;ta.dj:=3;end;
end;

writeln('对手:',ta.name);
writeln('生命:',ta.sm);
writeln('攻击:',ta.gj);
writeln('防御:',ta.fy);
writeln('等级:',ta.dj);
writeln('捕捉b,杀死s');
readln(c);
wb.name:=ta.name;wb.sm:=ta.sm;wb.gj:=ta.gj;wb.fy:=ta.fy;wb.dj:=ta.dj;
writeln('找哪个去火拼?');
writeln('列表:');
for i:=1 to g do
writeln('姓名:',gg[i].name,' ','生命:',gg[i].sm,' ','攻击:',gg[i].gj,' ','防御:',gg[i].fy,' ','等级:',gg[i].dj);
readln(i);

while (ta.sm>0)and(gg[i].sm>0) do
begin
writeln('对手:',ta.name);
writeln('生命:',ta.sm);
writeln('攻击:',ta.gj);
writeln('防御:',ta.fy);
writeln('等级:',ta.dj);
writeln('-------------------------');
delay(1000);
writeln('姓名:',gg[i].name);
writeln('生命:',gg[i].sm);
writeln('攻击:',gg[i].gj);
writeln('防御:',gg[i].fy);
writeln('经验:',gg[i].jy);
writeln('等级:',gg[i].dj);
writeln('-------------------------');
writeln('攻击-------------g');
writeln('防御-------------f');
writeln('逃跑-------------t');
readln(sh);

if sh='g' then   ta.sm:=ta.sm-(abs(gg[i].gj-ta.fy)*2)div 4;
if sh='f' then gg[i].sm:=gg[i].sm-(abs(ta.gj-gg[i].fy)div 4)*2;
if sh='t' then begin randomize; x:=random(2); if x=1 then begin
writeln('溜了!!'); break; end;
end;

gg[i].sm:=gg[i].sm-abs(ta.gj-gg[i].fy)*5*2;
end;
if (ta.sm<=0)and(c='b') then begin
inc(g);gg[g].name:=wb.name;gg[g].sm:=wb.sm;gg[g].gj:=wb.gj;gg[g].fy:=wb.fy;gg[g].dj:=wb.dj;
gg[i].jy:=gg[i].jy+ta.dj*ta.gj div 10;
wo.jb:=wo.jb+ta.dj*ta.gj div 7;
writeln('列表:');
for i:=1 to g do
writeln('姓名:',gg[i].name,' ','生命:',gg[i].sm,' ','攻击:',gg[i].gj,' ','防御:',gg[i].fy,' ','等级:',gg[i].dj);
end;
if (ta.sm<=0)and(c='s') then begin   gg[i].jy:=gg[i].jy+ta.dj*ta.gj div 10;
wo.jb:=wo.jb+ta.dj*ta.gj div 9;
end;
if gg[i].sm<=0 then writeln(gg[i].name,'挂了!');
end;

'k':begin
writeln('列表:');
for i:=1 to g do
writeln('姓名:',gg[i].name,' ','生命:',gg[i].sm,' ','攻击:',gg[i].gj,' ','防御:',gg[i].fy,' ','等级:',gg[i].dj);
end;
'w':begin
textbackground(yellow);
textcolor(red);
for i:=1 to g do
begin
if gg[i].jy>=50 then begin gg[i].dj:=gg[i].dj+gg[i].jy div 50;
gg[i].gj:=gg[i].gj+(gg[i].jy div 50*6);
gg[i].fy:=gg[i].fy+(gg[i].jy div 50*5);
gg[i].sm:=gg[i].sm+(gg[i].jy div 50*200);
gg[i].jy:=gg[i].jy mod 50;
end;
end;

writeln('列表:');
for i:=1 to g do
writeln('姓名:',gg[i].name,' ','生命:',gg[i].sm,' ','攻击:',gg[i].gj,' ','防御:',gg[i].fy,' ','等级:',gg[i].dj);
writeln('要啥?');
writeln('小血瓶 12$ 生命加100--------------------p');
writeln('大血瓶 40$ 生命
加3
00--------------------x');
writeln('剑 20$ 攻击加5--------------------------j');
writeln('弓 25$ 攻击加7--------------------------g');
writeln('盾 15$ 防御加3--------------------------d');
writeln('黄金甲 30$ 防御加6----------------------h');
writeln('升级丸 50$ 升级-------------------------w');
writeln('月亮之水 70$ 攻.防各加5,生加500---------y');
readln(ah);
writeln('给哪个用?');
readln(i);
case ah of
'j':if wo.jb>=20 then begin gg[i].gj:=gg[i].gj+5;wo.jb:=wo.jb-20; end;
'd':if wo.jb>=15 then begin gg[i].fy:=gg[i].fy
+3
; wo.jb:=wo.jb-15; end;
'y':if wo.jb>=60 then begin gg[i].gj:=gg[i].gj+5;
gg[i].fy:=gg[i].fy+5;wo.jb:=wo.jb-50; end;
'x':if wo.jb>=40 then begin gg[i].sm:=gg[i].sm+300; wo.jb:=wo.jb-40; end;
'g':if wo.jb>=25 then begin gg[i].gj:=gg[i].gj+7;wo.jb:=wo.jb-25; end;
'p':if wo.jb>=12 then begin gg[i].sm:=gg[i].sm+100; wo.jb:=wo.jb-12; end;
'h':if wo.jb>=30 then begin gg[i].fy:=gg[i].fy+6; wo.jb:=wo.jb-30; end;
'w':if wo.jb>=50 then begin
gg[i].gj:=gg[i].gj+6;
gg[i].fy:=gg[i].fy+5;
gg[i].sm:=gg[i].sm+200;
wo.jb:=wo.jb-50;

gg[i].dj:=gg[i].dj+1;
end;
end;
end;
'b':begin
textbackground(white);
textcolor(yellow);
x:=random(10)+1;
case x of

1:begin ta.name:='妙娃种子';ta.sm:=100;ta.gj:=50;ta.fy:=40;ta.dj:=1;end;
2:begin ta.name:='皮卡丘';ta.sm:=200;ta.gj:=60;ta.fy:=55;ta.dj:=1;end;
3:begin ta.name:='杰尼龟';ta.sm:=250;ta.gj:=75;ta.fy:=66;ta.dj:=1;end;
4:begin ta.name:='小火龙';ta.sm:=320;ta.gj:=80;ta.fy:=70;ta.dj:=1;end;
5:begin ta.name:='沙瓦郎';ta.sm:=100;ta.gj:=30;ta.fy:=20;ta.dj:=1;end;

6:begin ta.name:='耿鬼';ta.sm:=400;ta.gj:=90;ta.fy:=90;ta.dj:=1;end;
7:begin ta.name:='水炮鱼';ta.sm:=50;ta.gj:=20;ta.fy:=17;ta.dj:=1;end;
8:begin ta.name:='鲤鱼王';ta.sm:=90;ta.gj:=0;ta.fy:=20;ta.dj:=1;end;
9:begin ta.name:='妙娃花';ta.sm:=800;ta.gj:=130;ta.fy:=120;ta.dj:=1;end;
10:begin ta.name:='喷火龙';ta.sm:=1000;ta.gj:=200;ta.fy:=170;ta.dj:=1;end;
end;

wb.name:=ta.name;wb.sm:=ta.sm;wb.gj:=ta.gj;wb.fy:=ta.fy;wb.dj:=ta.dj;
while (ta.sm>0)and(wo.sm>0) do
begin
writeln('对手:',ta.name);
writeln('生命:',ta.sm);
writeln('攻击:',ta.gj);
writeln('防御:',ta.fy);
writeln('等级:',ta.dj);
writeln('-------------------------');
delay(1000);
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
writeln('-------------------------');
writeln('攻击-------------g');
writeln('防御-------------f');
writeln('魔法-------------m');
writeln('逃跑-------------t');
readln(sh);

case sh of
'g': ta.sm:=ta.sm-(abs(wo.gj-ta.fy)*2)div 4;
'f':wo.sm:=wo.sm-(abs(ta.gj-wo.fy)div 4)*2;
'm': if wo.mf<=0 then wo.mf:=0 else begin ta.sm:=ta.sm-((wo.gj+wo.fy)*2+10)div 4; wo.mf:=wo.mf-4;
end;

't': begin randomize; x:=random(2); if x=1 then begin
writeln('溜了!!'); break; end else begin
writeln('没溜成!'); wo.sm:=wo.sm-abs(ta.gj-wo.fy)*2; end;
end;
end;
if ta.sm<=0 then begin inc(g);gg[g].name:=wb.name;gg[g].sm:=wb.sm;gg[g].gj:=wb.gj;gg[g].fy:=wb.fy;gg

[g].dj:=wb.dj;
writeln('列表:');
for i:=1 to g do
writeln('姓名:',gg[i].name,' ','生命:',gg[i].sm,' ','攻击:',gg[i].gj,' ','防御:',gg[i].fy,' ','等级:',gg[i].dj);
end
else
if wo.sm<=0 then begin writeln('拜!哥还会来找你的!'); delay(1000); exit; end else
wo.sm:=wo.sm-abs(ta.gj-wo.fy)*4 div 3*5;
end;
end;

's':begin
textbackground(green);
textcolor(white);
randomize;
x:=random(8);
case x of
0:begin ta.name:='草妖';ta.sm:=35;ta.gj:=17;ta.fy:=7;ta.dj:=1; end;
1:begin ta.name:='食人花';ta.sm:=40;ta.gj:=20;ta.fy:=5;ta.dj:=1; end;
2:begin ta.name:='百年树精';ta.sm:=50;ta.gj:=30;ta.fy:=10;ta.dj:=2; end;
3:begin ta.name:='蛇精';ta.sm:=70;ta.gj:=35;ta.fy:=13;ta.dj:=2; end;
4:begin ta.name:='野猪';ta.sm:=100;ta.gj:=50;ta.fy:=10;ta.dj:=3; end;
5:begin ta.name:='狮子';ta.sm:=150;ta.gj:=70;ta.fy:=20;ta.dj:=3; end;
6:begin ta.name:='老虎';ta.sm:=200;ta.gj:=100;ta.fy:=25;ta.dj:=4; end;
7:begin ta.name:='山神';ta.sm:=250;ta.gj:=150;ta.fy:=30;ta.dj:=5; end;
end;

while (ta.sm>0)and(wo.sm>0) do
begin
writeln('对手:',ta.name);
writeln('生命:',ta.sm);
writeln('攻击:',ta.gj);
writeln('防御:',ta.fy);
writeln('等级:',ta.dj);
writeln('-------------------------');
delay(1000);
writeln('姓名:',wo.name);
writeln('生命:',wo.sm);
writeln('攻击:',wo.gj);
writeln('防御:',wo.fy);
writeln('魔法:',wo.mf);
writeln('金币:',wo. jb);
writeln('经验:',wo.jy);
writeln('等级:',wo.dj);
writeln('-------------------------');
writeln('攻击-------------g');
writeln('防御-------------f');
writeln('魔法-------------m');
writeln('逃跑-------------t');
readln(sh);