<?xml version="1.0" encoding="UTF-8"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en-gb">
	<link rel="self" type="application/atom+xml" href="https://forum.eggheads.org/app.php/feed/topic/20447" />

	<title>egghelp/eggheads community</title>
	<subtitle>Discussion of eggdrop bots, shell accounts and tcl scripts.</subtitle>
	<link href="https://forum.eggheads.org/index.php" />
	<updated>2018-03-17T04:08:49-04:00</updated>

	<author><name><![CDATA[egghelp/eggheads community]]></name></author>
	<id>https://forum.eggheads.org/app.php/feed/topic/20447</id>

		<entry>
		<author><name><![CDATA[snerism]]></name></author>
		<updated>2018-03-17T04:08:49-04:00</updated>

		<published>2018-03-17T04:08:49-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=106729#p106729</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=106729#p106729"/>
		<title type="html"><![CDATA[Solved - Colors removed!!]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=106729#p106729"><![CDATA[
Solved!<br><div class="codebox"><p>Code: </p><pre><code>############################################################################ # BlackIP 1.7 # - returnsÂ IPs (both IPv4 &amp; IPv6)Â dns, location &amp; organization information for a nick/IP/hostname. # # requires: packages http and json # # USAGE: !ip &lt;ip&gt; / &lt;host&gt; / &lt;nickname&gt; # # UPDATES/CHANGES: # - Changed source website # - Now supports IPv6 # - Now supports eggdrop version less than 1.8.0 # - Now with multi-language support # # To activate .chanset #channel +ip | BlackTools : .set +ip # # To chose a different language .set iplang &lt;RO&gt; / &lt;EN&gt; / &lt;FR&gt; / &lt;ES&gt; # # To work, put the two tcl's in config from the arhive: json.tcl , http.tcl #                 (if you don't have them instaled) # #                                             BLaCkShaDoW ProductionS #                                 WwW.TclScripts.Net        ########################################################################### package require http package require json ### # set here who can execute the command (-|- for all) ### set ip_flags "-mnofb-" ### # Bindings # - using commands ### bind pub $ip_flags !ip black:ip:check ### # Channel flags # - to activate the script: .set +ip or .chanset #channel +ip # # - to set script language: # .set iplang &lt;ro/en/fr/es&gt; or .chanset #channel iplang &lt;ro/en/fr/es&gt; ### setudef flag ip setudef str iplang ############################################################################ ### # Functions # Do NOT touch unless you know what you are doing ### proc black:ip:check {nick host hand chan arg} {    set ip [lindex [split $arg] 0]    set ::chan $chan    set ::ip $ip if {![channel get $chan ip]} { return } if {$ip == ""} {    blackip:tell $nick $chan 1 none    return }    set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} $ip]    set check_ipv4 [regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $ip]     if {![string match -nocase "*:*" $ip] &amp;&amp; ![string match -nocase "*.*" $ip]} {    putserv "WHOIS $ip"    bind raw - 401 no:nick    bind raw - 311 check:for:nick    return } if {$check_ipv6 == "0" &amp;&amp; $check_ipv4 == "0"} {    set getv6 [catch {exec host -t AAAA $ip 2&gt;/dev/null} results]    set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} [lindex $results 4]] if {$check_ipv6 == "1"} {    check:ip [lindex $results 4] $chan 2 $ip    return }    dnslookup $ip solve:ip $chan    return }    check:ip $ip $chan 0 none } proc no:nick { from keyword arguments } {    set chan $::chan    set ip $::ip    blackip:tell "" $chan 2 $ip    unbind raw - 401 no:nick    unbind raw - 311 check:for:nick } proc solve:ip {ip host receive chan} { if {$receive == "1"} {    check:ip $ip $chan 2 $host    } else {    blackip:tell "" $chan 3 $host    } } proc solve:nick:ip {ip host receive chan nick} { if {$receive == "1"} {    check:ip $ip $chan 3 "$host $nick"    } else {    blackip:tell "" $chan 4 "$host~$nick"    } } proc check:for:nick { from keyword arguments } {    set chan $::chan    set getip [lindex [split $arguments] 3]    set getnick [lindex [split $arguments] 1]    set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} $getip]    set check_ipv4 [regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $getip] if {$check_ipv6 == "0" &amp;&amp; $check_ipv4 == "0"} {    set getv6 [catch {exec host -t AAAA $getip 2&gt;/dev/null} results]    set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} [lindex $results 4]] if {$check_ipv6 == "1"} {    check:ip [lindex $results 4] $chan 3 "$getip $getnick"    unbind raw - 311 check:for:nick    unbind raw - 401 no:nick    return }    dnslookup $getip solve:nick:ip $chan $getnick    unbind raw - 311 check:for:nick    unbind raw - 401 no:nick    return }    check:ip $getip $chan 0 $getnick    unbind raw - 311 check:for:nick    unbind raw - 401 no:nick } proc check:ip {ip chan status arg} { global botnick    set noinfo 0    set ipq [http::config -useragent "lynx"]    set ipq [::http::geturl "http://ip-api.com/json/$ip"]    set data [http::data $ipq]    ::http::cleanup $ipq    set parse [::json::json2dict $data]     set location ""    set hostname ""    set org "" foreach {name info} $parse { if {[string equal -nocase $name "hostname"]} { if {$info != "No Hostname"} {    set hostname $info    } } if {[string equal -nocase $name "city"]} { if {$info != ""} {    lappend location $info    } } if {[string equal -nocase $name "regionName"]} { if {$info != ""} {    lappend location $info    } } if {[string equal -nocase $name "country"]} { if {$info != ""} {    lappend location $info    } } if {[string equal -nocase $name "org"]} { if {$info != ""} {    set org $info       }    } if {[string equal -nocase $name "status"]} { if {$info != ""} { if {$info == "fail"} {    set noinfo 1          }       }    } } if {$noinfo == "1"} {    blackip:tell "" $chan 13 $ip    return } if {$org != ""} {    set org_text ";ORG: $org" } else { set org_text "" }    set location [join $location ", "] if {$status != 0} {     if {$status == "1"} { if {$hostname != ""} {    blackip:tell "" $chan 5 "$arg~$ip~$hostname~$location~$org" } else {    blackip:tell "" $chan 6 "$arg~$ip~$location~$org"    } } if {$status == "2"} {    blackip:tell "" $chan 7 "$arg~$ip~$location~$org"    } if {$status == "3"} {    set nickname [lindex [split $arg] 1]    set host [lindex [split $arg] 0]    blackip:tell "" $chan 9 "$host~$nickname" if {$hostname != ""} {    blackip:tell "" $chan 8 "$ip~$hostname~$location~$org"    } else {    blackip:tell "" $chan 10 "$ip~$location~$org"    } } } else { if {$hostname != ""} {    blackip:tell "" $chan 11 "$ip~$hostname~$location~$org" } else {    blackip:tell "" $chan 12 "$ip~$location~$org"       }    } } proc blackip:tell {nick chan type arg} {    global black    set arg_s [split $arg "~"]    set inc 0 foreach s $arg_s {    set inc [expr $inc + 1]    set replace(%msg.$inc%) $s }    set getlang [blackip:getlang $chan] if {[info exists black(blackip.$getlang.$type)]} {    set reply [string map [array get replace] $black(blackip.$getlang.$type)] if {$nick != ""} {    putserv "NOTICE $nick :$reply" } else {    putserv "PRIVMSG $chan :$reply"       }    } } proc blackip:getlang {chan} {    global black    set getlang [string tolower [channel get $chan iplang]] if {$getlang == ""} {    set lang "en" } else { if {[info exists black(blackip.$getlang.1)]} {    set lang $getlang } else {    set lang "en"       }    }    return $lang } #language # Romanian set black(blackip.ro.1) "\[BlackIP\] Foloseste: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;" set black(blackip.ro.2) "\[\00304%msg.1%\003]\ nu este online." set black(blackip.ro.3) "\[\00304X\003\] nu am putut rezolva adresa \00314%msg.1%\003." set black(blackip.ro.4) "\[\00304X\003\] nu am putut rezolva adresa \00314%msg.1%\003 apartinand lui \00303%msg.2%\003." set black(blackip.ro.5) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Locatie: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003" set black(blackip.ro.6) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.ro.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.ro.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.ro.9) "\00302Nick: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003" set black(blackip.ro.10) "\00302IP: \00304%msg.1%\003 |\00302 Locatie: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003" set black(blackip.ro.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.ro.12) "\00302IP: \00304%msg.1%\003 |\00302 Locatie: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003" set black(blackip.ro.13) "\[\00304X\003\] \00303%msg.1%\003 adresa IP necunoscuta" # English set black(blackip.en.1) "\[BlackIP\] USAGE: !ip &lt;ip&gt; / &lt;host&gt; / &lt;nickname&gt;"set black(blackip.en.2) "\[%msg.1%]\ is not Online." set black(blackip.en.3) "\[X\] unable to resolve address %msg.1%."set black(blackip.en.4) "\[X\] unable to resolve address %msg.1% from %msg.2%."set black(blackip.en.5) "NickName: %msg.1% | IP: %msg.2% | Host: %msg.3% | Location: %msg.4% | ORG: %msg.5%"set black(blackip.en.6) "NickName: %msg.1% | IP: %msg.2% | Location: %msg.3% | ORG: %msg.4%"set black(blackip.en.7) "Host: %msg.1% | IP: %msg.2% | Location: %msg.3% | ORG: %msg.4%"set black(blackip.en.8) "IP: %msg.1% | Host: %msg.2% | Location: %msg.3% | ORG: %msg.4%"set black(blackip.en.9) "NickName: %msg.2% | Host: %msg.1%" set black(blackip.en.10) "IP: %msg.1% | Location: %msg.2% | ORG: %msg.3%" set black(blackip.en.11) "IP: %msg.1% | Host: %msg.2% | Location: %msg.3% | ORG: %msg.4%" set black(blackip.en.12) "IP: %msg.1% | Location: %msg.2% | ORG: %msg.3%" set black(blackip.en.13) "\[X\] %msg.1% unknown ip address" # French set black(blackip.fr.1) "\[BlackIP\] Utilisation: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;" set black(blackip.fr.2) "\[\00304%msg.1%\003]\ n'est pas en ligne." set black(blackip.fr.3) "\[\00304X\003\] incapable de resoudre l'adresse \00314%msg.1%\003." set black(blackip.fr.4) "\[\00304X\003\] incapable de resoudre l'adresse \00314%msg.1%\003 de \00303%msg.2%\003." set black(blackip.fr.5) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Localisation: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003" set black(blackip.fr.6) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.fr.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.fr.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.fr.9) "\00302Nick: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003" set black(blackip.fr.10) "\00302IP: \00304%msg.1%\003 |\00302 Localisation: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003" set black(blackip.fr.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.fr.12) "\00302IP: \00304%msg.1%\003 |\00302 Localisation: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003" set black(blackip.fr.13) "\[\00304X\003\] \00303%msg.1%\003 adresse IP inconnue" # Spanish set black(blackip.es.1) "\[BlackIP\] Uso: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;" set black(blackip.es.2) "\[\00304%msg.1%\003]\ no esta en linea." set black(blackip.es.3) "\[\00304X\003\] incapaz de resolver la direccion \00314%msg.1%\003." set black(blackip.es.4) "\[\00304X\003\] incapaz de resolver la direccion \00314%msg.1%\003 desde \00303%msg.2%\003." set black(blackip.es.5) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Localizacion: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003" set black(blackip.es.6) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.es.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.es.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.es.9) "\00302Nick: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003" set black(blackip.es.10) "\00302IP: \00304%msg.1%\003 |\00302 Localizacion: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003" set black(blackip.es.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003" set black(blackip.es.12) "\00302IP: \00304%msg.1%\003 |\00302 Localizacion: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003" set black(blackip.es.13) "\[\00304X\003\] \00303%msg.1%\003 direccion IP desconocida" putlog "BlackIP 1.7 (IPv6 support) by BLaCkShaDoW Loaded" ############## ########################################################## ##   END                                                 # ########################################################## </code></pre></div><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=12670">snerism</a> — Sat Mar 17, 2018 4:08 am</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[snerism]]></name></author>
		<updated>2018-03-17T00:26:45-04:00</updated>

		<published>2018-03-17T00:26:45-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=106728#p106728</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=106728#p106728"/>
		<title type="html"><![CDATA[BlackIP 1.7 (By: BLaCkShaDoW) - Remove all colors =)]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=106728#p106728"><![CDATA[
Hi All, trust all is well with you guys!<br><br>The tcl works flawlessly and there are no issues.<br><br>However, would you be so kind to assist me to "Remove all the Colored Text" results that shows in the Main Channel Chatroom.<br><br>Your assistance on this matter are highly appreciated.<br><div class="codebox"><p>Code: </p><pre><code>############################################################################# BlackIP 1.7# - returnsÂ IPs (both IPv4 &amp; IPv6)Â dns, location &amp; organization information for a nick/IP/hostname.## requires: packages http and json## USAGE: !ip &lt;ip&gt; / &lt;host&gt; / &lt;nickname&gt;## UPDATES/CHANGES:# - Changed source website# - Now supports IPv6# - Now supports eggdrop version less than 1.8.0# - Now with multi-language support## To activate .chanset #channel +ip | BlackTools : .set +ip# # To chose a different language .set iplang &lt;RO&gt; / &lt;EN&gt; / &lt;FR&gt; / &lt;ES&gt;## To work, put the two tcl's in config from the arhive: json.tcl , http.tcl#  (if you don't have them instaled)##                                             BLaCkShaDoW ProductionS#                        WwW.TclScripts.Net       ###########################################################################package require httppackage require json#### set here who can execute the command (-|- for all)###set ip_flags "-|-"#### Bindings# - using commands###bind pub $ip_flags !ip black:ip:check#### Channel flags# - to activate the script: .set +ip or .chanset #channel +ip## - to set script language:# .set iplang &lt;ro/en/fr/es&gt; or .chanset #channel iplang &lt;ro/en/fr/es&gt;###setudef flag ipsetudef str iplang################################################################################ Functions# Do NOT touch unless you know what you are doing###proc black:ip:check {nick host hand chan arg} {set ip [lindex [split $arg] 0]set ::chan $chanset ::ip $ipif {![channel get $chan ip]} {return}if {$ip == ""} {blackip:tell $nick $chan 1 nonereturn}set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} $ip]set check_ipv4 [regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $ip]if {![string match -nocase "*:*" $ip] &amp;&amp; ![string match -nocase "*.*" $ip]} {putserv "WHOIS $ip"bind raw - 401 no:nickbind raw - 311 check:for:nickreturn}if {$check_ipv6 == "0" &amp;&amp; $check_ipv4 == "0"} {set getv6 [catch {exec host -t AAAA $ip 2&gt;/dev/null} results]set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} [lindex $results 4]]if {$check_ipv6 == "1"} {check:ip [lindex $results 4] $chan 2 $ipreturn}dnslookup $ip solve:ip $chanreturn}check:ip $ip $chan 0 none}proc no:nick { from keyword arguments } {set chan $::chanset ip $::ipblackip:tell "" $chan 2 $ipunbind raw - 401 no:nickunbind raw - 311 check:for:nick}proc solve:ip {ip host receive chan} {if {$receive == "1"} {check:ip $ip $chan 2 $host} else {blackip:tell "" $chan 3 $host}}proc solve:nick:ip {ip host receive chan nick} {if {$receive == "1"} {check:ip $ip $chan 3 "$host $nick"} else {blackip:tell "" $chan 4 "$host~$nick"}}proc check:for:nick { from keyword arguments } {set chan $::chanset getip [lindex [split $arguments] 3]set getnick [lindex [split $arguments] 1]set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} $getip]set check_ipv4 [regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} $getip]if {$check_ipv6 == "0" &amp;&amp; $check_ipv4 == "0"} {set getv6 [catch {exec host -t AAAA $getip 2&gt;/dev/null} results]set check_ipv6 [regexp {^([0-9A-Fa-f]{0,4}:){2,7}([0-9A-Fa-f]{1,4}$|((25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\.|$)){4})$} [lindex $results 4]]if {$check_ipv6 == "1"} {check:ip [lindex $results 4] $chan 3 "$getip $getnick"unbind raw - 311 check:for:nickunbind raw - 401 no:nickreturn}dnslookup $getip solve:nick:ip $chan $getnickunbind raw - 311 check:for:nickunbind raw - 401 no:nickreturn}check:ip $getip $chan 0 $getnickunbind raw - 311 check:for:nickunbind raw - 401 no:nick}proc check:ip {ip chan status arg} {global botnickset noinfo 0set ipq [http::config -useragent "lynx"]set ipq [::http::geturl "http://ip-api.com/json/$ip"] set data [http::data $ipq]::http::cleanup $ipqset parse [::json::json2dict $data]  set location ""set hostname ""set org ""foreach {name info} $parse {if {[string equal -nocase $name "hostname"]} {if {$info != "No Hostname"} {set hostname $info}}if {[string equal -nocase $name "city"]} {if {$info != ""} {lappend location $info}}if {[string equal -nocase $name "regionName"]} {if {$info != ""} {lappend location $info}}if {[string equal -nocase $name "country"]} {if {$info != ""} {lappend location $info}}if {[string equal -nocase $name "org"]} {if {$info != ""} {set org $info}}if {[string equal -nocase $name "status"]} {if {$info != ""} {if {$info == "fail"} {set noinfo 1}}}}if {$noinfo == "1"} {blackip:tell "" $chan 13 $ipreturn}if {$org != ""} {set org_text ";\00302 ORG: \00310$org\003"} else { set org_text "" }set location [join $location ", "]if {$status != 0} {if {$status == "1"} {if {$hostname != ""} {blackip:tell "" $chan 5 "$arg~$ip~$hostname~$location~$org"} else {blackip:tell "" $chan 6 "$arg~$ip~$location~$org"} }if {$status == "2"} { blackip:tell "" $chan 7 "$arg~$ip~$location~$org"}if {$status == "3"} {set nickname [lindex [split $arg] 1]set host [lindex [split $arg] 0]blackip:tell "" $chan 9 "$host~$nickname"if {$hostname != ""} {blackip:tell "" $chan 8 "$ip~$hostname~$location~$org"} else {blackip:tell "" $chan 10 "$ip~$location~$org"}}} else {if {$hostname != ""} {blackip:tell "" $chan 11 "$ip~$hostname~$location~$org"} else {blackip:tell "" $chan 12 "$ip~$location~$org"}}}proc blackip:tell {nick chan type arg} {global blackset arg_s [split $arg "~"]set inc 0foreach s $arg_s {set inc [expr $inc + 1]set replace(%msg.$inc%) $s}set getlang [blackip:getlang $chan]if {[info exists black(blackip.$getlang.$type)]} {set reply [string map [array get replace] $black(blackip.$getlang.$type)]if {$nick != ""} {putserv "NOTICE $nick :$reply"} else {putserv "PRIVMSG $chan :$reply"}}}proc blackip:getlang {chan} {global blackset getlang [string tolower [channel get $chan iplang]]if {$getlang == ""} {set lang "en"} else {if {[info exists black(blackip.$getlang.1)]} {set lang $getlang} else { set lang "en"}}return $lang}#language# Romanianset black(blackip.ro.1) "\[BlackIP\] Foloseste: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;"set black(blackip.ro.2) "\[\00304%msg.1%\003]\ nu este online."set black(blackip.ro.3) "\[\00304X\003\] nu am putut rezolva adresa \00314%msg.1%\003."set black(blackip.ro.4) "\[\00304X\003\] nu am putut rezolva adresa \00314%msg.1%\003 apartinand lui \00303%msg.2%\003."set black(blackip.ro.5) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Locatie: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003"set black(blackip.ro.6) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.ro.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.ro.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.ro.9) "\00302Nick: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003"set black(blackip.ro.10) "\00302IP: \00304%msg.1%\003 |\00302 Locatie: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.ro.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Locatie: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.ro.12) "\00302IP: \00304%msg.1%\003 |\00302 Locatie: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.ro.13) "\[\00304X\003\] \00303%msg.1%\003 adresa IP necunoscuta"# Englishset black(blackip.en.1) "\[BlackIP\] USAGE: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;"set black(blackip.en.2) "\[\00304%msg.1%\003]\ is not Online."set black(blackip.en.3) "\[\00304X\003\] unable to resolve address \00314%msg.1%\003."set black(blackip.en.4) "\[\00304X\003\] unable to resolve address \00314%msg.1%\003 from \00303%msg.2%\003."set black(blackip.en.5) "\00302NickName: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Location: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003"set black(blackip.en.6) "\00302NickName: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Location: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.en.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Location: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.en.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Location: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.en.9) "\00302NickName: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003"set black(blackip.en.10) "\00302IP: \00304%msg.1%\003 |\00302 Location: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.en.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Location: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.en.12) "\00302IP: \00304%msg.1%\003 |\00302 Location: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.en.13) "\[\00304X\003\] \00303%msg.1%\003 unknown ip address"# Frenchset black(blackip.fr.1) "\[BlackIP\] Utilisation: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;"set black(blackip.fr.2) "\[\00304%msg.1%\003]\ n'est pas en ligne."set black(blackip.fr.3) "\[\00304X\003\] incapable de resoudre l'adresse \00314%msg.1%\003."set black(blackip.fr.4) "\[\00304X\003\] incapable de resoudre l'adresse \00314%msg.1%\003 de \00303%msg.2%\003."set black(blackip.fr.5) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Localisation: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003"set black(blackip.fr.6) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.fr.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.fr.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.fr.9) "\00302Nick: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003"set black(blackip.fr.10) "\00302IP: \00304%msg.1%\003 |\00302 Localisation: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.fr.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localisation: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.fr.12) "\00302IP: \00304%msg.1%\003 |\00302 Localisation: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.fr.13) "\[\00304X\003\] \00303%msg.1%\003 adresse IP inconnue"# Spanishset black(blackip.es.1) "\[BlackIP\] Uso: \002!ip\002 &lt;ip&gt; / &lt;\002host\002&gt; / &lt;nickname&gt;"set black(blackip.es.2) "\[\00304%msg.1%\003]\ no esta en linea."set black(blackip.es.3) "\[\00304X\003\] incapaz de resolver la direccion \00314%msg.1%\003."set black(blackip.es.4) "\[\00304X\003\] incapaz de resolver la direccion \00314%msg.1%\003 desde \00303%msg.2%\003."set black(blackip.es.5) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 | \00302Host: \00304%msg.3%\003 |\00302 Localizacion: \00314%msg.4%\003 |\00302 ORG: \00310%msg.5%\003"set black(blackip.es.6) "\00302Nick: \00303%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.es.7) "\00302Host: \00306%msg.1%\003 | \00302IP: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.es.8) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.es.9) "\00302Nick: \00303%msg.2%\003 | \00302Host: \00306%msg.1%\003"set black(blackip.es.10) "\00302IP: \00304%msg.1%\003 |\00302 Localizacion: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.es.11) "\00302IP: \00304%msg.1%\003 | \00302Host: \00304%msg.2%\003 |\00302 Localizacion: \00314%msg.3%\003 |\00302 ORG: \00310%msg.4%\003"set black(blackip.es.12) "\00302IP: \00304%msg.1%\003 |\00302 Localizacion: \00314%msg.2%\003 |\00302 ORG: \00310%msg.3%\003"set black(blackip.es.13) "\[\00304X\003\] \00303%msg.1%\003 direccion IP desconocida"putlog "BlackIP 1.7 (IPv6 support) by BLaCkShaDoW Loaded"##########################################################################   END                                                 ###########################################################</code></pre></div><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=12670">snerism</a> — Sat Mar 17, 2018 12:26 am</p><hr />
]]></content>
	</entry>
	</feed>
