Posted to tcl by b0t at Thu Feb 25 14:19:08 GMT 2021view pretty
set ops {jack {españa {} ops {}} rick {españa {} mexico {}} kevin {us {}}} proc ban:ban1 { nickname hostname handle channel arguments } { global ban global ops set channel [lindex [split $channel #] 1] set channel [encoding convertfrom utf-8 $channel] set ops [encoding convertfrom utf-8 $ops] if {[dict exists $ops [string tolower $nickname] $channel]} { #YES, EXISTS! } }