![]() |
pascaldan photoshop(ilginç valla)
(* Ctrl+F9 yaparak ‡al?st?rabilirisniz *)
{$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,dong u,genis,artim,hatano,al,yuk,gd,gm, tekkar,rongu,enis,rtim,pg1,pg2,pg5,pg6,hnl1,hnl2,p kmf,artimx,genisy,emirdon:integer; aygaz,zagari,zugari,zagar,zugar,ayir,pa,za,zu,yiri mki: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:arra y[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,ra m,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,p hc2,phc3,phc2); setcolor(1);line(phc1,phc4,phc3,phc4);line(phc3,ph c4,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,f t2+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:in teger;yyazi:string); begin setlinestyle(0,0,0);setfillstyle(1,kozar);settexts tyle(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,a ygaz); 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:=z u; 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:st ring); 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,hlp n); 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);outte xtxy(hpx1-2,hpy1+20,hpymy); showmouse; nxo1:=hpx1;nxo2:=hpy1;nxo3:=hpx2;nxo4:=hpy2;msorgu la:=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(1 5);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);setmou***y(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; setmou***y(1,1,640,480); setbkcolor(0); end; procedure cizdairciz; begin setbkcolor(fontoldu); hidemouse;setlinestyle(0,0,1); moveto(za,zu-1);setcolor(renkoldu);setmou***y(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(za gar,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;setmou***y(1,1,640,480);setbkcolor(0); end; procedure cizdaiciz; begin setbkcolor(fontoldu); hidemouse;setlinestyle(0,0,1); moveto(za,zu-1);setcolor(renkoldu);setmou***y(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(za gar,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;setmou***y(1,1,640,480);setbkcolor(0); end; procedure cizkariciz; begin setbkcolor(fontoldu); hidemouse;setlinestyle(0,0,1); moveto(za,zu-1);setcolor(renkoldu);setmou***y(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(za gar,zugar,za,zu); eksenyaz; until pa=0; setwritemode(copyput);setfillstyle(1,renkoldu); setcolor(renkoldu);bar(zagar,zugar,za,zu); showmouse; setmou***y(1,1,640,480); setbkcolor(0); end; procedure cizkarciz; begin setbkcolor(fontoldu); hidemouse;setlinestyle(0,0,1); moveto(za,zu-1);setcolor(renkoldu);setmou***y(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(za gar,zugar,za,zu); eksenyaz; until pa=0; setwritemode(copyput);setcolor(renkoldu); rectangle(zagar,zugar,za,zu); showmouse; setmou***y(1,1,640,480); setbkcolor(0); end; procedure cizline; begin setbkcolor(fontoldu); hidemouse;setlinestyle(0,0,1); moveto(za,zu-1);setcolor(renkoldu);setmou***y(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(zaga r,zugar,za,zu); showmouse;setmou***y(1,1,640,480);setbkcolor(0); end; procedure cizan; begin setbkcolor(fontoldu); hidemouse;setlinestyle(0,0,1); moveto(za,zu-1);setcolor(renkoldu);setmou***y(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; setmou***y(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;y azimenu: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..'''');msecim i(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:setbkcol or(7); 8:;9:;10:;11:;12:;13:;14:;15:; 16:ksecrenk(0);17:ksecrenk(1);18:ksecrenk(2);19:ks ecrenk(3);20:ksecrenk(4); 21:ksecrenk(5);22:ksecrenk(6);23:ksecrenk(7);24:ks ecrenk(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:int eger;yazi:string); begin setlinestyle(0,0,0);setfillstyle(1,kokar);settexts tyle(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);setcol or(11);{yed?nc? ?kon} fillellipse(47,163,10,6);setcolor(8);line(68,158,8 0,170);{sek?z?nc? ?kon} putpixel(68,158,11);putpixel(80,170,11);setcolor(1 1); 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(7 2,183,11); putpixel(73,183,12);putpixel(74,184,12);putpixel(7 6,182,12); putpixel(78,184,12);putpixel(80,182,12);putpixel(8 0,184,12); putpixel(80,186,12);putpixel(77,186,12);putpixel(7 7,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);l ine(14,220,16,227); line(14,220,17,227);line(15,220,17,227);line(16,22 0,18,227); line(17,220,19,227);line(18,220,20,227);line(19,22 0,21,227);line(20,220,22,227); setcolor(14);line(10,210,14,220);line(14,208,19,21 8);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,22 1,20,219);setcolor(14); setfillstyle(1,14);fillellipse(17,219,3,3);setfill style(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);outtex txy(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);outtex txy(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,23 6,45,242); line(52,236,41,250);putpixel(45,244,15);setfillsty le(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,24 4,72,244); line(72,244,72,248);putpixel(70,246,8);settextstyl e(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);putpix el(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);setfillsty le(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);fillel lipse(14,291,2,2); putpixel(25,298,15);putpixel(20,303,15);putpixel(1 5,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,4 2,300); bar(41,302,42,304);bar(41,306,42,307);bar(52,290,5 3,292); bar(52,294,53,296);bar(52,298,53,300);bar(52,302,5 3,304); bar(52,306,53,307);setfillstyle(1,11);bar(44,291,5 0,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,2 8); 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'''');outt extxy(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.: [Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....] 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,5 45,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);resdi k(62,97,88,121,3); resdik(7,124,32,148,4);resdik(34,124,60,148,5);res dik(62,124,88,148,6); resdik(7,151,32,175,7);resdik(34,151,60,175,8);res dik(62,151,88,175,9); resdik(7,178,32,202,10);resdik(34,178,60,202,11);r esdik(62,178,88,202,12); resdik(7,205,32,229,13);resdik(34,205,60,229,14);r esdik(62,205,88,229,15); resdik(7,232,32,256,16);resdik(34,232,60,256,17);r esdik(62,232,88,256,18); resdik(7,259,32,283,19);resdik(34,259,60,283,20);r esdik(62,259,88,283,21); resdik(7,286,32,310,22);resdik(34,286,60,310,23);r esdik(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(5 61,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,10 0,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,5 92,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);setfil lstyle(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);Setfillstyl e(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);settex tstyle(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(ar ccoords); 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);l ine(230,190,265,240);line(300,190,265,240); Setfillstyle(1,7);;pieslice(265,240,0,360,8);SETCO LOR(8);line(230,190,252,210); line(300,190,278,210);line(252,210,265,240);line(2 78,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. kadir göksu 0 537 714 57 25 0 537 714 57 25 |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:27 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.