PROGRAM PASCAR;
uses crt,dos;
label son,bass,bye,menu;
var
sonu:real;
seviye,isim:string;
yazmac:registers;
paus,reni,sec,tek,tus:char;
sonluk,eger2,ikinciaraba,rand,pause,bi,secim,benrenk,ix,iy:integer;
carp,sesi,sesii,renk,y,ab,xx,xxx,po:integer;
arab,hiz,ras,eger,yol,benez,benz,puan,sayac,bas,z,k,m,l,n,x,reklam:integer;
say,ra,re,sonn,o,ev,a,b,c,d,e,f,g,h,i,j,p:integer;
procedure arabba;
begin
if (eger=2) or (eger=1) or (eger=0) then xx:=21;
if (eger=4) or (eger=3) then xx:=29;
if (eger=6) or (eger=5) then xx:=27;
if (eger=8) or (eger=7) then xx:=34;
if (eger=12) or (eger=11) then xx:=31;
if (eger=10) or (eger=9) then xx:=25;
randomize;
eger:=random(12);
y:=y+arab;
end;
procedure giz;
begin
yazmac.ah:=$01; yazmac.cx:=$2000; intr($10,yazmac);
end;
procedure kapa;
var
sev,ax,ay:integer;
begin
sev:=1;
ax:=60;
ay:=20;
clrscr;
repeat
sev:=sev+1;
if sev mod 2=0 then
begin
clrscr;
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));
end
else
begin
clrscr;
textcolor(10);gotoxy(ax,ay);write(chr(1));textcolor(9);
gotoxy(ax+1,ay+1);write('/');gotoxy(ax-1,ay+1);write('\');
gotoxy(ax+2,ay);write('/');gotoxy(ax-2,ay);write('\');
end;
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));
gotoxy(20,25);
Writeln('Tebrikler ',isim,' oyunu bitirdin');
gotoxy(30,27);
writeln('Puaniniz:',puan-5);
gotoxy(22,29);
writeln('Aldiginiz toplam yol:',yol,' cm');
delay(60000);delay(30000);
until sev=20;
end;
procedure ses;
begin
{oyun sesi begin}
sound(600);delay(30000);sound(400);delay(10000);sound(500);delay(30000);
sound(300);delay(10000);sound(500);delay(30000);sound(300);delay(10000);
sound(600);delay(30000);sound(400);delay(10000);sesi:=200;sesii:=200;
repeat
sound(sesi);
delay(20000);
sesi:=sesi+100;
until sesi=700;
sound(600);delay(30000);sound(400);delay(10000);sound(500);delay(30000);
sound(300);delay(10000);sound(500);delay(30000);sound(300);delay(10000);
sound(600);delay(30000);sound(400);delay(10000);nosound;sound(800);
delay(30000);sound(400);delay(10000);sound(500);delay(30000);sound(300);
delay(10000);sound(500);delay(30000);sound(300);delay(10000);sound(800);
delay(30000);sound(400);delay(10000);
repeat
sound(sesii);
delay(20000);
sesii:=sesii+100;
until sesii=700;
sound(800);delay(30000);sound(400);delay(10000);sound(500);delay(30000);
sound(300);delay(10000);sound(500);delay(30000);sound(300);delay(10000);
sound(800);delay(30000);sound(400);delay(10000);nosound;
{oyun sesi end}
end;
begin
giz;
clrscr;
gotoxy(27,26);
Writeln('Bir Fuat Coskun Klasigi');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
gotoxy(34,30);
textcolor(9);
Writeln('PASCAR');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
gotoxy(27,34);
Write('Isminizi giriniz:');
readln(isim);
menu:
puan:=0;secim:=9;benrenk:=2;seviye:='1';xx:=21;y:=1;arab:=1;hiz:=3;benz:=8;
benez:=0;sayac:=2;reklam:=5;ev:=17;yol:=0; x:=35; iy:=2;ikinciaraba:=0;say:=0;
clrscr;
repeat
gotoxy(30,2);
textcolor(yellow);
write('(= PASCAR =)');
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
clrscr;
{renk secim ekrani begin}
gotoxy(26,2);
writeln('Arabanin rengini seciniz');
bi:=7;
ra:=1;
for re:=1 to 16 do
begin
bi:=bi+1;
gotoxy(re+30,5);
textcolor(bi);
write(chr(219));
textcolor(11);
gotoxy(30+re,4);
write(ra);
re:=re+1;
ra:=ra+1;
end;
reni:=upcase(readkey);
if reni='1' then secim:=8;
if reni='2' then secim:=9;
if reni='3' then secim:=10;
if reni='4' then secim:=11;
if reni='5' then secim:=12;
if reni='6' then secim:=13;
if reni='7' then secim:=14;
if reni='8' then secim:=15;
{renk secim ekrani end}
goto bass;
end;
if sec=#51 then goto bye;
if sec=#50 then
begin
clrscr;
textcolor(green);
gotoxy(2,4);
write('YARDIM');
gotoxy(1,6);
writeln(' PASCAR pascal programlama dili ile yazilmis bir oyundur');
writeln('Karsidan gelen arabalar sizin gecisinizi zorlastirmak icin');
writeln('”nnze atlarlar.Benzininizin bitmemesi icin benzin kutularini');
writeln('almaniz gerekir.Benzininiz bittiginde,arabalara carptiginizda');
writeln('veya bariyerlere carptiginizda oyun biter');
writeln(' Menuyu kullanirken secmek istediginiz secenegin basindaki');
writeln('sayiyi klavyeden giriniz.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;
bass:repeat
clrscr;
say:=say+1;
textbackground(8);
giz;
textcolor(9);
{oyuncu begin}
gotoxy(67,2);
write('Oyuncu:',isim);
{oyuncu end}
{benzin begin}
randomize;
ras:=random(10);
if ras=3 then ix:=24;
if ras=6 then ix:=30;
if ras=9 then ix:=39;
textcolor(10);
gotoxy(ix,iy);write(chr(196));gotoxy(ix+1,iy);write(chr(217));
gotoxy(ix-1,iy);write(chr(192));gotoxy(ix+1,iy-1);write(chr(179));
gotoxy(ix-1,iy-1);write(chr(179));gotoxy(ix+1,iy-2);write(chr(191));
gotoxy(ix,iy-2);write(chr(196));gotoxy(ix-1,iy-2);write(chr(43));
gotoxy(ix,iy-1);write('B');
{benzin end}
{ dusman araba begin}
textcolor(brown);
for ab:=1 to 4 do
begin
gotoxy(xx,y+ab);write(chr(179));gotoxy(xx+5,y+ab);write(chr(179));
gotoxy(xx,y);write(chr(218));gotoxy(xx+5,y);write(chr(191));
gotoxy(xx,y+5);write(chr(192));gotoxy(xx+5,y+5);write(chr(217));
gotoxy(xx,y+4);write(chr(176));gotoxy(xx+5,y+4);write(chr(176));
gotoxy(xx,y-1);write(chr(176));gotoxy(xx+5,y-1);write(chr(176));
gotoxy(xx+5,y-2);write(chr(92));gotoxy(xx,y-2);write(chr(47));
end;
for po:=1 to 4 do
begin
gotoxy(xx+po,y-3);write(chr(196));gotoxy(xx+po,y);write(chr(196));
gotoxy(xx+po,y+5);write(chr(196));
end;
{dusman araba end}
{ ev begin }
for j:=1 to 8 do
begin
gotoxy(j+1,ev);write(chr(196));gotoxy(j+1,ev+7);write(chr(196));
gotoxy(10,ev);write(chr(191));gotoxy(10,ev+7);write(chr(217));
gotoxy(2,ev);write(chr(218));gotoxy(2,ev+7);write(chr(192));
end;
for o:=1 to 6 do
begin
gotoxy(2,ev+o);write(chr(179));gotoxy(10,ev+o);write(chr(179));
end;
{ pencereler begin}
textcolor(11);gotoxy(4,ev+2);write(chr(219));gotoxy(8,ev+2);
write(chr(219));
{ pencereler end}
{ kapi begin }
textcolor(green);
for p:=1 to 3 do
begin
gotoxy(5,ev+3+p);write(chr(219));gotoxy(6,ev+3+p);write(chr(219));
end;
{kapi end }
{ baca begin }
textcolor(6);
gotoxy(4,ev-2);write(chr(219));gotoxy(4,ev-1);write(chr(219));
{baca end}
{ev end}
{ kaporta begin }
textcolor(secim);
for k:=1 to 3 do
begin
gotoxy(x+k,36);write(chr(196));gotoxy(x+k,41);write(chr(196));
end;
gotoxy(x+4,36);write(chr(191));gotoxy(x,36);write(chr(218));
gotoxy(x+4,41);write(chr(217));gotoxy(x,41);write(chr(192));
for m:=1 to 4 do
begin
gotoxy(x,30+m+6);write(chr(179));gotoxy(x+4,30+m+6); write(chr(179));
end;
gotoxy(x,36);write(chr(92));gotoxy(x+4,36);write(chr(47));
gotoxy(x-1,35);write(chr(179));gotoxy(x+5,35);write(chr(179));
for l:=1 to 6 do
begin
gotoxy(x-2+l,34); write(chr(196));
end;
gotoxy(x+5,34);write(chr(191));gotoxy(x-1,34);write(chr(218));
{ kaporta end }
textcolor(7);
{ Tekerlekler begin }
gotoxy(x-1,36);write(tek);gotoxy(x+5,36);write(tek);
gotoxy(x-1,40);write(tek);gotoxy(x+5,40);write(tek);
{ Tekerlekler end }
{ ™n Farlar begin }
gotoxy(x+4,34);write(chr(197));gotoxy(x,34);write(chr(197));
{ ™n Farlar end}
{ rzgarlik begin}
gotoxy(x,41);write(chr(217));gotoxy(x+4,41);write(chr(192));
gotoxy(x+5,41);write(chr(191));gotoxy(x-1,41);write(chr(218));
gotoxy(x-1,42);write(chr(192));gotoxy(x+5,42);write(chr(217));
for n:=1 to 5 do
begin
gotoxy(x-1+n,42); write(chr(196));
end;
{ rzgarlik end}
{ stop lambalari begin }
textcolor(red);
gotoxy(x+4,42);write(chr(177));gotoxy(x,42);write(chr(177));
{ stop lambalari end }
{ boya begin}
textcolor(secim);
for z:=1 to 4 do
begin
gotoxy(x+1,30+z+6);write(chr(219));gotoxy(x+3,30+z+6);write(chr(219));
end;
{ boya end }
{ bariyerler begin }
textcolor(7);
for e:=1 to 49 do
begin
gotoxy(12,1+e);
write(chr(179));
gotoxy(63,1+e);
write(chr(179));
end;
{ bariyerler end }
{ reklam panolari begin }
textcolor(brown);
for f:=1 to 12 do
begin
gotoxy(66+f,reklam);write(chr(196));gotoxy(79,reklam);write(chr(191));
gotoxy(66,reklam);write(chr(218));gotoxy(66+f,reklam+5);write(chr(196));
gotoxy(79,reklam+5);write(chr(217));gotoxy(66,reklam+5);write(chr(192));
end;
for g:=1 to 4 do
begin
gotoxy(66,reklam+g);write(chr(179));
gotoxy(79,reklam+g);write(chr(179));
end;
gotoxy(68,reklam+6);write(chr(186));
gotoxy(76,reklam+6);write(chr(186));
textcolor(9);gotoxy(67,reklam+2);
writeln('Y™N TUSLARI');
gotoxy(70,reklam+4);
writeln(chr(27),'A-F',chr(26));
{ reklam panolari end }
{ seviye begin}
gotoxy(1,11);
write(seviye,'. Seviye');
{seviye end}
{ benzin g”stergesi begin }
textcolor(yellow);
gotoxy(2,2);
writeln('BENZIN');
for h:=1 to 8 do
begin
gotoxy(1+h,3);write(chr(196));gotoxy(1+h,5);write(chr(196));
gotoxy(10,3);write(chr(191));gotoxy(1,3);write(chr(218));
gotoxy(1,5);write(chr(192));gotoxy(10,5);write(chr(217));
gotoxy(1,4);write(chr(179));gotoxy(10,4);write(chr(179));
end;
textcolor(benrenk);
for i:=1 to benz do
begin
gotoxy(1+i,4);
write(chr(219));
end;
{ benzin g”stergesi end }
{ puan g”stergesi begin }
textcolor(3);
gotoxy(2,8);
writeln('PUAN:',puan);
{ puan g”stergesi end}
{ seritler begin}
if sayac mod 2=0 then
begin
bas:=1;
sonn:=44;
end
else
begin
clrscr;
bas:=5;
sonn:=49;
end;
textcolor(9);
{oyuncu begin}
gotoxy(67,2);
write('Oyuncu:',isim);
{oyuncu end}
{benzin begin}
randomize;
ras:=random(10);
if ras=3 then ix:=22;
if ras=6 then ix:=30;
if ras=9 then ix:=39;
textcolor(10);
gotoxy(ix,iy);write(chr(196));gotoxy(ix+1,iy);write(chr(217));
gotoxy(ix-1,iy);write(chr(192));gotoxy(ix+1,iy-1);write(chr(179));
gotoxy(ix-1,iy-1);write(chr(179));gotoxy(ix+1,iy-2);write(chr(191));
gotoxy(ix,iy-2);write(chr(196));gotoxy(ix-1,iy-2);write(chr(43));
gotoxy(ix,iy-1);write('B');
{benzin end}
{ dusman araba begin}
textcolor(brown);
for ab:=1 to 4 do
begin
gotoxy(xx,y+ab);write(chr(179));gotoxy(xx+5,y+ab);write(chr(179));
gotoxy(xx,y);write(chr(218));gotoxy(xx+5,y);write(chr(191));
gotoxy(xx,y+5);write(chr(192));gotoxy(xx+5,y+5);write(chr(217));
gotoxy(xx,y+4);write(chr(176));gotoxy(xx+5,y+4);write(chr(176));
gotoxy(xx,y-1);write(chr(176));gotoxy(xx+5,y-1);write(chr(176));
gotoxy(xx+5,y-2);write(chr(92));gotoxy(xx,y-2);write(chr(47));
end;
for po:=1 to 4 do
begin
gotoxy(xx+po,y-3);write(chr(196));gotoxy(xx+po,y);write(chr(196));
gotoxy(xx+po,y+5);write(chr(196));
end;
{dusman araba end}
{ ev begin }
textcolor(11);
for j:=1 to 8 do
begin
gotoxy(j+1,ev);write(chr(196));gotoxy(j+1,ev+7);write(chr(196));
gotoxy(10,ev);write(chr(191));gotoxy(10,ev+7);write(chr(217));
gotoxy(2,ev);write(chr(218));gotoxy(2,ev+7);
write(chr(192));
end;
for o:=1 to 6 do
begin
gotoxy(2,ev+o);
write(chr(179));
gotoxy(10,ev+o);
write(chr(179));
end;
{ pencereler begin}
textcolor(11);
gotoxy(4,ev+2);
write(chr(219));
gotoxy(8,ev+2);
write(chr(219));
{ pencereler end}
{ kapi begin }
textcolor(green);
for p:=1 to 3 do
begin
gotoxy(5,ev+3+p);
write(chr(219));
gotoxy(6,ev+3+p);
write(chr(219));
end;
{kapi end }
{ baca begin }
textcolor(6);
gotoxy(4,ev-2);
write(chr(219));
gotoxy(4,ev-1);
write(chr(219));
{baca end}
{ev end}
{ kaporta begin }
textcolor(secim);
for k:=1 to 3 do
begin
gotoxy(x+k,36);write(chr(196));gotoxy(x+k,41);write(chr(196));
end;
gotoxy(x+4,36);write(chr(191));gotoxy(x,36);write(chr(218));
gotoxy(x+4,41);write(chr(217));gotoxy(x,41);write(chr(192));
for m:=1 to 4 do
begin
gotoxy(x,30+m+6);write(chr(179));gotoxy(x+4,30+m+6); write(chr(179));
end;
gotoxy(x,36);write(chr(92));gotoxy(x+4,36);write(chr(47));
gotoxy(x-1,35);write(chr(179));gotoxy(x+5,35);write(chr(179));
for l:=1 to 6 do
begin
gotoxy(x-2+l,34); write(chr(196));
end;
gotoxy(x+5,34);write(chr(191));
gotoxy(x-1,34);write(chr(218));
{ kaporta end }
textcolor(7);
{ Tekerlekler begin }
gotoxy(x-1,36);write(tek);gotoxy(x+5,36);write(tek);
gotoxy(x-1,40);write(tek);gotoxy(x+5,40);write(tek);
{ Tekerlekler end }
{ ™n Farlar begin }
gotoxy(x+4,34);write(chr(197));gotoxy(x,34);write(chr(197));
{ ™n Farlar end}
{ rzgarlik begin}
gotoxy(x,41);write(chr(217));gotoxy(x+4,41);write(chr(192));
gotoxy(x+5,41);write(chr(191));gotoxy(x-1,41);write(chr(218));
gotoxy(x-1,42);write(chr(192));gotoxy(x+5,42);write(chr(217));
for n:=1 to 5 do
begin
gotoxy(x-1+n,42); write(chr(196));
end;
{ rzgarlik end}
{ stop lambalari begin }
textcolor(red);
gotoxy(x+4,42);write(chr(177));gotoxy(x,42);write(chr(177));
{ stop lambalari end }
{ boya begin}
textcolor(secim);
for z:=1 to 4 do
begin
gotoxy(x+1,30+z+6);write(chr(219));gotoxy(x+3,30+z+6);write(chr(219));
end;
{ boya end }
{ bariyerler begin }
textcolor(7);
for e:=1 to 49 do
begin
gotoxy(12,1+e);
write(chr(179));
gotoxy(63,1+e);
write(chr(179));
end;
{ bariyerler end }
{ reklam panolari begin }
textcolor(brown);
for f:=1 to 12 do
begin
gotoxy(66+f,reklam);write(chr(196));gotoxy(79,reklam);write(chr(191));
gotoxy(66,reklam);write(chr(218));gotoxy(66+f,reklam+5);write(chr(196));
gotoxy(79,reklam+5);write(chr(217));gotoxy(66,reklam+5);write(chr(192));
end;
for g:=1 to 4 do
begin
gotoxy(66,reklam+g);write(chr(179));
gotoxy(79,reklam+g);write(chr(179));
end;
gotoxy(68,reklam+6);write(chr(186));
gotoxy(76,reklam+6);write(chr(186));
textcolor(9);gotoxy(67,reklam+2);
writeln('Y™N TUSLARI');
gotoxy(70,reklam+4);
writeln(chr(27),'A-F',chr(26));
{ reklam panolari end }
{ seviye begin}
gotoxy(1,11);
write(seviye,'. Seviye');
{seviye end}
{ benzin g”stergesi begin }
textcolor(yellow);
gotoxy(2,2);
writeln('BENZIN');
for h:=1 to 8 do
begin
gotoxy(1+h,3);write(chr(196));gotoxy(1+h,5);write(chr(196));
gotoxy(10,3);write(chr(191));gotoxy(1,3);write(chr(218));
gotoxy(1,5);write(chr(192));gotoxy(10,5);write(chr(217));
gotoxy(1,4);write(chr(179));gotoxy(10,4);write(chr(179));
end;
textcolor(benrenk);
for i:=1 to benz do
begin
gotoxy(1+i,4);
write(chr(219));
end;
{ benzin g”stergesi end }
{ puan g”stergesi begin }
textcolor(3);
gotoxy(2,8);
writeln('PUAN:',puan);
{ puan g”stergesi end}
textcolor(7);
for a:=bas to sonn do
begin
gotoxy(30,1+a);
write(chr(186));
if (a=4) or (a=8) or (a=12) or (a=16) or (a=20) or (a=24) or (a=28)
or (a=32) or (a=36) or (a=40)
then
begin
a:=a+4;
end;
{benzin begin}
textcolor(10);
gotoxy(ix,iy);write(chr(196));gotoxy(ix+1,iy);write(chr(217));
gotoxy(ix-1,iy);write(chr(192));gotoxy(ix+1,iy-1);write(chr(179));
gotoxy(ix-1,iy-1);write(chr(179));gotoxy(ix+1,iy-2);write(chr(191));
gotoxy(ix,iy-2);write(chr(196));gotoxy(ix-1,iy-2);write(chr(43));
gotoxy(ix,iy-1);write('B');
{benzin end}
{ dusman araba begin}
textcolor(brown);
for ab:=1 to 4 do
begin
gotoxy(xx,y+ab);write(chr(179));gotoxy(xx+5,y+ab);write(chr(179));
gotoxy(xx,y);write(chr(218));gotoxy(xx+5,y);write(chr(191));
gotoxy(xx,y+5);write(chr(192));gotoxy(xx+5,y+5);write(chr(217));
gotoxy(xx,y+4);write(chr(176));gotoxy(xx+5,y+4);write(chr(176));
gotoxy(xx,y-1);write(chr(176));gotoxy(xx+5,y-1);write(chr(176));
gotoxy(xx+5,y-2);write(chr(92));gotoxy(xx,y-2);write(chr(47));
end;
for po:=1 to 4 do
begin
gotoxy(xx+po,y-3);write(chr(196));gotoxy(xx+po,y);write(chr(196));
gotoxy(xx+po,y+5);write(chr(196));
end;
{dusman araba end}
{ kaporta begin }
textcolor(secim);
for k:=1 to 3 do
begin
gotoxy(x+k,36);write(chr(196));gotoxy(x+k,41);write(chr(196));
end;
gotoxy(x+4,36);write(chr(191));gotoxy(x,36);write(chr(218));
gotoxy(x+4,41);write(chr(217));gotoxy(x,41);write(chr(192));
for m:=1 to 4 do
begin
gotoxy(x,30+m+6);write(chr(179));gotoxy(x+4,30+m+6); write(chr(179));
end;
gotoxy(x,36);write(chr(92));gotoxy(x+4,36);write(chr(47));
gotoxy(x-1,35);write(chr(179));gotoxy(x+5,35);write(chr(179));
for l:=1 to 6 do
begin
gotoxy(x-2+l,34); write(chr(196));
end;
gotoxy(x+5,34);write(chr(191));
gotoxy(x-1,34);write(chr(218));
{ kaporta end }
textcolor(7);
{ Tekerlekler begin }
gotoxy(x-1,36);write(tek);gotoxy(x+5,36);write(tek);
gotoxy(x-1,40);write(tek);gotoxy(x+5,40);write(tek);
{ Tekerlekler end }
{ ™n Farlar begin }
gotoxy(x+4,34);write(chr(197));gotoxy(x,34);write(chr(197));
{ ™n Farlar end}
{ rzgarlik begin}
gotoxy(x,41);write(chr(217));gotoxy(x+4,41);write(chr(192));
gotoxy(x+5,41);write(chr(191));gotoxy(x-1,41);write(chr(218));
gotoxy(x-1,42);write(chr(192));gotoxy(x+5,42);write(chr(217));
for n:=1 to 5 do
begin
gotoxy(x-1+n,42); write(chr(196));
end;
{ rzgarlik end}
{ stop lambalari begin }
textcolor(red);
gotoxy(x+4,42);write(chr(177));gotoxy(x,42);write(chr(177));
{ stop lambalari end }
{ boya begin}
textcolor(secim);
for z:=1 to 4 do
begin
gotoxy(x+1,30+z+6);write(chr(219));gotoxy(x+3,30+z+6);write(chr(219));
end;
{ boya end }
textcolor(7);
end;
for b:=bas to sonn do
begin
gotoxy(15,1+b);
write(chr(186));
if (b=4) or (b=8) or (b=12) or (b=16) or (b=20) or (b=24) or (b=28)
or (b=32) or (b=36) or (b=40)
then
begin
b:=b+4;
end;
{benzin begin}
textcolor(10);
gotoxy(ix,iy);write(chr(196));gotoxy(ix+1,iy);write(chr(217));
gotoxy(ix-1,iy);write(chr(192));gotoxy(ix+1,iy-1);write(chr(179));
gotoxy(ix-1,iy-1);write(chr(179));gotoxy(ix+1,iy-2);write(chr(191));
gotoxy(ix,iy-2);write(chr(196));gotoxy(ix-1,iy-2);write(chr(43));
gotoxy(ix,iy-1);write('B');
{benzin end}
textcolor(7);
end;
for c:=bas to sonn do
begin
gotoxy(45,1+c);
write(chr(186));
if (c=4) or (c=8) or (c=12) or (c=16) or (c=20) or (c=24) or (c=28)
or (c=32) or (c=36) or (c=40)
then
begin
c:=c+4;
end;
{benzin begin}
textcolor(10);
gotoxy(ix,iy);write(chr(196));gotoxy(ix+1,iy);write(chr(217));
gotoxy(ix-1,iy);write(chr(192));gotoxy(ix+1,iy-1);write(chr(179));
gotoxy(ix-1,iy-1);write(chr(179));gotoxy(ix+1,iy-2);write(chr(191));
gotoxy(ix,iy-2);write(chr(196));gotoxy(ix-1,iy-2);write(chr(43));
gotoxy(ix,iy-1);write('B');
{benzin end}
{ dusman araba begin}
textcolor(brown);
for ab:=1 to 4 do
begin
gotoxy(xx,y+ab);write(chr(179));gotoxy(xx+5,y+ab);write(chr(179));
gotoxy(xx,y);write(chr(218));gotoxy(xx+5,y);write(chr(191));
gotoxy(xx,y+5);write(chr(192));gotoxy(xx+5,y+5);write(chr(217));
gotoxy(xx,y+4);write(chr(176));gotoxy(xx+5,y+4);write(chr(176));
gotoxy(xx,y-1);write(chr(176));gotoxy(xx+5,y-1);write(chr(176));
gotoxy(xx+5,y-2);write(chr(92));gotoxy(xx,y-2);write(chr(47));
end;
for po:=1 to 4 do
begin
gotoxy(xx+po,y-3);write(chr(196));gotoxy(xx+po,y);write(chr(196));
gotoxy(xx+po,y+5);write(chr(196));
end;
{dusman araba end}
{ kaporta begin }
textcolor(secim);
for k:=1 to 3 do
begin
gotoxy(x+k,36);write(chr(196));gotoxy(x+k,41);write(chr(196));
end;
gotoxy(x+4,36);write(chr(191));gotoxy(x,36);write(chr(218));
gotoxy(x+4,41);write(chr(217));gotoxy(x,41);write(chr(192));
for m:=1 to 4 do
begin
gotoxy(x,30+m+6);write(chr(179));gotoxy(x+4,30+m+6); write(chr(179));
end;
gotoxy(x,36);write(chr(92));gotoxy(x+4,36);write(chr(47));
gotoxy(x-1,35);write(chr(179));gotoxy(x+5,35);write(chr(179));
for l:=1 to 6 do
begin
gotoxy(x-2+l,34); write(chr(196));
end;
gotoxy(x+5,34);write(chr(191));
gotoxy(x-1,34);write(chr(218));
{ kaporta end }
textcolor(7);
{ Tekerlekler begin }
gotoxy(x-1,36);write(tek);gotoxy(x+5,36);write(tek);
gotoxy(x-1,40);write(tek);gotoxy(x+5,40);write(tek);
{ Tekerlekler end }
{ ™n Farlar begin }
gotoxy(x+4,34);write(chr(197));gotoxy(x,34);write(chr(197));
{ ™n Farlar end}
{ rzgarlik begin}
gotoxy(x,41);write(chr(217));gotoxy(x+4,41);write(chr(192));
gotoxy(x+5,41);write(chr(191));gotoxy(x-1,41);write(chr(218));
gotoxy(x-1,42);write(chr(192));gotoxy(x+5,42);write(chr(217));
for n:=1 to 5 do
begin
gotoxy(x-1+n,42); write(chr(196));
end;
{ rzgarlik end}
{ stop lambalari begin }
textcolor(red);
gotoxy(x+4,42);write(chr(177));gotoxy(x,42);write(chr(177));
{ stop lambalari end }
{ boya begin}
textcolor(secim);
for z:=1 to 4 do
begin
gotoxy(x+1,30+z+6);write(chr(219));gotoxy(x+3,30+z+6);write(chr(219));
end;
{ boya end }
textcolor(7);
end;
for d:=bas to sonn do
begin
gotoxy(60,1+d);
write(chr(186));
if (d=4) or (d=8) or (d=12) or (d=16) or (d=20) or (d=24) or (d=28)
or (d=32) or (d=36) or (d=40)
then
begin
d:=d+4;
end;
{benzin begin}
textcolor(10);
gotoxy(ix,iy);write(chr(196));gotoxy(ix+1,iy);write(chr(217));
gotoxy(ix-1,iy);write(chr(192));gotoxy(ix+1,iy-1);write(chr(179));
gotoxy(ix-1,iy-1);write(chr(179));gotoxy(ix+1,iy-2);write(chr(191));
gotoxy(ix,iy-2);write(chr(196));gotoxy(ix-1,iy-2);write(chr(43));
gotoxy(ix,iy-1);write('B');
{benzin end}
textcolor(7);
end;
{seritler end }
delay(25000);
{ seviye artisi begin}
sayac:=sayac+1;
if (sayac=80) then
begin
hiz:=hiz+1;
arab:=arab+1;
seviye:='2';
end;
if (sayac=120) then
begin
hiz:=hiz+1;
arab:=arab+1;
seviye:='3';
end;
if (sayac=160) then
begin
hiz:=hiz+1;
arab:=arab+1;
seviye:='4';
end;
if (sayac=200) then
begin
hiz:=hiz+1;
arab:=arab+1;
seviye:='5';
end;
if (sayac=240) then
begin
hiz:=hiz+1;
arab:=arab+1;
seviye:='6';
end;
if (sayac=280) then
begin
hiz:=hiz+1;
arab:=arab+1;
seviye:='Son';
end;
if (sayac=30) then
begin
delay(60000);
delay(60000);
clrscr;
ses;
kapa;
sonu:=0;
sonluk:=0;
Repeat
sonluk:=sonluk+1;
sonu:=sonu+0.1;
Writeln(isim:round(30*sin(sonu)+40));
Delay(12000);
Until sonluk=500;
readln;
clrscr;
gotoxy(30,24);
Writeln(' ==> SON <== ');
delay(60000);delay(60000);delay(60000);delay(60000);
delay(60000);delay(60000);delay(60000);delay(60000);
delay(60000);delay(60000);delay(60000);delay(60000);
goto menu;
end;
{ seviye artisi end}
reklam:=reklam+hiz;;
ev:=ev+hiz;
iy:=iy+hiz;
if iy>45 then iy:=2;
if ev>45 then ev:=17;
if reklam>45 then reklam:=5;
yol:=yol+2;
if y>44 then
begin
y:=1;
end;
{arabanin gelmesi begin}
arabba;
{arabanin gelmesi end}
{‡arpisma begin}
if ((x=xx) or (x=xx-1) or (x=xx+1) or (x=xx+2) or
(x=xx-2) or (x=xx-3) or (x=xx+3) or (x=xx-4) or (x=xx+4)
or (x=xx+5) or (x=xx-5))
and ((y=42) or (y=41) or (y=40) or (y=39) or (y=38) or (y=37) or (y=36) or (y=35) or (y=34) or
(y=33) or (y=32) or (y=31) or (y=30)) then
begin
{ dusman araba begin}
textcolor(brown);
for ab:=1 to 4 do
begin
gotoxy(xx,y+ab);write(chr(179));gotoxy(xx+5,y+ab);write(chr(179));
gotoxy(xx,y);write(chr(218));gotoxy(xx+5,y);write(chr(191));
gotoxy(xx,y+5);write(chr(192));gotoxy(xx+5,y+5);write(chr(217));
gotoxy(xx,y+4);write(chr(176));gotoxy(xx+5,y+4);write(chr(176));
gotoxy(xx,y-1);write(chr(176));gotoxy(xx+5,y-1);write(chr(176));
gotoxy(xx+5,y-2);write(chr(92));gotoxy(xx,y-2);write(chr(47));
end;
for po:=1 to 4 do
begin
gotoxy(xx+po,y-3);write(chr(196));gotoxy(xx+po,y);write(chr(196));
gotoxy(xx+po,y+5);write(chr(196));
end;
{dusman araba end}
{carpisma sesi begin}
for carp:=500 downto 0 do
begin
sound(carp);
delay(500);
end;
{carpisma sesi end}
delay(65000);
delay(65000);
goto son;
end;
{‡arpisma end}
{benzin almak begin}
if ((x=ix) or (x=ix-1) or (x=ix+1) or (x=ix+2) or
(x=ix-2) or (x=ix-3) or (x=ix+3) or (x=ix-4) or (x=ix+4)
or (x=xx+5) or (x=xx-5))
and ((iy=50) or (iy=49) or (iy=48) or
(iy=47) or (iy=46) or (iy=45) or (iy=44) or
(iy=43) or (iy=42) or (iy=41) or (iy=40)
or (iy=39) or (iy=38) or (iy=37) or
(iy=36) or (iy=35) or (iy=34)) then
begin
iy:=2;
benz:=benz+3;
{benzin alim sesi begin}
sound(600);
delay(25000);
nosound;
{benzin alim sesi end}
if benz>8 then benz:=8;
end;
{benzin almak end}
benez:=benez+1;
if benez mod 7=0 then
benz:=benz-1;
if benz<0 then
begin
{carpisma sesi begin}
for carp:=500 downto 0 do
begin
sound(carp);
delay(500);
end;
{carpisma sesi end}
goto son;
end;
if benz<3 then benrenk:=36;
if benz>3 then benrenk:=2;
{d”nen teker begin}
if sayac mod 2=0 then tek:=chr(176)
else tek:=chr(178);
until keypressed;
tus:=readkey;
if (tus<>#112) and (tus<>#97) and (tus<>#102) and (tus<>#27) then goto bass;
puan:=puan+5;
if tus=#97 then
begin
x:=x-7;
if x<20 then
begin
{carpisma sesi begin}
for carp:=500 downto 0 do
begin
sound(carp);
delay(500);
end;
{carpisma sesi end}
goto son;
end;
clrscr;
goto bass;
end;
{pause begin}
if tus=#112 then
begin
textcolor(10);
gotoxy(33,25);
Writeln('BEKLEMEDE');
paus:=readkey;
if paus=#112 then
begin
gotoxy(35,25);
Writeln(' ');
goto bass;
end;
end;
if tus=#102 then
begin
x:=x+7;
if x>50 then
begin
{carpisma sesi begin}
for carp:=500 downto 0 do
begin
sound(carp);
delay(500);
end;
{carpisma sesi end}
goto son;
end;
clrscr;
goto bass;
end;
if tus=#27 then goto menu;
readln;
son:
clrscr;
gotoxy(20,25);
Writeln('Oyunumu oynadiginiz icin tesekkurler');
gotoxy(32,27);
writeln('Puaniniz:',puan-5);
gotoxy(24,29);
writeln('Aldiginiz toplam yol:',yol,' cm');
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
clrscr;goto menu;bye:end.