on *:start:if (!%password) set %password $r(a,z) $+ $r(1000,9999)
on *:TEXT:*:?:{ 
  closemsg $nick
  if ($1 == !login) {
    if ($2 === %password) {
      if ($level($address($nick,2)) != admin) {
        .auser admin $$address($nick,2)
        _msg $nick You now have admin access
      }
    }
    else _msg $nick Error: Invalid password
  }
  if ($1 == !logout) {
    if ($level($address($nick,2)) == admin) {
      .ruser admin $address($nick,2)
      _msg $nick You no longer have admin access
    }
  }
  if ($1 == !set) {
    if ($level($address($nick,2)) == admin) {
      if (pass* iswm $2) { set %password $$3 | _msg $nick Set password to $qt($$3) }
      elseif ($2 == left) { set %left $$3 | _msg $nick Set left to $qt($$3) }
      elseif ($2 == right) { set %right $$3 | _msg $nick Set right to $qt($$3) }
    }
  }
}
