Pascal Da Hazırlanmış Bir Oyun
[php]İDDAA Oynamak isteyenler buraya
uses crt;
var
ch:char;
Tek:text;
ad1,ad2,pp,takim1,takim2:string;
kpara,opara,gpara,gpara2,kpara2,opara2,borc,banka1 ,banka2,alacak1,alacak2:longint;
t,bs,ab,as,no,ber,bb,aa,a,b,x,y,oyun,sonuc,i,sec,a kat,bkat,g,oyun2,aa2,bb2:byte;
banksa1,banksa2:byte;
procedure takim_b;
begin
TExtcolor(blue);
textbackground(yellow);
case b of
1:begin write(' Galatasaray (1-',bkat,')'); takim2:='GALATASARAY'; end;
2:begin write( 'Fenerbahce (1-',bkat,')'); takim2:='FENERBAH€E'; end;
3:begin write(' BeŸiktaŸ (1-',bkat,')'); takim2:='BEž˜KTAž'; end;
4:begin write(' Trabzon (1-',bkat,')'); takim2:='TRABZON'; end;
5:begin write(' Gen‡lerbirligi (1-',bkat,')'); takim2:='GEN€LERB˜RL˜¦˜'; end;
6:begin write(' Gaziantep (1-',bkat,')'); takim2:='GAZ˜ANTEP'; end;
7:begin write(' Ankara(1-',bkat,')'); takim2:='ANKARA'; end;
8:begin write(' Ankarag?c? (1-',bkat,')'); takim2:='ANKARAGšCš'; end;
9:begin write(' Diyarbak?r (1-',bkat,')'); takim2:='D˜YARBAKIR'; end;
10:begin write('Malatya (1-',bkat,')'); takim2:='MALATYA'; end;
11:begin write(' €.Rize (1-',bkat,')'); takim2:='€.R˜ZE'; end;
12:begin write(' Sivas (1-',bkat,')'); takim2:='S˜VAS'; end;
13:begin write(' Kayseri (1-',bkat,')'); takim2:='KAYSER˜'; end;
14:begin write(' K.Erciyes (1-',bkat,')'); takim2:='K.ERC˜YES'; end;
15:begin write(' V.Manisa(1-',bkat,')'); takim2:='V.MAN˜SA'; end;
16:begin write(' Denizli (1-',bkat,')'); takim2:='DEN˜ZL˜'; end;
17:begin write(' Konya (1-',bkat,')'); takim2:='KONYA'; end;
18:begin write(' Samsun (1-',bkat,')'); takim2:='SAMSUN'; end;
19:begin write(' ˜stanbul (1-',bkat,')'); takim2:='˜STANBUL'; end;
20:begin write(' Antalya(1-',bkat,')'); takim2:='ANTALYA'; end;
21:begin write(' Bursa (1-',bkat,')'); takim2:='BURSA'; end;
22:begin write(' T.Telekom (1-',bkat,')'); takim2:='T.TELEKOM'; end;
23:begin write(' Mardin (1-',bkat,')'); takim2:='MARD˜N'; END;
24:begin write(' Sakarya (1-',bkat,')'); takim2:='SAKARYA'; end;
25:begin write(' Altay (1-',bkat,')'); takim2:='ALTAY'; end;
26:begin write(' Gaziantep B.B.(1-',bkat,')'); takim2:='GAZ˜ANTEP B.B.'; end;
27:begin write(' Siirt (1-',bkat,')'); takim2:='S˜˜RT'; end;
end;
end;
procedure takim_a;
begin
TExtcolor(blue);
textbackground(yellow);
case a of
1:begin write('Galatasaray (1-',akat,') vs'); takim1:='GALATASARAY'; end;
2:begin write('fenerbah‡e (1-',akat,') vs'); takim1:='FENERBAH€E'; end;
3:begin write('BeŸiktaŸ (1-',akat,') vs'); takim1:='BEž˜KTAž'; end;
4:begin write('Trabzon (1-',akat,') vs'); takim1:='TRABZON'; end;
5:begin write('Gen‡lerbirli§i (1-',akat,') vs'); takim1:='GEN€LERB˜RL˜¦˜'; end;
6:begin write('Gaziantep (1-',akat,') vs'); takim1:='GAZ˜ANTEP'; end;
7:begin write('Ankara(1-',akat,') vs'); takim1:='ANKARA'; end;
8:begin write('Ankarag?c?(1-',akat,') vs'); takim1:='ANKARAGšCš'; end;
9:begin write('Diyarbak?r (1-',akat,') vs'); takim1:='D˜YARBAKIR'; end;
10:begin write('Malatya (1-',akat,') vs'); takim1:='MALATYA'; end;
11:begin write('€.Rize (1-',akat,') vs'); takim1:='€.R˜ZE'; end;
12:begin write('Sivas (1-',akat,') vs'); takim1:='S˜VAS'; end;
13:begin write('Kayseri (1-',akat,') vs'); takim1:='KAYSER˜'; end;
14:begin write('K.Erciyes (1-',akat,') vs'); takim1:='K.ERC˜YES'; end;
15:begin write('V.Manisa (1-',akat,') vs'); takim1:='V.MAN˜SA'; end;
16:begin write('Denizli (1-',akat,') vs'); takim1:='DEN˜ZL˜'; end;
17:begin write('Konya (1-',akat,') vs'); takim1:='KONYA'; end;
18:begin write('Samsun (1-',akat,') vs'); takim1:='SAMSUN'; end;
19:begin write('˜stanbul (1-',akat,') vs'); takim1:='˜STANBUL'; end;
20:begin write('Antalya (1-',akat,') vs'); takim1:='ANTALYA'; end;
21:begin write('Bursa (1-',akat,') vs'); takim1:='BURSA'; end;
22:begin write('T.Telekom (1-',akat,') vs'); takim1:='T.TELEKOM'; end;
23:begin write('Mardin (1-',akat,') vs'); takim1:='MARD˜N'; END;
24:begin write('Sakarya (1-',akat,') vs'); takim1:='SAKARYA'; end;
25:begin write('Altay (1-',akat,') vs'); takim1:='ALTAY'; end;
26:begin write('Gaziantep B.B. (1-',akat,') vs'); takim1:='GAZ˜ANTEP B.B.'; end;
27:begin write('Siirt (1-',akat,') vs'); takim1:='S˜˜RT'; end;
end;
end;
begin
randomize;
clrscr;
TExtcolor(blue);
textbackground(yellow);
writeln('1-YENI OYUN AC');
writeln('2-KAYITLI OYUN AC');
writeln('3-CIKIS');
writeln;
TExtcolor(blue);write('SECIM SIZIN:');readln(sec);
textbackground(yellow);
case sec of
1:kpara:=1000;
2:begin
assign(Tek,'SINGLE.dat');
reset(Tek);
readln(Tek,kpara);
write(kpara);
kpara:=kpara;
end;
3:exit;
end;
clrscr;
aa2:=0;
bb2:=0;
repeat
gotoxy(1,1);
akat:=random(4)+2;
bkat:=random(4)+2;
as:=akat*20;
bs:=bkat*20;
ber:=round((akat+bkat)/2);
a:=random(26)+1;
b:=random(26)+1;
writeln('PARANIZ=',kpara);
if a=b then
b:=27;
takim_a;
takim_b;
aa:=0;
bb:=0;
writeln;
writeln;
TExtcolor(blue);
textbackground(yellow);
TExtcolor(128);writeln('EV SAHIBI ICIN (1)');
TExtcolor(128);writeln('BERABERLIK ICIN (2)');
TExtcolor(128);writeln('DEPLASMAN ICIN (3)');
writeln;
write('=======(1\2\3)====');
readln(oyun);
write('NE KADAR YATIRACAKSINIZ=');readln(opara);
if oparakpara then
opara:=kpara;
writeln('!!!MA€I BASLAT!!!');
readln;
kpara:=kpara-opara;
for i:=1 to 90 do
begin
clrscr;
TExtcolor(128);gotoxy(33,12);
writeln('------------');
gotoxy(33,13);
TExtcolor(128);writeln(aa,'----',i,'----',bb);
gotoxy(33,14);
writeln('------------');
if (aa2=1) then
begin
TExtcolor(128);gotoxy(33,15);
writeln('GOOOOLLLLL');
aa2:=0;
bb2:=0;
gotoxy(33,16);
writeln(takim1);
delay(9000);delay(9000);delay(9000);delay(9000);de lay(9000);delay(9000);
end;
if (bb2=1) then
begin
TExtcolor(128);
gotoxy(33,15);
writeln('GOOOOLLLLL');
aa2:=0;
bb2:=0;
gotoxy(33,16);
writeln(takim2);
delay(9000);delay(9000);delay(9000);delay(9000);de lay(9000);delay(9000);
end;
delay(9000);delay(9000);delay(9000);
x:=random(as)+1;
y:=random(bs)+1;
if i=45 then
begin
TExtcolor(128);
gotoxy(30,15);
writeln('2.YARIYI BASLAT!!!');
readln;
end;
if x=13 then
begin
aa:=aa+1;
aa2:=1;
end;
if y=13 then
begin
bb:=bb+1;
bb2:=1;
end;
end;
gotoxy(1,1);
if aa=bb then
begin
sonuc:=2;
TExtcolor(128);writeln('MAC BERABERE BITTI');
if oyun=sonuc then
begin
TExtcolor(128);writeln(' KAZANDINIZ ');
gpara:=opara*ber;
writeln('GELEN PARA=',gpara);
kpara:=kpara+gpara;
end
else
begin
TExtcolor(128);writeln('|(((KAYIP ETTINIZ)))|');
writeln('KAYIP EDILEN PARA=',opara);
end;
end;
if aabb then
begin
sonuc:=1;
writeln(takim1,' YENDI');
if oyun=sonuc then
begin
writeln(' KAZANDINIZ ');
gpara:=opara*akat;
writeln('GELEN PARA=',gpara);
kpara:=kpara+gpara;
end
else
begin
writeln('|(((KAYIP ETTINIZ)))|');
writeln('KAYIP EDILEN PARA=',opara);
end;
end;
if aabb then
begin
sonuc:=3;
writeln(takim2,' YENDI');
if oyun=sonuc then
begin
writeln(' KAZANDINIZ ');
gpara:=opara*bkat;
writeln('GELEN PARA=',gpara);
kpara:=kpara+gpara;
end
else
begin
writeln('|(((KAYIP ETTINIZ)))|');
writeln('KAYIP EDILEN PARA=',opara);
end;
end;
write('Devam etmek istiyormusunuz(e\h):');readln(ch);
clrscr;
if kpara=0 then
begin
writeln('šZGšNšZ PARANIZ BITTI');
readln;
exit;
end;
until ch='h';
clrscr;
write('OYUNU KAYIT ETMEK ISTIYORMUSUNUZ (e/h):');read(ch);
if ch='e' then
begin
assign(Tek,'SINGLE.dat');
rewrite(Tek);
write(Tek,kpara);
close(Tek);
write('KAYIT EDILDI');
readln;
end;
end.
[/php]
Yazının Devamı İçin Tıklayın
Konuyu Yollayan: Nàix
Okunma Sayısı: 218
Yorum Sayısı: 2
Eklenme Tarihi: 28/12/2008
Kategorisi:Pascal - Delphi
[php]İDDAA Oynamak isteyenler buraya
uses crt;
var
ch:char;
Tek:text;
ad1,ad2,pp,takim1,takim2:string;
kpara,opara,gpara,gpara2,kpara2,opara2,borc,banka1 ,banka2,alacak1,alacak2:longint;
t,bs,ab,as,no,ber,bb,aa,a,b,x,y,oyun,sonuc,i,sec,a kat,bkat,g,oyun2,aa2,bb2:byte;
banksa1,banksa2:byte;
procedure takim_b;
begin
TExtcolor(blue);
textbackground(yellow);
case b of
1:begin write(' Galatasaray (1-',bkat,')'); takim2:='GALATASARAY'; end;
2:begin write( 'Fenerbahce (1-',bkat,')'); takim2:='FENERBAH€E'; end;
3:begin write(' BeŸiktaŸ (1-',bkat,')'); takim2:='BEž˜KTAž'; end;
4:begin write(' Trabzon (1-',bkat,')'); takim2:='TRABZON'; end;
5:begin write(' Gen‡lerbirligi (1-',bkat,')'); takim2:='GEN€LERB˜RL˜¦˜'; end;
6:begin write(' Gaziantep (1-',bkat,')'); takim2:='GAZ˜ANTEP'; end;
7:begin write(' Ankara(1-',bkat,')'); takim2:='ANKARA'; end;
8:begin write(' Ankarag?c? (1-',bkat,')'); takim2:='ANKARAGšCš'; end;
9:begin write(' Diyarbak?r (1-',bkat,')'); takim2:='D˜YARBAKIR'; end;
10:begin write('Malatya (1-',bkat,')'); takim2:='MALATYA'; end;
11:begin write(' €.Rize (1-',bkat,')'); takim2:='€.R˜ZE'; end;
12:begin write(' Sivas (1-',bkat,')'); takim2:='S˜VAS'; end;
13:begin write(' Kayseri (1-',bkat,')'); takim2:='KAYSER˜'; end;
14:begin write(' K.Erciyes (1-',bkat,')'); takim2:='K.ERC˜YES'; end;
15:begin write(' V.Manisa(1-',bkat,')'); takim2:='V.MAN˜SA'; end;
16:begin write(' Denizli (1-',bkat,')'); takim2:='DEN˜ZL˜'; end;
17:begin write(' Konya (1-',bkat,')'); takim2:='KONYA'; end;
18:begin write(' Samsun (1-',bkat,')'); takim2:='SAMSUN'; end;
19:begin write(' ˜stanbul (1-',bkat,')'); takim2:='˜STANBUL'; end;
20:begin write(' Antalya(1-',bkat,')'); takim2:='ANTALYA'; end;
21:begin write(' Bursa (1-',bkat,')'); takim2:='BURSA'; end;
22:begin write(' T.Telekom (1-',bkat,')'); takim2:='T.TELEKOM'; end;
23:begin write(' Mardin (1-',bkat,')'); takim2:='MARD˜N'; END;
24:begin write(' Sakarya (1-',bkat,')'); takim2:='SAKARYA'; end;
25:begin write(' Altay (1-',bkat,')'); takim2:='ALTAY'; end;
26:begin write(' Gaziantep B.B.(1-',bkat,')'); takim2:='GAZ˜ANTEP B.B.'; end;
27:begin write(' Siirt (1-',bkat,')'); takim2:='S˜˜RT'; end;
end;
end;
procedure takim_a;
begin
TExtcolor(blue);
textbackground(yellow);
case a of
1:begin write('Galatasaray (1-',akat,') vs'); takim1:='GALATASARAY'; end;
2:begin write('fenerbah‡e (1-',akat,') vs'); takim1:='FENERBAH€E'; end;
3:begin write('BeŸiktaŸ (1-',akat,') vs'); takim1:='BEž˜KTAž'; end;
4:begin write('Trabzon (1-',akat,') vs'); takim1:='TRABZON'; end;
5:begin write('Gen‡lerbirli§i (1-',akat,') vs'); takim1:='GEN€LERB˜RL˜¦˜'; end;
6:begin write('Gaziantep (1-',akat,') vs'); takim1:='GAZ˜ANTEP'; end;
7:begin write('Ankara(1-',akat,') vs'); takim1:='ANKARA'; end;
8:begin write('Ankarag?c?(1-',akat,') vs'); takim1:='ANKARAGšCš'; end;
9:begin write('Diyarbak?r (1-',akat,') vs'); takim1:='D˜YARBAKIR'; end;
10:begin write('Malatya (1-',akat,') vs'); takim1:='MALATYA'; end;
11:begin write('€.Rize (1-',akat,') vs'); takim1:='€.R˜ZE'; end;
12:begin write('Sivas (1-',akat,') vs'); takim1:='S˜VAS'; end;
13:begin write('Kayseri (1-',akat,') vs'); takim1:='KAYSER˜'; end;
14:begin write('K.Erciyes (1-',akat,') vs'); takim1:='K.ERC˜YES'; end;
15:begin write('V.Manisa (1-',akat,') vs'); takim1:='V.MAN˜SA'; end;
16:begin write('Denizli (1-',akat,') vs'); takim1:='DEN˜ZL˜'; end;
17:begin write('Konya (1-',akat,') vs'); takim1:='KONYA'; end;
18:begin write('Samsun (1-',akat,') vs'); takim1:='SAMSUN'; end;
19:begin write('˜stanbul (1-',akat,') vs'); takim1:='˜STANBUL'; end;
20:begin write('Antalya (1-',akat,') vs'); takim1:='ANTALYA'; end;
21:begin write('Bursa (1-',akat,') vs'); takim1:='BURSA'; end;
22:begin write('T.Telekom (1-',akat,') vs'); takim1:='T.TELEKOM'; end;
23:begin write('Mardin (1-',akat,') vs'); takim1:='MARD˜N'; END;
24:begin write('Sakarya (1-',akat,') vs'); takim1:='SAKARYA'; end;
25:begin write('Altay (1-',akat,') vs'); takim1:='ALTAY'; end;
26:begin write('Gaziantep B.B. (1-',akat,') vs'); takim1:='GAZ˜ANTEP B.B.'; end;
27:begin write('Siirt (1-',akat,') vs'); takim1:='S˜˜RT'; end;
end;
end;
begin
randomize;
clrscr;
TExtcolor(blue);
textbackground(yellow);
writeln('1-YENI OYUN AC');
writeln('2-KAYITLI OYUN AC');
writeln('3-CIKIS');
writeln;
TExtcolor(blue);write('SECIM SIZIN:');readln(sec);
textbackground(yellow);
case sec of
1:kpara:=1000;
2:begin
assign(Tek,'SINGLE.dat');
reset(Tek);
readln(Tek,kpara);
write(kpara);
kpara:=kpara;
end;
3:exit;
end;
clrscr;
aa2:=0;
bb2:=0;
repeat
gotoxy(1,1);
akat:=random(4)+2;
bkat:=random(4)+2;
as:=akat*20;
bs:=bkat*20;
ber:=round((akat+bkat)/2);
a:=random(26)+1;
b:=random(26)+1;
writeln('PARANIZ=',kpara);
if a=b then
b:=27;
takim_a;
takim_b;
aa:=0;
bb:=0;
writeln;
writeln;
TExtcolor(blue);
textbackground(yellow);
TExtcolor(128);writeln('EV SAHIBI ICIN (1)');
TExtcolor(128);writeln('BERABERLIK ICIN (2)');
TExtcolor(128);writeln('DEPLASMAN ICIN (3)');
writeln;
write('=======(1\2\3)====');
readln(oyun);
write('NE KADAR YATIRACAKSINIZ=');readln(opara);
if oparakpara then
opara:=kpara;
writeln('!!!MA€I BASLAT!!!');
readln;
kpara:=kpara-opara;
for i:=1 to 90 do
begin
clrscr;
TExtcolor(128);gotoxy(33,12);
writeln('------------');
gotoxy(33,13);
TExtcolor(128);writeln(aa,'----',i,'----',bb);
gotoxy(33,14);
writeln('------------');
if (aa2=1) then
begin
TExtcolor(128);gotoxy(33,15);
writeln('GOOOOLLLLL');
aa2:=0;
bb2:=0;
gotoxy(33,16);
writeln(takim1);
delay(9000);delay(9000);delay(9000);delay(9000);de lay(9000);delay(9000);
end;
if (bb2=1) then
begin
TExtcolor(128);
gotoxy(33,15);
writeln('GOOOOLLLLL');
aa2:=0;
bb2:=0;
gotoxy(33,16);
writeln(takim2);
delay(9000);delay(9000);delay(9000);delay(9000);de lay(9000);delay(9000);
end;
delay(9000);delay(9000);delay(9000);
x:=random(as)+1;
y:=random(bs)+1;
if i=45 then
begin
TExtcolor(128);
gotoxy(30,15);
writeln('2.YARIYI BASLAT!!!');
readln;
end;
if x=13 then
begin
aa:=aa+1;
aa2:=1;
end;
if y=13 then
begin
bb:=bb+1;
bb2:=1;
end;
end;
gotoxy(1,1);
if aa=bb then
begin
sonuc:=2;
TExtcolor(128);writeln('MAC BERABERE BITTI');
if oyun=sonuc then
begin
TExtcolor(128);writeln(' KAZANDINIZ ');
gpara:=opara*ber;
writeln('GELEN PARA=',gpara);
kpara:=kpara+gpara;
end
else
begin
TExtcolor(128);writeln('|(((KAYIP ETTINIZ)))|');
writeln('KAYIP EDILEN PARA=',opara);
end;
end;
if aabb then
begin
sonuc:=1;
writeln(takim1,' YENDI');
if oyun=sonuc then
begin
writeln(' KAZANDINIZ ');
gpara:=opara*akat;
writeln('GELEN PARA=',gpara);
kpara:=kpara+gpara;
end
else
begin
writeln('|(((KAYIP ETTINIZ)))|');
writeln('KAYIP EDILEN PARA=',opara);
end;
end;
if aabb then
begin
sonuc:=3;
writeln(takim2,' YENDI');
if oyun=sonuc then
begin
writeln(' KAZANDINIZ ');
gpara:=opara*bkat;
writeln('GELEN PARA=',gpara);
kpara:=kpara+gpara;
end
else
begin
writeln('|(((KAYIP ETTINIZ)))|');
writeln('KAYIP EDILEN PARA=',opara);
end;
end;
write('Devam etmek istiyormusunuz(e\h):');readln(ch);
clrscr;
if kpara=0 then
begin
writeln('šZGšNšZ PARANIZ BITTI');
readln;
exit;
end;
until ch='h';
clrscr;
write('OYUNU KAYIT ETMEK ISTIYORMUSUNUZ (e/h):');read(ch);
if ch='e' then
begin
assign(Tek,'SINGLE.dat');
rewrite(Tek);
write(Tek,kpara);
close(Tek);
write('KAYIT EDILDI');
readln;
end;
end.
[/php]
Yazının Devamı İçin Tıklayın
Konuyu Yollayan: Nàix
Okunma Sayısı: 218
Yorum Sayısı: 2
Eklenme Tarihi: 28/12/2008
Kategorisi:
