我的新游戏

开始super游戏.pas：
uses crt;
const dtm:array[1..10]of string=('新手树林','探索石阵','升级宝地','好运聚宝盆','荒芜之地','堕落之城','危机城市','最后大地','抗魔前线','魔王巢穴');
var dj,jy,dtx:longint;dt:array[0..11]of string[30]; t:text;zh:string;ch:char;
procedure jieshu;
begin
clrscr;textcolor(red);textbackground(green);writeln('大魔王倒下了……');delay(2000); writeln;
writeln('勇士，你胜利了！');delay(3000); writeln;
writeln('回忆吧，从新手树林开始，');delay(3000);
writeln('历经探索石阵、升级宝地、好运聚宝盆、荒芜之地、堕落之城、危机城市、最后大地，');delay(3000);
writeln('最后到抗魔前线和魔王巢穴厮杀。');delay(3000);
writeln;writeln('你也累了，回家吧！');delay(5000);
assign(output,zh+'.super');rewrite(output);
writeln('一切都结束了……');
close(output);
writeln('(注释：此号已被封了，哈哈哈哈)');
readkey;
halt;
end;
procedure jjy(a:Longint);
var p:boolean;
begin
jy:=jy+a;
p:=false;
textcolor(yellow);
while jy>=dj*5 do begin
p:=true;
writeln('升级了！');
jy:=jy-dj*5;
dj:=dj+1;
end;
if p then
case dj of
6:writeln('挺不错，升了1级了，继续努力吧！');
10:writeln('10级了，有点技术吗！');
50:writeln('50级了，感谢一直使用本游戏！');
end;
end;
procedure pk;
var dj1,xl,xl1:longint;f:-1..1;
begin
f:=-1;
dj1:=random(5)+(dtx-1)*5+1;
xl:=dj*5;
xl1:=dj1*5;
repeat
clrscr;
textcolor(yellow);
writeln('我方 敌方');
writeln('等级：',dj,'等级：':12,dj1);
writeln('血量：',xl,'血量：':11,xl1);
writeln('攻击力：',dj+1,'攻击力：':7,dj1+1);
f:=-f;
write('轮到');
if f=1 then writeln('我方了')
else writeln('敌方了');
if random(3)<>1 then
begin
writeln('打中了');
if f=1 then xl1:=xl1-dj-1
else xl:=xl-dj1-1;end
else writeln('⊙﹏⊙汗，没打中'); delay(1000);
until (xl<=0)or(xl1<=0);
clrscr;
writeln('我方 敌方');
writeln('等级：',dj,'等级：':12,dj1);
writeln('血量：',xl,'血量：':11,xl1);
writeln('攻击力：',dj+1,'攻击力：':7,dj1+1);
if xl1<=0 then begin writeln('赢了，加',dj1*2-xl1 div 5,'点经验。');jjy(dj1*2-xl1 div 5);
if dtx=10 then jieshu;readkey;end
else begin write('输了');readkey;halt;end;
end;
procedure play;
var i,x,y:longint;
begin
clrscr;
gotoxy(4,4);
write('请输入账号：');cursoron; readln(zh); cursoroff;
clrscr;
writeln(' ~~%%%%%%%%_,_, ');
writeln(' ~~%%%%%%%%%-"/./ ');
writeln(' ~~%%%%%%%-'' / `. ');
writeln(' ~~%%%%%%%%'' . ,__; ');
writeln(' ~~%%%%%%%%'' : \O\ ');
writeln(' ~~%%%%%%%%'' : `. ');
writeln(' ~~%%%%%%%%'' `. _, '' ');
writeln(' ~~%%%%%%%%'' .''`-._ `.');
writeln(' ~~%%%%%%%%%'' S U P E R : `-. (,;');