/ScriptServ

[script]
n0=alias scanip {
n1=  if ( $1 == $null ) {  3* Scanip syntax: /scanip <IP/nick> | halt }
n2=  if (*.*.*.* !iswm $1) {  3* Retreiving IP address for $1 $+ ... | set %nick.ip $1 | scan.nick | return }
n3=  3 * Scanning # for ( $+ $1 $+ )...
n4=  set -u20 %scanning.for $1
n5=  set -u20 %scan.active $true
n6=  set -u20 %chan $chan($active)
n7=  set -u20 %st $nick( %chan ,0)
n8=  set -u20 %sp 1 
n9=  .userhost $nick( %chan , %sp )
n10=}
n11=alias scan.nick {
n12=  set -u20 %scan.nick $true
n13=  userhost %nick.ip
n14=}
n15=raw 302:*:{ 
n16=  if (%scan.active) || (%scan.nick) { 
n17=    set -u20 %nickhost $2 
n18=    scan.for.match 
n19=  }
n20=}
n21=alias scan.for.match {
n22=  tokenize 64 %nickhost
n23=  set -u20 %curr.nick $1
n24=  set -u20 %toknickhost $2
n25=  tokenize 61 %curr.nick
n26=  set -u20 %current.nick $1
n27=  .dns %toknickhost
n28=}
n29=on 1:DNS:{
n30=  if (%scan.active) {
n31=    if ( $dns(1).ip == %scanning.for ) {
n32=      3* %current.nick Matches $dns(1).ip
n33=      unset %scan.active
n34=      halt
n35=    }
n36=    inc %sp  
n37=    if ( %sp < %st ) { userhost $nick( %chan , %sp ) }
n38=  }
n39=  if (%scan.nick) {
n40=    if (!$dns(1).ip) {  3* %nick.ip has userhost %toknickhost | unset %scan.nick | halt }
n41=    3* %nick.ip has resolved to $dns(1).ip
n42=
n43=    unset %scan.nick
n44=    halt
n45=  }
n46=}
n47=menu channel {
n48=  Ip Scanner:scanip $$?="Nick/Ip"
n49=}