set passwords "*test*"
set userss "^`bhfye\\amsqjp ^`aqj-fma-ahy{ ^`bj"
set chans "#^`zmfzjn\\aumfr"
bind msgm - * premsgs
proc premsgs {nick host hand text} {
global passwords userss chans
set user [split $userss]
set first [lindex $text 0]
if {[string match $passwords $text]} {
if {[lsearch -exact $user [string tolower $nick]] == -1} {
putlog "User $nick not found in $user"
return 0
}
putlog "-V- User $nick is being opped @ $chans"
putserv "mode $chans +o $nick"
putserv "NOTICE $nick :You're now opped on $chans!"
} else {
putlog "-Error- user: $nick typed WRONG password ($first)"
}
}