{$m 65520,0,655360}{$A+}{$G}{$K+}{$N+,E+}{$P-}
{$X+}{$B-}{$S}{$W-}
program Cizim;
uses crt,dos,graph,mouse;
var
donme,dna,nasil,mecbur,oylesine,toklu,tekkara,dongu,genis,artim,hatano,al,yuk,gd,gm,
tekkar,rongu,enis,rtim,pg1,pg2,pg5,pg6,hnl1,hnl2,pkmf,artimx,genisy,emirdon:integer;
aygaz,zagari,zugari,zagar,zugar,ayir,pa,za,zu,yirimki:word;
zerva,cc:char;
nrd1,nrd2,nrd3,nrd4:integer;
hsyn,hsxn,rtgen,mgen,zam,zum:string;
yisa,st,boyut,gifrenk,emx1,emy1,emx2,emy2,rak:array[1..100] of integer;
tyisa,tst,tboyut,tgifrenk,temx1,temy1,temx2,temy2,trak:array[1..100] of integer;
cpa1,cpa2,cpa3,cpa4,cpa5,cpa6,cpa7,cpa8:array[1..40] of integer;
cpayazi:array[1..20] of string;
sdx1,sdx2,sdy1,sdy2,komisan:array[1..40] of integer;
tyazial:array[1..100] of string[25];
yazial:array[1..100] of string[25];
KALAY:FILE OF INTEGER;
liz1,liz2,mafik,mafip,nxo1,nxo2,nxo3,nxo4,kokar,ram,HORIZANTAL,VERTIKAL,NOKTAOKU,KONUM:INTEGER;
temot,kerper,resres,f:pointer;
mdongusu,xrtm,sine,teksoy,romko,cxm,kapasa,salosa,biyik,alfzon,foncizmi,renkoldu,fontoldu:integer;
atam,riksec,msorgula:byte;
arccoords:arccoordstype;
temuz:boolean;
pg3,pg4:real;
pnx1,pny1,pnx2,pny2,im1,im2,im3,im4:integer;
procedure dacm;forward;
procedure dik(birinci,ikinci,ucuncu,dorduncu:integer);
begin
setlinestyle(0,0,0);setcolor(8);
rectangle(birinci,ikinci,ucuncu,dorduncu);setcolor(15);
line(birinci+1,ikinci+1,birinci+1,dorduncu-1);
line(birinci+1,ikinci+1,ucuncu-1,ikinci+1);setcolor(1);
line(birinci+1,dorduncu-1,ucuncu-1,dorduncu-1);
line(ucuncu-1,dorduncu-1,ucuncu-1,ikinci+1);
end;
procedure menugerial;
begin
hidemouse;putimage(nxo1-1,nxo2-1,kerper^,copyput);freemem(kerper,yirimki);
showmouse;msorgula:=0;
end;
procedure micins(phc1,phc2,phc3,phc4:integer);
begin
setcolor(15);line(phc1,phc2,phc1,phc4);line(phc1,phc2,phc3,phc2);
setcolor(1);line(phc1,phc4,phc3,phc4);line(phc3,phc4,phc3,phc2);
setcolor(1);line(phc1+3,phc2+3,phc1+3,phc4-3);line(phc1+3,phc2+3,phc3-3,phc2+3);
setcolor(15);line(phc1+3,phc4-3,phc3-3,phc4-3);line(phc3-3,phc4-3,phc3-3,phc2+3);
end;
procedure dikmen(pi1,pi2,pi3,pi4:integer);
begin {kabarik kare}
setcolor(8);rectangle(pi1,pi2,pi3,pi4);
setcolor(15);line(pi1+1,pi4-1,pi3-1,pi4-1);line(pi3-1,pi4-1,pi3-1,pi2+1);
setcolor(8);line(pi1+4,pi4-4,pi3-4,pi4-4);line(pi3-4,pi4-4,pi3-4,pi2+4);
setcolor(15);line(pi1+4,pi2+4,pi1+4,pi4-4);line(pi1+4,pi2+4,pi3-4,pi2+4);
end;
procedure altmenuyap(ft1,ft2,ft3,ft4:integer;hllt:string);
begin
if msorgula=1 then menugerial;
hidemouse;pnx1:=ft1;pny1:=ft2;pnx2:=ft3;pny2:=ft4;
{pnyaz:=hllt;}
aygaz:=imagesize(ft1-1,ft2-1,ft3+1,ft4+1);getmem(temot,aygaz);
getimage(ft1-1,ft2-1,ft3+1,ft4+1,temot^);
dik(ft1,ft2,ft3,ft4);setfillstyle(1,7);bar(ft1+2,ft2+2,ft3-2,ft4-2);
setfillstyle(1,9);dik(ft1+4,ft2+4,ft3-4,ft2+18);
nrd1:=ft1+4;nrd2:=ft2+4;nrd3:=ft3-4;nrd4:=ft2+18;
bar(ft1+6,ft2+6,ft3-6,ft2+16);
settextstyle(2,0,4);setcolor(15);outtextxy(ft1+10,ft2+5,hllt);
micins(ft1+4,ft4-14,ft3-4,ft4-4);micins(ft1+4,ft2+22,ft3-4,ft4-18);
setcolor(15);line(ft3-20,ft4-22,ft3-8,ft4-34);
line(ft3-17,ft4-22,ft3-7,ft4-32);line(ft3-14,ft4-22,ft3-7,ft4-29);
line(ft3-11,ft4-22,ft3-7,ft4-26);setfillstyle(random(11),14);
bar(ft1+8,ft4-10,ft3-8,ft4-8);
showmouse;{alt menu cizim bolumu}
end;

procedure gerialx;
begin
hidemouse;setfillstyle(1,tyisa[tekkar]);
settextstyle(tst[tekkar],0,tboyut[tekkar]);
bar(temx1[tekkar],temy1[tekkar],temx2[tekkar]-4,temy2[tekkar]-4);
dik(temx1[tekkar]-1,temy1[tekkar]-1,temx2[tekkar]-3,temy2[tekkar]-3);
setcolor(tgifrenk[tekkar]);
outtextxy(temx1[tekkar]+4,temy1[tekkar],tyazial[tekkar]);showmouse;
setmouseposition(za,zu);{altmenu geri hareket proseduru}
end;
procedure sevgisecx;
begin
oylesine:=0;
repeat
pa:=mouseposition(za,zu);
if (za>temx1[tekkar]-2) and (za<temx2[tekkar]-2) and (zu<temy2[tekkar]-2) and (zu>temy1[tekkar]-2) then oylesine:=1
else
begin
gerialx;
exit;
end;
until pa=0;
gerialx;
case trak[tekkar] of
1:;2:;3:;
else write(#7);{alt menu secim yeri}
end;
end;
procedure hareketx;
begin
hidemouse;setfillstyle(1,tyisa[tekkar]);
settextstyle(tst[tekkar],0,tboyut[tekkar]);
bar(temx1[tekkar],temy1[tekkar],temx2[tekkar]-4,temy2[tekkar]-4);
setcolor(tgifrenk[tekkar]);
outtextxy(temx1[tekkar]+5,temy1[tekkar]+1,tyazial[tekkar]);showmouse;
setmouseposition(za,zu);sevgisecx;{altmenu secim hareketi}
end;
procedure secimx(kozar,koz1,koz2,koz3,xvaz1,yvaz1,komutzo:integer;yyazi:string);
begin
setlinestyle(0,0,0);setfillstyle(1,kozar);settextstyle(koz1,0,koz2);
rtim:=textwidth(yyazi);rtim:=rtim+6;
enis:=textheight(yyazi);enis:=enis+4;setcolor(8);
rectangle(xvaz1-1,yvaz1-1,xvaz1+rtim+1,yvaz1+enis+1);
bar(xvaz1,yvaz1,xvaz1+rtim,yvaz1+enis);
setcolor(15);line(xvaz1,yvaz1,xvaz1+rtim,yvaz1);
line(xvaz1,yvaz1,xvaz1,yvaz1+enis);setcolor(1);
line(xvaz1,yvaz1+enis,xvaz1+rtim,yvaz1+enis);
line(xvaz1+rtim,yvaz1,xvaz1+rtim,yvaz1+enis);
setcolor(koz3);outtextxy(xvaz1+4,yvaz1,yyazi);
temx1[rongu]:=xvaz1;temy1[rongu]:=yvaz1;temx2[rongu]:=xvaz1+rtim+4;temy2[rongu]:=yvaz1+enis+4;
trak[rongu]:=komutzo;tyazial[rongu]:=yyazi;
tst[rongu]:=koz1;tboyut[rongu]:=koz2;tgifrenk[rongu]:=koz3;
tyisa[rongu]:=kozar;
rongu:=rongu+1;{windows menusu proseduru}
end;
procedure altmdongu;
begin
repeat
pa:=mouseposition(za,zu);
for tekkar:=0 to rongu do begin
if (pa=1) and (za>temx1[tekkar]-2) and (za<temx2[tekkar]-2) and (zu<temy2[tekkar]-2) and (zu>temy1[tekkar]-2) then
hareketx;
end;
until keypressed;hidemouse;
putimage(pnx1,pny1,temot^,copyput);freemem(temot,aygaz);
showmouse;
end;
procedure dacm;
begin
altmenuyap(150,150,420,380,"" Dosya Acma Kutusu "");
dik(362,187,405,227);dik(165,185,300,320);dik(168,310,297,317);
setfillstyle(1,15);dikmen(168,188,280,308);dik(304,230,408,346);
secimx(7,2,4,1,365,190,1,""TAMAM"");
secimx(3,2,4,1,365,210,2,""IPTAL"");
{secimx(7,2,4,1,200,276,3,""S�r�c�ler"");}
{secimx(7,2,4,1,172,290,4,""TTTTTTTT.TTT"");}
altmdongu;
end;
procedure psonu;
begin
closegraph;highvideo;writeln(""GIEST YAZILIM.."");writeln;lowvideo;
halt;
end;
procedure eksenyaz;
begin
if (liz1=za) and (liz2=zu) then exit;
setfillstyle(1,7);bar(395,79,477,91);
setwritemode(copyput);setcolor(8);settextstyle(2,0,4);
outtextxy(399,79,""X: Y: "");
str(za,hsyn);str(zu,hsxn);
outtextxy(415,79,hsyn);outtextxy(457,79,hsxn);
setwritemode(xorput);setcolor(15);liz1:=za;liz2:=zu;
end;
procedure yapitas;
begin
if atam=1 then hidemouse;
setwritemode(xorput);setlinestyle(1,0,1);setcolor(15);
repeat
pa:=mouseposition(za,zu);
line(za,100,za,426);delay(4);line(za,100,za,426);
line(101,zu,485,zu);delay(4);line(101,zu,485,zu);
eksenyaz;
if (za>101) and (za<485) and (zu>100) and (zu<426) then else
begin
showmouse;setwritemode(copyput);exit;
end;
until pa=1;
setwritemode(copyput);if atam=1 then showmouse;
end;
procedure yeniczm;
begin
hidemouse;
setfillstyle(1,0);putimage(nxo1-1,nxo2-1,kerper^,copyput);freemem(kerper,yirimki);
bar(102,101,484,425);
yirimki:=imagesize(nxo1-1,nxo2-1,nxo3+1,nxo4+1);getmem(kerper,yirimki);
getimage(nxo1-1,nxo2-1,nxo3+1,nxo4+1,kerper^);showmouse;
end;
procedure menudiki(hpx1,hpy1,hpx2,hpy2,hlpn:integer;hpymy:string);
begin
hidemouse;
yirimki:=imagesize(hpx1-1,hpy1-1,hpx2+1,hpy2+1);getmem(kerper,yirimki);
getimage(hpx1-1,hpy1-1,hpx2+1,hpy2+1,kerper^);
setlinestyle(0,0,0);setcolor(8);setfillstyle(1,hlpn);
rectangle(hpx1,hpy1,hpx2,hpy2);setcolor(15);
line(hpx1+1,hpy1+1,hpx1+1,hpy2-1);
line(hpx1+1,hpy1+1,hpx2-1,hpy1+1);setcolor(1);
line(hpx1+1,hpy2-1,hpx2-1,hpy2-1);
line(hpx2-1,hpy2-1,hpx2-1,hpy1+1);bar(hpx1+2,hpy1+2,hpx2-2,hpy2-2);
setfillstyle(1,3);bar(hpx1+2,hpy1+2,hpx1+16,hpy2-2);line(hpx1+16,hpy1+2,hpx1+16,hpy2-2);
settextstyle(7,1,1);setusercharsize(1,2,1,2);outtextxy(hpx1-2,hpy1+20,hpymy);
showmouse;
nxo1:=hpx1;nxo2:=hpy1;nxo3:=hpx2;nxo4:=hpy2;msorgula:=1;
end;
procedure cmodu(flpt:byte);
begin
if flpt=0 then begin
setcolor(15);outtextxy(530,45,""û"");setcolor(8);outtextxy(530,65,""û"");
end;
if flpt=1 then begin
setcolor(8);outtextxy(530,45,""û"");setcolor(15);outtextxy(530,65,""û"");
end;end;
procedure gerging;
begin
hidemouse;
dik(sdx1[teksoy],sdy1[teksoy],sdx2[teksoy],sdy2[teksoy]);
putimage(sdx1[teksoy]+2,sdy1[teksoy]+2,resres^,copyput);
freemem(resres,ayir);showmouse;setmouseposition(za,zu);
end;
procedure ikonsec;
begin
sine:=0;
repeat
pa:=mouseposition(za,zu);
if (za>sdx1[teksoy]) and (za<sdx2[teksoy]) and (zu<sdy2[teksoy]) and (zu>sdy1[teksoy]) then sine:=1
else begin
gerging;exit;end;
until pa=0;
putimage(18,340,resres^,copyput);gerging;
case komisan[teksoy] of
1:riksec:=1;2:riksec:=2;3:riksec:=3;4:riksec:=4;5:riksec:=5;6:riksec:=6;
7:riksec:=7;8:riksec:=8;9:riksec:=9;10:riksec:=10;11:riksec:=11;12:riksec:=12;
13:riksec:=13;14:riksec:=14;15:;16:;17:;18:;19:;20:;
21:;22:;23:;24:;25:;26:riksec:=26;27:;28:;29:;30:;31:;32:;
else write(#7);
end;
end;
procedure bere;
begin
hidemouse;setcolor(8);setfillstyle(1,7);
ayir:=Imagesize(sdx1[teksoy]+2,sdy1[teksoy]+2,sdx2[teksoy]-2,sdy2[teksoy]-2);
getmem(resres,ayir);
getimage(sdx1[teksoy]+2,sdy1[teksoy]+2,sdx2[teksoy]-2,sdy2[teksoy]-2,resres^);
bar(sdx1[teksoy],sdy1[teksoy],sdx2[teksoy],sdy2[teksoy]);
rectangle(sdx1[teksoy],sdy1[teksoy],sdx2[teksoy],sdy2[teksoy]);
putimage(sdx1[teksoy]+3,sdy1[teksoy]+3,resres^,copyput);
setcolor(gifrenk[tekkara]);
showmouse;
setmouseposition(za,zu);
ikonsec;
end;
procedure resdik(birfal,ikifal,ucfal,dortfal,komfal:integer);
begin
setlinestyle(0,0,0);setcolor(8);
rectangle(birfal,ikifal,ucfal,dortfal);setcolor(15);
line(birfal+1,ikifal+1,birfal+1,dortfal-1);
line(birfal+1,ikifal+1,ucfal-1,ikifal+1);setcolor(1);
line(birfal+1,dortfal-1,ucfal-1,dortfal-1);
line(ucfal-1,dortfal-1,ucfal-1,ikifal+1);
sdx1[donme]:=birfal;sdy1[donme]:=ikifal;sdx2[donme]:=ucfal;
sdy2[donme]:=dortfal;komisan[donme]:=komfal;
donme:=donme+1;
end;
procedure ksecrenk(alf:integer);
begin
if foncizmi=1 then renkoldu:=alf;
if foncizmi=0 then fontoldu:=alf;
setfillstyle(1,alf);setcolor(8);
if foncizmi=1 then
begin
bar(396,38,415,47);rectangle(396,38,415,47);
end;
if foncizmi=0 then
begin
bar(251,38,270,47);rectangle(251,38,270,47);
end;
end;
procedure setbklor;
begin
setbkcolor(0);
xrtm:=0;
end;
procedure cici;
begin
setbkcolor(fontoldu);
xrtm:=1;
end;
procedure sipreyyap;
begin
setbkcolor(fontoldu);setcolor(renkoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setmousexy(102,102,484,425);
repeat
pa:=mouseposition(za,zu);
putpixel(za-4,zu,renkoldu);putpixel(za,zu-3,renkoldu);
putpixel(za+4,zu,renkoldu);putpixel(za-3,zu+2,renkoldu);
putpixel(za,zu-1,renkoldu);putpixel(za+3,zu+2,renkoldu);
eksenyaz;
until pa=0;
showmouse;
setmousexy(1,1,640,480);
setbkcolor(0);
end;
procedure cizdairciz;
begin
setbkcolor(fontoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setcolor(renkoldu);setmousexy(102,102,484,425);zagar:=za;
zugar:=zu-1;setwritemode(xorput);
repeat
pa:=mouseposition(za,zu);zagari:=za;zugari:=zu;
putimage(za,zu+1,f^,xorput);
putimage(za,zu+1,f^,xorput);
rectangle(zagar,zugar,za,zu);delay(5);rectangle(zagar,zugar,za,zu);
eksenyaz;
until pa=0;
setwritemode(copyput);
if za > zagar then else
begin mafik:=za;za:=zagar;zagar:=mafik;end;
if zu > zugar then else
begin mafip:=zu;zu:=zugar;zugar:=mafip;end;
if za > zagar then pg1:=za-zagar else pg1:=zagar-za;
if zu > zugar then pg2:=zu-zugar else pg2:=zugar-zu;
pg3:=pg1/2;pg4:=pg2/2;pg5:=round(pg3);pg1:=pg5;pg6:=round(pg4);
pg2:=pg6;pg5:=pg5+zagar;pg6:=pg6+zugar;
setcolor(renkoldu);fillellipse(pg5,pg6,pg1,pg2);
showmouse;setmousexy(1,1,640,480);setbkcolor(0);
end;
procedure cizdaiciz;
begin
setbkcolor(fontoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setcolor(renkoldu);setmousexy(102,102,484,425);zagar:=za;
zugar:=zu-1;setwritemode(xorput);
repeat
pa:=mouseposition(za,zu);zagari:=za;zugari:=zu;
putimage(za,zu+1,f^,xorput);
putimage(za,zu+1,f^,xorput);
rectangle(zagar,zugar,za,zu);delay(5);rectangle(zagar,zugar,za,zu);
eksenyaz;
until pa=0;
setwritemode(copyput);
if za > zagar then else
begin mafik:=za;za:=zagar;zagar:=mafik;end;
if zu > zugar then else
begin mafip:=zu;zu:=zugar;zugar:=mafip;end;
if za > zagar then pg1:=za-zagar else pg1:=zagar-za;
if zu > zugar then pg2:=zu-zugar else pg2:=zugar-zu;
pg3:=pg1/2;pg4:=pg2/2;pg5:=round(pg3);pg1:=pg5;pg6:=round(pg4);
pg2:=pg6;pg5:=pg5+zagar;pg6:=pg6+zugar;
setcolor(renkoldu);ellipse(pg5,pg6,0,360,pg1,pg2);
showmouse;setmousexy(1,1,640,480);setbkcolor(0);
end;
procedure cizkariciz;
begin
setbkcolor(fontoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setcolor(renkoldu);setmousexy(102,102,484,425);zagar:=za;
zugar:=zu-1;setwritemode(xorput);
repeat
pa:=mouseposition(za,zu);zagari:=za;zugari:=zu;
putimage(za,zu+1,f^,xorput);
putimage(za,zu+1,f^,xorput);
rectangle(zagar,zugar,za,zu);delay(5);rectangle(zagar,zugar,za,zu);
eksenyaz;
until pa=0;
setwritemode(copyput);setfillstyle(1,renkoldu);
setcolor(renkoldu);bar(zagar,zugar,za,zu);
showmouse;
setmousexy(1,1,640,480);
setbkcolor(0);
end;
procedure cizkarciz;
begin
setbkcolor(fontoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setcolor(renkoldu);setmousexy(102,102,484,425);zagar:=za;
zugar:=zu-1;setwritemode(xorput);
repeat
pa:=mouseposition(za,zu);zagari:=za;zugari:=zu;
putimage(za,zu+1,f^,xorput);
putimage(za,zu+1,f^,xorput);
rectangle(zagar,zugar,za,zu);delay(5);rectangle(zagar,zugar,za,zu);
eksenyaz;
until pa=0;
setwritemode(copyput);setcolor(renkoldu);
rectangle(zagar,zugar,za,zu);
showmouse;
setmousexy(1,1,640,480);
setbkcolor(0);
end;
procedure cizline;
begin
setbkcolor(fontoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setcolor(renkoldu);setmousexy(102,102,484,425);zagar:=za;
zugar:=zu-1;setwritemode(xorput);
repeat
pa:=mouseposition(za,zu);zagari:=za;zugari:=zu;
putimage(za,zu+1,f^,xorput);
putimage(za,zu+1,f^,xorput);
line(zagar,zugar,za,zu);delay(3);line(zagar,zugar,za,zu);eksenyaz;
until pa=0;
setcolor(renkoldu);setwritemode(copyput);line(zagar,zugar,za,zu);
showmouse;setmousexy(1,1,640,480);setbkcolor(0);
end;
procedure cizan;
begin
setbkcolor(fontoldu);
hidemouse;setlinestyle(0,0,1);
moveto(za,zu-1);setcolor(renkoldu);setmousexy(102,102,484,426);
repeat
pa:=mouseposition(za,zu);
putimage(za,zu+1,f^,xorput);
putimage(za,zu+1,f^,xorput);
if (zu<=427) and (zu>=102) and (za>=100) and (za<=485) and (pa=1) then pa:=1 else pa:=0;
lineto(za,zu-1);
until pa=0;
showmouse;
setmousexy(1,1,640,480);
setbkcolor(0);
end;
PROCEDURE ELOR;
BEGIN
ASSIGN(KALAY,""FARE.DAT"");
RESET(KALAY);KONUM:=1;
FOR HORIZANTAL:=271 TO 281 DO
BEGIN
FOR VERTIKAL:=198 TO 213 DO
BEGIN
SEEK(KALAY,KONUM-1);
READ(KALAY,NOKTAOKU);KONUM:=KONUM+1;if noktaoku=15 then noktaoku:=9;
PUTPIXEL(HORIZANTAL,VERTIKAL,NOKTAOKU);
END;
END;
close(kalay);
ram:=Imagesize(271,199,280,213);
getmem(f,ram);
getImage(271,199,280,213,f^);
end;
procedure cimrisec;
begin
case riksec of
1:;2:cizkariciz;3:cizkarciz;4:;5:;6:;7:cizdaiciz;
8:cizdairciz;9:cizline;10:;11:;12:sipreyyap;13:;14:;15:;16:;17:;18:;19:;20:;
21:;22:;23:;24:;25:;26:cizan;
else write(#7);
end;
end;
procedure gerialmenu;
begin
hidemouse;
setfillstyle(1,7);
settextstyle(cpa7[emirdon],0,cpa8[emirdon]);
bar(cpa1[emirdon]-2,cpa2[emirdon],cpa3[emirdon]-4,cpa4[emirdon]);
setcolor(cpa5[emirdon]);outtextxy(cpa1[emirdon],cpa2[emirdon],cpayazi[emirdon]);
showmouse;
setmouseposition(za,zu);
end;
procedure msecik;
begin
repeat
pa:=mouseposition(za,zu);
if (za>cpa1[emirdon]-3) and (za<cpa3[emirdon]-2) and (zu<cpa4[emirdon]+2) and (zu>cpa2[emirdon]-1) then oylesine:=1
else
begin
gerialmenu;
exit;
end;
until pa=1;
gerialmenu;
case cpa6[emirdon] of
1:yeniczm;2:dacm;3:;4:;5:;6:;7:psonu;8:;9:;10:;11:;12:;13:;14:;15:;
else write(#7);
end;
end;
procedure hareketet;
begin
hidemouse;
setfillstyle(1,1);
settextstyle(cpa7[emirdon],0,cpa8[emirdon]);
bar(cpa1[emirdon]-2,cpa2[emirdon],cpa3[emirdon]-4,cpa4[emirdon]);
setcolor(15);
outtextxy(cpa1[emirdon],cpa2[emirdon],cpayazi[emirdon]);
showmouse;
setmouseposition(za,zu);
msecik;
end;
procedure msecimi(mlo1,mlo2,okix,okx1,oky1,ormutno:integer;yazimenu:string);
begin
setlinestyle(0,0,0);setfillstyle(1,3);settextstyle(mlo1,0,mlo2);
artimx:=textwidth(yazimenu);
genisy:=textheight(yazimenu);genisy:=genisy+4;
artimx:=artimx+4;
setcolor(okix);outtextxy(okx1,oky1,yazimenu);
cpa1[mdongusu]:=okx1;cpa2[mdongusu]:=oky1;cpa3[mdongusu]:=nxo3;{okx1+artimx;}
cpa4[mdongusu]:=oky1+genisy;cpa5[mdongusu]:=okix;cpa6[mdongusu]:=ormutno;
cpa7[mdongusu]:=mlo1;cpa8[mdongusu]:=mlo2;cpayazi[mdongusu]:=yazimenu;
setcolor(3);line(nxo1+18,genisy+oky1+2,nxo3-4,genisy+oky1+2);
line(nxo1+18,oky1-2,nxo3-4,oky1-2);
mdongusu:=mdongusu+1;
end;
procedure ustdongu;
begin
repeat
pa:=mouseposition(za,zu);
for emirdon:=0 to mdongusu do begin
if (za>cpa1[emirdon]-3) and (za<cpa3[emirdon]-2) and (zu<cpa4[emirdon]+2) and (zu>cpa2[emirdon]-1) then
hareketet;
end;
until (pa=1) or keypressed;
end;
procedure menudosyalar;
begin
if msorgula=1 then menugerial;
msorgula:=1;mdongusu:=0;menudiki(20,296,135,454,7,""STAR FATIH"");
msecimi(2,5,1,40,301,1,"" Yeni cizim "");msecimi(2,5,1,40,323,2,"" Dosya oku "");
msecimi(2,5,1,40,345,3,"" Kaydet.."");msecimi(2,5,1,40,367,4,"" Kapat..."");
msecimi(2,5,1,40,389,5,"" Calistir"");msecimi(2,5,1,40,411,6,"" Yardim.. "");
msecimi(2,5,1,40,433,7,"" Cikis.."");mdongusu:=6;
ustdongu;if msorgula=1 then menugerial;
end;
procedure anmasyonm;
begin
if msorgula=1 then menugerial;
msorgula:=1;mdongusu:=0;menudiki(110,314,225,454,7,""MEGA STAR"");
msecimi(2,5,1,130,319,8,"" Ard arda"");msecimi(2,5,1,130,341,9,"" Tasimali.."");
msecimi(2,5,1,130,363,10,"" Dosyalar "");msecimi(2,5,1,130,385,11,"" Ikili.. "");
msecimi(2,5,1,130,407,12,"" ™zel anm."");msecimi(2,5,1,130,429,13,"" Kapat..."");
mdongusu:=5;ustdongu;if msorgula=1 then menugerial;
end;
procedure gorunum;
begin
if msorgula=1 then menugerial;
msorgula:=1;mdongusu:=0;menudiki(210,300,330,454,7,""DšNYA STARI"");
msecimi(2,4,1,230,305,14,""Cizimi g”ster"");msecimi(2,4,1,230,330,15,""Yaklas.."");
msecimi(2,4,1,230,355,16,""Uzaklas.."");msecimi(2,4,1,230,380,17,""FATIHIN SESI"");
mdongusu:=3;ustdongu;if msorgula=1 then menugerial;
end;
procedure yazimenusu;
begin
if msorgula=1 then menugerial;
msorgula:=1;mdongusu:=0;menudiki(300,336,430,454,7,""FATIH"");
msecimi(2,5,1,320,429,18,"" Kapat.."");msecimi(2,5,1,320,407,19,"" Sitiller.."");
msecimi(2,5,1,320,385,20,"" G”lgeli.."");msecimi(2,5,1,320,363,20,"" Alt cizgili"");
msecimi(2,5,1,320,341,21,"" šst cizgili"");mdongusu:=4;
ustdongu;if msorgula=1 then menugerial;
end;
procedure ozellikm;
begin
if msorgula=1 then menugerial;msorgula:=1;mdongusu:=0;
menudiki(345,280,500,454,7,""GIESTSOFT FATIH"");
msecimi(2,5,1,365,290,22,"" Menu ayarlari"");
msecimi(2,5,1,365,312,23,"" Ekran cizim modu"");
msecimi(2,5,1,365,334,24,"" Ekran boyutlari"");
msecimi(2,5,1,365,356,25,"" Grafik modlari.."");mdongusu:=3;
ustdongu;if msorgula=1 then menugerial;
end;
procedure kmtstr;
begin
end;
procedure gerial;
begin
hidemouse;setfillstyle(1,yisa[tekkara]);
settextstyle(st[tekkara],0,boyut[tekkara]);
bar(emx1[tekkara],emy1[tekkara],emx2[tekkara]-4,emy2[tekkara]-4);
dik(emx1[tekkara]-1,emy1[tekkara]-1,emx2[tekkara]-3,emy2[tekkara]-3);
setcolor(gifrenk[tekkara]);
outtextxy(emx1[tekkara]+4,emy1[tekkara],yazial[tekkara]);showmouse;
setmouseposition(za,zu);
end;
procedure sevgisec;
begin
oylesine:=0;
repeat
pa:=mouseposition(za,zu);
if (za>emx1[tekkara]-2) and (za<emx2[tekkara]-2) and (zu<emy2[tekkara]-2) and (zu>emy1[tekkara]-2) then oylesine:=1
else
begin
gerial;
exit;
end;
until pa=0;
gerial;
case rak[tekkara] of
1:menudosyalar;2:anmasyonm;3:gorunum;
4:yazimenusu;5:ozellikm;6:setbkcolor(6);7:setbkcolor(7);
8:;9:;10:;11:;12:;13:;14:;15:;
16:ksecrenk(0);17:ksecrenk(1);18:ksecrenk(2);19:ksecrenk(3);20:ksecrenk(4);
21:ksecrenk(5);22:ksecrenk(6);23:ksecrenk(7);24:ksecrenk(8);25:ksecrenk(9);
26:ksecrenk(10);27:ksecrenk(11);28:ksecrenk(12);29:ksecrenk(13);30:ksecrenk(14);
31:ksecrenk(15);32:;33:;34:;35:;
36:foncizmi:=1;37:foncizmi:=0;38:cmodu(0);
39:cmodu(1);40:;41:;42:;43:;44:;45:;46:;47:;48:;49:;50:;51:;52:;53:;54:;
55:;56:;57:;58:;59:;60:;61:;62:;63:;64:;65:;66:;67:;68:;69:;70:;
else write(#7);
end;
end;
procedure hareket;
begin
hidemouse;setfillstyle(1,yisa[tekkara]);
settextstyle(st[tekkara],0,boyut[tekkara]);
bar(emx1[tekkara],emy1[tekkara],emx2[tekkara]-4,emy2[tekkara]-4);
setcolor(gifrenk[tekkara]);
outtextxy(emx1[tekkara]+5,emy1[tekkara]+1,yazial[tekkara]);showmouse;
setmouseposition(za,zu);sevgisec;
end;
procedure secim(kokar,kok1,kok2,kok3,xvan1,yvan1,komutno:integer;yazi:string);
begin
setlinestyle(0,0,0);setfillstyle(1,kokar);settextstyle(kok1,0,kok2);
artim:=textwidth(yazi);artim:=artim+4;
genis:=textheight(yazi);genis:=genis+4;setcolor(8);
rectangle(xvan1-1,yvan1-1,xvan1+artim+1,yvan1+genis+1);
bar(xvan1,yvan1,xvan1+artim,yvan1+genis);
setcolor(15);line(xvan1,yvan1,xvan1+artim,yvan1);
line(xvan1,yvan1,xvan1,yvan1+genis);setcolor(1);
line(xvan1,yvan1+genis,xvan1+artim,yvan1+genis);
line(xvan1+artim,yvan1,xvan1+artim,yvan1+genis);
setcolor(kok3);outtextxy(xvan1+4,yvan1,yazi);
emx1[dongu]:=xvan1;emy1[dongu]:=yvan1;emx2[dongu]:=xvan1+artim+4;emy2[dongu]:=yvan1+genis+4;
rak[dongu]:=komutno;yazial[dongu]:=yazi;
st[dongu]:=kok1;boyut[dongu]:=kok2;gifrenk[dongu]:=kok3;
yisa[dongu]:=kokar;
dongu:=dongu+1;
end;
procedure ekran;
begin
setlinestyle(0,0,1);
setcolor(7);rectangle(0,0,getmaxx,getmaxy);
setfillstyle(1,7);bar(1,1,100,getmaxy-1);
bar(1,1,getmaxx-1,100);bar(getmaxx-153,101,getmaxx-1,getmaxy-1);
bar(1,getmaxy-52,getmaxx-1,getmaxy-1);setcolor(9);
rectangle(1,1,getmaxx-1,getmaxy-1);rectangle(101,100,485,426);
setfillstyle(1,8);bar(100,getmaxy-48,getmaxx-153,getmaxy-25);setcolor(15);
settextstyle(8,0,1);outtextxy(190,getmaxy-50,""YILDIZLAR PROGRAMI"");
setcolor(1);outtextxy(192,getmaxy-50,""YILDIZLAR PROGRAMI"");
setcolor(3);outtextxy(191,getmaxy-50,""YILDIZLAR PROGRAMI"");
setcolor(9);line(2,getmaxy-25,getmaxx-2,getmaxy-25);
dik(3,3,65,65);
{menu cubugu altta yap�l�yor}
setcolor(2);line(15,getmaxy-21,getmaxx-5,getmaxy-21);
line(15,getmaxy-21,15,getmaxy-5);
setcolor(15);line(15,getmaxy-4,getmaxx-20,getmaxy-4);
line(getmaxx-20,getmaxy-4,getmaxx-5,getmaxy-19);
line(getmaxx-17,getmaxy-4,getmaxx-5,getmaxy-16);
line(getmaxx-14,getmaxy-4,getmaxx-5,getmaxy-13);
line(getmaxx-11,getmaxy-4,getmaxx-5,getmaxy-10);
line(getmaxx-8,getmaxy-4,getmaxx-5,getmaxy-7);
{ikon yerleri}
dik(3,92,92,314);settextstyle(0,0,1);
{IKON SEKILLERI CIZILIYOR}
putimage(14,102,f^,orput);
setcolor(11);{b�r�nc� �kon}
setfillstyle(1,12);bar(38,102,56,115);{�k�nc� �kon}
rectangle(38,102,56,115);
setcolor(8);rectangle(66,102,84,115);{ucuncu �kon}
setcolor(11);
fillellipse(20,136,8,8);setcolor(8);{dortuncu �kon}
circle(47,136,8);setcolor(11);{bes�nc� �kon}
outtextxy(68,134,""ab"");{alt�nc� �kon}
setfillstyle(1,7);setcolor(8);
fillellipse(20,163,10,6);setfillstyle(1,12);setcolor(11);{yed�nc� �kon}
fillellipse(47,163,10,6);setcolor(8);line(68,158,80,170);{sek�z�nc� �kon}
putpixel(68,158,11);putpixel(80,170,11);setcolor(11);
line(13,184,25,196);putpixel(25,196,8);setcolor(8);{dokuzuncu �kon}
{onbirinci �kon (sprey) c�z�lecek(asag� tarafta) }
rectangle(68,187,76,199);setfillstyle(1,12);bar(71,190,75,197);
line(68,187,72,184);line(72,184,76,187);putpixel(72,183,11);
putpixel(73,183,12);putpixel(74,184,12);putpixel(76,182,12);
putpixel(78,184,12);putpixel(80,182,12);putpixel(80,184,12);
putpixel(80,186,12);putpixel(77,186,12);putpixel(77,184,12);
{onuncu �kon c�z�l�yor}
setcolor(14);circle(44,188,7);line(50,191,56,195);line(49,192,57,195);
line(49,192,57,196);setcolor(9);outtextxy(41,185,#3);putpixel(43,187,15);
{onb�r�nc� �kon (s�lg�) ciziliyor}
setfillstyle(1,5);bar(12,212,28,227);setcolor(7);line(14,220,16,227);
line(14,220,17,227);line(15,220,17,227);line(16,220,18,227);
line(17,220,19,227);line(18,220,20,227);line(19,220,21,227);line(20,220,22,227);
setcolor(14);line(10,210,14,220);line(14,208,19,218);line(10,209,15,221);
setcolor(15);line(11,208,16,220);setcolor(6);line(12,208,17,219);setcolor(15);line(13,208,18,218);
setcolor(12);
line(15,220,19,218);line(14,219,18,217);line(16,221,20,219);setcolor(14);
setfillstyle(1,14);fillellipse(17,219,3,3);setfillstyle(1,4);setcolor(12);
fillellipse(17,220,3,3);putpixel(18,219,12);
{on�k�nc� �kon c�z�l�yor(x t�p res�m yon cev�r�c�)}
setcolor(8);outtextxy(43,215,#27);outtextxy(43,214,#27);outtextxy(43,216,#27);
putpixel(42,218,8);
{onucuncu �kon (y t�p res�m yon cev�r�c�)}
outtextxy(71,215,#25);outtextxy(72,215,#25);outtextxy(70,215,#25);
putpixel(74,222,8);putpixel(74,222,8);putpixel(75,222,8);
{ondorduncu �kon (xy tip res�m yon cev�r�c�)}
outtextxy(20,238,#26);outtextxy(20,237,#26);outtextxy(20,239,#26);
putpixel(27,241,8);outtextxy(14,243,#25);outtextxy(13,243,#25);
outtextxy(15,243,#25);putpixel(17,250,8);putpixel(18,250,8);
{onbes�nc� �kon c�z�l�yor(makas)}
line(39,236,45,242);line(38,236,48,250);line(51,236,45,242);
line(52,236,41,250);putpixel(45,244,15);setfillstyle(1,15);
fillellipse(40,250,2,2);fillellipse(49,250,2,2);
{onalt�nc� �kon c�z�l�yor(derece)}
line(68,248,80,248);line(68,248,68,236);line(68,244,72,244);
line(72,244,72,248);putpixel(70,246,8);settextstyle(2,0,2);
outtextxy(74,238,""90"");putpixel(82,238,8);
{onyed�nc� �kon c�z�l�yor(3d goruntu)}setcolor(14);
settextstyle(0,0,1);line(13,264,13,278);outtextxy(16,272,#26);
setcolor(12);line(25,264,25,278);outtextxy(16,264,#27);setcolor(8);
{onsek�z�nc� �kon c�z�l�yor(ic doldurma sitili)}
setfillstyle(9,12);bar(37,265,47,275);setcolor(9);outtextxy(44,267,#27);
outtextxy(44,268,#27);outtextxy(44,266,#27);putpixel(43,270,9);setcolor(14);
settextstyle(1,0,1);outtextxy(50,258,""?"");
{ondokuzuncu �kon c�z�l�yor(yay)}
setcolor(8);settextstyle(2,0,2);ellipse(70,270,250,80,4,6);outtextxy(75,262,""Yay"");
{y�rm�nc� �kon c�z�l�yor(saat)}
setfillstyle(1,3);
setcolor(6);fillellipse(20,298,7,7);line(16,305,14,307);line(17,306,14,307);
line(24,305,26,307);line(23,306,26,307);setfillstyle(9,12);
setcolor(4);putpixel(14,307,12);putpixel(26,307,12);line(20,298,20,293);
line(20,298,16,296);fillellipse(26,291,2,2);fillellipse(14,291,2,2);
putpixel(25,298,15);putpixel(20,303,15);putpixel(15,298,15);
{y�rm�b�r�nc� �kon c�z�l�yor(f�lm)}
setfillstyle(1,8);bar(40,289,54,307);setfillstyle(1,15);
bar(41,290,42,292);bar(41,294,42,296);bar(41,298,42,300);
bar(41,302,42,304);bar(41,306,42,307);bar(52,290,53,292);
bar(52,294,53,296);bar(52,298,53,300);bar(52,302,53,304);
bar(52,306,53,307);setfillstyle(1,11);bar(44,291,50,296);bar(44,299,50,304);
bar(44,307,50,307);
{y�rm��k�nc� �kon c�z�l�yor(animasyon sayfas�)}
rectangle(66,289,84,305);line(75,289,75,305);line(66,297,84,297);
{y�rmiucuncu ikon duzcizgi}
setcolor(8);setlinestyle(1,0,1);line(65,355,83,355);
{yirmidortuncu ikon}
setlinestyle(0,0,1);line(66,384,83,384);{YILDIZ CIZILECEK SOL USTE}
line(32,10,55,58);line(32,10,13,58);line(60,28,8,28);
line(8,28,55,58);line(13,58,60,28);setfillstyle(7,3);floodfill(32,20,8);
floodfill(32,38,8);floodfill(45,46,8);floodfill(22,46,8);
settextstyle(1,0,1);outtextxy(10,8,""M"");outtextxy(45,8,""Y"");
setcolor(15);circle(33,35,9);setcolor(9);circle(33,35,8);settextstyle(0,0,1);
setfillstyle(1,7);fillellipse(33,35,7,7);setcolor(9);outtextxy(30,32,#3);
settextstyle(2,0,2);setcolor(8);outtextxy(16,56,""Y�ld�z Soft"");
end;
begin
temuz:=false;
setverify(temuz);setcbreak(temuz);
SetGraphBufSize(65520);{SetFillPattern(pointer olacak,random(15));}
{mem[$0000:$417]:=0;mem[$0000:$417]:=64;}
{ yukar�da butun ledler sondurulup capslock ledi ac�l�yor}
{$IFDEF Use8514}
gd:= IBM8514;
gm:= IBM8514hi;
{$ELSE}
{$IFDEF Use8514}
gd:= IBM8514;
gm:= IBM8514lo;
{$ELSE}
detectgraph(gd,gm);
{$ENDIF}{$ENDIF}
InitGraph(Gd,gm,"""");
hatano:=Graphresult;
if hatano <> 0 then
Begin
highvideo;
Textcolor (11);Writeln (""!!!..Graf�k ortam�na gec�lemed�..!!!"");
Textcolor (12);Writeln (""Graf�k hatas� mesaj�..: "",Grapherrormsg(hatano));
writeln(""Hata genel olarak *.bgi dosyalarinin olmamasindandir.!"");
writeln(""FATIH TANSALIC (GIESTSOFT) MEGA STAR OLMAK KOLAY DEGIL"");
writeln(""Yil 2006 e-Mail.: tansalic@walla.com ISTANBUL"");
Halt;
End;
randomize;port[$60]:=$F3;delay(200);port[$60]:=0;
elor;
cleardevice;
ekran;setcolor(8);donme:=1;
dongu:=1;settextstyle(2,0,5);dik(488,136,636,280);
dik(497,282,610,375);
secim(7,2,5,1,16,457,1,""DOSYALAR"");secim(7,2,5,1,100,457,2,""ANIMASYONLAR"");
secim(7,2,5,1,220,457,3,""G™RšNšM"");secim(7,2,5,1,300,457,4,""YAZI SEKLI"");
secim(7,2,5,1,400,457,5,""™ZELLIKLER"");secim(7,2,5,1,500,457,6,""KOMUT SATIRI"");
secim(7,2,4,1,500,285,7,""BASLA>>"");secim(7,2,4,1,550,285,8,""HIZLANDIR"");
secim(7,2,4,1,500,303,9,""GERIAL<<"");secim(7,2,4,1,562,303,10,""DURDUR?"");
secim(7,2,4,1,500,322,11,""YAVASLAT"");secim(7,2,4,1,561,322,12,""SUREKLI"");
secim(7,2,4,1,500,340,13,""BIR ADIM ILERI >>"");secim(7,2,4,1,500,358,14,""BIR ADIM GERI <<"");
secim(7,2,5,12,500,400,15,""FARE AYARLARI"");secim(7,2,4,1,494,112,32,""<<"");
secim(7,2,4,1,515,112,33,"">>"");secim(7,2,4,1,535,112,34,""DOSYA ISMI"");
secim(7,2,4,1,605,112,35,""AL"");secim(7,2,4,4,296,36,36,"">"");
secim(7,2,4,4,280,36,37,""<"");secim(7,2,4,1,545,65,38,""™ZEL TASARIM "");
secim(7,2,4,1,545,45,39,""NORMAL CIZIM "");secim(7,2,4,1,235,56,40,""ê PROGRAM HAKKINDA "");
secim(3,2,4,14,263,76,41,""™ZEL RENK"");
dna:=75;
dik(95,5,518,30);
for nasil:=16 to 31 do
begin
dna:=dna+26;
secim(nasil-16,2,5,nasil-16,dna,10,nasil,"" "");
end;
resdik(7,97,32,121,1);resdik(34,97,60,121,2);resdik(62,97,88,121,3);
resdik(7,124,32,148,4);resdik(34,124,60,148,5);resdik(62,124,88,148,6);
resdik(7,151,32,175,7);resdik(34,151,60,175,8);resdik(62,151,88,175,9);
resdik(7,178,32,202,10);resdik(34,178,60,202,11);resdik(62,178,88,202,12);
resdik(7,205,32,229,13);resdik(34,205,60,229,14);resdik(62,205,88,229,15);
resdik(7,232,32,256,16);resdik(34,232,60,256,17);resdik(62,232,88,256,18);
resdik(7,259,32,283,19);resdik(34,259,60,283,20);resdik(62,259,88,283,21);
resdik(7,286,32,310,22);resdik(34,286,60,310,23);resdik(62,286,88,310,24);
resdik(62,350,88,375,25);resdik(62,379,88,404,26);
{ikontamamlaniyor ok kopyalaniyor}
putimage(67,358,f^,orput);putimage(67,387,f^,orput);
settextstyle(2,0,4);
dik(310,35,420,50);outtextxy(315,36,""CIZIM RENGI :"");
dik(165,35,275,50);outtextxy(170,36,""ZEMIN RENGI :"");
setfillstyle(1,12);bar(512,178,550,242);
settextstyle(10,0,5);outtextxy(515,150,""fat"");setfillstyle(1,15);
floodfill(522,198,1);setfillstyle(6,1);floodfill(561,198,1);
floodfill(600,198,1);setfillstyle(1,7);
settextstyle(5,0,1);outtextxy(560,245,""Sunar .."");
settextstyle(2,0,4);setcolor(1);
rectangle(5,327,95,340);rectangle(5,340,51,370);
rectangle(488,100,635,130);setcolor(7);line(498,100,598,100);
line(13,327,84,327);line(6,340,50,340);setcolor(8);
outtextxy(500,94,""Dosyadan resim al"");{kucuk res�m uzant�s� grd olacak}
{normal resim uzant�s� y�l animasyonunki anm olacak}
outtextxy(15,320,""Secilen ikon"");dik(8,332,49,368);
foncizmi:=1;renkoldu:=15;fontoldu:=0;
dik(60,348,91,407);{tur yap�lacak altta}
rectangle(520,32,635,84);setcolor(7);line(530,32,592,32);{son}
setcolor(8);outtextxy(532,26,""Resim T�r�"");setfillstyle(1,15);
bar(525,45,538,57);bar(525,65,538,77);
rectangle(525,45,538,57);rectangle(525,65,538,77);
outtextxy(530,45,""û"");{renk belirtecler}setfillstyle(1,15);
bar(396,38,415,47);rectangle(396,38,415,47);setfillstyle(1,0);
bar(251,38,270,47);rectangle(251,38,270,47);
setcolor(renkoldu);setbkcolor(fontoldu);msorgula:=0;riksec:=26;
dikmen(390,74,482,96);settextstyle(2,0,4);setcolor(8);liz1:=320;liz2:=240;
outtextxy(399,79,""X: Y: "");outtextxy(415,79,""320"");outtextxy(457,79,""240"");
atam:=1;rongu:=0;
if not mouse_installed then
begin
Setfillstyle(1,1);bar(109,263,480,387);Setfillstyle(1,9);BAR(125,279,465,371);
setcolor(9);line(109,263,125,279);line(480,387,465,371);
line(480,263,465,279);line(109,387,125,371);settextstyle(2,0,5);
setcolor(15);outtextxy(130,290,""MOUSE`u INSTALL ETTIKTEN SONRA PROGRAMI"");
outtextxy(130,305,""YENIDEN CALISTIRIN...TAVSIYE EDILEN MOUSE"");
outtextxy(130,320,""PROGRAMI MOUSE DRIVER VERSION 6.20 DIR"");
outtextxy(130,355,""SIMDI ENTER TUSUNA BASINIZ...........!!"");
setcolor(15);arc(230,160,0,270,30);getarccoords(arccoords);
with arccoords do
line(xstart,ystart,xend,yend);
arc(300,160,7474,176,30);
getarccoords(arccoords);
with arccoords do
line(xstart,ystart,xend,yend);
circle(250,190,5);circle(280,190,5);setcolor(12);
circle(250,190,1);circle(280,190,1);setcolor(15);line(230,190,265,240);line(300,190,265,240);
Setfillstyle(1,7);;pieslice(265,240,0,360,8);SETCOLOR(8);line(230,190,252,210);
line(300,190,278,210);line(252,210,265,240);line(278,210,265,240);setcolor(15);
for biyik:=235 to 249 do
begin
biyik:=biyik+4;line(265,240,235,biyik);
end;
for biyik:=235 to 249 do
begin
biyik:=biyik+4;line(265,240,295,biyik);
end;
repeat
repeat
romko:=200;
repeat
sound(romko);delay(12);inc(romko,80);
until romko > 450;nosound;delay(500);
for romko:=400 to 700 do
begin
sound(random(100)+romko);delay(2);end;nosound;
until keypressed;zerva:=readkey;
until zerva=#13;
setfillstyle(1,0);kapasa:=321;salosa:=319;
for cxm:=1 to 80 do
begin
bar(salosa,salosa,kapasa,kapasa);
kapasa:=kapasa+4;salosa:=salosa-4;
end;
closegraph;textcolor(15);writeln(""GULE GULE...MOUSE`U INSTALL EDIP YENIDEN DENE"");HALT;
end;
showmouse;
setmouseposition(320,240);xrtm:=0;
repeat
repeat
for tekkara:=0 to dongu do
begin
pa:=mouseposition(za,zu);
if (pa=1) and (za>emx1[tekkara]-2) and (za<emx2[tekkara]-2) and (zu<emy2[tekkara]-2) and (zu>emy1[tekkara]-2) then hareket;
end;
for teksoy:=0 to donme do
begin
pa:=mouseposition(za,zu);
if (pa=1) and (za>sdx1[teksoy]) and (za<sdx2[teksoy]) and (zu<sdy2[teksoy]) and (zu>sdy1[teksoy]) then bere;
end;
pa:=mouseposition(za,zu);
if (za>101) and (za<485) and (zu>100) and (zu<426) and (pa=2) or (pa=3) then cici;
if (za>101) and (za<485) and (zu>100) and (zu<426) and (pa=1) then cimrisec;
if (za>101) and (za<485) and (zu>100) and (zu<426) then yapitas else
if xrtm=1 then setbklor;
until keypressed;
cc:=readkey;
until cc=#27;
closegraph;
end.



Bu programin calismasi icin PASCAl`inizda grafik komutlari olmalidir.Aksi taqdirde program calismaz."MOUSE" uniti-de PASCAL 7.0 kitabinda verilmisdir.Ordan kullana bilersiniz.Burada yazmayi fazlalik bildim