Programalama > PASCAL

Etiketler: araba, yarisi

Ort. 0
Puan ver:
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('”nnze 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}
{ rzgarlik 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;
{ rzgarlik 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}
{ rzgarlik 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;
{ rzgarlik 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}
{ rzgarlik 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;
{ rzgarlik 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}
{ rzgarlik 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;
{ rzgarlik 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.


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 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.