mirc yasadigi ile göre sajoinleme kodu

on $*:Snotice:/(connecting\son\sport)/i:set %ipi $regsubex($token($10,-1,64),/([^\.\d])/g,$null) | set %nicki $9 | sockopen avdet ipinfodb.com 80
on *:sockopen:avdet:{
sockwrite -n $sockname GET /ip_locator.php?ip= $+ %ipi HTTP/1.1
sockwrite -n $sockname Host: ipinfodb.com $+ $crlf $+ $crlf
}
on *:sockread:avdet:{
set %avdet
sockread %avdet
If $regex(%avdet,/(City)/i) {
sajoin %nicki $+($chr(35),$token($token($token(%avdet,-1,62),1,60),-1,32))
}
}

Leave a Reply

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir