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('bymez 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.