on *:TEXT:*:#:{
  if ($me != [Trauma]) { halt }
  if ($nick isop #) {
    if ($regex($1,/^[!@.]inv(ite)?$/)) {
      invite $2 #
    }
    if ($regex($1,/^[+-].*/)) {
      if ($regex($1,/^([+-][mi]+)+/)) {
        mode # $1
      }
      if ($regex($1,/^([+-][qaohv]+)+/)) {
        mode # $1 $2-
      }
      var %regex = /^([+-][beI]+)+/i
      if ($regex($1,%regex)) {
        who #
        var %B $count($1,b,e,I) + 1
        var %X 2
        while (%X <= %B) {
          var %Ban = %Ban $address($ [ $+ [ %X ] ],2)
          inc %X
        }
        mode # $1 %Ban
      }
    }
    if ($regex($1,/^[!@.]hltag$/)) {
      msg # $tit(hltag) $c1($regsubex($str(.,$fline($chan,*[Z]*,N,1)), /./g, $fline($chan, *[Z]*,\n,1).text $+ $chr(32)))
    }
    if ($1 == $+($me,$chr(44))) {
      if (($!ip isin $2-) || (-x isin $2-)) {
        halt
      }
      elseif ($2 == say) {
        msg # $3-
      }
      else {
        scon -r $2-
      }
    }
    if ($regex($1,/[!@.]set(web)?(site|forum(s|z)?)$/Si)) {
      writeini $qt($+($mircdir,Clanname\Settings.ini)) Site site $2-
      msg # $tit(Site) $c1(The site has been set! Type) $c2(!site) $c1(to see it.)
    }
    if ($regex($1,/[!@.]setreq(uirement)?(s|z)?$/Si)) {
      writeini $qt($+($mircdir,Clanname\Settings.ini)) Reqs reqs $2-
      msg # $tit(Reqs) $c1(The requirements have been set! Type) $c2(!reqs) $c1(to see them.)
    }
    if ($regex($1,/[!@.]setc(lan)?c(hat)?$/Si)) {
      writeini $qt($+($mircdir,Clanname\Settings.ini)) Cc cc $2-
      msg # $tit(Clanchat) $c1(The clan chat has been set! Type) $c2(!cc) $c1(to see it.)
    }
  }
  if ($regex($1,/[!@.](web)?(site|forum(s|z)?)$/Si)) {
    $iif(@ isin $1,msg #,notice $nick) $tit(Site) $c1(The site for) $c2(Clanname) $c1(is) $c2($readini($qt($+($mircdir,Clanname\Settings.ini)),Site,site))
  }
  if ($regex($1,/[!@.]req(uirement)?(s|z)?$/Si)) {
    $iif(@ isin $1,msg #,notice $nick) $tit(Reqs) $c1(The requirements for) $c2(Clanname) $c1(are) $c2($readini($qt($+($mircdir,Clanname\Settings.ini)),Reqs,reqs))
  }
  if ($regex($1,/[!@.]c(lan)?c(hat)?$/Si)) {
    $iif(@ isin $1,msg #,notice $nick) $tit(Clanchat) $c1(The clan chat for) $c2(Clanname) $c1(is) $c2($readini($qt($+($mircdir,Clanname\Settings.ini)),Cc,cc))
  }
}