Programalama > PASCAL

Etiketler: uzay, oyunu!!!

Ort. 0
Puan ver:
program RedStork;
uses crt;

const
left=#75;
right=#77;
up=#72;
down=#80;
Esc=#27;
Space=#32;

var
i,j,iStork,jStork,iEnemy,EnemyShip,Possibility,iLock,iFire,Erase,iLives,iStage,
StageCount,iFuel : integer;
iPoint,LifePoint : Longint;
Key : Char;
Str : String;
Area : Array [1..6,1..10] of integer;
FireLock,MusicLock,BreakLock,CloseEnemy,Stagelock,DeathLock : Boolean;

Procedure FireMusic;
begin
 for i:=1 to 3 do
 begin
  delay(1000);
  Sound(150);
  Delay(2500);
  Sound(950);
  Delay(1500);
  Sound(1500);
  Delay(2500);
  Sound(250);
  Delay(2500);
  Sound(500);
  Delay(900);
  Delay(1550);
 end;
 NoSound;
end;

Procedure Impact;
begin

 for i:=0 to 2 do
 begin
  gotoxy((jStork-1)*9 + 1,(iStork-1)*3 + i+1);
  TextColor(20+i);
  writeln('Û');
  gotoxy((jStork-1)*9 + 3,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 5,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 7,(iStork-1)*3 + i+1);
  writeln('Û');

  Textcolor(12+i);
  gotoxy((jStork-1)*9 + 2,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 4,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 6,(iStork-1)*3 + i+1);
  writeln('Û');
 end;

 for i:=1 to 5 do
 begin
  delay(9000);       {IMPACT!!!}
  sound(100);
  delay(7000);
  sound(150);
  delay(3000);
  sound(2500);
  delay(3000);
  sound(75);
  delay(3000);
  sound(175);
  delay(5000);
  NoSound;
 end;

 BreakLock:=True;
 DeathLock:=True;
end;

Procedure WriteSlowly;
begin

 for i:=1 to Length(Str) do
 begin
  Delay(7000);
  gotoxy(26+i,13);
  writeln(Str[i]);
 end;

end;

begin
clrscr;
Randomize;

LifePoint:=10000;
Possibility:=6;
iLives:=3;
iStage:=1;
iFuel:=10000;
StageLock:=False;

TextColor(7);
gotoxy(37,12);
writeln('LOADING');

gotoxy(24,14);
writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(24,15);
writeln('º');
gotoxy(55,15);
writeln('º');
gotoxy(24,16);
writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');

for i:=1 to 30 do
begin
 Delay(15000);
 TextColor(10);
 gotoxy(24+i,15);
 writeln('Û');
end;

TextColor(20);
gotoxy(33,17);
writeln('PRESS ANY KEY');

Readkey;
Clrscr;


Str:='     RED STORK';
TextColor(RED);
WriteSlowly;

Readkey;

Str:='A MR.STORK PRODUCTION';
TextColor(9);

WriteSlowly;

Readkey;

Str:='DONT BE AFRAID OF THE DARK!';

WriteSlowly;

Readkey;


TextColor(RED);
Str:='BE AFRAID OF WHAT IS IN IT!';

writeSlowly;

Readkey;


Clrscr;

TextColor(7);
gotoxy(35,11);
writeln('STAGE ',iStage);
gotoxy(29,13);
writeln('PRESS ENTER TO START');
readln;


Repeat
 Clrscr;
 iFuel:=10000;

 for i:=1 to 6 do      {Empty array}
  for j:=1 to 10 do
  begin
   Area[i,j]:=0;
  end;

 Area[3,1]:=-1;

 if StageLock then
  begin
   iStage:=iStage + 1;
   TextColor(7);
   gotoxy(35,11);
   writeln('STAGE ',iStage);
   gotoxy(29,13);
   writeln('PRESS ENTER TO START');
   Readln;
   StageLock:=False;
  end;

 if DeathLock then
  begin
   TextColor(7);
   gotoxy(35,11);
   writeln('STAGE ',iStage);
   gotoxy(29,13);
   writeln('PRESS ENTER TO START');
   readln;
   DeathLock:=False;
  end;


 Clrscr;

 TextColor(7);
 gotoxy(3,24);
 writeln('LIVES ',iLives);

 gotoxy(15,24);
 writeln('STAGE ',iStage);

 Key:=#1;

 TextColor(6);
 gotoxy(1,19);
 writeln('Û                  Û                        Û                             
 Û');
 gotoxy(1,20);
 writeln(' Û                ÛÛÛ       Û     /\       ÛÛÛ                            
Û ');
 gotoxy(1,21);
 writeln('  Û              ÛÛÛÛÛ     ÛÛÛ   /  \     ÛÛÛÛÛ                          
Û  ');
 gotoxy(1,22);
 writeln('   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
  ');

 TextColor(Red);
 gotoxy(46,23);
 writeln('123');

 TextColor(yellow);
 gotoxy(49,23);
 writeln('456');

 TextColor(Green);
 gotoxy(52,23);
 writeln('789');

 repeat
  Delay(35000);

  for Erase:=1 to 18 do
  begin
   gotoxy(1,Erase);
   ClrEol;
  end;


 if KeyPressed then
  Key:=Readkey;

 if Key=#0 then
  Key:=Readkey;

 Case Key of
  Up  :begin
        if (Area[iStork - 1,jStork]<>0) and (iStork<>1) and(Area[iStork -
1,jStork]<>5) then
                   begin
          Impact;
         end;

        if iStork<>1 then
         begin
          Area[iStork,jStork]:=0;
          Area[iStork-1,jStork]:=-1;
         end;
        Key:=#1;
       end;

  Down:begin
        if (Area[iStork + 1,jStork]<>0) and (iStork<>6) and (iStork<>1) and
(Area[iStork + 1,jStork]<>5)then
         begin
          Impact;
         end;

        if iStork<>6 then
         begin
          Area[iStork,jStork]:=0;
          Area[iStork+1,jStork]:=-1;
         end;
        Key:=#1;
       end;

  Right:begin
         if jStork<>9 then
          begin
           Area[iStork,jStork]:=0;
           Area[iStork,jStork+1]:=-1;
          end;
         key:=#1;
        end;

  Left :begin
         if jStork<>1 then
          begin
           Area[iStork,jStork]:=0;
           Area[iStork,jStork-1]:=-1;
          end;
         key:=#1;
        end;


  Space:begin
         if Area[iStork,jStork+1]<>0 then
                         begin
                          CloseEnemy:=True;
           EnemyShip:=Area[iStork,jStork+1];
          end;

         Area[iStork,jStork+1]:=3;
         iFire:=iStork;

         TextColor(Yellow);
         gotoxy(jStork * 9 + 1,(iFire-1)*3 + 1); {FIREE!!}
         writeln('¯¯¯¯¯');
         gotoxy(jStork * 9 + 1,(iFire-1)*3 + 3);
         writeln('¯¯¯¯¯');

         if CloseEnemy then
          begin
           Case EnemyShip of

            1:begin
                              iPoint:=iPoint + 100;
               MusicLock:=True;
               StageCount:=StageCount +1 ;
              end;

            2:begin
                              iPoint:=iPoint + 150;
               MusicLock:=True;
               StageCount:=StageCount +1 ;
              end;

            4:begin
               iPoint:=iPoint + 200;
               MusicLock:=True;
               StageCount:=StageCount +1 ;
              end;

           end;

          end;

         for j:=2 to 10 do
         begin
          Case Area[iFire,j] of

           1:begin
                             iPoint:=iPoint + 100;
              MusicLock:=True;
              StageCount:=StageCount + 1;
             end;

           2:begin
                             iPoint:=iPoint + 150;
              MusicLock:=True;
              StageCount:=StageCount +1 ;
             end;

           4:begin
              iPoint:=iPoint + 200;
              MusicLock:=True;
              StageCount:=StageCount +1 ;
             end;

          end;
         end;

         Key:=#1;
        end;

 end;

 iLock:=Random(Possibility);  {Decide you'll create an enemy or not}

 if iLock=0 then
  begin

   iEnemy:=Random(6)+1;
   EnemyShip:=Random(4)+1;

   Case EnemyShip of  {Decide the type of enemy}

    1:begin
       Area[iEnemy,10]:=1;
      end;

    2:begin
       Area[iEnemy,10]:=2;
      end;

    4:begin
       Area[iEnemy,10]:=4;
      end;

   end; {End of Case}

 end;   {End of if}


 iLock:=Random(110);

 if iLock=0 then
  begin

   if Area[3,9]=0 then
    Area[3,9]:=5;

  end;


 FireLock:=True;

 for i:=1 to 6 do
  for j:=1 to 10 do
  begin
   Case Area[i,j] of
    -1 :begin
         textcolor(12);
         gotoxy((j-1)*9 + 1,(i-1)*3 + 1);
         writeln('Ü  =Ûß-');
         gotoxy((j-1)*9 + 1,(i-1)*3 + 2);
         writeln('ÛÛÛÛÛÛÛÜ');
         gotoxy((j-1)*9 + 1,(i-1)*3 + 3);
         writeln('   =ÛÜ-');
         iStork:=i;
         jStork:=j;

         if CloseEnemy then
          begin
           FireMusic;
           CloseEnemy:=False;
          end;
             end;

     1 :begin
         Area[i,j]:=0;
         if j<>1 then       {If you are at the end of way don't try to output}
          begin
           Area[i,j-1]:=1;  {Put this ship's value into this array box}

           TextColor(11);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('Í»');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln('<ÎÍÍ͹');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('ͼ');
          end;

         if (i=iStork) and (j-1=jStork) then
          begin
           Impact;
                         end;

             end;

     2 :begin
         Area[i,j]:=0;
         if j<>1 then       {If you are at the end of way don't try to output}
          begin
           Area[i,j-1]:=2;  {Put this ship's value into this array box}

           TextColor(13);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('ÉÍÍÍÍ»');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln('Î <> Î');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('ÈÍÍÍͼ');
          end;

         if (i=iStork) and (j-1=jStork) then
          begin
           Impact;
                         end;

             end;

     3 :begin
         Area[i,j]:=0;
         if j<>9 then
          begin
           Area[i,j+1]:=3;

           TextColor(Yellow);
           gotoxy(j * 9 + 1,(iFire-1)*3 + 1); {FIREE!!}
           writeln('¯¯¯¯¯');
           gotoxy(j * 9 + 1,(iFire-1)*3 + 3);
           writeln('¯¯¯¯¯');
          end;
        end;

     4 :begin
         Area[i,j]:=0;
         if j<>1 then       {If you are at the end of way don't try to output}
          begin
           Area[i,j-1]:=4;  {Put this ship's value into this array box}

           TextColor(25);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('Û  Û  Û');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln(' ÛşÛşÛ ');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('Û  Û  Û');
          end;

         if (i=iStork) and (j-1=jStork) then
          begin
           Impact;
                         end;
        end;

     5 :begin
         Area[i,j]:=0;
         if j<>1 then
          begin
           Area[i,j-1]:=5;

           TextColor(Green);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('ÉÍÍÍÍÍÍ»');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln('º FUEL º');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('ÈÍÍÍÍÍͼ');
          end;

         if (i=iStork) and (j-1=jStork) then  {Great!!We are Full}
          begin
           iFuel:=10000;
           Area[i,j-1]:=-1; {Place Red Stork}
          end;

        end;

   end; {End of Case}

  end; {End of FOR}


  if MusicLock then
   begin
    FireMusic;
    MusicLock:=False;
   end;


  TextColor(7);
  gotoxy(27,24);
  writeln('SCORE  ',iPoint);


  if iPoint>LifePoint then
   begin
    iLives:=iLives + 1;
    LifePoint:=LifePoint + 10000;
    gotoxy(3,24);
    writeln('LIVES ',iLives);
   end;


  iFuel:=iFuel - 50;

  gotoxy(45,24);
  ClrEol;

  for i:=1 to (iFuel div 1000) do   {Create the Fuel meter}
  begin
   gotoxy(45+i,24);

   if (i=1) or (i=2) or (i=3) then
    TextColor(Red);

   if (i=4) or (i=5) or (i=6) then
    TextColor(Yellow);

   if (i=7) or (i=8) or (i=9) then
    TextColor(Green);

   writeln('Û');
  end;

  if (iFuel div 1000<3) then
   begin
    TextColor(20);
    gotoxy(65,24);
    writeln('DANGER!');
   end;

  if iFuel<1 then
   begin
    DeathLock:=True;
         BREAK;
   end;

  if BreakLock then BREAK; {That means you are dead}

  if StageCount>40 then
   begin
    iLives:=iLives + 1;
    if Possibility>1 then
     Possibility:=Possibility - 1;
    StageLock:=True;
    StageCount:=0;
         BREAK;
   end;

 until Key=Esc;

 if Key=Esc then EXIT;

 BreakLock:=False;

 iLives:=iLives - 1;

Until iLives=0;

end.
 

uses crt;

const
left=#75;
right=#77;
up=#72;
down=#80;
Esc=#27;
Space=#32;

var
i,j,iStork,jStork,iEnemy,EnemyShip,Possibility,iLock,iFire,Erase,iLives,iStage,
StageCount,iFuel : integer;
iPoint,LifePoint : Longint;
Key : Char;
Str : String;
Area : Array [1..6,1..10] of integer;
FireLock,MusicLock,BreakLock,CloseEnemy,Stagelock,DeathLock : Boolean;

Procedure FireMusic;
begin
 for i:=1 to 3 do
 begin
  delay(1000);
  Sound(150);
  Delay(2500);
  Sound(950);
  Delay(1500);
  Sound(1500);
  Delay(2500);
  Sound(250);
  Delay(2500);
  Sound(500);
  Delay(900);
  Delay(1550);
 end;
 NoSound;
end;

Procedure Impact;
begin

 for i:=0 to 2 do
 begin
  gotoxy((jStork-1)*9 + 1,(iStork-1)*3 + i+1);
  TextColor(20+i);
  writeln('Û');
  gotoxy((jStork-1)*9 + 3,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 5,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 7,(iStork-1)*3 + i+1);
  writeln('Û');

  Textcolor(12+i);
  gotoxy((jStork-1)*9 + 2,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 4,(iStork-1)*3 + i+1);
  writeln('Û');
  gotoxy((jStork-1)*9 + 6,(iStork-1)*3 + i+1);
  writeln('Û');
 end;

 for i:=1 to 5 do
 begin
  delay(9000);       {IMPACT!!!}
  sound(100);
  delay(7000);
  sound(150);
  delay(3000);
  sound(2500);
  delay(3000);
  sound(75);
  delay(3000);
  sound(175);
  delay(5000);
  NoSound;
 end;

 BreakLock:=True;
 DeathLock:=True;
end;

Procedure WriteSlowly;
begin

 for i:=1 to Length(Str) do
 begin
  Delay(7000);
  gotoxy(26+i,13);
  writeln(Str[i]);
 end;

end;

begin
clrscr;
Randomize;

LifePoint:=10000;
Possibility:=6;
iLives:=3;
iStage:=1;
iFuel:=10000;
StageLock:=False;

TextColor(7);
gotoxy(37,12);
writeln('LOADING');

gotoxy(24,14);
writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(24,15);
writeln('º');
gotoxy(55,15);
writeln('º');
gotoxy(24,16);
writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');

for i:=1 to 30 do
begin
 Delay(15000);
 TextColor(10);
 gotoxy(24+i,15);
 writeln('Û');
end;

TextColor(20);
gotoxy(33,17);
writeln('PRESS ANY KEY');

Readkey;
Clrscr;


Str:='     RED STORK';
TextColor(RED);
WriteSlowly;

Readkey;

Str:='A MR.STORK PRODUCTION';
TextColor(9);

WriteSlowly;

Readkey;

Str:='DONT BE AFRAID OF THE DARK!';

WriteSlowly;

Readkey;


TextColor(RED);
Str:='BE AFRAID OF WHAT IS IN IT!';

writeSlowly;

Readkey;


Clrscr;

TextColor(7);
gotoxy(35,11);
writeln('STAGE ',iStage);
gotoxy(29,13);
writeln('PRESS ENTER TO START');
readln;


Repeat
 Clrscr;
 iFuel:=10000;

 for i:=1 to 6 do      {Empty array}
  for j:=1 to 10 do
  begin
   Area[i,j]:=0;
  end;

 Area[3,1]:=-1;

 if StageLock then
  begin
   iStage:=iStage + 1;
   TextColor(7);
   gotoxy(35,11);
   writeln('STAGE ',iStage);
   gotoxy(29,13);
   writeln('PRESS ENTER TO START');
   Readln;
   StageLock:=False;
  end;

 if DeathLock then
  begin
   TextColor(7);
   gotoxy(35,11);
   writeln('STAGE ',iStage);
   gotoxy(29,13);
   writeln('PRESS ENTER TO START');
   readln;
   DeathLock:=False;
  end;


 Clrscr;

 TextColor(7);
 gotoxy(3,24);
 writeln('LIVES ',iLives);

 gotoxy(15,24);
 writeln('STAGE ',iStage);

 Key:=#1;

 TextColor(6);
 gotoxy(1,19);
 writeln('Û                  Û                        Û                             
 Û');
 gotoxy(1,20);
 writeln(' Û                ÛÛÛ       Û     /\       ÛÛÛ                            
Û ');
 gotoxy(1,21);
 writeln('  Û              ÛÛÛÛÛ     ÛÛÛ   /  \     ÛÛÛÛÛ                          
Û  ');
 gotoxy(1,22);
 writeln('   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
  ');

 TextColor(Red);
 gotoxy(46,23);
 writeln('123');

 TextColor(yellow);
 gotoxy(49,23);
 writeln('456');

 TextColor(Green);
 gotoxy(52,23);
 writeln('789');

 repeat
  Delay(35000);

  for Erase:=1 to 18 do
  begin
   gotoxy(1,Erase);
   ClrEol;
  end;


 if KeyPressed then
  Key:=Readkey;

 if Key=#0 then
  Key:=Readkey;

 Case Key of
  Up  :begin
        if (Area[iStork - 1,jStork]<>0) and (iStork<>1) and(Area[iStork -
1,jStork]<>5) then
                   begin
          Impact;
         end;

        if iStork<>1 then
         begin
          Area[iStork,jStork]:=0;
          Area[iStork-1,jStork]:=-1;
         end;
        Key:=#1;
       end;

  Down:begin
        if (Area[iStork + 1,jStork]<>0) and (iStork<>6) and (iStork<>1) and
(Area[iStork + 1,jStork]<>5)then
         begin
          Impact;
         end;

        if iStork<>6 then
         begin
          Area[iStork,jStork]:=0;
          Area[iStork+1,jStork]:=-1;
         end;
        Key:=#1;
       end;

  Right:begin
         if jStork<>9 then
          begin
           Area[iStork,jStork]:=0;
           Area[iStork,jStork+1]:=-1;
          end;
         key:=#1;
        end;

  Left :begin
         if jStork<>1 then
          begin
           Area[iStork,jStork]:=0;
           Area[iStork,jStork-1]:=-1;
          end;
         key:=#1;
        end;


  Space:begin
         if Area[iStork,jStork+1]<>0 then
                         begin
                          CloseEnemy:=True;
           EnemyShip:=Area[iStork,jStork+1];
          end;

         Area[iStork,jStork+1]:=3;
         iFire:=iStork;

         TextColor(Yellow);
         gotoxy(jStork * 9 + 1,(iFire-1)*3 + 1); {FIREE!!}
         writeln('¯¯¯¯¯');
         gotoxy(jStork * 9 + 1,(iFire-1)*3 + 3);
         writeln('¯¯¯¯¯');

         if CloseEnemy then
          begin
           Case EnemyShip of

            1:begin
                              iPoint:=iPoint + 100;
               MusicLock:=True;
               StageCount:=StageCount +1 ;
              end;

            2:begin
                              iPoint:=iPoint + 150;
               MusicLock:=True;
               StageCount:=StageCount +1 ;
              end;

            4:begin
               iPoint:=iPoint + 200;
               MusicLock:=True;
               StageCount:=StageCount +1 ;
              end;

           end;

          end;

         for j:=2 to 10 do
         begin
          Case Area[iFire,j] of

           1:begin
                             iPoint:=iPoint + 100;
              MusicLock:=True;
              StageCount:=StageCount + 1;
             end;

           2:begin
                             iPoint:=iPoint + 150;
              MusicLock:=True;
              StageCount:=StageCount +1 ;
             end;

           4:begin
              iPoint:=iPoint + 200;
              MusicLock:=True;
              StageCount:=StageCount +1 ;
             end;

          end;
         end;

         Key:=#1;
        end;

 end;

 iLock:=Random(Possibility);  {Decide you'll create an enemy or not}

 if iLock=0 then
  begin

   iEnemy:=Random(6)+1;
   EnemyShip:=Random(4)+1;

   Case EnemyShip of  {Decide the type of enemy}

    1:begin
       Area[iEnemy,10]:=1;
      end;

    2:begin
       Area[iEnemy,10]:=2;
      end;

    4:begin
       Area[iEnemy,10]:=4;
      end;

   end; {End of Case}

 end;   {End of if}


 iLock:=Random(110);

 if iLock=0 then
  begin

   if Area[3,9]=0 then
    Area[3,9]:=5;

  end;


 FireLock:=True;

 for i:=1 to 6 do
  for j:=1 to 10 do
  begin
   Case Area[i,j] of
    -1 :begin
         textcolor(12);
         gotoxy((j-1)*9 + 1,(i-1)*3 + 1);
         writeln('Ü  =Ûß-');
         gotoxy((j-1)*9 + 1,(i-1)*3 + 2);
         writeln('ÛÛÛÛÛÛÛÜ');
         gotoxy((j-1)*9 + 1,(i-1)*3 + 3);
         writeln('   =ÛÜ-');
         iStork:=i;
         jStork:=j;

         if CloseEnemy then
          begin
           FireMusic;
           CloseEnemy:=False;
          end;
             end;

     1 :begin
         Area[i,j]:=0;
         if j<>1 then       {If you are at the end of way don't try to output}
          begin
           Area[i,j-1]:=1;  {Put this ship's value into this array box}

           TextColor(11);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('Í»');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln('<ÎÍÍ͹');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('ͼ');
          end;

         if (i=iStork) and (j-1=jStork) then
          begin
           Impact;
                         end;

             end;

     2 :begin
         Area[i,j]:=0;
         if j<>1 then       {If you are at the end of way don't try to output}
          begin
           Area[i,j-1]:=2;  {Put this ship's value into this array box}

           TextColor(13);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('ÉÍÍÍÍ»');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln('Î <> Î');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('ÈÍÍÍͼ');
          end;

         if (i=iStork) and (j-1=jStork) then
          begin
           Impact;
                         end;

             end;

     3 :begin
         Area[i,j]:=0;
         if j<>9 then
          begin
           Area[i,j+1]:=3;

           TextColor(Yellow);
           gotoxy(j * 9 + 1,(iFire-1)*3 + 1); {FIREE!!}
           writeln('¯¯¯¯¯');
           gotoxy(j * 9 + 1,(iFire-1)*3 + 3);
           writeln('¯¯¯¯¯');
          end;
        end;

     4 :begin
         Area[i,j]:=0;
         if j<>1 then       {If you are at the end of way don't try to output}
          begin
           Area[i,j-1]:=4;  {Put this ship's value into this array box}

           TextColor(25);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('Û  Û  Û');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln(' ÛşÛşÛ ');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('Û  Û  Û');
          end;

         if (i=iStork) and (j-1=jStork) then
          begin
           Impact;
                         end;
        end;

     5 :begin
         Area[i,j]:=0;
         if j<>1 then
          begin
           Area[i,j-1]:=5;

           TextColor(Green);
           gotoxy((j-2)*9 + 1,(i-1)*3 + 1);
           writeln('ÉÍÍÍÍÍÍ»');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 2);
           writeln('º FUEL º');
           gotoxy((j-2)*9 + 1,(i-1)*3 + 3);
           writeln('ÈÍÍÍÍÍͼ');
          end;

         if (i=iStork) and (j-1=jStork) then  {Great!!We are Full}
          begin
           iFuel:=10000;
           Area[i,j-1]:=-1; {Place Red Stork}
          end;

        end;

   end; {End of Case}

  end; {End of FOR}


  if MusicLock then
   begin
    FireMusic;
    MusicLock:=False;
   end;


  TextColor(7);
  gotoxy(27,24);
  writeln('SCORE  ',iPoint);


  if iPoint>LifePoint then
   begin
    iLives:=iLives + 1;
    LifePoint:=LifePoint + 10000;
    gotoxy(3,24);
    writeln('LIVES ',iLives);
   end;


  iFuel:=iFuel - 50;

  gotoxy(45,24);
  ClrEol;

  for i:=1 to (iFuel div 1000) do   {Create the Fuel meter}
  begin
   gotoxy(45+i,24);

   if (i=1) or (i=2) or (i=3) then
    TextColor(Red);

   if (i=4) or (i=5) or (i=6) then
    TextColor(Yellow);

   if (i=7) or (i=8) or (i=9) then
    TextColor(Green);

   writeln('Û');
  end;

  if (iFuel div 1000<3) then
   begin
    TextColor(20);
    gotoxy(65,24);
    writeln('DANGER!');
   end;

  if iFuel<1 then
   begin
    DeathLock:=True;
         BREAK;
   end;

  if BreakLock then BREAK; {That means you are dead}

  if StageCount>40 then
   begin
    iLives:=iLives + 1;
    if Possibility>1 then
     Possibility:=Possibility - 1;
    StageLock:=True;
    StageCount:=0;
         BREAK;
   end;

 until Key=Esc;

 if Key=Esc then EXIT;

 BreakLock:=False;

 iLives:=iLives - 1;

Until iLives=0;

end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.