猪猪乐园

program untitled;
function bangzhu(a:string) :string;
begin
if a='yes' then
begin
bangzhu:=' 这是一款由“三只猪的队伍（three pig''s team）”联合制造的首批游戏之一，它有三大角色：gd猪，my猪和zf猪。';
writeln(bangzhu);
bangzhu:=' gd猪，是一个有很强的攻击力的猪，它象征着游戏的编写者之一——神圣无敌802班长。在现实生活中，高登象征着无敌，优秀，领导，与伟大。他是一个需要任何人敬仰的伟人';
writeln(bangzhu);
bangzhu:=' zf猪，是一个只各项功能都平衡的猪。他是一个绝顶的天才，他在现实中是全体学霸所膜拜的数学之神。他是智慧，勤奋，与天才最好的代名词。';
writeln(bangzhu);
bangzhu:='my';
writeln(bangzhu);
end;
end;
const
lao:array [1..13] of string[16]=
(' /--------\ ',
' | | ',
' ------ ',
' / _ _ \ ',
' / /- -\ \ ',
' | || | ',
' | /..\ | ',
' \ __ / ',
' \______/ ',
' / \||||/ \ ',
' | \||/ | ',
' | \/ | ',
' | | ');
gd:array [1..13] of string[16]=(
' /````````\ ',
' `````````````` ',
' / _ _ \ ',
' | . . | ',
' | || | ',
' \ \__/ / ',
' \______/ ',
' / \ ',
' /`| |`\ ',
'| /| |\ |',
'|| | | ||',
'|| | | ||',
' \\| | ||');
my:array [1..13] of string[16]=(
' ------- ',
' / \ ',
' | __ _ | o',
' | || .\ \_/|',
' | \/ __/ ',
' \ \_/ ',
' \______/ ',
' / \ ',
' | | | | ',
' | \ \____/i',
' | \______|',
' | | ',
' | | ');
zf:array [1..13] of string[16]=(
' /````````\ ',
' `````````````` ',
' / _ \ ',
' | . | ',
' | | ',
' \ \_/ ',
' \______/ ',
' / \ ',
' | | | | ',
' | \ \___/i',
' | \_____|',
' | | ',
' | | ');
label 9,10,11,12,13;
var
i,c1 ,c2:string;
j,wh,dm,wm,dh,k,sh,lv,exp,c,sg,sm,l,hh,n,l1,z,dhc,dmc,whc,wmc:longint;
min:single;
BEGIN
n:=1;
hh:=0;
whc:=100;
wmc:=15;
dhc:=50;
dmc:=20;
sm:=5;
sh:=10;
min:=20;
writeln('欢迎进入，猪猪乐园！');
writeln('你要看帮助吗？（建议看）yes/no');
readln(i);
if i='yes' then begin bangzhu(i);
readln;
end;
goto 10;
if i='no' then
begin
10: writeln('你想干嘛？1.闯关 2.boss 3.退出');
readln(k);
if k=3 then exit;
if k=1 then
begin
for l:=1 to 13 do writeln(lao[l]);
9:writeln('请选择你的职业：1.gd猪（强攻型） 2.my猪（厚血型） 3.zf猪(平衡性）');
readln(c);
if c=1
then
begin
for l:=1 to 13 do writeln(gd[l]);
writeln('你确定吗？yes/no');
readln(c1);
11:if c1='yes'
then
begin sm:=sm+1;
wh:=whc;
wm:=wmc;
dm:=dmc;
dh:=dhc;
wm:=wm+2;
repeat
writeln('第',n,'关');
writeln('小饿猪^(*￣(oo)￣)^');
writeln('HP:',dh);
writeln('攻:',dm);
writeln('我方');
writeln('HP:',wh);
writeln('攻:',wm);
writeln('1.攻击 2.复血 3.逃跑');
readln(j);
if j=1 then
begin
randomize;
z:=random(100);
if z >= min
then
begin
dh:=dh-wm;
writeln('你对敌方造成',wm,'点伤害');
end
else writeln('未命中!');
randomize;
l1:=random(100);
if l1 >=min
then
begin
wh:=wh-dm;
writeln('敌方对你造成',dm,'点伤害');
end
else writeln('未命中!');
end;
if j=2 then
wh:=wh+wm;
if j=3 then goto 10;
hh:=hh+1;
until (dh<=0)or(wh<=0);
if dh<=0
then begin
writeln('进入下一关');
n:=n+1;
dhc:=dhc+10;
dmc:=dmc+2;
goto 11;
end;
end;
if c1='no'
then
begin
goto 9;
end;
end;
if c=2
then
begin
for l:=1 to 13 do writeln(my[l]);
writeln('你确定吗？yes/no');
readln(c2);
12:if c2='yes'
then
begin ;
wh:=whc;
wm:=wmc;
dm:=dmc;
dh:=dhc;
wh:=wh+10;
repeat
writeln('第',n,'关');
writeln('小饿猪^(*￣(oo)￣)^');
writeln('HP:',dh);
writeln('攻:',dm);
writeln('我方');
writeln('HP:',wh);
writeln('攻:',wm);
writeln('1.攻击 2.复血 3.逃跑');
readln(j);
if j=1 then
begin
randomize;
z:=random(100);
if z >= min
then
begin
dh:=dh-wm;
writeln('你对敌方造成',wm,'点伤害');
end
else writeln('未命中!');
randomize;
l1:=random(100);
if l1 >=min
then
begin
wh:=wh-dm;
writeln('敌方对你造成',dm,'点伤害');
end
else writeln('未命中!');
end;
if j=2 then
wh:=wh+wm;
if j=3 then goto 10;
hh:=hh+1;
until (dh<=0)or(wh<=0);
if dh<=0
then begin
writeln('进入下一关');
n:=n+1;
dhc:=dhc+10;
dmc:=dmc+2;
goto 12;
end;
end;
if c2='no'
then
begin
goto 9;
end;
end;
if c=3
then
begin
for l:=1 to 13 do writeln(zf[l]);
writeln('你确定吗？yes/no');
readln(c1);
13:if c1='yes'
then
begin sm:=sm+1;
wh:=whc;
wm:=wmc;
dm:=dmc;
dh:=dhc;
wm:=wm+2;
repeat
writeln('第',n,'关');
writeln('小饿猪^(*￣(oo)￣)^');
writeln('HP:',dh);
writeln('攻:',dm);
writeln('我方');
writeln('HP:',wh);
writeln('攻:',wm);
writeln('1.攻击 2.复血 3.逃跑');
readln(j);
if j=1 then
begin
randomize;
z:=random(100);
if z >= min
then
begin
dh:=dh-wm;
writeln('你对敌方造成',wm,'点伤害');
end
else writeln('未命中!');
randomize;
l1:=random(100);
if l1 >=min
then
begin
wh:=wh-dm;
writeln('敌方对你造成',dm,'点伤害');
end
else writeln('未命中!');
end;
if j=2 then
wh:=wh+wm;
if j=3 then goto 10;
hh:=hh+1;
until (dh<=0)or(wh<=0);
if dh<=0
then begin
writeln('进入下一关');
n:=n+1;
dhc:=dhc+10;
dmc:=dmc+2;
goto 13;
end;
end;
if c1='no'
then
begin
goto 9;
end;
end;
end;
end;
END.