Ana Menü
· Ana Sayfa
· Dosyalar
· Dökümanlar
· Forum
· Günün Resmi
· Haber Arşivi
· WWW Linkleri
· Üye Listesi

     Forumlar

 strncpy ve strncpy_s
 Konu adi : Borland c++ Builder ile Amiral Batti
 Rady10 - YerliOyun
 Kabusta Kaybolmak
 Konsol da programı bekletmek
 Oyun programlama icin hangi programlama dilli ?
 flash! şanlıurfa bilgisayar oyununda(no rapid)
 Sevgilim Olur musun?
 Directx'e başlamak isteyenler bi bakın
 PSP programlama
 Flash tan php
 Bilgisyr oyunu yapmam için üniverstde hangi bölüme girmeliym
 www.arshiv.gen.ms
 Cimg.h ilgilenenler icin
 müttefik oyunu

Konu Disi
 Emraah
 Yeni sitemiz açıldı
 Kalp krizi durumunda ne yapılmalı?
 Oyun sektöründe hangi görevde çalışmak isterdiniz?
 Takım arkadaşı sorunu
 msn de renklı nıck
 pc hata veriyor ! YARDIM!!
 Gülmek isteyenler Buraya
 İnanılmaz hl 2 modu görüntüsü
 Computer Languages History

[ Forumlara Git ]
oyunyapimi.org: Forums

www.oyunyapimi.org :: Başlığı Görüntüle - Formula III (Pascal Araba yarışı kodu)
 SSSSSS   AramaArama   Kullanıcı GruplarıKullanıcı Grupları   ProfilProfil   LoginLogin 

Formula III (Pascal Araba yarışı kodu)

 
Yeni Başlık Gönder   Cevap Gönder    www.oyunyapimi.org Forum Ana Sayfası -> Programlama Dilleri ve Algoritmalar
Önceki başlık :: Sonraki başlık  
Yazar Mesaj
MungaBunga



Kayıt: Oct 19, 2004
Mesajlar: 207
Nereden: Mardin
MesajTarih: Wed Sep 28, 2005 5:13 pm    Mesaj konusu: Formula III (Pascal Araba yarışı kodu) Alıntıyla Cevap Ver
Kod:

PROGRAM FOR3;
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 MunaBunga Klasiği’);
delay(60000);delay(60000);delay(60000);delay(60000);delay(60000);
gotoxy(34,30);
textcolor(9);
Writeln(’FORMULA 3’);
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(’(= FORMULA3 =)’);
 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(’ 'Bir MunaBunga Klasiği               --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(’  FORMULA3 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(’                                     MungaBunga’);
    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.

Başa dön
Kullanıcı profilini gör E-Posta'yı gönder MSN Messenger
berk



Kayıt: Aug 24, 2005
Mesajlar: 169
MesajTarih: Wed Sep 28, 2005 6:52 pm    Mesaj konusu: Alıntıyla Cevap Ver
ooooooo maşallah
Başa dön
Kullanıcı profilini gör
MD-C



Kayıt: Feb 26, 2003
Mesajlar: 1258
Nereden: Dünya.Türkiye(54)
MesajTarih: Wed Sep 28, 2005 6:54 pm    Mesaj konusu: Alıntıyla Cevap Ver
3D mi? Smile
Başa dön
Kullanıcı profilini gör E-Posta'yı gönder Kullanıcının web sitesini ziyaret et
malihsen



Kayıt: Apr 17, 2004
Mesajlar: 328
Nereden: Balıkesir
MesajTarih: Thu Sep 29, 2005 11:52 am    Mesaj konusu: Alıntıyla Cevap Ver
Bu Kesin Pascal
Başa dön
Kullanıcı profilini gör E-Posta'yı gönder MSN Messenger
TheCotanak



Kayıt: Sep 03, 2003
Mesajlar: 921
Nereden: Istanbul
MesajTarih: Thu Sep 29, 2005 4:59 pm    Mesaj konusu: Alıntıyla Cevap Ver
malihsen demiş ki:
Bu Kesin Pascal


Konunun basligina bakiniz: "Formula III (Pascal Araba yarışı kodu)"
Hmm..
Başa dön
Kullanıcı profilini gör E-Posta'yı gönder Kullanıcının web sitesini ziyaret et
Niksel



Kayıt: Sep 29, 2005
Mesajlar: 14
Nereden: Konya
MesajTarih: Thu Sep 29, 2005 8:10 pm    Mesaj konusu: Alıntıyla Cevap Ver
Bu ne yaz yaz 5 dakikamı alır eheuhe Razz
Başa dön
Kullanıcı profilini gör MSN Messenger
Mesajları göster:   
Yeni Başlık Gönder   Cevap Gönder    www.oyunyapimi.org Forum Ana Sayfası -> Programlama Dilleri ve Algoritmalar Tüm saatler GMT +2 Saat
1. sayfa (Toplam 1 sayfa)

 
Forum Seçin:  
Bu forumda yeni konular açamazsınız
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız


Powered by phpBB 2.x.x © 200x phpBB Group
Türkçe Çeviri : Onur Turgay & Erdem Çorapçıoğlu
Türkçe Düzenleme: Alexis Canver
Version 2.x.x of PHP-Nuke Port by Tom Nitzschner © 200x www.toms-home.com




Web site powered by PHP-Nuke
Web site engine\'s code is Copyright © 2002 by PHP-Nuke. All Rights Reserved. PHP-Nuke is Free Software released under the GNU/GPL license.
Sayfa Üretimi: 0.128 Saniye