on 1:TEXT:!ao*:#:{
  if ($nick !isop $chan) { msg $chan 1Command Ignored 4(Must be OP) }
  else { writeini aop.ini $2 aop $address($2,2) | msg $chan 12Added 1 $2 12to Auto Op List }
}
on 1:TEXT:!av*:#:{
  if ($nick !isop $chan) { msg $chan 1Command Ignored 4(Must be OP) }
  else { writeini aov.ini $2 aov $address($2,2) | msg $chan 12Added 1 $2 12to Auto Voice List }
}
on 1:TEXT:!ahop*:#:{
  if ($nick !isop $chan) { msg $chan 1Command Ignored 4(Must be OP) }
  else { writeini aoh.ini $2 aoh $address($2,2) | msg $chan 12Added 1 $2 12to Auto Half-OP List }
}
on 1:JOIN:#:{
  if ($readini(aop.ini,$nick,aop) == $address($nick,2)) { mode $chan +o $nick }
  if ($readini(aov.ini,$nick,aov) == $address($nick,2)) { mode $chan +v $nick }
  if ($readini(aoh.ini,$nick,aoh) == $address($nick,2)) { mode $chan +h $nick }
}
on 1:TEXT:!-ao*:#:{
  if ($nick !isop $chan) { msg $chan 1Command ignored 4(Must be OP) }
  else { remini aop.ini $2 | msg $chan 12Removed 1 $2 12From Auto Op List }
}
on 1:TEXT:!-av*:#:{
  if ($nick !isop $chan) { msg $chan 1Command ignored 4(Must be OP) }
  else { remini aov.ini $2 | msg $chan 12Removed 1 $2 12From Auto Voice List }
}
on 1:TEXT:!-ahop*:#:{
  if ($nick !isop $chan) { msg $chan 1Command ignored 4(Must be OP) }
  else { remini aoh.ini $2 | msg $chan 12Removed 1 $2 12From Auto Half-OP List }

  alias mwhois {
    var %x = 1
    while (%x <= $nick(#,0)) {
      if ($nick(#,%x) != $me) { whois $nick(#,%x) }
      inc %x
    }
  }
  raw 311:*:{
    window @whois 0 0 450 160 arial 14
    aline @whois --------------------
    aline @whois Nick: $2
    aline @whois Host: $3 $+ @ $+ $4
    aline @whois Real name: $6-
    halt
  }
  raw 312:*:aline @whois Server: $3 | halt
  raw 319:*:aline @whois Channels: $3- | halt
  raw 317:*:aline @whois Idle: $duration($3) | halt
  raw 313:*:aline @whois $2- | halt
  raw 301:*:aline @whois Away: $3- | halt
  raw 378:*:aline @whois IP: $7 | halt
  raw 318:*:halt


alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } }