Pascal'da Sim City Oyunu

uses crt;
var
i,sec3,r1,haj,r2,sec4,sec5,o,sayac,sec2,j,gun,yas: byte;
sec,x,y1,gl:byte;
hal,sehad,ad,sad,sifre:string;
y,ol,Nvergi,Nmaas,li,nufus,kpara,gelpara,gidpara,k konut,konut,kfab,fab,kmag,mag:longint;
gidnufus,kgelnufus,moral,k,isci,vergi,maas,maxn1,m axn2,maxn3,maxort,gelnufus,kmoral:longint;
kegitim,borcpara,borc,ihtiyac,vergi2,egitim,kpolis ,polis,ksaglik,saglik,ktrafic,trafic:longint;
ay,yil,zor:longint;
procedure sifrele;
begin
gl:=5;
repeat
gotoxy(5,gl);
write('\ ');
gotoxy(7,gl);
readln(sifre);
if sifre='para' then
kpara:=kpara+1000;
if sifre='moral' then
moral:=moral+1;
if sifre='nufus' then
nufus:=nufus+100;
gl:=gl+2;
until sifre='cikis';
end;
procedure felaket;
begin
if haj=13 then
begin
clrscr;
moral:=10;
gotoxy(20,5);
write(' TUSUNAMI GELDI');
konut:=random(kkonut)+1;
kkonut:=kkonut-konut;
saglik:=random(ksaglik)+1;
ksaglik:=ksaglik-saglik;
egitim:=random(kegitim)+1;
kegitim:=kegitim-egitim;
polis:=random(polis)+1;
kpolis:=kpolis-polis;
trafic:=random(trafic)+1;
ktrafic:=ktrafic-trafic;
ol:=random(nufus)+1;
nufus:=nufus-ol;
gotoxy(20,7);
write(konut,' APARTMAN ',saglik,' HASTANE ',egitim,' OKUL');
gotoxy(20,8);
write(polis,' KARAKOL ve ',trafic,' CADDE SULAR ALTINDA KALDI');
gotoxy(20,9);
write(' ',ol,' KISI BOGULDU');
readln;
readln;
end;
if haj=14 then
begin
clrscr;
moral:=10;
gotoxy(20,5);
write(' DEPREM OLDU');
konut:=random(kkonut)+1;
kkonut:=kkonut-konut;
saglik:=random(ksaglik)+1;
ksaglik:=ksaglik-saglik;
egitim:=random(kegitim)+1;
kegitim:=kegitim-egitim;
polis:=random(polis)+1;
kpolis:=kpolis-polis;
trafic:=random(trafic)+1;
ktrafic:=ktrafic-trafic;
ol:=random(nufus)+1;
nufus:=nufus-ol;
gotoxy(20,7);
write(konut,' APARTMAN ',saglik,' HASTANE ',egitim,' OKUL');
gotoxy(20,8);
write(polis,' KARAKOL ve ',trafic,' CADDE YIKILDI');
gotoxy(20,9);
write(' ',ol,' KISI EZILDILEREK ?LD?');
readln;
readln;
end;
if haj=16 then
begin
moral:=10;
clrscr;
gotoxy(20,5);
write(' HORTUM CIKTI');
konut:=random(kkonut)+1;
kkonut:=kkonut-konut;
saglik:=random(ksaglik)+1;
ksaglik:=ksaglik-saglik;
egitim:=random(kegitim)+1;
kegitim:=kegitim-egitim;
polis:=random(polis)+1;
kpolis:=kpolis-polis;
trafic:=random(trafic)+1;
ktrafic:=ktrafic-trafic;
ol:=random(nufus)+1;
nufus:=nufus-ol;
gotoxy(20,7);
write(konut,' APARTMAN ',saglik,' HASTANE ',egitim,' OKUL');
gotoxy(20,8);
write(polis,' KARAKOL ve ',trafic,' CADDE YIKILDI');
gotoxy(20,9);
write(' ',ol,' KISI KAYIP OLDU');
readln;
readln;
end;
end;
procedure menu;
begin
gotoxy(5,3);
write(' (1) APARTMAN YAPIM ');
gotoxy(5,5);
write(' (2) FABRIKA YAPIM ');
gotoxy(5,7);
write(' (3) MAGZA\DUKKAN YAP. ');
gotoxy(5,9);
write(' (4) MAASLARI AYARLA ');
gotoxy(5,11);
write(' (5) VERGILERI AYARLA ');
gotoxy(5,13);
write(' (6) I.M.F"YE GIT ');
gotoxy(5,15);
write(' (7) YIL ATLA ');
gotoxy(5,17);
write(' ( DURUM ');
gotoxy(5,19);
write(' (9) YARDIMCINIZA DANIS ');
gotoxy(5,21);
write(' (10) SOSYAL HIZMETLER KUR ');
gotoxy(5,23);
write(' (11) ELEKTRIK,SU VB. AYARI');
if (moral<=0) or (nufus<0) then
begin
clrscr;
gotoxy(30,10);
write('SEHIR SIZIN BASKANLIGINIZDAN MEMNUN DEGIL');
gotoxy(30,11);
write(' ISINIZE SON VERILDI ');
readln;
readln;
exit
end;
end;
procedure durum;
begin
gotoxy(5,3);
write(' PARANIZ: ');
gotoxy(15,3);
write(kpara);
gotoxy(5,5);
write(' KONUT SAYINIZ: ');
gotoxy(21,5);
write(kkonut);
gotoxy(5,7);
write(' FABRIKA SAYINIZ: ');
gotoxy(23,7);
write(kfab);
gotoxy(5,9);
write(' MAGAZA\DUKKAN SAY: ');
gotoxy(25,9);
write(kmag);
gotoxy(5,11);
write(' GELIRINIZ: ');
gotoxy(17,11);
write(gelpara);
gotoxy(5,13);
write(' GIDERINIZ: ');
gotoxy(17,13);
write(gidpara);
gotoxy(5,15);
write(' AYLIK BORCUNUZ: ');
gotoxy(22,15);
write(borcpara);
gotoxy(5,17);
write(' HASTANELERIN:');
gotoxy(20,17);
write(ksaglik);
gotoxy(5,19);
write(' KARAKOLLARIN:');
gotoxy(20,19);
write(kpolis);
gotoxy(5,21);
write(' TRAFIK:');
gotoxy(14,21);
write(ktrafic);
gotoxy(5,23);
write(' EGITIM:');
gotoxy(14,23);
write(kegitim);
readln;
readln;
end;
procedure ev;
begin
if kpara>=0 then
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º APARTMAN YAPIM(bir konut 10$)º');
gotoxy(5,9);
write('º===============================º');
gotoxy(5,10);
write('º KONUT SAYINIZ: º');
gotoxy(22,10);
write(kkonut);
gotoxy(5,11);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,12);
write(' KAC TANE ALICAKSINIZ:');
gotoxy(28,12);
read(konut);
kpara:=kpara-(konut*10);
kkonut:=kkonut+konut;
end;
end;
procedure fabrika;
begin
if kpara>=0 then
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º FABRIKA YAPIM (bir konut 20$) º');
gotoxy(5,9);
write('º===============================º');
gotoxy(5,10);
write('º FABRIKA SAYINIZ: º');
gotoxy(24,10);
write(kfab);
gotoxy(5,11);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,12);
write(' KAC TANE ALICAKSINIZ:');
gotoxy(28,12);
read(fab);
kpara:=kpara-(fab*20);
kfab:=kfab+fab;
end;
end;
procedure magza;
begin
if kpara>=0 then
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º MAGZA YAPIM (bir konut 15 $) º');
gotoxy(5,9);
write('º===============================º');
gotoxy(5,10);
write('º MAGZA SAYINIZ: º');
gotoxy(22,10);
write(kmag);
gotoxy(5,11);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,12);
write(' KAC TANE ALICAKSINIZ:');
gotoxy(28,12);
read(mag);
kpara:=kpara-(mag*15);
kmag:=kmag+mag;
end;
end;
procedure maaslar;
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º MAAS AYARI º');
gotoxy(5,9);
write('º===============================º');
gotoxy(5,10);
write('º NORMAL MAAS: 40-45 º');
gotoxy(5,11);
write('º EN SON MAAS: º');
gotoxy(20,11);
write(maas);
gotoxy(5,12);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,13);
write(' YENIDEN AYARLAYIN:');
gotoxy(25,13);
read(maas);
end;
procedure kisi;
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º KISISEL AYARLAR º');
gotoxy(5,9);
write('º==================================º');
gotoxy(5,10);
write('ºISIM: º');
gotoxy(5,11);
write('ºSOYAD: º');
gotoxy(5,12);
write('ºSEHRIN ISMI: º');
gotoxy(5,13);
write('ºYASINIZ: º');
gotoxy(5,14);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(20,10);
readln(ad);
gotoxy(20,11);
readln(sad);
gotoxy(20,12);
readln(sehad);
gotoxy(20,13);
readln(yas);
end;
procedure sosyal;
begin
if kpara>=0 then
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º SOSYAL HIZMET KURUMLAR º');
gotoxy(5,9);
write('º===============================º');
gotoxy(5,10);
write('º (1) TRAFIK (yol 20) º');
gotoxy(5,11);
write('º (2) SAGLIK (hastane 50) º');
gotoxy(5,12);
write('º (3) EGITIM (okul 50) º');
gotoxy(5,13);
write('º (4) POLIS (karakol 50) º');
gotoxy(5,14);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,15);
write(' SEC::');
gotoxy(20,15);
read(sec2);
gotoxy(5,16);
write('NE KADAR YAPTIRCAN:');
gotoxy(24,16);
case sec2 of
1:begin
read(trafic);
ktrafic:=ktrafic+trafic;
kpara:=kpara-(trafic*20);
end;
2:begin
read(saglik);
ksaglik:=ksaglik+saglik;
kpara:=kpara-(saglik*50);
end;
3:begin
read(egitim);
kegitim:=kegitim+egitim;
kpara:=kpara-(egitim*50);
end;
4:begin
read(polis);
kpolis:=kpolis+polis;
kpara:=kpara-(polis*50);
end;
end;
end;
end;
procedure vergiler;
begin
if kpara>=0 then
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º VERGI AYARI (su,tel vb haric) º');
gotoxy(5,9);
write('º===============================º');
gotoxy(5,10);
write('º NORMAL VERGI: º');
gotoxy(21,10);
write(Nvergi);
gotoxy(5,11);
write('º KISI BASINA VERGI: º');
gotoxy(26,11);
write(vergi);
gotoxy(5,12);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,13);
write(' YENIDEN AYARLAYIN:');
gotoxy(25,13);
read(vergi);
end;
end;
procedure mesajlar;
begin
CLRSCR;
gotoxy(28,9);
write('ÉMESAJLARÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍ»');
gotoxy(28,10);
write('º º');
gotoxy(28,11);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍͼ');
if maas<=30 then
begin
gotoxy(30,10);
write('MEMURLAR MAASLARINA ZAM ISTIYOR ');
moral:=moral-1;
sayac:=sayac-1;
end;
if maas>=50 then
begin
gotoxy(30,10);
write('MEMURLAR MASSLARI ICIN TESEKK?R EDIYOR ');
moral:=moral+1;
sayac:=sayac+1;
readln;
end;
if vergi>maas/3 then
begin
gotoxy(30,10);
write('HALK FAZLA VERGIYI PROTESTO EDIYOR ');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if vergi<=maas/5 then
begin
gotoxy(30,10);
write('HALK VERGININ DUSUK OLMASINDAN MEMNUN ');
moral:=moral+1;
sayac:=sayac+1;
readln;
end;
if kkonut/2>kmag then
begin
gotoxy(30,10);
write('HALKIN ALISVERIS MERKEZLERINE IHTIYACI VAR');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if vergi2>=16 then
begin
gotoxy(30,10);
write('HALK SU GIBI HARCAMALARDAKI ZAMI COK BULDU');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if kkonut/3>kfab then
begin
gotoxy(30,10);
write('HALKIN FABRIKALARA IHTIYACI VAR ');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if kkonut/5>ktrafic then
begin
gotoxy(30,10);
write('YOLLARA IHTIYACI VAR ');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if kkonut/20>ksaglik then
begin
gotoxy(30,10);
write('HASTENELERE IHTIYAC VAR ');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if kkonut/20>kpolis then
begin
gotoxy(30,10);
write('GUVENLIGE IHTIYACI VAR ');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
if kkonut/15>kegitim then
begin
gotoxy(30,10);
write('OKULLARA IHTIYACI VAR ');
moral:=moral-1;
sayac:=sayac-1;
readln;
end;
end;
procedure su;
begin
repeat
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º ELEKTRIK,SU,DOGALGAZ,TELEFON º');
gotoxy(5,9);
write('º======================================º');
gotoxy(5,10);
write('º NORMAL VERGI ORANI %10 º');
gotoxy(5,11);
write('º EN SON AYARLI VERGI % º');
GOTOXY(28,11);
write(vergi2);
gotoxy(5,12);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,13);
write(' VERGIYI KAC YAPCAN: %');
gotoxy(28,13);
read(vergi2);
until vergi2<101;
end;
procedure imf;
begin
if o=0 then
begin
gotoxy(5,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,8);
write('º I.M.F KREDISI SIZE ACIK º');
gotoxy(5,9);
write('º======================================º');
gotoxy(5,10);
write('º (1) 24 ayda %10 faizi ile her ay º');
gotoxy(5,11);
write('º (2) 12 ayda %5 faizi ile her ay º');
gotoxy(5,12);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(5,13);
write(' HANGI ?DEME SISTEMI:');
gotoxy(27,13);
read(sec3);
if sec3=1 then
begin
gotoxy(5,14);
write('NE KADAR BORC YAPCAN:');
gotoxy(27,14);
read(borc);
kpara:=kpara+borc;
k:=0;
o:=1;
end;
if sec3=2 then
begin
gotoxy(5,14);
write('NE KADAR BORC YAPCAN:');
gotoxy(27,14);
read(borc);
k:=0;
kpara:=kpara+borc;
o:=1
end;
end;
end;
procedure rapor;
begin
gotoxy(5,8);
write('ÉÍÍÍÍÍÍÍÍÍ#DANISMAN#ÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,9);
write('º GEREKLI FABRIKA: º');
gotoxy(25,9);
write(trunc(kkonut/3));
gotoxy(5,10);
write('º º');
gotoxy(5,11);
write('º GEREKLI MAGZALAR: º');
gotoxy(26,11);
write(trunc(kkonut/2));
gotoxy(5,12);
write('º º');
gotoxy(5,13);
write('º GEREKLI TRAFIK: º');
gotoxy(23,13);
write(trunc(kkonut/5));
gotoxy(5,14);
write('º º');
gotoxy(5,15);
write('º GEREKLI EGITIM: º');
gotoxy(23,15);
write(trunc(kkonut/15));
gotoxy(5,16);
write('º º');
gotoxy(5,17);
write('º GEREKLI SAGLIK: º');
gotoxy(22,17);
write(trunc(kkonut/20));
gotoxy(5,18);
write('º º');
gotoxy(5,19);
write('º GEREKLI POLIS: º');
gotoxy(21,19);
write(trunc(kkonut/20));
gotoxy(5,20);
write('º º');
gotoxy(5,21);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
readln;
readln;
end;
procedure hesap;
begin
k:=k+1;
ay:=ay+1;
if ay>=12 then
begin
ay:=1;
yil:=yil+1;
clrscr;
gotoxy(20,10);
write('SEHRINIZ ',yil,'. YILINI KUTLUYOR');
yas:=yas+1;
if nufus<=2000 then
begin
gotoxy(20,11);
write(' DURUMUNUZ:::>K?Y');
hal:='K?Y';
end;
if (nufus>2000) and (nufus<5000) then
begin
gotoxy(20,11);
write(' DURUMUNUZ:::>KASABA');
hal:='KASABA';
end;
if (nufus>=5000) and (nufus<=20000) then
begin
gotoxy(20,11);
write(' DURUMUNUZ:::>SEHIR');
hal:='SEHIR';
end;
if nufus>20000 then
begin
gotoxy(20,11);
write(' DURUMUNUZ:::>METROPOOL');
hal:='METROPOOL';
end;
readln;
readln;
end;
if (o=1) and (sec3=1) and (k<25) then
begin
borcpara:=gidpara+trunc(((borc/100)*10)+borc/24);
if k=24 then
begin
o:=0;
borcpara:=0;
end;
end;
if (o=1) and (sec3=2) and (k<13) then
begin
borcpara:=gidpara+trunc(((borc/100)*5)+borc/12);
if k=12 then
begin
o:=0;
borcpara:=0;
end;
end;
gidpara:=0;
gelpara:=0;
gun:=random(30)+1;
y:=trunc(nufus/100*vergi2*zor);
ihtiyac:=trunc(kkonut/3*y);
gelpara:=gelpara+ihtiyac;
Nvergi:=trunc(maas/3);
isci:=nufus;
gelpara:=gelpara+(nufus*vergi);
gidpara:=isci*maas+borcpara;
kpara:=kpara+(gelpara-gidpara);
maxn1:=kkonut*3;
if o=0 then
borcpara:=0;
if nufus<=maxn1 then
begin
if sayac>=0 then
begin
gelnufus:=random(kkonut)+1;
nufus:=nufus+gelnufus;
end;
if sayac<0 then
begin
li:=trunc(kkonut/3);
gidnufus:=random(li)+1;
nufus:=nufus-gidnufus;
end;
end;
sayac:=0;
end;
procedure ayarlar;
begin
gotoxy(5,9);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(5,10);
write('º º');
gotoxy(5,11);
write('º AYARLAR º');
gotoxy(5,12);
write('º º');
gotoxy(5,13);
write('º=============================º');
gotoxy(5,14);
write('º º');
gotoxy(5,15);
write('º (1) ZORLUK DERECESI º');
gotoxy(5,16);
write('º º');
gotoxy(5,17);
write('º (2) KISISEL BILGILER º');
gotoxy(5,18);
write('º º');
gotoxy(5,19);
write('º (3) EKRAN AYARLARI º');
gotoxy(5,20);
write('º º');
gotoxy(5,21);
write('º (4) STANDARTLAR º');
gotoxy(5,22);
write('º º');
gotoxy(5,23);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(65,22);
write('SEC:: ');
gotoxy(70,22);
read(sec4);
if sec4=1 then
begin
repeat
gotoxy(8,9);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(8,10);
write('º º');
gotoxy(8,11);
write('º ZORLUK DERECESI º');
gotoxy(8,12);
write('º º');
gotoxy(8,13);
write('º=============================º');
gotoxy(8,14);
write('º º');
gotoxy(8,15);
write('º (3) KOLAY º');
gotoxy(8,16);
write('º º');
gotoxy(8,17);
write('º (2) ORTA º');
gotoxy(8,18);
write('º º');
gotoxy(8,19);
write('º (1) ZOR º');
gotoxy(8,20);
write('º º');
gotoxy(8,21);
write('º SU ANKI DERECE: º');
gotoxy(26,21);
write(zor);
gotoxy(8,22);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(65,22);
write('SEC:: ');
gotoxy(70,22);
read(zor);
until (zor=1) or (zor=2) or (zor=3);
case sec of
1:zor:=1;
2:zor:=2;
3:zor:=3;
end;
end;
if sec4=3 then
begin
gotoxy(8,9);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(8,10);
write('º º');
gotoxy(8,11);
write('º RENK AYARLARI º');
gotoxy(8,12);
write('º º');
gotoxy(8,13);
write('º================================º');
gotoxy(8,14);
write('º0)SIYAH | 1)MAVI | 2)YESIL º');
gotoxy(8,15);
write('º3)K.MAVI | 4)KIRMI | 5)MOR º');
gotoxy(8,16);
write('º6)K.RENGI | 7)BEYAZ | 8)K.GRI º');
gotoxy(8,17);
write('º9)A.MAVI | 10)A.YES | 11)BORDOº');
gotoxy(8,18);
write('º12)A.KIRMI | 13)A.MOR | 14)SARI º');
gotoxy(8,19);
write('º | 15)BEYAZ | º');
gotoxy(8,20);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(65,22);
write('YAZI: ');
gotoxy(70,22);
read(r1);
gotoxy(65,22);
write('ARKA: ');
gotoxy(70,22);
read(r2);
end;
if sec4=4 then
begin
gotoxy(8,9);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(8,10);
write('º º');
gotoxy(8,11);
write('º STANDARTLAR º');
gotoxy(8,12);
write('º º');
gotoxy(8,13);
write('º=============================º');
gotoxy(8,14);
write('º * 10 APARTMANA 5 FABRIKA º');
gotoxy(8,15);
write('º * 10 APARTMANA 5 MAGAZA º');
gotoxy(8,16);
write('º * 10 APARTMANA 2 TRAFIK º');
gotoxy(8,17);
write('º * 20 APARTMANA 1 HASTANE º');
gotoxy(8,18);
write('º * 15 APARTMANA 1 OKUL º');
gotoxy(8,19);
write('º * 20 APARTMANA 1 KARAKOL º');
gotoxy(8,20);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
readln;
readln;
end;
if sec4=2 then
begin
gotoxy(8,7);
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(8,8);
write('º KISISEL BILGILER º');
gotoxy(8,9);
write('º===============================º');
gotoxy(8,10);
write('ºISIM: º');
gotoxy(23,10);
write(ad);
gotoxy(8,11);
write('ºSOYAD: º');
gotoxy(23,11);
write(sad);
gotoxy(8,12);
write('ºSEHRIN ISMI: º');
gotoxy(23,12);
write(sehad);
gotoxy(8,13);
write('ºYASINIZ: º');
gotoxy(23,13);
write(yas);
gotoxy(8,14);
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
readln;
readln;
end;
end;
procedure foto;
begin
for i:=1 to kkonut do
begin
x:=random(57)+3;
y1:=random(20)+3;
textcolor(green);
gotoxy(x,y1);
write('*');
end;
for i:=1 to kfab do
begin
x:=random(57)+3;
y1:=random(20)+3;
textcolor(yellow);
gotoxy(x,y1);
write('#');
end;
for i:=1 to kmag do
begin
x:=random(57)+3;
y1:=random(20)+3;
textcolor(brown);
gotoxy(x,y1);
write('$');
end;
for i:=1 to (ksaglik+kpolis+kegitim+ktrafic) do
begin
x:=random(57)+3;
y1:=random(20)+3;
textcolor(red);
gotoxy(x,y1);
write('&');
end;
textcolor(green);
gotoxy(46,20);
write('* =APARTMAN');
textcolor(yellow);
gotoxy(46,21);
write('# =FABRIKA');
textcolor(brown);
gotoxy(46,22);
write('$ =MAGZA');
textcolor(red);
gotoxy(46,23);
write('& =SOSYAL KUR.');
textcolor(r1);
gotoxy(65,22);
write(hal);
readln;
readln;
end;
procedure pencere;
begin
clrscr;
textcolor(r1);
textbackground(r2);
for i:=1 to 25 do
insline;
for i:=3 to 23 do
begin
gotoxy(78,i);
write('º');
end;
for i:=2 to 78 do
begin
gotoxy(i,24);
write('Í');
end;
for i:=2 to 78 do
begin
gotoxy(i,2);
write('Í');
end;
for i:=3 to 23 do
begin
gotoxy(2,i);
write('º');
end;
for i:=2 to 24 do
begin
gotoxy(60,i);
write('º');
end;
for i:=60 to 78 do
begin
gotoxy(i,20);
write('Í');
end;
for i:=60 to 78 do
begin
gotoxy(i,8);
write('Í');
end;
for i:=60 to 78 do
begin
gotoxy(i,11);
write('Í');
end;
gotoxy(78,11);
write('¹');
gotoxy(60,11);
write('Ì');
textcolor(white);
gotoxy(65,7);
write('MOREL:',moral);
gotoxy(65,10);
write('NUFUS:',nufus);
textcolor(r1);
for i:=60 to 78 do
begin
gotoxy(i,5);
write('Í');
end;
gotoxy(78,8);
write('¹');
gotoxy(60,8);
write('Ì');
textcolor(white);
gotoxy(65,4);
write(yil,'\',ay,'\',gun);
gotoxy(63,13);
write('AYARLAR=====21');
gotoxy(63,15);
write('ANA MEN?=====0');
gotoxy(63,17);
write('CIKIS=======99');
gotoxy(63,19);
write('FOTORAF=====22');
textcolor(r1);
gotoxy(78,5);
write('¹');
gotoxy(78,20);
write('¹');
gotoxy(2,2);
write('É');
gotoxy(78,24);
write('¼');
gotoxy(60,5);
write('Ì');
gotoxy(60,20);
write('Ì');
gotoxy(60,2);
write('Ë');
gotoxy(60,24);
write('Ê');
end;
begin
randomize;
clrscr;
readln;
clrscr;
kisi;
moral:=40;
kpara:=1000;
yil:=2004;
ay:=11;
gun:=7;
r1:=14;
r2:=1;
zor:=1;
repeat
clrscr;
pencere;
menu;
gotoxy(65,22);
write('SEC::');
gotoxy(70,22);
read(sec);
case sec of
7:begin
haj:=random(100)+1;
clrscr;
for i:=1 to 30 do
delay(9000);
gelpara:=0;
gidpara:=0;
hesap;
felaket;
mesajlar;
readln;
end;
1:begin clrscr; pencere; ev; end;
6:begin clrscr; pencere; imf; end;
2:begin clrscr; pencere; fabrika; end;
3:begin clrscr; pencere; magza; end;
5:begin clrscr; pencere; vergiler; end;
4:begin clrscr; pencere; maaslar; end;
8:begin clrscr; pencere; durum; end;
9:begin clrscr; pencere; rapor; end;
10:begin clrscr; pencere; sosyal; end;
99:begin clrscr; pencere; exit; end;
11:begin clrscr; pencere; su; end;
21:begin clrscr; pencere; ayarlar; end;
22:begin clrscr; pencere; foto; end;
23:begin clrscr; sifrele; end;
end;
until 1=2;
end.
<!-- / message --><!-- sig -->

Bune şimdi bişi annamadım :S

haha