20 Şubat 2023 tarihinde Mirc addonları kategorisine eklendi.
Yazıyı okuyan kişi sayısı 1105
Merhaba sevgili Mirc sohbet kullanıcıları bu gün siz türkçe mirc severler için hazırlamış olduğumuz Adından anlaşıldığı gibi özelde konuştuğunuz kişinin avatarını siz sizin avatarınızı karşınızdakinin görmesini sağlayan bir kod.
Kodun çalışabilmesi için karşı tarafta da aynı kodun olması gerekmektedir.
Kod Güncellenmiştir Kod yazarı (fav) niçkim banlanmış durumda umarım işinize yarar bir çalışma olmuştur farklı tarzlarda güncellemelere açıktır herkes kullanabilir
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 |
alias urs { sockclose ursm if $1 = $null { %sharing_file = $$msfile($$msfile($mircdir\)) } if $1 { %sharing_file = $1- } %tempsockname = ursm | echo 3 yüklenmeye çalışıyor... sockopen %tempsockname www.hizliresim.com 80 | sockmark %tempsockname filename= $+ %sharing_file | unset %sharing_file | unset %tempsockname } on *:sockopen:ursm: { bset -t &postdata 1 ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="local_files[]"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1 bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_size" $+ $crlf $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_effect" $+ $crlf $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_rotate" $+ $crlf $+ $crlf bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ-- sockwrite -nt $sockname POST /upload.php HTTP/1.1 | sockwrite -nt $sockname Host: www.hizliresim.com sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=----WebKitFormBoundarydeA4whaMQad30HrZ sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf | sockwrite -nt $sockname Connection: Keep-Alive | sockwrite $sockname &postdata } on *:sockread:ursm: { var %x | sockread %x if (<img style="max-width isin %x) { set %brrg $gettok(%x,4,34) | set %orta $gettok(%x,2,47) $+ / | set %sonksm $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34) | echo -a 7Başarıyla yüklendi } } alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 | yklr } on ^*:notice:*:?: { if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef } if (.jpg isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef } if (.bmp isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef } if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm } haltdef } alias yklr { //Background -dp %niickk "avatar/ $+ %rsm $+ " } on *:open:?:*:{ if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) { yklr | .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız } } on *:connect: { tmz } alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } } on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } } on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } } menu * { Avatarım .Karşı Tarafın göreceği Resiminizi Seçiniz:urs } alias resimindir { if $sock(resin) || $sock(resin2) { echo -a * Başka bir işlem devam etmekte } else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 } } on *:sockopen:resin: { if $sockerr { echo 3 -a * hata oluştu, lütfen bağlantınızı kontrol ediniz } else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf } } on *:sockread:resin: { var %ğ | sockread %ğ if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt } if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt } if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(avatar/ $+ %resin.ismi) } } on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(avatar/ $+ %resin.ismi) -1 -1 &pdata | set %rsm %resin.ismi } on *:sockclose:resin2: { if $isfile(avatar/ $+ %resin.ismi) { .unset %resin.* } } |
Türkçe mirc üzerinde avatar addonu kullanabilmek için kullanıcıların aynı Türkçe mirc üzerinden bsohbete bağlanıyor olması gerek ki aynı işlemleri görebilsinler.
Bu tür işlemleri aynı client üzerinde ve aynı Türkçe mirc ile o clienti desteklemesi lazım ancak bu şekilde bi kullanım ile kullanıcılar avatarları görebilirler.
Okuduğunuz makalelere benzer yazılar
Badnick Koruması Merhaba değerli mirc sohbet tutkunları. IRC sohbetin vazgeç
Admin bağlantı menüsü Merhaba arkadaşlar mirc sohbet sitelerine takılanlar