pascal怎么编用鼠标点的游戏
var
ch2:char;
tf,bosstf:boolean;
name:string;
jd,qn:longint;
t,boss,hpboss,bossatt,ene,n,eneatt,my,myatt,hpmy,hpene:integer;
i,j,i1,j1,x,y:integer;
ch:char;
dt:array[0。 。11,0。。11] of string;
procedure hpfirst;
begin
my:=400;
hpmy:=400;
myatt:=350;
qn:=10;
jd:=10;
ene:=350;
hpene:=350;
eneatt:=300...全部
var
ch2:char;
tf,bosstf:boolean;
name:string;
jd,qn:longint;
t,boss,hpboss,bossatt,ene,n,eneatt,my,myatt,hpmy,hpene:integer;
i,j,i1,j1,x,y:integer;
ch:char;
dt:array[0。
。11,0。。11] of string;
procedure hpfirst;
begin
my:=400;
hpmy:=400;
myatt:=350;
qn:=10;
jd:=10;
ene:=350;
hpene:=350;
eneatt:=300;
boss:=10000;
hpboss:=10000;
bossatt:=5000;
end;
procedure hpfull;
begin
inc(hpmy,30);
my:=hpmy;
inc(hpene,30);
ene:=hpene;
inc(myatt,10);
inc(eneatt,20);
if t=10 then begin inc(qn); inc(jd);end;
end;
procedure beg;
begin
write('制作人：刘志健。
');
readln;
write('公布网站:bbs。oifans。cn');
readln;
write('用户名:liuzhijian');
readln;
writeln;
writeln;
write('游戏开始？');
readln;
end;
procedure map;
begin
for i:=1 to 10 do
for j:=1 to 10 do begin
if j<>10 then write(dt[i,j]);
if j=10 then writeln(dt[i,j]);
end;
end;
procedure input;
begin
writeln('骑士:',name,' 你的体力:',my);
writeln('H:帮助，M:移动，B:挑BOSS:');
readln(ch);
end;
procedure help;
begin
writeln('@是没敌人的，*是有敌人的，~是自己，！是宝物。
');
writeln('潜能可以伤3倍的血，绝对必杀是必杀招，起初各有十次，后来每战斗十次各加1个。
');
readln;
end;
procedure full;
begin
my:=hpmy;
ene:=hpene;
end;
procedure enem;
var
ch:string;
begin
repeat
writeln('敌人出现！！！！');
writeln('A普通攻击,B使用潜能,C绝对必杀');
readln(ch);
if bosstf then begin
if (ch='a') or (ch='A') then dec(boss,myatt);
if ((ch='b') or (ch='B')) and (qn<>0) then dec(boss,myatt*3);
if ((ch='c') or (ch='C')) and (jd<>0) then dec(boss,boss);
if boss0) then dec(ene,myatt*3);
if ((ch='c') or (ch='C')) and (jd<>0) then dec(ene,ene);
if ene1;
if my<=0 then exit;
if boss<=0 then exit;
full;hpfull;
end;
procedure move;
var
ch2:string;
begin
map;
writeln('W是上,A是左,S是下,D是右');
《赠人玫瑰手有余香，祝您好运一生一世，如果回答有用，请点“好评”，谢谢^_^!》。收起
