alias scanip {
  if (!$1) { echo -a 3* Scanip syntax: /scanip <IP/nick> | halt }
  if (*.*.*.* !iswm $1) { echo -a 3* Retreiving IP address for $1 $+ ... | set %nick.ip $1 | scan.nick | return }
  echo -a 3 * Scanning # for ( $+ $1 $+ )...
  set -u20 %scanning.for $1
  set -u20 %scan.active $true
  set -u20 %chan $chan($active)
  set -u20 %st $nick( %chan ,0)
  set -u20 %sp 1
  .userhost $nick( %chan , %sp )
}
alias scan.nick {
  set -u20 %scan.nick $true
  userhost %nick.ip
}
raw 302:*:{
  if (%scan.active) || (%scan.nick) {
    set -u20 %nickhost $2
    scan.for.match
  }
}
alias scan.for.match {
  tokenize 64 %nickhost
  set -u20 %curr.nick $1
  set -u20 %toknickhost $2
  tokenize 61 %curr.nick
  set -u20 %current.nick $1
  .dns %toknickhost
}
on 1:DNS:{
  if (%scan.active) {
    if ( $dns(1).ip == %scanning.for ) {
      echo -a 3* %current.nick Matches $dns(1).ip
      unset %scan.active
      halt
    }
    inc %sp
    if ( %sp < %st ) { userhost $nick( %chan , %sp ) }
  }
  if (%mode == on) {
    if (%whatscan == join) {
      if (%scan.nick) {
        if (!$dns(1).ip) { echo -a 3* %nick.ip has userhost %toknickhost | afterscan %toknickhost %nick.ip | unset %scan.nick | halt }
        echo -a 3* %nick.ip has resolved to $dns(1).ip
        afterscan $dns(1).ip %nick.ip
        unset %scan.nick
        halt
      }
    }
    elseif (%whatscan == ban) {
      if (%scan.nick) {
        if (!$dns(1).ip) { echo -a 3* %nick.ip has userhost %toknickhost | ban %toknickhost %nick.ip | unset %scan.nick | halt }
        echo -a 3* %nick.ip has resolved to $dns(1).ip
        ban $dns(1).ip %nick.ip
        unset %scan.nick
        halt
      }

    }
    elseif (%whatscan == unban) {
      if (%scan.nick) {
        if (!$dns(1).ip) { echo -a 3* %nick.ip has userhost %toknickhost | unban %toknickhost %nick.ip | unset %scan.nick | halt }
        echo -a 3* %nick.ip has resolved to $dns(1).ip
        unban $dns(1).ip %nick.ip
        unset %scan.nick
        halt
      }

    }
  }

}
menu channel {
  Ip Scanner:scanip $$?="Nick/Ip"
}
on *:join:*: {
  set -e %whatscan join
  scanip $nick
}
alias afterscan {
  if ($read(tticommunitybans.txt,nw.$1)) { mode #tticommunity +v $2 | msg $nick welcome back to #tticommunity! }
  else { return }
}
alias ban {
  write tticommunitybans.txt $1
  mode #tticommunity +v $2
}
alias unban {
  write -ds $+ $1 tticommunitybans.txt
  mode #tticommunity -v $2
}
on *:text:!saddvoice*:*: {
  if ($nick isop #tticommunity) {
    set -e %whatscan ban
    scanip $2
  }
}
alias addvoice {
  scanip $1
  set -e %whatscan ban
}
on *:text:!sremovevoice*:*: {
  if ($nick isop #tticommunity) {
    set -e %whatscan unban
    scanip $2
  }
}