Programalama > PASCAL

Etiketler: taş, oyunu, 1.0

Ort. 0
Puan ver:
uses crt;label oyunmenusu,c1,c2,c3,c4,c5,c6,c7,c8,c9,b1,b2,b3,b4,b5,b6,
b7,b8,b9,pls,cks2,yenioyun,pks,cikis,bas,orta,oh,cks,devam,oyun;
var i:integer;tus:char;
procedure sakla; { !! alintidir !! }
assembler;asm mov  ax,$0100 ; mov  cx,$2607 ; int  $10
end;procedure cerceve3(x1,y1,x2,y2:byte;basli:string);
var j:byte;begin textbackground(lightgreen);for i:= x1+1 to x2-1 do
begin gotoxy(i,y1);write(chr(205));end;for i:= x1+1 to x2-1 do
begin gotoxy(i,y2);write(chr(205));end;for i:= y1+1 to y2-1 do
begin gotoxy(x1,i);write(chr(186));end;for i:= y1+1 to y2-1 do
begin gotoxy(x2,i);write(chr(186));end;gotoxy(x1,y1);write(chr(201));
gotoxy(x2,y1);write(chr(187));gotoxy(x1,y2);write(chr(200));gotoxy(x2,y2);
write(chr(188));begin For i:=x1+1 to x2-1 do begin j:=y1;repeat j:=j+1;
gotoxy(i,j);write(' ');until j=y2-1;end;gotoxy(x1+2,y1);write(basli);
begin for i:=y1+1 to y2+1 do begin textcolor(black);textbackground(black);
gotoxy(x2+1,i);write(chr(176));textcolor(white);textbackground(blue);end;
begin for i:=x1+1 to x2+1 do begin textcolor(black);textbackground(black);
gotoxy(i,y2+1);write(chr(176));end;begin gotoxy(27,20);textcolor(white);
textbackground(lightgreen);write(' Ana Menu ');gotoxy(47,20);textcolor(white);
textbackground(8);write(' Cikis ');end;end;end;end;end;procedure taslak;
begin sakla;for i:=1 to 250 do begin lowvideo;textbackground(lightgray);
textcolor(red);gotoxy(i,1);write('               ');end;textcolor(red);
gotoxy(13,2);writeln('Bilgisayar Teknolojileri Ve Programlama  /  NAZIM DEMiR');
gotoxy(29,4);write('demirnazim@hotmail.com');textcolor(white);end;
procedure cerceve2(x1,x2,y1,y2:byte; baslik:string);begin textbackground(lightgreen);
for i:= x1+1 to x2-1 do begin gotoxy(i,y1);write(chr(205));
end;for i:= x1+1 to x2-1 do begin gotoxy(i,y2);
write(chr(205));end;for i:= y1+1 to y2-1 do begin gotoxy(x1,i);
write(chr(186));end;for i:= y1+1 to y2-1 do begin gotoxy(x2,i);
write(chr(186));end;gotoxy(x1,y1);write(chr(201));gotoxy(x2,y1);
write(chr(187));gotoxy(x1,y2);write(chr(200));gotoxy(x2,y2);
write(chr(188));end;procedure a1;begin repeat textcolor(11);textbackground(lightgray);
for i:=8 to   15 do begin gotoxy(25,i);write(chr(179));end;tus:=readkey;
if tus=#27 then halt;until 5=6;end;procedure sil;begin for i:=9 to  10 do
begin textbackground(lightgray);gotoxy(24,i);write('    ');
end;for i:=9 to 10 do begin textbackground(lightgray);gotoxy(38,i);write('    ');
end;for i:=9 to 10 do begin textbackground(lightgray);gotoxy(52,i);write('    ');
end;for i:=10 to 11 do begin textbackground(lightgray);gotoxy(24,i);write('    ');
end;for i:=13 to 14 do begin textbackground(lightgray);gotoxy(24,i);write('    ');
end;for i:=13 to 14 do begin textbackground(lightgray);gotoxy(38,i);write('    ');
end;for i:=13 to 14 do begin textbackground(lightgray);gotoxy(52,i);write('    ');
end;for i:=18 to 19 do begin textbackground(lightgray);gotoxy(24,i);write('    ');
end;for i:=18 to 19 do begin textbackground(lightgray);gotoxy(38,i);write('    ');
end;for i:=18 to 19 do begin textbackground(lightgray);gotoxy(53,i);write('    ');
end;end;procedure cerceve(x1,y1,x2,y2:byte;baslik:string);
var i,j:byte;begin textbackground(lightgreen);
for i:= x1+1 to x2-1 do begin gotoxy(i,y1);write(chr(205));end;
for i:= x1+1 to x2-1 do begin gotoxy(i,y2);write(chr(205));end;
for i:= y1+1 to y2-1 do begin gotoxy(x1,i);write(chr(186));end;
for i:= y1+1 to y2-1 do begin gotoxy(x2,i);write(chr(186));end;
gotoxy(x1,y1);write(chr(201));gotoxy(x2,y1);write(chr(187));gotoxy(x1,y2);
write(chr(200));gotoxy(x2,y2);write(chr(188));begin For i:=x1+1 to x2-1 do
begin j:=y1;repeat j:=j+1;gotoxy(i,j);write(' ');until j=y2-1;end;
gotoxy(x1+2,y1);write(baslik);begin for i:=y1+1 to y2+1 do
begin textcolor(black);textbackground(black);gotoxy(x2+1,i);write(chr(176));
textcolor(white);textbackground(blue);end;begin for i:=x1+1 to x2+1 do begin
textcolor(black);textbackground(black);gotoxy(i,y2+1);write(chr(176));end;
begin textcolor(white);textbackground(lightgreen);gotoxy(30,7);
write('  UC TAS OYUNU 1.0  ');gotoxy(33,13);textcolor(white);textbackground(8);
write(' Oyuna Giris ');textcolor(white);textbackground(lightgreen);gotoxy(33,15);
write(' Oyun Hakkinda ');textcolor(white);textbackground(lightgreen);gotoxy(36,17);
write(' Cikis ');end;end;end;end;end;begin repeat devam:sakla;clrscr;for i:=1 to 500 do
begin lowvideo;textbackground(lightgray);textcolor(blue);gotoxy(i,1);
write('                      ');write('  ');end;textcolor(red);gotoxy(13,2);
writeln('Bilgisayar Teknolojileri Ve Programlama  /  NAZIM DEMiR');
gotoxy(29,4);write('demirnazim@hotmail.com');textcolor(white);cerceve2(29,50,6,8,'');
cerceve(20,10,60,20,' ANA MENU ');goto bas;until 7=9;bas:sakla;repeat begin;textcolor(white);
textbackground(lightgreen);gotoxy(30,7);write('  UC TAS OYUNU 1.0  ');
gotoxy(33,13);textcolor(white);textbackground(8);write(' Oyuna Giris ');
textcolor(white);textbackground(lightgreen);gotoxy(33,15);write(' Oyun Hakkinda ');
textcolor(white);textbackground(lightgreen);gotoxy(36,17);write(' Cikis ');
tus:=readkey;if tus=chr(13) then goto oyun;if tus=chr(80) then goto orta;
if tus=#27 then halt;if tus=chr(72) then goto cikis;end;until 3=10;cikis:
repeat begin textcolor(white);textbackground(lightgreen);gotoxy(30,7);
write('  UC TAS OYUNU 1.0  ');gotoxy(33,13);textcolor(white);textbackground(lightgreen);
write(' Oyuna Giris ');textcolor(white);textbackground(lightgreen);gotoxy(33,15);
write(' Oyun Hakkinda ');textcolor(white);textbackground(8);gotoxy(36,17);
write(' Cikis ');tus:=readkey;if tus=chr(13) then exit;if tus=chr(80) then goto bas;
if tus=#27 then halt;if tus=chr(72) then goto orta;end;until 7=10;oh:begin
for i:=1 to 600 do begin lowvideo;textbackground(lightgray);textcolor(red);
gotoxy(i,1);write('                      ');write('  ');textcolor(red);
end;textcolor(red);gotoxy(13,2);
writeln('Bilgisayar Teknolojileri Ve Programlama  /  NAZIM DEMiR');
gotoxy(29,4);write('demirnazim@hotmail.com');textcolor(white);cerceve3(14,7,65,22,' OYUN HAKKINDA ');
begin repeat;textcolor(red);textbackground(lightgreen);gotoxy(32,10);
write('Oyunun Kurallari');textcolor(white);gotoxy(20,12);write('1. Oyuncu yon tuslari ile oynayabilir.');
textcolor(red);gotoxy(16,12);write('1)');gotoxy(16,14);write('2)');textcolor(white);
write('  2. oyuncu yon tuslari ile oynayabilir.');gotoxy(16,16);textcolor(red);
write('3)');textcolor(white);writeln('  <x>ler yada <o>lar dikey , yatay veya capraz');
gotoxy(20,17);write('oldugunda oyunu <x> yada <o> galip bitirir.');
textbackground(lightgreen);gotoxy(16,21);write('Not:Yon tuslari sag= d sol= a yukari= w asagi= s');
gotoxy(27,20);textcolor(white);textbackground(black);write(' Ana Menu ');
gotoxy(47,20);textcolor(white);textbackground(lightgreen);write(' Cikis ');
tus:=readkey;if tus=#27 then halt;if tus=chr(13) then goto devam;if tus=chr(77) then goto cks;
if tus=chr(75) then goto cks;until 5=3;end;end;pks:begin repeat;
textcolor(red);textbackground(lightgreen);gotoxy(32,10);
write('Oyunun Kurallari');textcolor(white);gotoxy(20,12);
write('1. Oyuncu yon tuslari ile oynayabilir.');textcolor(red);gotoxy(16,12);
write('1)');gotoxy(16,14);write('2)');textcolor(white);write('  2. oyuncu yon tuslari ile oynayabilir.');
gotoxy(16,16);textcolor(red);write('3)');textcolor(white);writeln('  <x>ler yada <o>lar dikey , yatay veya capraz');
gotoxy(20,17);write('oldugunda oyunu <x> yada <o> galip bitirir.');
textbackground(lightgreen);gotoxy(16,21);write('Not:Yon tuslari sag= d sol= a yukari= w asagi= s');
gotoxy(27,20);textcolor(white);textbackground(8);write(' Ana Menu ');gotoxy(47,20);
textcolor(white);textbackground(lightgreen);write(' Cikis ');tus:=readkey;
if tus=#27 then exit;if tus=chr(13) then goto devam;if tus=chr(77) then goto cks;
until 1=0;end;cks:begin repeat;textcolor(red);textbackground(lightgreen);gotoxy(32,10);
write('Oyunun Kurallari');textcolor(white);gotoxy(20,12);
write('1. Oyuncu yon tuslari ile oynayabilir.');textcolor(red);gotoxy(16,12);
write('1)');gotoxy(16,14);write('2)');textcolor(white);write('  2. oyuncu yon tuslari ile oynayabilir.');
gotoxy(16,16);textcolor(red);write('3)');textcolor(white);
writeln('  <x>ler yada <o>lar dikey , yatay veya capraz');gotoxy(20,17);
write('oldugunda oyunu <x> yada <o> galip bitirir.');gotoxy(27,20);textcolor(white);
textbackground(lightgreen);write(' Ana Menu ');gotoxy(47,20);textcolor(white);
textbackground(8);write(' Cikis ');tus:=readkey;if tus=#27 then halt;
if tus=chr(13) then halt;if tus=chr(75) then goto pks;until 7=8;end;oyun:
repeat begin for i:=1 to 600 do begin lowvideo;textbackground(lightgray);textcolor(red);
gotoxy(i,1);write('                      ');write('  ');textcolor(red);
end;textcolor(white);textbackground(lightgreen);gotoxy(35,6);write('UC TAS 1.0');
textcolor(white);textbackground(8);gotoxy(16,23);write(' Ana Menu ');gotoxy(35,23);
textbackground(white);write(' Yeni Oyun ');gotoxy(56,23);write(' Cikis ');
gotoxy(27,25);textcolor(red);write('baslamak icin F2 tuslayin...');
textbackground(lightgray);textcolor(red);gotoxy(13,2);
writeln('Bilgisayar Teknolojileri Ve Programlama  /  NAZIM DEMiR');
gotoxy(29,4);write('demirnazim@hotmail.com');textcolor(white);gotoxy(4,6);
textcolor(white);textbackground(lightgreen);write(' 1. Oyuncu ');textbackground(white);
gotoxy(4,8);write(' 2. Oyuncu ');goto pls;pls:textcolor(white);textbackground(lightgray);
for i:=20 to 59 do begin gotoxy(i,12);write(chr(196));end;for i:=20 to 59 do
begin gotoxy(i,16);write(chr(196));end;for i:=8 to 20 do begin gotoxy(32,i);
write(chr(179));end;for i:=8 to 20 do begin gotoxy(47,i);write(chr(179));end;
goto oyunmenusu;end;until 0<>0;yenioyun:repeat begin textcolor(white);textbackground(lightgray);
gotoxy(16,23);write(' Ana Menu ');gotoxy(35,23);textbackground(8);write(' Yeni Oyun ');
gotoxy(56,23);textbackground(lightgray);write(' Cikis ');tus:=readkey;
if tus=#27 then halt;if tus=chr(75) then goto oyunmenusu;if tus=chr(77) then goto cks2;
if tus=chr(13) then goto oyun;end;until 4=47;oyunmenusu:repeat begin
textcolor(white);textbackground(8);gotoxy(16,23);write(' Ana Menu ');gotoxy(35,23);
textbackground(lightgray);write(' Yeni Oyun ');gotoxy(56,23);textbackground(lightgray);
write(' Cikis ');tus:=readkey;if tus=#27 then halt;if tus=chr(77) then goto yenioyun;
if tus=chr(13) then goto devam;if tus=chr(60) then goto b1;end;until 8=18;
b1:begin repeat sil;for i:=9 to  10 do begin textbackground(lightgreen);
gotoxy(24,i);write('    ');end;tus:=readkey;if tus=#27 then halt;
if tus='d' then goto b2;if tus='s' then goto b4;if tus=chr(13) then goto devam;
if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgray);textcolor(white);
write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);write(' 2. Oyuncu ');
gotoxy(23,10);textbackground(lightgray);textcolor(white);write('X');goto c1;
end;until 75=48;end;b2:begin repeat sil;for i:=9 to  10 do begin textbackground(lightgreen);
gotoxy(38,i);write('    ');end;tus:=readkey;if tus=#27 then halt;
if tus='d' then goto b3;if tus='a' then goto b1;if tus='s' then goto b5;
if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);
textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(37,10);textbackground(lightgray);
textcolor(white);write('X');goto c2;end;until 75=48;end;b3:begin repeat sil;
for i:=9 to  10 do begin textbackground(lightgreen);gotoxy(52,i);write('    ');
end;tus:=readkey;if tus='a' then goto b2;if tus='s' then goto b6;
if tus=#27 then halt;if tus=chr(13) then goto devam;if tus=chr(32) then
begin gotoxy(4,6);textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');
gotoxy(4,8);textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(51,10);
textbackground(lightgray);textcolor(white);write('X');goto c3;end;until 75=48;
end;b4:begin repeat sil;for i:=13 to  14 do begin textbackground(lightgreen);
gotoxy(24,i);write('    ');end;tus:=readkey;if tus='w' then goto b1;
if tus='d' then goto b5;if tus='s' then goto b7;if tus=#27 then halt;
if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);
textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(23,14);textbackground(lightgray);
textcolor(white);write('X');goto c4;end;until 75=48;end;b5:begin repeat sil;
for i:=13 to  14 do begin textbackground(lightgreen);gotoxy(38,i);write('    ');
end;tus:=readkey;if tus='w' then goto b2;if tus='a' then goto b4;
if tus='d' then goto b6;if tus='s' then goto b8;if tus=#27 then halt;
if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgray);
textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);
write(' 2. Oyuncu ');gotoxy(37,14);textbackground(lightgray);textcolor(white);
write('X');goto c5;end;until 75=48;end;b6:begin repeat sil;for i:=13 to  14 do
begin textbackground(lightgreen);gotoxy(52,i);write('    ');end;tus:=readkey;
if tus='w' then goto b3;if tus='a' then goto b5;if tus='s' then goto b9;
if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);
textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(51,14);textbackground(lightgray);
textcolor(white);write('X');goto c6;end;until 75=48;end;b7:begin repeat sil;
for i:=18 to  19 do begin textbackground(lightgreen);gotoxy(24,i);write('    ');
end;tus:=readkey;if tus='w' then goto b4;if tus='d' then goto b8;if tus=#27 then halt;
if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgray);
textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);
write(' 2. Oyuncu ');gotoxy(23,19);textbackground(lightgray);textcolor(white);
write('X');goto c7;end;until 75=48;end;b8:begin repeat sil;for i:=18 to  19 do
begin textbackground(lightgreen);gotoxy(38,i);write('    ');end;tus:=readkey;
if tus='w' then goto b5;if tus='a' then goto b7;if tus='d' then goto b9;
if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);
textbackground(lightgray);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgreen);write(' 2. Oyuncu ');gotoxy(37,19);textbackground(lightgray);
textcolor(white);write('X');goto c8;end;until 75=48;end;b9:begin repeat sil;
for i:=18 to  19 do begin textbackground(lightgreen);gotoxy(53,i);write('    ');
end;tus:=readkey;if tus='w' then goto b6;if tus='a' then goto b8;if tus=#27 then halt;
if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgray);
textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgreen);write(' 2. Oyuncu ');
gotoxy(52,19);textbackground(lightgray);textcolor(white);write('X');goto c9;
end;until 75=48;end;c1:begin repeat sil;for i:=9 to  10 do begin textbackground(lightgreen);
gotoxy(24,i);write('    ');end;tus:=readkey;if tus=#27 then halt;if tus='d' then goto c2;
if tus='s' then goto c4;if tus=chr(13) then goto devam;if tus=chr(32) then begin
gotoxy(4,6);textbackground(lightgreen);textcolor(white);write(' 1. Oyuncu ');
gotoxy(4,8);textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(23,10);
textbackground(lightgray);textcolor(white);write('O');goto b1;end;until 75=48;end;
c2:begin repeat sil;for i:=9 to  10 do begin textbackground(lightgreen);
gotoxy(38,i);write('    ');end;tus:=readkey;if tus=#27 then halt;if tus='d' then goto c3;
if tus='a' then goto c1;if tus='s' then goto c5;if tus=chr(13) then goto devam;
if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgreen);textcolor(white);
write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);write(' 2. Oyuncu ');
gotoxy(37,10);textbackground(lightgray);textcolor(white);write('O');goto b2;
end;until 75=48;end;c3:begin repeat sil;for i:=9 to  10 do begin
textbackground(lightgreen);gotoxy(52,i);write('    ');end;tus:=readkey;
if tus='a' then goto c2;if tus='s' then goto c6;if tus=#27 then halt;
if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);
textbackground(lightgreen);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(51,10);textbackground(lightgray);
textcolor(white);write('O');goto b3;end;until 75=48;end;c4:begin repeat sil;
for i:=13 to  14 do begin textbackground(lightgreen);gotoxy(24,i);write('    ');
end;tus:=readkey;if tus='w' then goto c1;if tus='d' then goto c5;if tus='s' then goto c7;
if tus=#27 then halt;if tus=chr(13) then goto devam;if tus=chr(32) then begin
gotoxy(4,6);textbackground(lightgreen);textcolor(white);write(' 1. Oyuncu ');
gotoxy(4,8);textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(23,14);
textbackground(lightgray);textcolor(white);write('O');goto b4;end;until 75=48;
end;c5:begin repeat sil;for i:=13 to  14 do begin textbackground(lightgreen);
gotoxy(38,i);write('    ');end;tus:=readkey;if tus='w' then goto c2;
if tus='a' then goto c4;if tus='d' then goto c6;if tus='s' then goto c8;
if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);
textbackground(lightgreen);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(37,14);textbackground(lightgray);
textcolor(white);write('O');goto b5;end;until 75=48;end;c6:begin repeat sil;
for i:=13 to  14 do begin textbackground(lightgreen);gotoxy(52,i);write('    ');
end;tus:=readkey;if tus='w' then goto c3;if tus='a' then goto c5;if tus='s' then goto c9;
if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgreen);
textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);
write(' 2. Oyuncu ');gotoxy(51,14);textbackground(lightgray);textcolor(white);
write('O');goto b6;end;until 75=48;end;c7:begin repeat sil;for i:=18 to  19 do
begin textbackground(lightgreen);gotoxy(24,i);write('    ');end;tus:=readkey;
if tus='w' then goto c4;if tus='d' then goto c8;if tus=#27 then halt;
if tus=chr(13) then goto devam;begin gotoxy(4,6);textbackground(lightgreen);
textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);
write(' 2. Oyuncu ');gotoxy(23,19);textbackground(lightgray);textcolor(white);
write('O');goto b7;end;until 75=48;end;c8:begin repeat sil;for i:=18 to  19 do
begin textbackground(lightgreen);gotoxy(38,i);write('    ');end;tus:=readkey;
if tus='w' then goto c5;if tus='a' then goto c7;if tus='d' then goto c9;
if tus=#27 then halt;if tus=chr(13) then goto devam;begin gotoxy(4,6);
textbackground(lightgreen);textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);
textbackground(lightgray);write(' 2. Oyuncu ');gotoxy(37,19);textbackground(lightgray);
textcolor(white);write('O');goto b8;end;until 75=48;end;c9:begin repeat sil;
for i:=18 to  19 do begin textbackground(lightgreen);gotoxy(53,i);write('    ');
end;tus:=readkey;if tus='w' then goto c6;if tus='a' then goto c8;if tus=#27 then halt;
if tus=chr(13) then goto devam;if tus=chr(32) then begin gotoxy(4,6);textbackground(lightgreen);
textcolor(white);write(' 1. Oyuncu ');gotoxy(4,8);textbackground(lightgray);
write(' 2. Oyuncu ');gotoxy(52,19);textbackground(lightgray);textcolor(white);
write('O');goto b9;end;until 75=48;end;cks2:repeat begin textcolor(white);textbackground(lightgray);
gotoxy(16,23);write(' Ana Menu ');gotoxy(35,23);textbackground(lightgray);
write(' Yeni Oyun ');gotoxy(56,23);textbackground(8);write(' Cikis ');tus:=readkey;
if tus=#27 then halt;if tus=chr(75) then goto yenioyun;if tus=chr(13) then halt;
end;until 4=47;orta:repeat begin textcolor(white);textbackground(lightgreen);gotoxy(30,7);
write('  UC TAS OYUNU 1.0  ');gotoxy(33,13);textcolor(white);textbackground(lightgreen);
write(' Oyuna Giris ');textcolor(white);textbackground(8);gotoxy(33,15);
write(' Oyun Hakkinda ');textcolor(white);textbackground(lightgreen);gotoxy(36,17);
write(' Cikis ');tus:=readkey;if tus=#27 then halt;if tus=chr(80) then goto cikis;
if tus=chr(72) then goto bas;if tus=chr(13) then goto oh;end;until 8=21;end.

nazım demir
demirnazim@hotmail.com


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.