mIRC Google Logo Olusturucu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 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 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 |
isminizi google logosu tarzinda yazdirabilir,kaydedebilir ve duzenleyebilirsiniz... ====================== */ 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>,<img,src=,\\",images,/,<a>) } 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 Açmak için: /goglogo yaz?n. } } |