对战小游戏

textcolor(lightcyan);
gotoxy(17,22); write(HP[1]:4);
gotoxy(17,23); write(Power[1]:4);
gotoxy(17,24); write(Range[1]:4);
gotoxy(17,25); write(Luck[1]:4);
textcolor(lightgreen);
gotoxy(17,27); write(HP[2]:4);
gotoxy(17,28); write(Power[2]:4);
gotoxy(17,29); write(Range[2]:4);
gotoxy(17,30); write(Luck[2]:4);
end;
procedure fill;
begin
randomize; clrscr; window(20,5,64,50); cursoroff;
textcolor(cyan);
writeln('开始吗？(Y/N)');
repeat
while not keypressed do;
ch:=ord(readkey);
until ch in[ord('Y'),ord('N'),ord('y'),ord('n')];
if ch in[ord('N'),ord('n')] then halt;
writeln('请稍等...');
for i:=1 to 2 do
begin
HP[i]:=1000+trunc(random(300));
Power[i]:=4+trunc(random(5));
Range[i]:=2+trunc(random(3));
Luck[i]:=6+trunc(random(2));
end;
Dir[1,1]:=1; Dir[2,1]:=-1;
x[1]:=2+trunc(random(9));
x[2]:=maxn div 2+1+trunc(random(9));
y[1]:=2+trunc(random(9));
y[2]:=maxn div 2+1+trunc(random(9));
for i:=1 to maxn do
begin
map[1,i]:=maxint; map[maxn,i]:=maxint;
map[i,1]:=maxint; map[i,maxn]:=maxint;
end;
for i:=2 to maxn-1 do
for j:=2 to maxn-1 do
if random<1/3 then
if Diff(i,j,x[1],y[1]) and Diff(i,j,x[2],y[2]) then
map[i,j]:=1+trunc(random(200)); delay(400); clrscr;
write('准备好了吗？');
while not keypressed do; clrscr;
for i:=99 downto 1 do Num(0,i,10);
clrscr;
for i:=1 to maxn do
begin
for j:=1 to maxn do
begin
if map[i,j]=maxint then textbackground(brown)
else if map[i,j]=0 then textbackground(black)
else textbackground(lightblue);
write(' ');
end;
writeln;
end;
textbackground(black);
textcolor(lightcyan);
gotoxy(1,21); for i:=1 to 5 do write('__',chr(1),'_');
gotoxy(1,22); write('[伤害]|[生命值]:',HP[1]:3);
gotoxy(7,23); write('|[攻击力]:',Power[1]:3);
gotoxy(7,24); write('|[穿透力]:',Range[1]:3);
gotoxy(7,25); write('|[幸运度]:',Luck[1]:3);
textcolor(lightgreen);
gotoxy(1,26); for i:=1 to 5 do write('__',chr(2),'_');
gotoxy(1,27); write('[伤害]|[生命值]:',HP[2]:3);
gotoxy(7,28); write('|[攻击力]:',Power[2]:3);
gotoxy(7,29); write('|[穿透力]:',Range[2]:3);
gotoxy(7,30); write('|[幸运度]:',Luck[2]:3);
end;
procedure thing(Peo,ii,jj,Pow:integer);
begin
if map[ii,jj]>0 then
begin
dec(map[ii,jj],Num(Peo,Pow,0));
if map[ii,jj]<=0 then
begin
map[ii,jj]:=0;
gotoxy(jj,ii);
if random<0.142857 then
begin
i:=1+trunc(random(11));
if i in[1..3] then
begin
map[ii,jj]:=-1;
textcolor(red);
write('H');
end;
if i in[4..6] then
begin
map[ii,jj]:=-2;
textcolor(magenta);
write('P');


end;
if i in[7..9] then
begin
map[ii,jj]:=-3;
textcolor(lightblue);
write('R');
end;
if i in[10..11] then
begin
map[ii,jj]:=-4;
textcolor(yellow);
write('L');
end;
end else write(' ');
end;
end;
for i:=1 to 2 do
if not Diff(ii,jj,x[i],y[i]) then
dec(HP[i],Num(Peo,Pow,0));
end;
procedure Launch(Peo,ii,jj,Dir1,Dir2,TheRange,ThePower:integer);
begin
r:=TheRange;
while (map[ii+Dir1,jj+Dir2]=0)and(r>0)
and(Diff(ii+Dir1,jj+Dir2,x[1],y[1]))
and(Diff(ii+Dir1,jj+Dir2,x[2],y[2])) do
begin
dec(r);
inc(ii,Dir1); inc(jj,Dir2);
gotoxy(jj,ii);
if TheRange in[01..03] then textcolor(white);
if TheRange in[04..06] then textcolor(lightblue);
if TheRange in[07..10] then textcolor(green);
if TheRange in[11..14] then textcolor(magenta);
if TheRange in[15..18] then textcolor(brown);
if ThePower in[01..09] then write('+');
if ThePower in[10..24] then write('*');
if ThePower in[25..44] then write('%');
if ThePower in[45..69] then write('@');
if ThePower in[70..99] then write('');
delay(4); gotoxy(jj,ii); write(' ');
end;
if r>0 then thing(Peo,ii+Dir1,jj+Dir2,ThePower);
end;
procedure Walk(Peo,Direc,V:integer);
begin
delay((Range[1]+Range[2])*2);
Dir[Peo,1]:=0; Dir[Peo,2]:=0;
Dir[Peo,Direc]:=V;
end;
procedure run;
begin
show;
delay(10);
if keypressed then
begin
ch:=ord(readkey);
if ch in[119,097,115,100,104] then
begin
gotoxy(y[1],x[1]); write(' ');
case ch of
119: begin Walk(1,1,-1); if map[x[1]-1,y[1]]<=0 then dec(x[1]); end;
097: begin Walk(1,2,-1); if map[x[1],y[1]-1]<=0 then dec(y[1]); end;
115: begin Walk(1,1,+1); if map[x[1]+1,y[1]]<=0 then inc(x[1]); end;
100: begin Walk(1,2,+1); if map[x[1],y[1]+1]<=0 then inc(y[1]); end;
104: Launch(1,x[1],y[1],Dir[1,1],Dir[1,2],Range[1],Power[1]+trunc(random(Luck[1])));
end;
end;
if ch in[$48,$4b,$50,$4d,046] then
begin
gotoxy(y[2],x[2]); write(' ');
case ch of
$48: begin Walk(2,1,-1); if map[x[2]-1,y[2]]<=0 then dec(x[2]); end;
$4b: begin Walk(2,2,-1); if map[x[2],y[2]-1]<=0 then dec(y[2]); end;
$50: begin Walk(2,1,+1); if map[x[2]+1,y[2]]<=0 then inc(x[2]); end;
$4d: begin Walk(2,2,+1); if map[x[2],y[2]+1]<=0 then inc(y[2]); end;
046: Launch(2,x[2],y[2],Dir[2,1],Dir[2,2],Range[2],Power[2]+trunc(random(Luck[2])));
end;
end;
end;
end;
procedure over;
begin
textcolor(lightblue);
clrscr;
if HP[1]>0 then begin textcolor(lightcyan); writeln(' __ | ');
writeln('|__| | | | _ | | _ | ');
writeln('| \ | | | /~_\ \ /\ / ( ) |\ | | ');
writeln('|__/ |/ \/ \__ \/ \/ ~ | \| * '); end;
if HP[2]>0 then begin textcolor(lightgreen); writeln(' _ |');
writeln(' / \ _ _ | | _ |');
writeln('| _ |/^ /~_\ /~_\ |\ | \ /\ / ( ) |\ | |');
writeln(' \_| | \__ \__ | \| \/ \/ ~ | \| *'); end;
delay(999);
end;
begin
fill;
while (HP[1]>0)and(HP[2]>0) do run;
over;
end.

各位大神那！怎么中文在FP里就是显示不出来了？啊啊啊！

也可以看我空间
http://hi.baidu.com/1308321072/item/6bf6d8508ab6c805da1635f1

用了crt貌似就不能用中文了。。。

原创吗

yes!我发的这个，还有塔防都是原创

为方便大家下载，我放在网盘上了：http://pan.baidu.com/share/link?shareid=110914&uk=1158745270

密码：pascal

窗口异常抖动?
有可能你用的Pascal是2.4.4吧？2.4.4是不能显示这个游戏的。

代码都运行不通。。。。。。。。。》》

抖动的把框拉大点