James

ON $*:TEXT:/^[!@.]Set( (.*) (On|Off))?$/i:#:{
  if ($hget(Status,$+($chan,:,$network))) { halt }
  else {
    if (!$3) {
      notice $nick Syntax Error: !Set $+(<,$c1(Command),>) [n/Off]
    }
    else {
      if ($nick !isop $chan || $nick ishop $chan || $nick !ison $AdminChannel) {
        notice $nick Access Denied.
      }
      else {
        if ($sets($2)) {
          if ($3 == Off) {
            writeini Sets.ini $+($network,:,$chan) $sets($2) Off
            notice $nick $+($2,'s) have been $c1(disabled) for $c1($chan)
          }
          else {
            remini Sets.ini $+($network,:,$chan) $sets($2) 
            notice $nick $+($2,'s) have been $c1(enabled) for $c1($chan)
          }
        }
        else {
          notice $nick $logo(error) We don't have $qt($c1($2)) in our command database
        }
      }
    }
  }
}
Alias sets {
  if ($regex($1,/^D(eath)?M(atch)?$/i)) return DM
  elseif ($regex($1,/^Stats?$/i)) return Stats
  elseif ($regex($1,/^Co?mb(at)?$/i)) return Combat
  elseif ($regex($1,/^Alch(emy)?$/i)) return Alch
  elseif ($regex($1,/^Spell(ing)?$/i)) return Spell
  elseif ($regex($1,/^Spells?Name$/i)) return SpellName
  elseif ($regex($1,/^Clans?$/i)) return Clan
  elseif ($regex($1,/^Clan(Name|Info)$/i)) return ClanInfo
  elseif ($regex($1,/^Compare$/i)) return Compare
  elseif ($regex($1,/^Define?(ition)?$/i)) return Define
  elseif ($regex($1,/^Duel$/i)) return Duel
  elseif ($regex($1,/^Goog(le)?$/i)) return Google
  elseif ($regex($1,/^G(old)?P(pieces?)?$/i)) return GP
  elseif ($regex($1,/^Halo(3|Three)?$/i)) return Halo3
  elseif ($regex($1,/^(Monsters?|NPCs?)$/i)) return Monster
  elseif ($regex($1,/^P(est)?C(ontrol)?$/i)) return PC
  elseif ($regex($1,/^(rs)?Poll$/i)) return RsPoll
  elseif ($regex($1,/^(rs)?Players$/i)) return Players
  elseif ($regex($1,/^Q(uick)?F(ind)?$/i)) return QF
  elseif ($regex($1,/^(rs)?Prices?$/i)) return Price
  elseif ($regex($1,/^Quest(names?)$/i)) return Quest
  elseif ($regex($1,/^Ranks?$/i)) return Rank
  elseif ($regex($1,/^R(une)?S(cape)?N(ame)?$/i)) return RSN
  elseif ($regex($1,/^(rs)?News$/i)) return RsNews
  elseif ($regex($1,/^Poll$/i)) return Poll
  elseif ($regex($1,/^Seens?$/i)) return Seen
  elseif ($regex($1,/^Skills?$/i)) return Skills
  elseif ($regex($1,/Urban(Dictionary)?$/i)) return Urban
  elseif ($regex($1,/World(Info)?$/i)) return World
  elseif ($regex($1,/(Yo)?utube$/i)) return YouTube
  elseif ($regex($1,/Trivia$/i)) return Trivia
}