Code:

#####################################################################################  BlackCountry 1.0 EN####### The script will ban all IPs which are in countries added to the blacklist.# You can add both full name and/or countries shortcut.## For enable the script: !country <on>/<off> or .chanset #channel +bcountry# Add locations/countries: !country add <locatie> (Ex: US sau United States)# List all blacklisted countries: !country list# Remove countries from the blacklist: !country del <number> (from the blacklist)# For informations: !country help##+++ ATTENTION ++++ You must have 'package GeoIP' for the script to work.## cd /usr/share/GeoIP# wget http://geolite.maxmind.com/download/geoip/database/GeoLiteCountry/GeoIP.dat.gz# gunzip GeoIP.dat.gz# mv -v GeoIP.dat /usr/share/GeoIP/GeoIP.dat### BLaCkShaDoW ProductionS - #TCL-HELP @ Undernet.org##       translation provided by florian@tclscripts.net#####################################################################################Here set the predefined message banset blackcountry(breason) "Due to problems of clones and flood abuse, all\002 %location% users, \002are banned from this channel."#Here set the predefined time ban (minutes)set blackcountry(btime) "120"###################################################################################bind pub mn|- !country blackcountry:cmdbind join - * blackcountry:joinsetudef flag bcountryset blackcountry(file) "scripts/country_list.txt"if {![file exists $blackcountry(file)]} {set file [open $blackcountry(file) w]close $file}proc blackcountry:cmd {nick host hand chan arg} {global blackcountryset arg0 [lindex [split $arg] 0]set arg1 [lindex [split $arg] 1]if {$arg0 == ""} {putserv "NOTICE $nick :\[BlackCountry\] Use: \002!country help\002 for more informations."return}switch $arg0 {on {channel set $chan +bcountryputserv "NOTICE $nick :\[BlackCountry\] enabled on $chan."}off {channel set $chan -bcountryputserv "NOTICE $nick :\[BlackCountry\] disabled on $chan."}add {if {$arg1 == ""} {putserv "NOTICE $nick :\[BlackCountry\] Use: \002!country help\002 for more informations."return}set file [open $blackcountry(file) a]puts $file "$chan $arg1"close $fileputserv "NOTICE $nick :\[BlackCountry\] I added\002 $arg1 \002in my blacklist."}list {set file [open $blackcountry(file) "r"]set read [read -nonewline $file]close $fileset data [split $read "\n"]set i 0if {$data == ""} { putserv "NOTICE $nick :\[BlackCountry\] There are\002 no locations \002added to blacklist."return}putserv "NOTICE $nick :\[BlackCountry\] The list of locations added in my blacklist."foreach line $data {set read_chan [lindex [split $line] 0]if {[string match -nocase $read_chan $chan]} {set i [expr $i +1]set read_blackchan [lindex [split $line] 1]putserv "NOTICE $nick :$i.) $read_blackchan"}}}del {array set countrydel [list]if {![regexp {^[0-9]} $arg1]} {putserv "NOTICE $nick :\[BlackCountry\] Use: \002!country help\002 for more informations."return}set file [open $blackcountry(file) "r"]set data [read -nonewline $file]close $fileset lines [split $data "\n"]set counter -1set line_counter -1set current_place -1foreach line $lines {set line_counter [expr $line_counter + 1]set read_chan [lindex [split $line] 0]if {[string match -nocase $read_chan $chan]} {set counter [expr $counter + 1]set countrydel($counter) $line_counter}}foreach place [array names countrydel] {if {$place == [expr $arg1 - 1]} {set current_place $countrydel($place)}}if {$current_place == "-1"} {putserv "NOTICE $nick :\[BlackCountry\] The entry number\002 $arg1 \002does not exist."return}set delete [lreplace $lines $current_place $current_place]set files [open $blackcountry(file) "w"]puts $files [join $delete "\n"]close $filesset file [open $blackcountry(file) "r"]set data [read -nonewline $file]close $fileif {$data == ""} {set files [open $blackcountry(file) "w"]close $files}putserv "NOTICE $nick :\[BlackCountry\] The entry number\002 $arg1 \002was removed from blacklist."}help {putserv "NOTICE $nick :\[BlackCountry\] To turn the script on or off use: \002!country <on>/<off>\002"putserv "NOTICE $nick :\[BlackCountry\] You can add locations using: \002!country add <location>\002 (Eg: US or United States)"putserv "NOTICE $nick :\[BlackCountry\] To see all the countries use:\002 !country list\002"putserv "NOTICE $nick :\[BlackCountry\] To delete a location use:\002 !country del <number>\002 (from the blacklist)"}}}proc blackcountry:join {nick host hand chan } {global blackcountryset handle [nick2hand $nick]set hostname [lindex [split $host @] 1]if {![validchan $chan]} { return }if {![channel get $chan bcountry]} { return }if {[isbotnick $nick]} { return }if {![botisop $chan]} { return }if {[string match -nocase "*undernet.org" $host]} { return}if {[matchattr $handle "nm|oHPASMVO" $chan]} { return }set execution [exec geoiplookup $hostname]set execution [split $execution "\n"]set split_execution [split [lindex $execution 0] ","]set short_location [concat [string map {"GeoIP Country Edition:" "" "  " ""} [lindex $split_execution 0]]]set location [concat [lindex $split_execution 1]]set file [open $blackcountry(file) "r"]set read [read -nonewline $file]close $fileset data [split $read "\n"]foreach line $data {set read_chan [lindex $line 0]set read_location [lindex $line 1]if {[string match -nocase $read_chan $chan]} {if {[string equal -nocase $read_location $short_location] || [string match -nocase $read_location $location]} {set replace(%location%) $read_locationset reason [string map [array get replace] $blackcountry(breason)]set banmask "*!*@[lindex [split $host @] 1]"newchanban $chan $banmask "BlackCountry" $reason $blackcountry(btime)}}}}putlog "BlackCountry 1.0 EN by BLaCkShaDoW Loaded."