PARASINA TOMBALA oyun bildiğimiz tombala dört kişiyle oynanıyor.E parasına :>
E..HADİİİ..uses crt;
var
a,b,c,d:array[1..15] of byte;
gelen:array[1..99] of byte;
ch:char;
i,j,zaman:byte;
gpara,opara,kpara:longint;
y,atas,btas,ctas,dtas,name,ses,renk1,renk2,tas:integer;
bayrak,ad1,ad2,ad3,ad,onay:string[20];
procedure giris;
begin
name:=0;
atas:=15;
btas:=15;
ctas:=15;
dtas:=15;
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
b:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if b=b[j] then
b:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if b<>b[j] then
bayrak:='acik';
until bayrak='acik';
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
c:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if c=c[j] then
c:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if c<>c[j] then
bayrak:='acik';
until bayrak='acik';
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
d:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if d=d[j] then
d:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if d<>d[j] then
bayrak:='acik';
until bayrak='acik';
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
a:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if a=a[j] then
a:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if a<>a[j] then
bayrak:='acik';
until bayrak='acik';
end;
procedure ayarlar;
begin
clrscr;
writeln('*AYARLAR*');
writeln('=========');
writeln('1-ISIMLER');
writeln('2-RENK');
writeln('3-SES');
ch:=upcase(ch);
ch:=readkey;
case ch of
'1':begin
write('Birinci oyuncunun ismi :');readln(ad1);
write('Ikinci oyuncunun ismi :');readln(ad2);
write('Ucuncu oyuncunun ismi :');readln(ad3);
write('A:
::I::N :');readln(ad);
end;
'3':begin
repeat
writeln('SES ACIK (A)');
writeln('SES KAPALI (K)');
ch:=readkey;
ch:=upcase(ch);
if ch='A' then
begin
zaman:=25;
ses:=6543;
end;
if ch='K' then
begin
zaman:=0;
ses:=0;
end;
until (ch='A') or (ch='K');
end;
'2':begin
write('ARKA PLAN RENGI ICIN (1..15):');readln(renk1);
write('YAZININ RENGI ICIN (1..15):');readln(renk2);
textbackground(renk1);
textcolor(renk2);
end;
end;
end;
procedure masa1;
begin
for i:=3 to 7 do
begin
gotoxy(30,i);
write('º');
gotoxy(50,i);
write('º');
end;
for i:=4 to 6 do
for j:=31 to 49 do
begin
gotoxy(j,i);
write('Û');
end;
for i:=30 to 50 do
begin
gotoxy(i,3);
write('Í');
gotoxy(i,7);
write('Í');
gotoxy(30,7);
write('È');
gotoxy(50,3);
write('»');
gotoxy(50,7);
write('¼');
gotoxy(30,3);
write('É');
end;
end;
procedure masa2;
begin
for i:=20 to 24 do
begin
gotoxy(30,i);
write('º');
gotoxy(50,i);
write('º');
end;
for i:=30 to 50 do
begin
gotoxy(i,20);
write('Í');
gotoxy(i,24);
write('Í');
gotoxy(30,24);
write('È');
gotoxy(50,20);
write('»');
gotoxy(50,24);
write('¼');
gotoxy(30,20);
write('É');
end;
gotoxy(31,21);write(a[1],' ');write(a[2],' ');write(a[3],' ');
write(a[4],' ');write(a[5],' ');gotoxy(31,22);write(a[6],' ');
write(a[7],' ');write(a[8],' ');write(a[9],' ');
gotoxy(31,23);write(a[10],' ');write(a[11],' ');write(a[12],' ');
write(a[13],' ');write(a[14],' ');write(a[15],' ');
end;
procedure masa3;
begin
gotoxy(6,7);
write('É');
gotoxy(11,7);
write('»');
gotoxy(6,22);
write('È');
gotoxy(11,22);
write('¼');
for i:=7 to 10 do
for j:=8 to 21 do
begin
gotoxy(i,j);
write('Û');
end;
for i:=8 to 21 do
begin
gotoxy(6,i);
write('º');
gotoxy(11,i);
write('º');
end;
for i:=7 to 10 do
begin
gotoxy(i,7);
write('Í');
gotoxy(i,22);
write('Í');
end;
end;
procedure masa4;
begin
gotoxy(70,7);
write('É');
gotoxy(74,7);
write('»');
gotoxy(70,22);
write('È');
gotoxy(74,22);
write('¼');
for i:=71 to 73 do
for j:=8 to 21 do
begin
gotoxy(i,j);
write('Û');
end;
for i:=8 to 21 do
begin
gotoxy(70,i);
write('º');
gotoxy(74,i);
write('º');
end;
for i:=71 to 73 do
begin
gotoxy(i,7);
write('Í');
gotoxy(i,22);
write('Í');
end;
end;
procedure adlar;
begin
clrscr;
gotoxy(35,2);
write(ad1,'(',btas,')');
gotoxy(5,4);
write(ad2,'(',ctas,')');
gotoxy(60,4);
write(ad3,'(',dtas,')');
gotoxy(35,19);
write(ad,'(',atas,')');
end;
procedure karsilastir;
begin
for i:=1 to 15 do
begin
if a=tas then
atas:=atas-1;
if b=tas then
btas:=btas-1;
if c=tas then
ctas:=ctas-1;
if d=tas then
dtas:=dtas-1;
end;
end;
procedure hesap;
begin
if atas=0 then
begin
repeat
gotoxy(1,25);
writeln('SEN KAZANDIN ("gec" yazarak cik)');
readln(onay);
until onay='gec';
kpara:=kpara+gpara;
end;
if btas=0 then
begin
repeat
gotoxy(1,25);
writeln(ad1,' KAZANDI ("gec" yazarak cik)');
readln(onay);
until onay='gec';
end;
if ctas=0 then
begin
repeat
gotoxy(1,25);
writeln(ad2,' KAZANDI ("gec" yazarak cik)');
readln(onay);
until onay='gec';
end;
if dtas=0 then
begin
repeat
gotoxy(1,25);
writeln(ad3,' KAZANDI ("gec" yazarak cik)');
readln(onay);
until onay='gec';
end;
end;
procedure don;
begin
name:=name+1;
repeat
bayrak:='ORHUN';
tas:=random(99)+1;
gelen[name]:=tas;
for i:=1 to 98 do
for j:=i+1 to 99 do
if gelen=gelen[j] then
tas:=random(99)+1;
for i:=1 to 98 do
for j:=i+1 to 99 do
if gelen=gelen[j] then
bayrak:='cik';
until bayrak='cik';
end;
procedure yatir;
begin
bayrak:='ORHUN';
repeat
opara:=0;
gpara:=0;
gotoxy(1,25);
write('BAHISI BELIRLE: ');
gotoxy(17,25);
read(opara);
if kpara>=opara then
bayrak:='cik';
if kpara<opara then
bayrak:='ORHUN';
until bayrak='cik';
kpara:=kpara-opara;
end;
begin
kpara:=1000;
randomize;
clrscr;
gotoxy(35,10);
write('OrHuN_SOFT');
gotoxy(25,11);
write('BANA ULASABILECEGINIZ ADRES');
gotoxy(27,12);
write('[email protected]');
zaman:=25;
ses:=6543;
ad:='ORHUN_OZCELIK';
ad1:='APDULLAH_KILIC';
ad3:='FURKAN_TOMBUL';
ad2:='MURAT_TATAR';
repeat
gotoxy(1,24);
write('PARANIZ:',kpara);
yatir;
gpara:=opara*4;
giris;
y:=12;
repeat
adlar;
masa1;
masa3;
masa4;
masa2;
gotoxy(30,12);
write('(A) AYARLAR');
gotoxy(30,13);
write('(š) YENI OYUN');
gotoxy(30,14);
write('(C) CIKIS');
gotoxy(27,16);
write('DIGER TUSLARLA TAS CEKIN');
gotoxy(30,9);
write('ORTADA DONEN PARA:',gpara);
gotoxy(30,10);
write('TORBADAN CIKAN TAS:',tas);
ch:=readkey;
ch:=upcase(ch);
if ch='A' then
ayarlar;
if ch='C' then
exit;
sound(ses);
delay(zaman);
nosound;
don;
karsilastir;
hesap;
until (ch='š') or (atas=0) or (btas=0) or (ctas=0) or (dtas=0) or(ch='C');
readln;
until (kpara<=0) or(ch='C');
gotoxy(1,25);
writeln('PARANIZ BITTI');
readln;
end.
E..HADİİİ..uses crt;
var
a,b,c,d:array[1..15] of byte;
gelen:array[1..99] of byte;
ch:char;
i,j,zaman:byte;
gpara,opara,kpara:longint;
y,atas,btas,ctas,dtas,name,ses,renk1,renk2,tas:integer;
bayrak,ad1,ad2,ad3,ad,onay:string[20];
procedure giris;
begin
name:=0;
atas:=15;
btas:=15;
ctas:=15;
dtas:=15;
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
b:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if b=b[j] then
b:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if b<>b[j] then
bayrak:='acik';
until bayrak='acik';
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
c:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if c=c[j] then
c:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if c<>c[j] then
bayrak:='acik';
until bayrak='acik';
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
d:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if d=d[j] then
d:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if d<>d[j] then
bayrak:='acik';
until bayrak='acik';
bayrak:='ORHUN';
repeat
for i:=1 to 15 do
a:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if a=a[j] then
a:=random(99)+1;
for i:=1 to 14 do
for j:=i+1 to 15 do
if a<>a[j] then
bayrak:='acik';
until bayrak='acik';
end;
procedure ayarlar;
begin
clrscr;
writeln('*AYARLAR*');
writeln('=========');
writeln('1-ISIMLER');
writeln('2-RENK');
writeln('3-SES');
ch:=upcase(ch);
ch:=readkey;
case ch of
'1':begin
write('Birinci oyuncunun ismi :');readln(ad1);
write('Ikinci oyuncunun ismi :');readln(ad2);
write('Ucuncu oyuncunun ismi :');readln(ad3);
write('A:
::I::N :');readln(ad);end;
'3':begin
repeat
writeln('SES ACIK (A)');
writeln('SES KAPALI (K)');
ch:=readkey;
ch:=upcase(ch);
if ch='A' then
begin
zaman:=25;
ses:=6543;
end;
if ch='K' then
begin
zaman:=0;
ses:=0;
end;
until (ch='A') or (ch='K');
end;
'2':begin
write('ARKA PLAN RENGI ICIN (1..15):');readln(renk1);
write('YAZININ RENGI ICIN (1..15):');readln(renk2);
textbackground(renk1);
textcolor(renk2);
end;
end;
end;
procedure masa1;
begin
for i:=3 to 7 do
begin
gotoxy(30,i);
write('º');
gotoxy(50,i);
write('º');
end;
for i:=4 to 6 do
for j:=31 to 49 do
begin
gotoxy(j,i);
write('Û');
end;
for i:=30 to 50 do
begin
gotoxy(i,3);
write('Í');
gotoxy(i,7);
write('Í');
gotoxy(30,7);
write('È');
gotoxy(50,3);
write('»');
gotoxy(50,7);
write('¼');
gotoxy(30,3);
write('É');
end;
end;
procedure masa2;
begin
for i:=20 to 24 do
begin
gotoxy(30,i);
write('º');
gotoxy(50,i);
write('º');
end;
for i:=30 to 50 do
begin
gotoxy(i,20);
write('Í');
gotoxy(i,24);
write('Í');
gotoxy(30,24);
write('È');
gotoxy(50,20);
write('»');
gotoxy(50,24);
write('¼');
gotoxy(30,20);
write('É');
end;
gotoxy(31,21);write(a[1],' ');write(a[2],' ');write(a[3],' ');
write(a[4],' ');write(a[5],' ');gotoxy(31,22);write(a[6],' ');
write(a[7],' ');write(a[8],' ');write(a[9],' ');
gotoxy(31,23);write(a[10],' ');write(a[11],' ');write(a[12],' ');
write(a[13],' ');write(a[14],' ');write(a[15],' ');
end;
procedure masa3;
begin
gotoxy(6,7);
write('É');
gotoxy(11,7);
write('»');
gotoxy(6,22);
write('È');
gotoxy(11,22);
write('¼');
for i:=7 to 10 do
for j:=8 to 21 do
begin
gotoxy(i,j);
write('Û');
end;
for i:=8 to 21 do
begin
gotoxy(6,i);
write('º');
gotoxy(11,i);
write('º');
end;
for i:=7 to 10 do
begin
gotoxy(i,7);
write('Í');
gotoxy(i,22);
write('Í');
end;
end;
procedure masa4;
begin
gotoxy(70,7);
write('É');
gotoxy(74,7);
write('»');
gotoxy(70,22);
write('È');
gotoxy(74,22);
write('¼');
for i:=71 to 73 do
for j:=8 to 21 do
begin
gotoxy(i,j);
write('Û');
end;
for i:=8 to 21 do
begin
gotoxy(70,i);
write('º');
gotoxy(74,i);
write('º');
end;
for i:=71 to 73 do
begin
gotoxy(i,7);
write('Í');
gotoxy(i,22);
write('Í');
end;
end;
procedure adlar;
begin
clrscr;
gotoxy(35,2);
write(ad1,'(',btas,')');
gotoxy(5,4);
write(ad2,'(',ctas,')');
gotoxy(60,4);
write(ad3,'(',dtas,')');
gotoxy(35,19);
write(ad,'(',atas,')');
end;
procedure karsilastir;
begin
for i:=1 to 15 do
begin
if a=tas then
atas:=atas-1;
if b=tas then
btas:=btas-1;
if c=tas then
ctas:=ctas-1;
if d=tas then
dtas:=dtas-1;
end;
end;
procedure hesap;
begin
if atas=0 then
begin
repeat
gotoxy(1,25);
writeln('SEN KAZANDIN ("gec" yazarak cik)');
readln(onay);
until onay='gec';
kpara:=kpara+gpara;
end;
if btas=0 then
begin
repeat
gotoxy(1,25);
writeln(ad1,' KAZANDI ("gec" yazarak cik)');
readln(onay);
until onay='gec';
end;
if ctas=0 then
begin
repeat
gotoxy(1,25);
writeln(ad2,' KAZANDI ("gec" yazarak cik)');
readln(onay);
until onay='gec';
end;
if dtas=0 then
begin
repeat
gotoxy(1,25);
writeln(ad3,' KAZANDI ("gec" yazarak cik)');
readln(onay);
until onay='gec';
end;
end;
procedure don;
begin
name:=name+1;
repeat
bayrak:='ORHUN';
tas:=random(99)+1;
gelen[name]:=tas;
for i:=1 to 98 do
for j:=i+1 to 99 do
if gelen=gelen[j] then
tas:=random(99)+1;
for i:=1 to 98 do
for j:=i+1 to 99 do
if gelen=gelen[j] then
bayrak:='cik';
until bayrak='cik';
end;
procedure yatir;
begin
bayrak:='ORHUN';
repeat
opara:=0;
gpara:=0;
gotoxy(1,25);
write('BAHISI BELIRLE: ');
gotoxy(17,25);
read(opara);
if kpara>=opara then
bayrak:='cik';
if kpara<opara then
bayrak:='ORHUN';
until bayrak='cik';
kpara:=kpara-opara;
end;
begin
kpara:=1000;
randomize;
clrscr;
gotoxy(35,10);
write('OrHuN_SOFT');
gotoxy(25,11);
write('BANA ULASABILECEGINIZ ADRES');
gotoxy(27,12);
write('[email protected]');
zaman:=25;
ses:=6543;
ad:='ORHUN_OZCELIK';
ad1:='APDULLAH_KILIC';
ad3:='FURKAN_TOMBUL';
ad2:='MURAT_TATAR';
repeat
gotoxy(1,24);
write('PARANIZ:',kpara);
yatir;
gpara:=opara*4;
giris;
y:=12;
repeat
adlar;
masa1;
masa3;
masa4;
masa2;
gotoxy(30,12);
write('(A) AYARLAR');
gotoxy(30,13);
write('(š) YENI OYUN');
gotoxy(30,14);
write('(C) CIKIS');
gotoxy(27,16);
write('DIGER TUSLARLA TAS CEKIN');
gotoxy(30,9);
write('ORTADA DONEN PARA:',gpara);
gotoxy(30,10);
write('TORBADAN CIKAN TAS:',tas);
ch:=readkey;
ch:=upcase(ch);
if ch='A' then
ayarlar;
if ch='C' then
exit;
sound(ses);
delay(zaman);
nosound;
don;
karsilastir;
hesap;
until (ch='š') or (atas=0) or (btas=0) or (ctas=0) or (dtas=0) or(ch='C');
readln;
until (kpara<=0) or(ch='C');
gotoxy(1,25);
writeln('PARANIZ BITTI');
readln;
end.
emegine saglık...
