1.pas

小游戏源码之格斗

uses crt;
var a,b,c,e,f:integer; a1,b1:char;
procedure eee;
begin
for f:=1 to 80 do
writeln;
end;
begin
writeln('THE KING OF FIGHTERS 00`');
writeln;
repeat
a:=20; b:=20;
repeat
write('YOU:'); for e:=1 to b do write('=');
writeln;
write(' PC:'); for e:=1 to a do write('=');
writeln; writeln;
writeln('1:kick  2:whack');
writeln('HELP:kick hurt 1,but if you miss,you will be hurt 1.');
writeln('whack hurt 2,but if you miss,you must be hurt 2.');
readln(a1);
c:=random(2);
case a1 of
'1':begin
if c=0 then begin
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
writeln('   **    **     ');
writeln('  ****  ****    ');
writeln('   **    **     ');
writeln('   **********   ');
writeln('   **    **     ');
writeln('   **   *  *    ');
delay(300);
eee;
writeln('    **   **     ');
writeln('   **** ****    ');
writeln('    **  #**     ');
writeln('   ****#*****   ');
writeln('     *#  **     ');
writeln('     *  *  *    ');
delay(300);
eee;
writeln('  **       **     ');
writeln(' ****   %%%***    ');
writeln('  **    %*%**     ');
writeln('******  %%%**     ');
writeln('  **       **     ');
writeln(' *  *    * *      ');
delay(300);
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
a:=a-1;
end
else begin
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
writeln('   **    **     ');
writeln('  ****# ****    ');
writeln('   **#   **     ');
writeln('   *#********   ');
writeln('   *     **     ');
writeln('    *   *  *    ');
delay(300);
eee;
writeln('    **  **      ');
writeln('   ********     ');
writeln('    *####*      ');
writeln('   **####*      ');
writeln('     *  **      ');
writeln('      * * *     ');
delay(300);
eee;
writeln('  **       **     ');
writeln(' *%%%     ****    ');
writeln('  %*%      **     ');
writeln(' *%%%*   ******   ');
writeln('  **       **     ');
writeln('   **     *  *    ');
delay(300);
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
b:=b-1;
end;
end;
'2':begin
if c=1 then begin
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
writeln('   **    **     ');
writeln(' *****  ****    ');
writeln('  ***    **     ');
writeln('   *** ******   ');
writeln('   **    **     ');
writeln('   * *  *  *    ');
delay(300);
eee;
writeln('    **   **     ');
writeln('   **** ****    ');
writeln('    **###**     ');
writeln('    *********   ');
writeln('     **  **     ');
writeln('   ** * *  *    ');
delay(300);
eee;
writeln('  **   % % %*     ');
writeln(' ****   %%%***    ');
writeln('  **   %%*%%*     ');
writeln('******  %%%**     ');
writeln('  **   % % %*     ');
writeln(' *  *    * *      ');
delay(300);
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
a:=a-2;
end
else begin
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
writeln('   **    **     ');
writeln('  ****  ****    ');
writeln('   *#### **     ');
writeln('   *** ******   ');
writeln('   ***   **     ');
writeln('  *  *  *  *    ');
delay(300);
eee;
writeln('    **#  **     ');
writeln('   ****#****    ');
writeln('    ****#**     ');
writeln('    ****#**     ');
writeln('     **# **     ');
writeln('   ** # *  *    ');
delay(300);
eee;
writeln('  %*% %   **      ');
writeln(' **%%%   ****     ');
writeln('  *%*%    **      ');
writeln('  *%%%  ******    ');
writeln('  %*% %   **      ');
writeln('   **    *  *     ');
delay(300);
eee;
writeln('  **     **     ');
writeln(' ****   ****    ');
writeln('  **     **     ');
writeln('****** ******   ');
writeln('  **     **     ');
writeln(' *  *   *  *    ');
delay(300);
eee;
b:=b-2;
end;
end;
end;
until (a<=0) or (b<=0);
if a<=0 then writeln('You are win!')
else writeln('You are lose!');
WRITELN('Play again??');
readln(b1);
until b1='n';
end.