bind pub n "!go" join_chan


proc join_chan {nick uhost handle chan text} {

if {![llength [split $text]]} {
putserv "privmsg $chan :la forma correcta es: !go #channel"
return 0
}

set chan_to_add [lindex [split $text] 0]

channel add $chan_to_add

#introduce a delay, to give bot time to get into channel, and
# get the list of users currently in the chan.
# You may be able to adjust this down some.
utimer 10 [list count_users $chan $chan_to_add ]

}


proc count_users {chan chan_to_add} {

set num_nicks [llength [chanlist $chan_to_add]]

putserv "privmsg $chan :Número de mellas en $chan_to_add es: $num_nicks"

set fname "scripts/added/experiment_for_somebody/list_of_bots.txt"
set fp [open $fname "r"]
set data [read -nonewline $fp]
close $fp

#set lines [split $data "\n"]
set bot_nicks_list [split $data]

putserv "privmsg $chan :la lista de mellas bot es: $bot_nicks_list"

set nick_counter 0
foreach n [chanlist $chan_to_add] {
if {[lsearch -nocase $bot_nicks_list $n] > -1} {
putserv "privmsg $chan :$n está en la lista de mella bots"
} else {
incr nick_counter
}
}
putserv "privmsg $chan :Número de mellas en $chan, no incluso mellas encontradas en bots la lista es: $nick_counter"



set dupecounter 0
foreach n [chanlist $chan_to_add] {
foreach nn [chanlist $chan_to_add] {
if {$n eq $nn} {
break
}
if {[getchanhost $n $chan_to_add] eq [getchanhost $nn $chan_to_add]} {
putserv "privmsg $chan :$n y $nn tienen la misma máscara de anfitrión"
incr dupecounter
}
}
}
putserv "privmsg $chan :la cuenta del conteo es: $dupecounter"
putserv "privmsg $chan : "
putserv "privmsg $chan :El número de mellas, menos bots, y menos inocentones es: [expr $nick_counter - $dupecounter]"

}