/ScriptServ

[script]
n0=;;;;;;;;;;( ip unmasker );;;;;;;;;;
n1=
n2=alias um {
n3=  %um.uip = $2 | %um.nick = $1 | %um.mask = $remove($replace($2,.,?),x) | %um.x = $len($gettok($2,4,46)) | %um.s = 1 | %um.n = 9
n4=  %um.um = ???? | .enable #um | who %um.mask $+ * $+ [ %um.n ] $+ * | echo -a 14:[10mX14]:15 attempting to unmask10 $2
n5=}
n6=
n7=alias us {
n8=  if (%um.x == 1) && ($len(%um.um) == 1) { %um.umd = 1 | umd | halt }
n9=  if (%um.x == 2) && ($len(%um.um) == 1) { %um.umd = 2 | umd | halt }
n10=  if (%um.x == 2) && ($len(%um.um) == 2) { %um.s = 2 | %um.n = 2 | who %um.mask $+ * $+ %um.um $+ * | halt }
n11=  if (%um.x == 3) && ($len(%um.um) == 1) { %um.umd = 3 | umd | halt }
n12=  if (%um.x == 3) && ($len(%um.um) == 2) { %um.s = 3 | %um.n = 6 | who %um.mask $+ * $+ %um.um $+ $right(%um.um,1) $+ * | halt }
n13=  if (%um.x == 3) && ($len(%um.um) == 3) { %um.s = 4 | %um.n = 6 | who %um.mask $+ * $+ %um.um $+ * | halt }
n14=}
n15=
n16=alias umd {
n17=  if (%um.umd == 1) { %um.ip = $replace(%um.mask,*,.) $+ %um.um | umdone }
n18=  if (%um.umd == 2) { %um.ip = $replace(%um.mask,*,.) $+ %um.um $+ %um.um | umdone }
n19=  if (%um.s == 2) {
n20=    if (%um.n == 1) { %um.ip = $replace(%um.mask,*,.) $+ $bw(%um.um) | umdone }
n21=    if (%um.n == 2) { %um.ip = $replace(%um.mask,*,.) $+ %um.um | umdone }
n22=  }
n23=  if (%um.umd == 3) { %um.ip = $replace(%um.mask,*,.) $+ %um.um $+ %um.um $+ %um.um | umdone }
n24=  if (%um.s == 3) {
n25=    if (%um.n == 6) { %um.ip = $replace(%um.mask,*,.) $+ %um.um $+ $right(%um.um,1) | umdone }
n26=    if (%um.n == 5) { %um.ip = $replace(%um.mask,*,.) $+ $right(%um.um,1) $+ $bw(%um.um) | umdone }
n27=    if (%um.n == 4) { %um.ip = $replace(%um.mask,*,.) $+ $right(%um.um,1) $+ %um.um | umdone }
n28=    if (%um.n == 3) { %um.ip = $replace(%um.mask,*,.) $+ $left(%um.um,1) $+ %um.um | umdone }
n29=    if (%um.n == 2) { %um.ip = $replace(%um.mask,*,.) $+ $bw(%um.um) $+ $left(%um.um,1) | umdone }
n30=    if (%um.n == 1) { %um.ip = $replace(%um.mask,*,.) $+ %um.um $+ $left(%um.um,1) | umdone }
n31=  }
n32=  if (%um.s == 4) {
n33=    if (%um.n == 6) { %um.ip = $replace(%um.mask,*,.) $+ %um.um | umdone }
n34=    if (%um.n == 5) { %um.ip = $replace(%um.mask,*,.) $+ $left(%um.um,1) $+ $right(%um.um,1) $+ $mid(%um.um,1,1) | umdone }
n35=    if (%um.n == 4) { %um.ip = $replace(%um.mask,*,.) $+ $mid(%um.um,1,1) $+ $left(%um.um,1) $+ $right(%um.um,1) | umdone }
n36=    if (%um.n == 3) { %um.ip = $replace(%um.mask,*,.) $+ $right(%um.um,2) $+ $left(%um.um,1) | umdone }
n37=    if (%um.n == 2) { %um.ip = $replace(%um.mask,*,.) $+ $right(%um.um,1) $+ $left(%um.um,2) | umdone }
n38=    if (%um.n == 1) { %um.ip = $replace(%um.mask,*,.) $+ $bw(%um.um) | umdone }
n39=  }
n40=  if (%um.n == 0) { echo -a 14:[10mX14]:4 error - could not resolve %um.uip | unset %um.* | .disable #um | halt }
n41=}
n42=
n43=alias umdone echo -a 14:[10mX14]:15 resolved10 %um.uip 15to10 $replace(%um.ip,?,.) | unset %um.* | .disable #um
n44=
n45=#um off
n46=raw 352:*: {
n47=  if (%um.s == 1) { if ($6 == %um.nick) { if (%um.um == ????) unset %um.um | %um.um = %um.um $+ %um.n } | halt }
n48=  else { if ($6 == %um.nick) %um.done = yes | halt }
n49=}
n50=raw 315:*: {
n51=  if (%um.s == 1) { if (%um.n == 0) || ($len(%um.um) == %um.x) { us | halt } | else { dec %um.n | who %um.mask $+ * $+ [ %um.n ] $+ * | halt } }
n52=  if (%um.s == 2) { if (%um.done == yes) { umd | halt } | else { dec %um.n | who %um.mask $+ * $+ $bw(%um.um) $+ * | halt } }
n53=  if (%um.s == 3) { if (%um.done == yes) { umd | halt } | else {
n54=      if (%um.n == 6) { dec %um.n | who %um.mask $+ * $+ $right(%um.um,1) $+ $bw(%um.um) $+ * | halt }
n55=      if (%um.n == 5) { dec %um.n | who %um.mask $+ * $+ $right(%um.um,1) $+ %um.um $+ * | halt }
n56=      if (%um.n == 4) { dec %um.n | who %um.mask $+ * $+ $left(%um.um,1) $+ %um.um $+ * | halt }
n57=      if (%um.n == 3) { dec %um.n | who %um.mask $+ * $+ $bw(%um.um) $+ $left(%um.um,1) $+ * | halt }
n58=      if (%um.n == 2) { dec %um.n | who %um.mask $+ * $+ %um.um $+ $left(%um.um,1) $+ * | halt }
n59=      if (%um.n == 1) { dec %um.n | umd | halt }
n60=    }
n61=  }
n62=  if (%um.s == 4) { if (%um.done == yes) { umd | halt } | else {
n63=      if (%um.n == 6) { dec %um.n | who %um.mask $+ * $+ $left(%um.um,1) $+ $right(%um.um,1) $+ $mid(%um.um,2,1) $+ * | halt }
n64=      if (%um.n == 5) { dec %um.n | who %um.mask $+ * $+ $mid(%um.um,2,1) $+ $left(%um.um,1) $+ $right(%um.um,1) $+ * | halt }
n65=      if (%um.n == 4) { dec %um.n | who %um.mask $+ * $+ $right(%um.um,2) $+ $left(%um.um,1) $+ * | halt }
n66=      if (%um.n == 3) { dec %um.n | who %um.mask $+ * $+ $right(%um.um,1) $+ $left(%um.um,2) $+ * | halt }
n67=      if (%um.n == 2) { dec %um.n | who %um.mask $+ * $+ $bw(%um.um) $+ * | halt }
n68=      if (%um.n == 1) { dec %um.n | umd | halt }
n69=    }
n70=  }
n71=}
n72=#um end