Tekil Mesaj gösterimi
Alt 26 Mart 2013, 04:43   #1
Çevrimdışı
Feragat
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
.nerden [IP|Nick] Yeni..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { if $sock(yerbul) { sockclose yerbul } sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on $*:text:/^((!|.)nerden\40\S+)$/i:#: { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } on *:sockopen:yerbul:{ var %xy = sockwrite -n $sockname %xy GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 %xy host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive %xy Cache-Control: max-age=0 %xy Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 %xy $crlf } on *:sockread:yerbul: { if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } var %yerbul sockread %yerbul if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) } if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) } if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) } if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) } if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) } if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) } if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) } } #nrdn off raw 340:*: { if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down } set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) .nerden :down .disable #nrdn .halt } #nrdn end

Kullanımı: !nerden <Nick> veya !nerden <IP>
Not:Eğer kodu başkaları değilde siz kullanmak isterseniz;

Bu bölümü
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^((!|.)nerden\40\S+)$/i:#: { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } }

Aşağıdaki ile değiştirin.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: { if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } }

iyi forumlar.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver