Programalama > PASCAL

Etiketler: ringlerin, efendisi

Ort. 5
Puan ver:
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}


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.