| immortaL | 23 Kasım 2016 17:35 |
!nerden <Nick> Komutu ile Userin Olduğu İli Öğrenme
Kod:
alias nerden {
if $sock(yerbul) {
sockclose yerbul
}
sockopen yerbul www.ipaddresslocation.org 80
}
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
}
}
}
on *:sockopen:yerbul:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
sockwrite -n $sockname host: www.ipaddresslocation.org
sockwrite -n $sockname $crlf
}
on *:sockread:yerbul: {
if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt }
var %yerbul
sockread %yerbul
if $regex(hst,%yerbul,/(<\142\162\40/><\151>\110\S{7}\72\40<\142>(.+)<\142\162\40/>)$/i) { /msg %c_n 1Host:14 $regml(hst,2) }
if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72\40<\142>(\S+))$/i) { /msg %c_n 1Ulke:14 $regml(cnt,2) }
if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72\40<\142>(\S+)<\142\162\40\/>)$/i) { /msg %c_n 1Ulke Kodu:14 $regml(cod,2) }
if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72\40<\142>(\S+)<\142\162\40\/>)$/i) { /msg %c_n 1Kita:14 $regml(kta,2) }
if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72\40<\142>(\S+)<\142\162\40\/>)$/i) { /msg %c_n 1Bolge:14 $regml(rgn,2) }
if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)<\142\162\40\/>)$/i) { /msg %c_n 1Sehir:14 $regml(cty,2) }
if $regex(org,%yerbul,/^(<\151>\117\S{11}\72\40<\142>(.+)<\142\162\40\/>)$/i) { /msg %c_n 1Organizasyon:14 $regml(org,2) }
if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72\40<\142>(.+)<\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 1Servis 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
Not : Kodun Yapımcısı @ Feragat |
