Programalama > PASCAL

Etiketler: cok, guzel, bir, yilan, oyunu

Ort. 0
Puan ver:
uses crt;
var
a:string;
su,sa:array[1..1]of byte;
b,c,d,e,h,j,k,l,m,bol:byte;
hiz,p:integer;
label 1;
procedure cer;
begin
textcolor(4);
for j:=2 to 79 do
begin
gotoxy(j,2);
write('Ä');
gotoxy(j,25);
write('Ä');
end;
for k:=2 to 25 do
begin
gotoxy(79,k);
write('³');
gotoxy(2,k);
write('³');
end;
gotoxy(2,2);write('Ú');
gotoxy(79,2);write('¿');
gotoxy(2,25);write('À');
gotoxy(79,25);write('Ù');
textcolor(15);
end;
procedure yaz;
begin
gotoxy(5,1);
write('PUANINIZ:',P);
textcolor(11);
if h<>0 then
begin
gotoxy(33,1);
write(h,':HAKKIN VAR');
textcolor(15);
end;
gotoxy(64,1);
write('B&#8482;L&#353;M:',BOL);
end;
procedure son;
begin
if h<>0 then
begin
textcolor(11);
gotoxy(33,1);
write(h,':HAKKIN VAR');
textcolor(15);
textcolor(10);
sound(102);
delay(450);
nosound;
end;
textcolor(4);
gotoxy(35,3);
write('GAME OVER');
sound(700);
delay(800);
nosound;
readln;
halt;
end;
procedure pu;
begin
p:=p+10;
end;
procedure av;
begin
randomize;
d:=(random(73+3));
e:=(random(15+4));
if e<3 then e:=4;
if e>24 then e:=23;
if d<3 then d:=4;
if d>79 then d:=78;
end;
begin
repeat
1:textcolor(15);
av;
h:=3;
c:=30;
b:=10;
bol:=0;
hiz:=120;
clrscr;
repeat
if a=" then
begin
repeat
clrscr;
cer;
yaz;
gotoxy(d,e);
write('&#8250;');
c:=c+1;
gotoxy(c,b);
write('Ï');
delay(100);
if c=79 then
begin
h:=h-1;
sound(102);
delay(450);
nosound;
c:=40;
clrscr;
cer;
yaz;
gotoxy(c,b);
write('Ï');
readkey;
if h=0 then son;
end;
if (c=d)and(b=e)then
begin
pu;
m:=m+1;
sound(700);
delay(70);
nosound;
av;
end;
if c=80 then c:=1;
until keypressed;
end;
a:=readkey;
if a=#77 then
begin
repeat
if m=6 then
begin
m:=0;
hiz:=hiz-10;
gotoxy(27,1);
bol:=bol+1;
if bol=12 then
begin
gotoxy(30,1);
write('TEBR&#732;KLER OYUNU B&#732;T&#732;RD&#732;N&#732;Z');
readln;
goto 1;
end;
end;

clrscr;
cer;
yaz;
gotoxy(d,e);
write('&#8250;');
c:=c+1;
gotoxy(c,b);
write('Ï');
if m=1 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=2 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=3 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=4 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=5 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=6 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
delay(hiz);
if c=79 then
begin
h:=h-1;
sound(102);
delay(450);
nosound;
c:=40;
clrscr;
cer;
yaz;
gotoxy(c,b);
write('Ï');
if h<>0 then readkey;
if h=0 then son;
end;
if (c=d)and(b=e)then
begin
pu;
m:=m+1;
sound(700);
delay(70);
nosound;
av;
end;
if c=80 then c:=1;
until keypressed;
end;
if a=#75 then
begin
repeat
if m=6 then
begin
m:=0;
hiz:=hiz-10;
gotoxy(27,1);
bol:=bol+1;
if bol=12 then
begin
gotoxy(30,1);
write('TEBR&#732;KLER OYUNU B&#732;T&#732;RD&#732;N&#732;Z');
goto 1;
readln;
end;
end;

clrscr;
cer;
yaz;
gotoxy(d,e);
write('&#8250;');
c:=c-1;
gotoxy(c,b);
write('Ï');
if m=1 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=2 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=3 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=4 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=5 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=6 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
su[1]:=su[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
delay(hiz);
if c=2 then
begin
h:=h-1;
sound(102);
delay(450);
nosound;
c:=40;
clrscr;
cer;
yaz;
gotoxy(c,b);
write('Ï');
if h<>0 then readkey;
if h=0 then son;
end;
if (c=d)and(b=e)then
begin
pu;
m:=m+1;
sound(700);
delay(70);
nosound;
av;
end;
if c=1 then c:=80;
until keypressed;
end;
if a=#72 then
begin
repeat
if m=6 then
begin
m:=0;
hiz:=hiz-10;
gotoxy(30,1);
bol:=bol+1;
if bol=12 then
begin
gotoxy(30,1);
write('TEBR&#732;KLER OYUNU B&#732;T&#732;RD&#732;N&#732;Z');
goto 1;
readln;
end;
end;

clrscr;
cer;
yaz;
gotoxy(d,e);
write('&#8250;');
b:=b-1;
gotoxy(c,b);
write('Ï');
if m=1 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=2 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=3 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=4 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=5 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=6 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]+1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
delay(hiz);
if b=2 then
begin
h:=h-1;
sound(102);
delay(450);
nosound;
b:=10;
clrscr;
cer;
yaz;
gotoxy(c,b);
write('Ï');
if h<>0 then readkey;
if h=0 then son;
end;
if (c=d)and(b=e)then
begin
pu;
m:=m+1;
sound(700);
delay(70);
nosound;
av;
end;
if b=1 then b:=25;
until keypressed;
end;
if a=#80 then
begin
repeat
if m=6 then
begin
m:=0;
hiz:=hiz-10;
gotoxy(30,1);
bol:=bol+1;
if bol=12 then
begin
gotoxy(30,1);
write('TEBR&#732;KLER OYUNU B&#732;T&#732;RD&#732;N&#732;Z');
goto 1;
readln;
end;
end;

clrscr;
cer;
yaz;
gotoxy(d,e);
write('&#8250;');
b:=b+1;
gotoxy(c,b);
write('Ï');
if m=1 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=2 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=3 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=4 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=5 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
if m=6 then
begin
gotoxy(c,b);
write('Ï');
su[1]:=c;
sa[1]:=b;
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
sa[1]:=sa[1]-1;
gotoxy(su[1],sa[1]);
write('&#8250;');
end;
delay(hiz);
if b=25 then
begin
h:=h-1;
sound(102);
delay(450);
nosound;
b:=10;
clrscr;
cer;
yaz;
gotoxy(c,b);
write('Ï');
if h<>0 then readkey;
if h=0 then son;
end;
if (c=d)and(b=e)then
begin
pu;
m:=m+1;
sound(700);
delay(70);
nosound;
av;
end;
if b=25 then b:=1;
until keypressed;
end;
until a=#27;
until a=#27;
end. 


cilgin paskalci
turbopaskal_664@box.az


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