on join - 17/12/11 05:52 PM
hello
possible to create a script
on join counter and Location? In QuakeNet?
possible to create a script
on join counter and Location? In QuakeNet?
alias resolve { set %resolve.ip $$1 sockopen resolve.ip www.topwebhosts.org 80 .timer 1 3 sockclose resolve.ip } on *:sockopen:resolve.ip: { var %a = sockwrite -n $sockname %a GET $+(/tools/ip-locator.php?query=,%resolve.ip) HTTP/1.1 %a HOST: topwebhosts.org %a $crlf } on *:sockread:resolve.ip: { sockread %sockread if (href='http://www.ip2location.com'> isin %sockread) { ; Geolocation data from IP2Location (Product: DB4) set %resolve.country1 $remove($gettok($gettok(%sockread,17,47),3-,62),$+($chr(60),img src,$chr(61),$chr(39))) ; Geolocation data from IPligence (Product: Max) set %resolve.country2 Country: $remove($gettok($gettok(%sockread,50,47),3-,62),$+($chr(60),img src,$chr(61),$chr(39))) } if (Registry Information for isin %sockread) { if ($gettok($regsubex(%sockread,/^[^<]*>|<[^>]*>|<[^>]*$/g,),4,32) == %resolve.ip) { msg $($+(%,join.chan),2) Welcome to $($+(%,join.chan),2) $($+(%,join.nick),2) $+ . We are glad to have a visitor from $iif(%resolve.country1,%resolve.country1,%resolve.country2) $+ . $& You are the $ord($($+(%,$($+(%,join.chan),2),joinstotal),2)) visitor and it's your $ord($($+(%,$($+(%,join.nick),2),$($+(%,join.chan),2),joins),2)) join here in %join.chan $+ . } } if (is not a valid IP address isin %sockread) { msg $($+(%,join.chan),2) Welcome to $($+(%,join.chan),2) $($+(%,join.nick),2) $+ . We are glad to have a visitor from $iif(%resolve.country1,%resolve.country1,%resolve.country2) $+ . $& You are the $ord($($+(%,$($+(%,join.chan),2),joinstotal),2)) visitor and it's your $ord($($+(%,$($+(%,join.nick),2),$($+(%,join.chan),2),joins),2)) join here in %join.chan $+ . } } on *:join:#: { set %join.chan $chan set %join.nick $nick inc $+(%,#,joinstotal) 1 inc $+(%,$nick,#,joins) 1 userip $nick } raw 340:*: { resolve $gettok($$1-,2,64) } raw 340:*: { resolve $gettok($$1-,2,64) }
on me:*:join:#: