|
* ====================== Google Logo Oluşturucu 0.1 BY SeRDaR406 Http://www.mIRC.ile.biz İ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 SeRDaR406", 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.mIRC.ile.biz 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.mIRC.ile.biz | echo -a Açmak için: /goglogo yazın. } } Yazdır | |||||||
http://www.sonmirc.com Alınmıştır..
SonmIRC.Com, Google ; mirc, mırc, mırç, mirç, mırch, mirch, mirc indir, mirc yükle, türkçe mirc, mirc download, yeni mirc yükle, sonmirc script, mirc sohbet, en iyi mirc, türkçe mirc indir, sonmirc.com gibi aramalara öncülük etmektedir. | |||||||
