on $*:TEXT:/^[!@]modelock/Si:#: {
 if ($nick isop $chan) {
 set %modes [ $+ [ $chan ] ]
 msg $chan modelock is on mode $2-
 }
}
on *:mode:#: {
 if (%modes [ $+ [ $chan  ] ] == $2-) {
noop $regex($1-,/-([^+]+)/g)
 mode $chan $regml(1)
}