Someone

#modelock off

on *:RAWMODE:%lockchannel {
  if ($nick == $me) { return }
  if (+ isin $1-) { mode # - $+ $remove($1-,+) $opnick | halt }
  elseif (- isin $1-) { mode # + $+ $remove($1-,-) $opnick | halt }
}

on *:mode:%lockchannel {
  if ($nick == $me) { return }
  if (+ isin $1-) { mode # - $+ $remove($1-,+) | halt }
  elseif (- isin $1-) { mode # + $+ $remove($1-,-) | halt }
}

#modelock end

menu channel {
  ModeLocks
  .Status ( $+ $group(#modelock).status $+ )
  ..$iif( $group(#modelock).status == on, off, on): { 
    echo $colour(info) -a ModeLock $iif( $group(#modelock).status == on, disabled, enabled) 
    .$iif( $group(#modelock).status == on, .disable, .enable) #modelock 
  }
}

on *:TEXT:*:#: {
  if ($nick == got_weed) {
    if ($1 == !lock) {
      if (!$2) || ($2 == help) { notice $nick Usage: !lock <on;off;status> }
      else {
        if ($2 == on) {
          set %lockchannel $chan
          enable #modelock
          msg $chan ModeLock Enabled For Channel: %lockchannel
          halt
        }
        elseif ($2 == off) {
          unset %lockchannel
          disable #modelock
          msg $chan ModeLock Disabled
          halt
        }
        elseif ($2 == status) {
          if ( $group(#modelock).status == ON ) {
            msg $chan ModeLock Status is $group(#modelock) $+ , and set to Channel: %lockchannel
            halt
          }
          else {
            msg $chan ModeLock Status is $group(#modelock)
          }
        }
      }
    }
  }
}