Pascal'da Dalgalı Türk Bayrağı - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

~~Mc Pislick~~ · **Pascal'da Dalgalı Türk Bayrağı -** 04-20-2008

Kod:
uses graph,crt;
var
i,a,k,x1,x2,y1,y2,x,y,gd,gm:integer; h,v,g,p:word;
msg:array[1..10] of string;
begin
detectgraph(gd,gm);
initgraph(gd,gm,");
graphdefaults;
setlinestyle(0,1,3);
x:=350;y:=100;
msg[1]:='HERSEY VATAN ICIN';
MSG[2]:='NE MUTLU TURKUM DIYENE';
repeat
repeat
x:=i;
line(104+x,30+y{},{}120+x,80+y);
line(120+x,80+y{},{}180+x,80+y);
line(180+x,80+y{},{}132+x,112+y);
line(132+x,112+y{},{}150+x,165+y);
line(150+x,165+y{},{}104+x,132+y);
line(104+x,132+y{},{}55+x,165+y);
line(55+x,165+y{},{}72+x,112+y);
line(72+x,112+y{},{}30+x,80+y);
line(30+x,80+y{},{}85+x,80+y);
line(85+x,80+y{},{}104+x,30+y);
arc(0+x-100,100+y,40,320,190);
arc(70+x-100,100+y,60,300,145);
floodfill(-200+x,150+y,white);
floodfill(104+x,y+50,white);
setbkcolor(red);
settextstyle(10,0,3);
i:=i+10;
outtextxy(x-325,420,'COPYRIGHT (C) BY KAMIL YESIL');
if i>getmaxx+250 then begin i:=-300; a:=a+1;end;
delay(10);
if i=350 then delay(1000);
cleardevice;
until a=2;
a:=0;i:=-100;
repeat
i:=i+10;
outtextxy(i,50,msg[a]);
if i=100 then delay(1000);
DELAY(20); cleardevice;
if i>getmaxx+250 then begin i:=-300; a:=a+1;end;
until a=3;
a:=0
until keypressed;
readln;
closegraph;
end.

**thenes___** · 04-20-2008

bu ne böyle kardeş

**MaVuBa** · 04-20-2008

ne demek isiyon sen Mc Pislick sen çok mu zekisinn.. böyle polemikler yaratma

~~Mc Pislick~~ · 04-20-2008

ne polemiği proglamlama öğren dedik saygıda kusur eddiysem özür dilerim

Konu Bilgileri
	Konu Başlığı Pascal'da Dalgalı Türk Bayrağı	Konudaki Cevap Sayısı 3
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 0

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)