var
a1,a2,a3,b1,b2,b3,k,j:longint;
st,st2,st4,st3,st5:string;
begin
writeln('欢迎来到动物大作战');
a1:=20;
a2:=5;
a3:=1;
b1:=35;
b2:=2;
b3:=5;
repeat
writeln(a1,'血 ',a2,'攻击 ',a3,'级');
writeln('1打猎 2商店 ');
readln(st);
if k>=10 then
begin
a3:=a3+1;
a1:=a1+15;
a2:=a2+1;
k:=k mod 10;
end;
if st='1' then
begin
writeln('1猪 2肥猪 ');
readln(st2);
if st2='1' then
begin
writeln('猪的生命：35 猪的攻击:2 猪的等级:5 ');
repeat
a1:=a1-b2;
b1:=b1-a2;
writeln('你的生命:',a1);
writeln('猪的生命:',b1);
until (a1<=0)or(b1<=0);
if (a1<0) then
begin
writeln('你输了');
end
else
begin
writeln('你赢了');
a1:=a1+5;
j:=j+5;
k:=k+2;
end;
end;
if st2='2' then
begin
writeln('bang猪的生命：80 猪的攻击:7 猪的等级:5 ');
repeat
a1:=a1-b2;
b1:=b1-a2;
writeln('你的生命:',a1);
writeln('bang猪的生命:',b1);
until (a1<=0)or(b1<=0);
if (a1<0) then
begin
writeln('你输了');
end
else
begin
writeln('你赢了');
a1:=a1+15;
j:=j+15;
k:=k+8;
end;
end;
end
else
if st='2' then
begin
writeln('1攻击+2，5 2生命加十，2 ');
readln(st5);
if st5='1' then
begin
j:=j-5;
a2:=a2+2;
writeln('余额=',j);
writeln('攻击',a2);
end
else
begin
j:=j-2;
a1:=a1+10;
writeln('余额=',j);
writeln('血量=',a2);
end;
end;
until st='exit';
end.

求修改

我承认我很渣

没人？