Miscellany

on 1:TEXT:!aop*:#pcv:{
  if ($nick !isop #pcv) { msg $chan Command Ignored (Must be OP) }
  else { writeini aop.ini $2 aop $address($2,2) | msg $chan Added $2 to Auto Op List }
}
on 1:TEXT:!av*:#pcv:{
  if ($nick !isop #pcv) { msg $chan Command Ignored (Must be OP) }
  else { writeini aov.ini $2 aov $address($2,2) | msg $chan Added $2 to Auto Voice List }
}
on 1:TEXT:!aoh*:#pcv:{
  if ($nick !isop #blood-pc) { msg $chan Command Ignored (Must be OP) }
  else { writeini aoh.ini $2 aoh $address($2,2) | msg $chan Added $2 to Auto Half-OP List }
}
on 1:JOIN:#pcv:{
  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:!delaop*:#pcv:{
  if ($nick !isop #pcv) { msg $chan Command ignored (Must be OP) }
  else { remini aop.ini $2 | msg $chan Removed $2 From Auto Op List }
}
on 1:TEXT:!delaov*:#pcv:{
  if ($nick !isop #pcv) { msg $chan Command ignored (Must be OP) }
  else { remini aov.ini $2 | msg $chan Removed $2 From Auto Voice List }
}
on 1:TEXT:!delaoh*:#pcv:{
  if ($nick !isop #pcv) { msg $chan Command ignored (Must be OP) }
  else { remini aoh.ini $2 | msg $chan Removed $2 From 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 }