pascalda sans oyunu

A

atlas_tr

Kıdemli Üye

8 Ocak 2008

2,380

14

NErDe OLsam BEğeNİRsin

Kredi

0

• 18 Mar 2009

• #1

uses crt;
var
s1,s2:byte;
tk:byte;{tak�m adlar� de§iŸkenini girdik}
tus:char;{men� yapmak i‡in de§iŸken belirledik}
label
en_bas,en_son;
begin en_bas:
randomize;
s1:=random(6);
s2:=random(6);
textbackground(3);
clrscr;
gotoxy(25,3); highvideo; textcolor(yellow); writeln('A-FENERBAH€E');
gotoxy(25,4); highvideo; textcolor(red);writeln('B-GALATASARAY');
gotoxy(25,5); highvideo; textcolor(white);writeln('C-BE�˜KTA�');
gotoxy(25,6); highvideo; textcolor(blue);writeln('D-TRABZONSPOR');
gotoxy(60,6); highvideo; textcolor(red); writeln('€IKI� (ESC) ');
gotoxy(15,10); write('Se‡iminiz: ');
tus:=readkey;
if tus in ['A','a'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(yellow);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(blue);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(yellow); writeln('>>>>>FeNeRbAh€e<<<<<');
gotoxy(1,4); highvideo; textbackground(blue);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(yellow);
writeln(' ');
writeln('1-GS');
writeln('2-BJK');
writeln('3-TS');
write('Rakibinizi Se‡iniz: ');
readln(tk);
CASE tk OF
1 : writeln('FB: ',s1,' - GS: ',s2);
2 : writeln('FB: ',s1,' - BJK: ',s2);
3 : writeln('FB: ',s1,' - TS: ',s2)
else writeln(' LšTFEN RAK˜B˜N˜Z˜ SE€˜N˜Z!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MENš ˜€˜N "G" TU�UNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('€IKI� (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['B','b'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(yellow);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(red);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(yellow); writeln('>>>>>GaLaTaSaRaY<<<<<');
gotoxy(1,4); highvideo; textbackground(red);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(yellow);
writeln(' ');
writeln('1-FB');
writeln('2-BJK');
writeln('3-TS');
write('Rakibinizi Se‡iniz: ');
readln(tk);
CASE tk OF
1 : writeln('GS: ',s1,' - FB: ',s2);
2 : writeln('GS: ',s1,' - BJK: ',s2);
3 : writeln('GS: ',s1,' - TS: ',s2)
else writeln(' LšTFEN RAK˜B˜N˜Z˜ SE€˜N˜Z!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MENš ˜€˜N "G" TU�UNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('€IKI� (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['C','c'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(black);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(white);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(black); writeln('>>>>>Be�iKtAŸ<<<<<');
gotoxy(1,4); highvideo; textbackground(white);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(black);
writeln(' ');
writeln('1-FB');
writeln('2-GS');
writeln('3-TS');
write('Rakibinizi Se‡iniz: ');
readln(tk);
CASE tk OF
1 : writeln('BJK: ',s1,' - FB: ',s2);
2 : writeln('BJK: ',s1,' - GS: ',s2);
3 : writeln('BJK: ',s1,' - TS: ',s2)
else writeln(' LšTFEN RAK˜B˜N˜Z˜ SE€˜N˜Z!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MENš ˜€˜N "G" TU�UNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('€IKI� (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['D','d'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(red);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(blue);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(red); writeln('>>>>>TrAbZoNsPoR<<<<<');
gotoxy(1,4); highvideo; textbackground(blue);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(red);
writeln(' ');
writeln('1-FB');
writeln('2-GS');
writeln('3-BJK');
write('Rakibinizi Se‡iniz: ');
readln(tk);
CASE tk OF
1 : writeln('TS: ',s1,' - FB: ',s2);
2 : writeln('TS: ',s1,' - GS: ',s2);
3 : writeln('TS: ',s1,' - BJK: ',s2)
else writeln(' LšTFEN RAK˜B˜N˜Z˜ SE€˜N˜Z!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MENš ˜€˜N "G" TU�UNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('€IKI� (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in [#27] then goto en_son else clrscr; gotoxy(10,8); writeln('LšTFEN SE€˜M˜N˜Z˜ YAPINIZ!!!');
gotoxy(10,9); writeln('ANASAYFAYA D™NMEK ˜€˜N "ENTER" TU�UNA BASINIZ!! '); readln; goto en_bas;
readln;
en_son:
end.



alıntıdır...

 

T

The_Qsm4nlı

Katılımcı Üye

20 Mar 2009

563

0

Kredi

0

• 20 Mar 2009

• #2

emege saygı saoll

 

N

NiggasDream19

Katılımcı Üye

9 Ocak 2008

719

3

FenerBahçe'den

Kredi

0

• 22 Mar 2009

• #3

Güzel Bilgi Saolasın.

 

V

VaN_hL3sİnG

Üye

17 Nis 2009

60

0

Kredi

0

• 17 Nis 2009

• #4

Saol herŞy İcİn krdeŞİm:::::....:::....

 

M

mehmet852

Yeni üye

16 Haz 2008

12

0

Kredi

0

• 30 Ağu 2009

• #5

paylaşım sağol