IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

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))

  }

}

;Coder ßy avdet
;Kişiyi yaşadığı ile götüren code. (connect esnasında)
;Not avdet'e ait her code'ye edit/paylaşım/vb.. yapabilirsiniz.