Eğer kendi scriptine eklersen
(on $*:text...) event ı ile, başkaları
!nerden <Nick veya IP> komutu ile kullanabilir sen kullanamazsın. Bu tarz sorgular %100 doğru
göstermez, Ayrıca bazı kullanıcılar sorgulanan nickin veya IP in ev adresini gösteriyor gibi yalnış bilgilere sahip, yalnızca IP adresinin dağıtıldığı,sağlandığı hizmet binasının adresini gösterir(Genellikle aynı şehirdir.) ve bu kesinlikle
%100 değildir, bölgeye, konuma ve pek çok şeye göre farklılık gösterir. Eğer
!nerden <Nick veya IP> komutuyla hem sen, hem de başkaları kullansın istiyorsan bir bota vs.
"on $*:text" event'ı ile entegre etmen gerek kodu. Aslında pek çok site var IP sorgulayan ben uzun zamandır bunu kullanıyordum, diğerlerinden bana göre biraz daha sağlıklı geldiği için(kısmen) bu adresi seçtim.
Eğer kodu kendi Scriptine aşağıdaki haliyle eklersen hem sen hemde diğer kullanıcılar Kullanabilir.
Not: Diğer kullanıcılar #OperHelp kanalda
!nerden <Nick veya IP> şeklinde kullanılar,
Sen /bul <Nick veya IP> komutuyla kullanabilirsin. İyi forumlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias bul {
if $regex($1,/(\d+\56\d+\56\d+\56\d+)$/iA) { .set -e %nrd $1 | .set -e %c_n $chan | .nerden }
elseif $regex($1,/^[^\d]/i) { .userip $1 | .enable #nrdn | .set -e %c_n $chan }
}
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:#OperHelp: {
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
}
#nrdn end