PROGRAM RinglerinEfendisi;
uses crt,dos;
label bas,menu,oyun,son,devam;
var
sec,tuss:char;
sag,sol,seviye,rengi,ben,o,sayac,ix,iy,ia,ib,say,kay:integer;
isim,rakip:string;
yazmac:registers;
tus:char;
xx,yy,sev,ax,ay,ha,i,f,x,y,v,l,m,g,h,k,z,c,j:integer;
procedure enerji;
begin
{ enerji g”stergesi begin }
textcolor(2);gotoxy(2,2);writeln(rakip);
for ha:=1 to 12 do
begin
textcolor(7);
gotoxy(1+ha,3);write(chr(196));gotoxy(1+ha,5);write(chr(196));
gotoxy(14,3);write(chr(191));gotoxy(1,3);write(chr(218));
gotoxy(1,5);write(chr(192));gotoxy(14,5);write(chr(217));
gotoxy(1,4);write(chr(179));gotoxy(14,4);write(chr(179));
end;
textcolor(rengi);
for i:=1 to o do
begin
gotoxy(1+i,4);
write(chr(219));
end;
{ enerji g”stergesi end }
{ enerji g”stergesi begin }
textcolor(yellow);
gotoxy(67,2);
writeln(isim);
for ha:=1 to 12 do
begin
textcolor(7);
gotoxy(66+ha,3);write(chr(196));gotoxy(66+ha,5);write(chr(196));
gotoxy(79,3);write(chr(191));gotoxy(66,3);write(chr(218));
gotoxy(66,5);write(chr(192));gotoxy(79,5);write(chr(217));
gotoxy(66,4);write(chr(179));gotoxy(79,4);write(chr(179));
end;
textcolor(3);
for i:=1 to ben do
begin
gotoxy(66+i,4);
write(chr(219));
end;
{ enerji g”stergesi end }
end;
procedure koclar;
begin
{ ko‡lar begin}
ax:=60;
ay:=20;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=14;
ay:=20;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=15;
ay:=40;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=30;
ay:=42;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=40;
ay:=40;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=50;
ay:=43;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=13;
ay:=30;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=61;
ay:=29;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
{ ko‡lar begin}
ax:=63;
ay:=39;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);gotoxy(ax+1,ay+1);
write(chr(192));gotoxy(ax-1,ay+1);write(chr(217));gotoxy(ax-2,ay+1);write(chr(196));
gotoxy(ax+2,ay+1);write(chr(196));
gotoxy(ax+1,ay+2);write(chr(179));gotoxy(ax-1,ay+2);write(chr(179));
gotoxy(ax,ay+3);write(chr(196));textcolor(yellow);gotoxy(ax-1,ay+3);
write(chr(179));gotoxy(ax-1,ay+4);write(chr(179));gotoxy(ax+1,ay+3);
write(chr(179));gotoxy(ax+1,ay+3);write(chr(179));gotoxy(ax+1,ay+4);
write(chr(179));gotoxy(ax-1,ay+5);write(chr(179));gotoxy(ax+1,ay+5);
write(chr(179));textcolor(brown);gotoxy(ax-1,ay+6);write(chr(188));
gotoxy(ax+1,ay+6);write(chr(200));
{ko‡lar end}
end;
procedure knok;
var
sess:integer;
begin
sess:=1000;
while sess<1800 do
begin
sound(sess);
delay(1000);
nosound;
sess:=sess+6;
end;
end;
procedure yumruksesi2;
begin
sound(150);
delay(20000);
nosound;
end;
procedure yumruksesi;
begin
sound(190);
delay(20000);
nosound;
end;
procedure giz;
begin
yazmac.ah:=$01; yazmac.cx:=$2000; intr($10,yazmac);
end;
begin
clrscr;
giz;
gotoxy(27,26);
Writeln('Bir Fuat Coskun Klasigi');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
gotoxy(29,30);
textcolor(9);
Writeln('RiNgLeRiN EfEnDiSi');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
gotoxy(27,34);
Write('Isminizi giriniz:');
readln(isim);
gotoxy(27,36);
Write('Rockybinizin ismini giriniz:');
readln(rakip);
menu: clrscr;
repeat
gotoxy(26,2);
textcolor(yellow);
write('(= RiNgLeRiN EfEnDiSi =)');
gotoxy(3,4);
textcolor(10);
writeln('1- Yeni Oyun');
gotoxy(3,5);
writeln('2- Yardim');
gotoxy(3,6);
writeln('3- Cikis');
textcolor(white);
textbackground(black);
gotoxy(3,47);
write(' Fuat Coskun Klasikleri --0-- Her Hakki Saklidir');
until keypressed;
sec:=readkey;
if sec=#49 then
begin
goto oyun;
end;
if sec=#51 then goto son;
if sec=#50 then
begin
clrscr;
textcolor(green);
gotoxy(2,4);
write('YARDIM');
gotoxy(1,6);
writeln(' RiNgLeRiN EfEnDiSi pascal programlama dili ile yazilmis bir oyundur');
writeln('Amaciniz rakibinizi KNOCKOUT etmek.Enerjiniz bittiginde oyunu kaybedersiniz');
writeln('Yukari gitmek icin <U>,asagi gitmek icin <J>,saga gitmek icin <K>,sola');
writeln('gitmek icin <H> tuslarini kullanin.');
writeln(' Oyunu duraklatmak icin <P> tusuna basiniz.');
writeln(' Iyi eglenceler...');
writeln;
writeln(' Fuat Coskun');
readln;
goto menu;
end;
if (sec<>#50) and (sec<>#49) then goto menu;
oyun:
sag:=6;sol:=8;
rengi:=6;ben:=12;o:=12;clrscr;sayac:=0;say:=0;kay:=0;
g:=28;h:=18;ix:=47;iy:=19;ia:=30;ib:=29;seviye:=1;
{kafa begin}
bas:textcolor(brown);gotoxy(ia+say,ib+kay);write(chr(219));gotoxy(ia+say+1,ib+kay);write(chr(219));gotoxy(ia+say+1,ib+kay+1);
write(chr(219));gotoxy(ia+say,ib+kay+1);write(chr(219));
{kafa end}
{kollar begin}
gotoxy(ia+say,ib+kay-1);write(chr(218));gotoxy(ia+say,ib+kay+2);write(chr(192));
gotoxy(ia+say+1,ib+kay+2);write(chr(196));gotoxy(ia+say+1,ib+kay-1);write(chr(196));
{kollar end}
{kollar begin}
gotoxy(ia+say,ib+kay-1);write(chr(218));gotoxy(ia+say,ib+kay+2);write(chr(192));
gotoxy(ia+say+1,ib+kay+2);write(chr(196));gotoxy(ia+say+1,ib+kay-1);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ia+say+2,ib+kay-1);write('0');gotoxy(ia+say+2,ib+kay+2);write('0');
{eller end}
{dusman eleman end}
repeat
textcolor(lightgreen);
gotoxy(26,3);
writeln('<= RiNgLeRiN EfEnDiSi =>');
for k:=1 to 8 do
begin
textcolor(9);
gotoxy(g-k,h-k);write('\');gotoxy(g+20+k,h-k);write('/');
gotoxy(g-k,h+15+k);write('/');gotoxy(g+20+k,h+15+k);write('\');
end;
for m:=1 to 16 do
begin
textcolor(white);gotoxy(g-1,h-1+m);write(chr(179));gotoxy(g+21,h-1+m);write(chr(179));
end;
for z:=1 to 21 do
begin
gotoxy(g-1+z,h-1);write(chr(196));gotoxy(g-1+z,h+16);write(chr(196));
end;
for l:=1 to 20 do
begin
textcolor(lightred);gotoxy(g-3,h-3+l);write(chr(179));gotoxy(g+23,h-3+l);write(chr(179));
end;
for c:=1 to 24 do
begin
textcolor(lightred);gotoxy(g-5,h-5+c);write(chr(179));gotoxy(g+25,h-5+c);write(chr(179));
end;
for v:=1 to 25 do
begin
gotoxy(g-3+v,h-3);write(chr(196));gotoxy(g-3+v,h+18);write(chr(196));
end;
for j:=1 to 29 do
begin
gotoxy(g-5+j,h-5);write(chr(196));gotoxy(g-5+j,h+20);write(chr(196));
end;
{eleman begin}
{kafa begin}
textcolor(3);gotoxy(ix,iy);write(chr(219));gotoxy(ix+1,iy);write(chr(219));gotoxy(ix+1,iy+1);
write(chr(219));gotoxy(ix,iy+1);write(chr(219));
{kafa end}
{vurus kollar ve eller begin}
if tus='A' then
begin
{kollar begin}
gotoxy(ix+1,iy-1);write(chr(191));gotoxy(ix+1,iy+2);write(chr(217));
gotoxy(ix,iy+2);write(chr(196));gotoxy(ix,iy-1);write(chr(196));
gotoxy(ix-1,iy+2);write(chr(196));gotoxy(ix-2,iy+2);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ix-3,iy+2);write('0');
if ((ix-3=ia+say+2) or (ix-2=ia+say+2)) and ((iy+2=ib+kay) or (iy+2=ib+kay+1))
then
begin
yumruksesi;
o:=o-1;
ix:=ix-2;
if o=0 then
begin
knok;
gotoxy(35,25);
textcolor(yellow+blink);
writeln('KNOCKOUT');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
seviye:=seviye+1;
sag:=sag-1;
sol:=sol-1;
o:=12;
ben:=12;
ix:=47;iy:=19;ia:=30;ib:=29;
end;
if seviye=5 then goto son;
goto bas;
end;
{eller end}
end
else
begin
{kollar begin}
gotoxy(ix+1,iy-1);write(chr(191));gotoxy(ix+1,iy+2);write(chr(217));
gotoxy(ix,iy+2);write(chr(196));gotoxy(ix,iy-1);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ix-1,iy-1);write('0');gotoxy(ix-1,iy+2);write('0');
gotoxy(33,6);
write(seviye,'. Seviye');
{eller end}
end;
if tus='S' then
begin
{kollar begin}
gotoxy(ix+1,iy-1);write(chr(191));gotoxy(ix+1,iy+2);write(chr(217));
gotoxy(ix,iy+2);write(chr(196));gotoxy(ix,iy-1);write(chr(196));
gotoxy(ix-1,iy-1);write(chr(196));gotoxy(ix-2,iy-1);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ix-3,iy-1);write('0');gotoxy(ix-1,iy+2);write('');
if ((ix-3=ia+say+2) or (ix-2=ia+say+2)) and ((iy-1=ib+kay) or (iy-1=ib+kay+1))
then
begin
yumruksesi;
o:=o-1;
ix:=ix-2;
if o=0 then
begin
knok;
gotoxy(34,25);textcolor(red+blink);writeln('KNOCKOUT');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
seviye:=seviye+1;
sag:=sag-1;
sol:=sol-2;
o:=12;
ben:=12;
ix:=47;iy:=19;ia:=30;ib:=29;
end;
if seviye=5 then goto son;
goto bas;
end;
{eller end}
end
else
begin
{kollar begin}
gotoxy(ix+1,iy-1);write(chr(191));gotoxy(ix+1,iy+2);write(chr(217));
gotoxy(ix,iy+2);write(chr(196));gotoxy(ix,iy-1);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ix-1,iy-1);write('0');gotoxy(ix-1,iy+2);write('');
{eller end}
end;
{eleman end}
enerji;
koclar;
if keypressed then
begin
clrscr;
tus:=upcase(readkey);
if (tus='K') then
begin
koclar;
if ix<47 then
begin
ix:=ix+1
end
else ix:=47;
end;
if tus='H' then
begin
if ix>29 then
begin
ix:=ix-1;
end
else ix:=29;
end;
if tus='U' then
begin
koclar;
if iy>19 then
begin
iy:=iy-1;
end
else
iy:=19;
end;
if tus='J' then
begin
koclar;
if iy<31 then
begin
iy:=iy+1;
end
else
iy:=31;
end;
if tus=#27 then goto menu;
{dusman eleman begin}
gotoxy(ia+say,ib+kay);
if sayac mod 3=0 then
begin
if ia+say<ix-5 then
begin
if o<5 then
begin
rengi:=13;
say:=say-1;
end;
say:=say+1;
end;
end;
if sayac mod 3=0 then
begin
koclar;
if ia+say>ix then
begin
if o<5 then
begin
rengi:=13;
say:=say-1;
end;
say:=say-3;
end;
end;
if sayac mod 2=0 then
begin
if ib+kay<iy then
begin
if o<5 then
begin
rengi:=13;
say:=say-1;
end;
kay:=kay+1;
end;
end;
if sayac mod 2=0 then
begin
if ib+kay>iy then
begin
if o<5 then
begin
rengi:=13;
say:=say-1;
end;
kay:=kay-1;
end;
if ia+say=27 then
begin
ia:=ia+1;
end
end;
{kafa begin}
textcolor(brown);gotoxy(ia+say,ib+kay);write(chr(219));gotoxy(ia+say+1,ib+kay);write(chr(219));gotoxy(ia+say+1,ib+kay+1);
write(chr(219));gotoxy(ia+say,ib+kay+1);write(chr(219));
{kafa end}
if sayac mod sag=0 then
begin
{kollar begin}
gotoxy(ia+say,ib+kay-1);write(chr(218));gotoxy(ia+say,ib+kay+2);write(chr(192));
gotoxy(ia+say+1,ib+kay+2);write(chr(196));gotoxy(ia+say+1,ib+kay-1);write(chr(196));
gotoxy(ia+say+2,ib+kay+2);write(chr(196));gotoxy(ia+say+3,ib+kay+2);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ia+say+2,ib+kay-1);write('0');gotoxy(ia+say+4,ib+kay+2);write('0');
if ((ia+say+4=ix) or (ia+say+4=ix-1)) and ((ib+kay+2=iy) or (ib+kay+2=iy+1)) then
begin
ben:=ben-1;
yumruksesi2;
end;
{eller end}
end
else
begin
{kollar begin}
gotoxy(ia+say,ib+kay-1);write(chr(218));gotoxy(ia+say,ib+kay+2);write(chr(192));
gotoxy(ia+say+1,ib+kay+2);write(chr(196));gotoxy(ia+say+1,ib+kay-1);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ia+say+2,ib+kay-1);write('0');gotoxy(ia+say+2,ib+kay+2);write('0');
{eller end}
end;
{dusman eleman end}
if sayac mod sol=0 then
begin
{kollar begin}
gotoxy(ia+say,ib+kay-1);write(chr(218));gotoxy(ia+say,ib+kay+2);write(chr(192));
gotoxy(ia+say+1,ib+kay+2);write(chr(196));gotoxy(ia+say+1,ib+kay-1);write(chr(196));
gotoxy(ia+say+2,ib+kay-1);write(chr(196));gotoxy(ia+say+3,ib+kay-1);write(chr(196));
{kollar end}
{eller begin}
textcolor(red);gotoxy(ia+say+2,ib+kay+2);write('');gotoxy(ia+say+4,ib+kay-1);write('0');
if ((ia+say+4=ix) or (ia+say+4=ix-1)) and ((ib+kay-1=iy) or (ib+kay-1=iy+1)) then
begin
ben:=ben-1;
if ben=0 then goto son;
yumruksesi2;
end;
{eller end}
end
else
begin
{kollar begin}
gotoxy(ia+say,ib+kay-1);write(chr(218));gotoxy(ia+say,ib+kay+2);write(chr(192));
gotoxy(ia+say+1,ib+kay+2);write(chr(196));gotoxy(ia+say+1,ib+kay-1);write(chr(196));
{kollar end}
end;
gotoxy(33,6);
write(seviye,'. Seviye');
koclar;
if ben=0 then goto son;
end;
sayac:=sayac+1;
until 1=2;
readln;
son:
clrscr;
textcolor(11);
gotoxy(20,25);
if seviye<5 then begin
write('OYUNU KAYBETTINIZ');
delay(60000);
delay(60000);
delay(60000);
delay(60000);
delay(60000);
end;
if seviye=5 then begin
write('OYUNU BITIRDINIZ');
delay(60000);
delay(60000);
delay(60000);
delay(60000);
delay(60000);
end;
clrscr;
textcolor(white);
gotoxy(20,25);
Writeln('Oyunumu oynadiginiz icin tesekkur ederim');
gotoxy(49,29);
write('FUAT COSKUN');
delay(60000);
delay(60000);
delay(60000);
delay(60000);
delay(60000);
delay(60000);
end.
{Bu Oyun Fuat Coskun tarafindan 10 Mart 2004 09.00-13.00 tarihinde yazilmistir}