uzay oyunu - Van.GEN.TR Forum

**gokhanaygun** · 24/04/07, 01:00

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,iLo ck,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,iLo ck,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.

**firari** · 20/06/08, 15:21

Paylaşım için tşkler…

**Mattet** · 30/06/08, 01:54

teŞekkÜrler PaylaŞim İİÇİn

~~Neutralizer~~ · 31/07/08, 15:41

paylaşım için tşkrlr