/* 
====================== 
Google Logo Oluşturucu 0.1 

BY Sentius 

Http://www.kolaymirc.org 

İsminizi google logosu tarzında 

yazdırabilir,kaydedebilir ve 

düzenleyebilirsiniz... 
====================== 
*/ 
dialog glo { 
title "Google Logo Oluşturucu" 
size -1 -1 160 55 
option dbu 
box "", 1, 2 -1 156 41 
text "İsim yada nick'inizi girin:", 2, 5 5 57 8 
edit "", 3, 5 13 150 10, limit 22 
button "Oluştur", 4, 41 25 37 12,disable 
button "Düzenle", 5, 80 25 37 12,disable 
button "Kapat", 6, 119 25 37 12,cancel 
edit "Google Logo Oluşturucusu v0.1 BY Sentius", 7, 2 43 157 11, read autohs 
} 
alias goglogo $iif(!$dialog(glo),dialog -m glo glo) 
alias -l create->logo { 
if ($len($1-) <= 2) return $input(İsim yada nick'in karakter uzunluğu enaz "3" olmalıdır.,ohud,Hata) 
else { 
if ($window(@goglogo)) window -c @goglogo 
if ($window(@sl)) window -c @sl 
unset %numtok %fileitem %pw %gln 
did -b $dname 5 
set %logname $replace($1-,$chr(32),+,ı,i,İ,i,ö,o,ü,u,ğ,g,ç,c,ş,s,Ğ,g,Ö,o,Ü,u,Ş,s) 
did -ra $dname 7 Logo oluşturuluyor.Bekleyin... 
sockclose glogo 
sockopen glogo www.goglogo.com 80 
} 
} 
alias -l remove->logofiles { 
unset %logname %gifiles %pw 
var %a = 1 
var %fi = $+(",$scriptdir,goglogo.txt,") 
while (%a <= $lines(%fi)) { 
if (_.gif !isin $read(%fi,%a)) .remove $+(",$scriptdir,$read(%fi,%a),") 
inc %a 
} 
.remove $+(",$scriptdir,goglogo.txt,") 
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5 
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5 
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5 
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5 
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 141) 103 KaYDeT 
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 67) 103 KaPaT 
} 
alias -l load->logo { 
unset %size %nl %numtok %fileitem %pw 
var %o = 1 
var %fi = $+(",$scriptdir,goglogo.txt,") 
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) 900 160 
drawrect -rf @goglogo $rgb(255,255,255) 1 0 0 900 200 
while (%o <= $lines(%fi)) { 
set %pw $calc((%pw + $pic($+(",$scriptdir,$read(%fi,%o),")).width) + 2) 
if (_.gif isin $read(%fi,%o)) set %pw $calc(%pw + 15) 
if ($dialog(glo)) { 
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) %pw 160 
if (_.gif !isin $read(%fi,%o)) drawpic @goglogo $calc(($window(@goglogo).w - $pic($+(",$scriptdir,$read(%fi,%o),")).width) - 2) 1 $+(",$scriptdir,$read(%fi,%o),") 
} 
inc %o 
} 
if ($dialog(glo)) did -ra glo 7 Http://www.kolaymirc.org 
remove->logofiles 
} 
on *:dialog:glo:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4) 
on *:dialog:glo:sclick:*: { 
if ($did == 4) create->logo $did(3) 
if ($did == 5) run %gln 
} 
on *:sockopen:glogo: { 
if ($sockerr) echo -a Bağlantı Yok! 
else { 
var %s = sockwrite -n $sockname 
%s GET /s.asp?lo= $+ %logname HTTP/1.1 
%s Host: www.goglogo.com 
%s $crlf 
} 
} 
on *:sockread:glogo: { 
var %u 
sockread %u 
if (Error-Input isin %u) && ($dialog(glo)) did -ra glo 7 Sadece bu karakterlerden kullanabilirsiniz. - [A-Z][a-z][0-9] 
if (?lo= isin %u) { write -c $+(",$scriptdir,goglogo.txt,") | set %gifiles $remove($gettok(%u,3-,32),border=0>,) } 
if ( isin %u) { 
sockclose glogo 
var %i = 1 
while (%i <= $numtok(%gifiles,32)) { 
var %files = $gettok(%gifiles,%i,32) 
write $+(",$scriptdir,goglogo.txt,") %files 
if (_.gif !isin %files) { 
sockclose $+(getlogo*,%files) 
sockopen $+(getlogo*,%files) www.goglogo.com 80 
sockmark $+(getlogo*,%files) %files 
} 
inc %i 
} 
} 
} 
on *:sockopen:getlogo*: { 
inc %numtok 
var %t = sockwrite -n $sockname 
%t GET $+(/images/,$sock($sockname).mark) HTTP/1.1 
%t Host: www.goglogo.com 
%t $crlf 
} 
on *:sockread:getlogo*: { 
var %c 
sockread %c 
if (Length isin %c) set %size $gettok(%c,2,32) 
if (* !iswm %c) { 
write -c $+(",$scriptdir,$sock($sockname).mark,") 
sockclose $+(savelogo*,$sock($sockname).mark) 
set %nl $sock($sockname).rcvd 
sockrename $sockname $+(savelogo*,$sock($sockname).mark) 
} 
} 
on *:sockread:savelogo*: { 
sockread &sl 
bwrite $+(",$scriptdir,$remove($sockname,savelogo*),") -1 -1 &sl 
var %progrs = $calc(100 * ($sock($sockname).rcvd - %nl) / %size) 
if (%progrs == 100) { inc %fileitem | if ($dialog(glo)) did -ra glo 7 Logo Oluşturuluyor.Bekleyin... $+(%numtok,/,%fileitem) | sockclose $sockname } 
if (%fileitem == %numtok) load->logo 
} 
alias -l save->logo { 
set %gln $+(",$scriptdir,$1,.bmp,") 
window -ph +t @sl 0 0 $window(@goglogo).w 134 
drawrect -rf @sl $rgb(255,255,255) 1 0 0 $window(@goglogo).w 134 
drawcopy @goglogo 0 0 $window(@goglogo).w 134 @sl 0 0 
drawsave @sl %gln 
window -c @sl 
window -c @goglogo 
if ($dialog(glo)) did -e glo 5 
} 
menu @goglogo { 
uclick: { 
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 150),100,60,20)) { 
var %logoname = $input(Logunun adını girin:,e,Logo Kaydet) 
if (%logoname) save->logo %logoname 
} 
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 80),100,60,20)) window -c @goglogo 
} 
} 
menu menubar,status { 
Google Logo Oluşturucu v0.1 
.Aç:goglogo 
.- 
.Kaldır: .unload -rs $shortfn($script) 
} 
on *:load: { 
if ($version < 6.2) { echo -a Bu addon mIRC v6.2'de çalışmaktadır... | .unload -rs $shortfn($script) } 
else { echo -a Google Logo Oluşturucu v0.1 Yüklendi. | echo -a Http://www.kolaymirc.org | echo -a Açmak için: /goglogo yazın. } 
}