Programalama > PASCAL

Etiketler: yeni, nesil, yilan

Ort. 0
Puan ver:
PROGRAM Fuyibilan;
uses crt;
label ka,asagi,yukari,sol,sag,son,sonn;
type
en=record
isim:string;
rekor:integer;
end;
var
dosya:file of en;
abo:en;
bokx:array[1..5] of integer;
boky:array[1..5] of integer;
yemx:array[1..5] of integer;
yemy:array[1..5] of integer;
hiz,pu,o,p,puan,c,d,a,x,y,j,i,k:integer;
cev,cisim,tus:char;
begin
clrscr;
pu:=100;
puan:=0;
gotoxy(30,25);
Writeln('FUBI GAMES SUNAR...');
delay(2000);
gotoxy(33,29);
Writeln('FUYIBILAN 1.0');
delay(1500);
writeln;
writeln;
Writeln('Yilanin hizini seciniz');
Writeln('<1> Yavas');
Writeln('<2> Normal');
Writeln('<3> Hizli');
cev:=readkey;
if cev=#49 then hiz:=150;
if cev=#50 then hiz:=100;
if cev=#51 then hiz:=50;
ka:clrscr;
gotoxy(32,3);
textcolor(9);
Writeln('<=FUBI GAMES=>');
     textcolor(yellow);
     gotoxy(64,13);
Writeln('<O>ynanis');
     gotoxy(5,13);
Writeln('Puaniniz=',puan);
     gotoxy(24,40);
     Writeln('Y”n tuslari   ---      Cikis');
     gotoxy(24,42);
     Write('sag    = D              ESC');
     gotoxy(24,43);
     Write('sol    = A');
     gotoxy(24,44);
     Write('asagi  = S');
     gotoxy(24,45);
     Write('yukari = W');
gotoxy(24,37);
textcolor(green);
Writeln('Tus Takimi');
textcolor(9);
gotoxy(33,13);write('F');
textcolor(8);
gotoxy(34,13);write('U');
textcolor(7);
gotoxy(35,13);write('Y');
textcolor(6);
gotoxy(36,13);write('I');
textcolor(5);
gotoxy(37,13);write('B');
textcolor(4);
gotoxy(38,13);write('I');
textcolor(3);
gotoxy(39,13);write('L');
textcolor(2);
gotoxy(40,13);write('A');
textcolor(10);
gotoxy(41,13);write('N');
textcolor(11);
gotoxy(43,13);write('1.');
textcolor(yellow);
gotoxy(45,13);write('0');
textcolor(brown);
   gotoxy(24,14);write(chr(201));
   for i:=1 to 30 do
    write(chr(205));
   write(chr(187));
   for k:=1 to 20 do
    begin
     gotoxy(24,14+k);
     write(chr(186),'                              ',chr(186));
    end;
   gotoxy(24,35);
   write(chr(200));
   for i:=1 to 30 do
    write(chr(205));
   write(chr(188));
   gotoxy(30,25);
   textcolor(yellow);
   write(chr(26));
   tus:=readkey;
   if tus=#27 then goto son;
   if tus=#111 then
   begin
   clrscr;
   writeln;
Writeln('Yilanimiz yemleri yedikten sonra geri cikardigi icin');
Writeln('bymez ama cikardiklarini yerseniz veya k”selere car-');
Writeln('parsaniz oyunu kaybedersiniz...');
Writeln('NOT:Kakalarin tazeligini kaybettiginde onlari yerseniz oyunu');
Writeln('kaybetmezsiniz.Ama tabiki hangisi yeni,hangisi eski aklinizda');
Writeln('tutmaniz gerekicek.Kolay gelsin :)))');
readln;
   goto ka;
   end;
   if tus=#100 then
   begin
  x:=30;
  repeat
  if x=54 then
begin
clrscr;
textcolor(yellow);
writeln;
writeln;
writeln;
Writeln('                   OYUN BITTI');
if puan>abo.rekor then
begin
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
reset(Dosya);
seek(Dosya,1);
Write('Isminizi giriniz:');
readln(abo.isim);
abo.rekor:=puan;
Write(Dosya,abo);
end;
assign(Dosya,'c:\yilan.dat');
reset(dosya);
seek(Dosya,1);
read(Dosya,abo);
Writeln(abo.isim,'  ',abo.rekor);
close(Dosya);
delay(1000);
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
read(Dosya,abo);
abo.rekor:=puan;
writeln;
Writeln('                 Puaniniz=',puan);
delay(2000);
goto sonn;
end;
  x:=x+1;
  y:=25;
  gotoxy(x,y);
  delay(hiz);
  write(chr(26));
  gotoxy(x-1,y);
  delay(2);
  write(' ');
  until keypressed;
   tus:=readkey;
  if tus=#115 then goto asagi;
  if tus=#119 then goto yukari;
  if tus=#27 then goto son;
   readln;
   end;
yukari:
repeat
if y=15 then
begin
clrscr;
textcolor(yellow);
writeln;
writeln;
writeln;
Writeln('                 OYUN BITTI');
if puan>abo.rekor then
begin
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
reset(Dosya);
seek(Dosya,1);
Write('Isminizi giriniz:');
readln(abo.isim);
abo.rekor:=puan;
Write(Dosya,abo);
end;
assign(Dosya,'c:\yilan.dat');
reset(dosya);
seek(Dosya,1);
read(Dosya,abo);
Writeln(abo.isim,'  ',abo.rekor);
close(Dosya);
delay(1000);
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
read(Dosya,abo);
abo.rekor:=puan;
writeln;
Writeln('               Puaniniz=',puan);
delay(2000);
goto sonn;
end;
randomize;
c:=random(100);
d:=random(100);
if (d<34) and (d>14) and (c>24) and (c<54) then
begin
yemx[1]:=c;
yemy[1]:=d;
gotoxy(c,d);
Write('*');
end;
if ((bokx[1]=x) and (boky[1]=y)) or ((bokx[2]=x) and (boky[2]=y)) or
((bokx[3]=x) and (boky[3]=y)) or ((bokx[4]=x) and (boky[4]=y)) then
goto son;
if ((yemx[1]=x) and (yemy[1]=y)) or ((yemx[2]=x) and (yemy[2]=y)) or
((yemx[3]=x) and (yemy[3]=y)) or ((yemx[4]=x) and (yemy[4]=y)) then
begin
puan:=puan+5;
if puan=10000 then goto son;
gotoxy(5,13);
Writeln('Puaniniz=',puan);
gotoxy(x,y+2);
textcolor(brown);
write(chr(64));
gotoxy(x,y+3);
write(' ');
bokx[1]:=x;
boky[1]:=y+2;
end;
y:=y-1;
gotoxy(x,y);
delay(hiz);
textcolor(yellow);
Write(chr(24));
gotoxy(x,y+1);
delay(2);
write(' ');
until keypressed;
 tus:=readkey;
if tus=#100 then goto sag;
if tus=#97 then goto sol;
if tus=#27 then goto son;
asagi:
repeat
if y=34 then
begin
clrscr;
textcolor(yellow);
writeln;
writeln;
writeln;
Writeln('                   OYUN BITTI');
if puan>abo.rekor then
begin
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
reset(Dosya);
seek(Dosya,1);
Write('Isminizi giriniz:');
readln(abo.isim);
abo.rekor:=puan;
Write(Dosya,abo);
end;
assign(Dosya,'c:\yilan.dat');
reset(dosya);
seek(Dosya,1);
read(Dosya,abo);
Writeln(abo.isim,'  ',abo.rekor);
close(Dosya);
delay(1000);
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
read(Dosya,abo);
abo.rekor:=puan;
writeln;
Writeln('                 Puaniniz=',puan);
delay(2000);
goto sonn;
end;
randomize;
c:=random(100);
d:=random(100);
if (d<34) and (d>14) and (c>24) and (c<54) then
begin
yemx[2]:=c;
yemy[2]:=d;
gotoxy(c,d);
Write('*');
end;
if ((bokx[1]=x) and (boky[1]=y)) or ((bokx[2]=x) and (boky[2]=y)) or
((bokx[3]=x) and (boky[3]=y)) or ((bokx[4]=x) and (boky[4]=y)) then
goto son;
if ((yemx[1]=x) and (yemy[1]=y)) or ((yemx[2]=x) and (yemy[2]=y)) or
((yemx[3]=x) and (yemy[3]=y)) or ((yemx[4]=x) and (yemy[4]=y)) then
begin
puan:=puan+5;
gotoxy(5,13);
if puan=10000 then goto son;
Writeln('Puaniniz=',puan);
gotoxy(x,y-2);
textcolor(brown);
write(chr(64));
gotoxy(x,y-3);
write(' ');
bokx[2]:=x;
boky[2]:=y-2;
end;
y:=y+1;
gotoxy(x,y);
delay(hiz);
textcolor(yellow);
Write(chr(25));
gotoxy(x,y-1);
delay(2);
write(' ');
until keypressed;
 tus:=readkey;
if tus=#100 then goto sag;
if tus=#97 then goto sol;
if tus=#27 then goto son;
sag:
repeat
if x=54 then
begin
clrscr;
textcolor(yellow);
writeln;
writeln;
writeln;
Writeln('                   OYUN BITTI');
if puan>abo.rekor then
begin
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
reset(Dosya);
seek(Dosya,1);
Write('Isminizi giriniz:');
readln(abo.isim);
abo.rekor:=puan;
Write(Dosya,abo);
end;
assign(Dosya,'c:\yilan.dat');
reset(dosya);
seek(Dosya,1);
read(Dosya,abo);
Writeln(abo.isim,'  ',abo.rekor);
close(Dosya);
delay(1000);
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
read(Dosya,abo);
abo.rekor:=puan;
writeln;
Writeln('                 Puaniniz=',puan);
delay(2000);
goto sonn;
end;
randomize;
c:=random(100);
d:=random(100);
if (d<34) and (d>14) and (c>24) and (c<54) then
begin
yemx[3]:=c;
yemy[3]:=d;
gotoxy(c,d);
Write('*');
end;
if ((bokx[1]=x) and (boky[1]=y)) or ((bokx[2]=x) and (boky[2]=y)) or
((bokx[3]=x) and (boky[3]=y)) or ((bokx[4]=x) and (boky[4]=y)) then
goto son;
if ((yemx[1]=x) and (yemy[1]=y)) or ((yemx[2]=x) and (yemy[2]=y)) or
((yemx[3]=x) and (yemy[3]=y)) or ((yemx[4]=x) and (yemy[4]=y)) then
begin
puan:=puan+5;
gotoxy(5,13);
if puan=10000 then goto son;
Writeln('Puaniniz=',puan);
gotoxy(x-2,y);
textcolor(brown);
write(chr(64));
gotoxy(x-3,y);
write(' ');
bokx[3]:=x-2;
boky[3]:=y;
end;
x:=x+1;
gotoxy(x,y);
delay(hiz);
textcolor(yellow);
write(chr(26));
gotoxy(x-1,y);
delay(2);
write(' ');
delay(2);
until keypressed;
 tus:=readkey;
if tus=#115 then goto asagi;
if tus=#119 then goto yukari;
if tus=#27 then goto son;
sol:repeat
if x=25 then
begin
clrscr;
textcolor(yellow);
writeln;
writeln;
writeln;
Writeln('                   OYUN BITTI');
if puan>abo.rekor then
begin
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
reset(Dosya);
seek(Dosya,1);
Write('Isminizi giriniz:');
readln(abo.isim);
abo.rekor:=puan;
Write(Dosya,abo);
end;
assign(Dosya,'c:\yilan.dat');
reset(dosya);
seek(Dosya,1);
read(Dosya,abo);
Writeln(abo.isim,'  ',abo.rekor);
close(Dosya);
delay(1000);
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
read(Dosya,abo);
abo.rekor:=puan;
writeln;
Writeln('                 Puaniniz=',puan);
delay(2000);
goto sonn;
end;
randomize;
c:=random(100);
d:=random(100);
if (d<34) and (d>14) and (c>24) and (c<54) then
begin
yemx[4]:=c;
yemy[4]:=d;
gotoxy(c,d);
Write('*');
end;
if ((bokx[1]=x) and (boky[1]=y)) or ((bokx[2]=x) and (boky[2]=y)) or
((bokx[3]=x) and (boky[3]=y)) or ((bokx[4]=x) and (boky[4]=y)) then
goto son;
if ((yemx[1]=x) and (yemy[1]=y)) or ((yemx[2]=x) and (yemy[2]=y)) or
((yemx[3]=x) and (yemy[3]=y)) or ((yemx[4]=x) and (yemy[4]=y)) then
begin
puan:=puan+5;
gotoxy(5,13);
if puan=10000 then goto son;
Writeln('Puaniniz=',puan);
gotoxy(x+2,y);
textcolor(brown);
write(chr(64));
gotoxy(x+3,y);
write(' ');
bokx[4]:=x+2;
boky[4]:=y;
end;
x:=x-1;
gotoxy(x,y);
delay(hiz);
textcolor(yellow);
write(chr(27));
gotoxy(x+1,y);
delay(2);
write(' ');
delay(2);
until keypressed;
 tus:=readkey;
if tus=#115 then goto asagi;
if tus=#119 then goto yukari;
if tus=#27 then goto son;
readln;
son:
clrscr;
Writeln('             BOKU YEDINIZ OYUN BITTI :)))');
delay(2000);
clrscr;
if puan>abo.rekor then
begin
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
if ioresult<>0 then rewrite(Dosya);
reset(Dosya);
seek(Dosya,1);
Write('Isminizi giriniz:');
readln(abo.isim);
abo.rekor:=puan;
Write(Dosya,abo);
end;
assign(Dosya,'c:\yilan.dat');
reset(dosya);
seek(Dosya,1);
read(Dosya,abo);
Writeln(abo.isim,'  ',abo.rekor);
close(Dosya);
delay(1000);
assign(Dosya,'c:\yilan.dat');
{$i-}reset(Dosya);{$i+}
read(Dosya,abo);
abo.rekor:=puan;
sonn: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 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.