Well i made this because i saw one a second ago about moderating rooms and i saw some of the replies so i though to my self.. Let's take this and make it a bit better so i went away had a quick go and this is what i came up with.

Rate/comment

:)

MENU channel {
  Current modes
  .Moderation
  ..$style(2) The channel is $iif(m !isincs $chan(#).mode,not)} Moderated : noop
  ..Change?:{
    if $me isop $chan { 
      if (m isincs $chan(#).mode)} { mode $chan -m }
      if (m !isincs $chan(#).mode)} { mode $chan +m }
    }
    else { echo Sorry you can't change this }
  }

  .Invite only
  ..$style(2) The channel is $iif(i !isincs $chan(#).mode,not)} Set to invite only : noop
  ..Change?:{
    if $me isop $chan {
      if (i isincs $chan(#).mode)} { mode $chan -i }
      if (i !isincs $chan(#).mode)} { mode $chan +i }
    }
    else { echo Sorry you are not an op and can't change this }
  }

  .Private
  ..$style(2) The channel is $iif(p !isincs $chan(#).mode,not)} Set to Private : noop
  ..Change?:{
    if $me isop $chan {
      if (p isincs $chan(#).mode)} { mode $chan -p }
      if (p !isincs $chan(#).mode)} { mode $chan +p }
    }
    else { echo Nope can't change this have to be an op }
  }

  .limit
  ..$style(2) The channel is $iif(l !isincs $chan(#).mode,not)} Set to limit only : noop
  .. Change?:{
    if $me isop $chan {
      if (l isincs $chan(#).mode)} { mode $chan -l }
      if (l !isincs $chan(#).mode)} { 
        $$?"To how many users?" 

        if $! isnum 0-100 { mode $chan + l $! }
        elseif $! isalnum { echo Pleae enter Only a number }
      }
    }
    else { echo You are not an op :/ so you can't change it }
  }

  .Secret
  ..$style(2) The channel is $iif(s !isincs $chan(#).mode,not)} Set to Secret : noop
  ..Change?:{
    if $me isop $chan { 
      if (s isincs $chan(#).mode)} { mode $chan -s }
      if (s !isincs $chan(#).mode)} { mode $chan +s }
    }
    else { echo Well your not an op so this is not to be changed by you }
  }

  .Password Protected
  ..$style(2) The channel does $iif(k !isincs $chan(#).mode,not)} have a password : noop
  ..Change?:{
    if $me isop $chan {
      if (k isincs $chan(#).mode)} { mode $chan -k $chan($chan).key  }
      if (k !isincs $chan(#).mode)} { mode $chan +k $$?"Password" }
    }
    else { echo :O You can't change this, because your not an op }
  }

  .External Message
  ..$style(2) The channel is $iif(n !isincs $chan(#).mode,not)} Set to no external messages : noop
  ..Change?:{
    if $me isop $chan {
      if (n isincs $chan(#).mode)} { mode $chan -n }
      if (n !isincs $chan(#).mode)} { mode $chan +n }
    }
    else { echo >_< Nope can't do that aint an op >_< }
  }

  .Only op's can change topic
  ..$style(2) The channel is $iif(t !isincs $chan(#).mode,not)} Set to have only op's change the topic : noop
  ..Change?:{
    if $me isop $chan {
      if (t isincs $chan(#).mode)} { mode $chan -t }
      if (t !isincs $chan(#).mode)} { mode $chan +t }
    }
    else { echo Nope sorry no op }
  }
}