bind join - * checkversion 
proc checkversion {nick host handle chan} {
putserv "privmsg $nick :\001VERSION\001"
}


bind ctcr - version ctcpversion
proc ctcpversion {nick uhost hand dest key text} {
set chan #mypark
set reply $text
set bnick {
  "*mirc*" 
  "*40*"
  "*44" 
  "*43*" 
  "*41" 
  "*42*" 
  "*45*" 
  "*46*" 
  "*47*"
}
if {(([lsearch -exact [string tolower $chan] [string tolower $chan]] != -1)  || ($chan == ""))} {
if {[string match -nocase $bnick $text]} {
putquick "KICK $chan $nick : Versió anticuada o mod. Descarrega eMule a www.emule-project.net"

}

}
}
putlog "Script Check eMule users' Version Loaded"