/ScriptServ

[aliases]
n0=clones {
n1=  set %Var.Index 1
n2=  echo -a $_xe 14(9c14)15lone Scaning14:15 #
n3=  :adduser
n4=  set %Var.Temp $address($nick(%Var.Index,#),2)
n5=  if (%Var.Temp == $null) { set %Var.Index 1 | goto listclones }
n6=  if ([ %Address. [ $+ [ %Var.Temp ] ] ] == $null) {
n7=    set %Address. [ $+ [ %Var.Temp ] ] $nick(%Var.Index,#) | inc %Var.Index | goto adduser
n8=  }
n9=  if ([ %Address. [ $+ [ %Var.Temp ] ] ] != $null) {
n10=    set %Address. $+ %Var.Temp [ %Address. [ $+ [ %Var.Temp ] ] ] --> $nick(%Var.Index,#)
n11=    if ($findtok(%Clone.List,%Var.Temp,32) == $null) { set %Clone.List [ %Clone.List ] %Var.Temp }
n12=    inc %Var.Index | goto adduser
n13=  }
n14=  :listclones
n15=  set %Var.Temp $gettok(%Clone.List,%Var.Index,32) | if (%Var.Temp == $null) { goto end }
n16=  echo -a $_xe 14(9 $+ %Var.Index $+ 14)15 [ %Address. [ $+ [ %Var.Temp ] ] ] 14(9 $+ %Var.Temp $+ 14)
n17=  inc %Var.Index | goto listclones
n18=  :end
n19=  dec %Var.Index | unset %Address.* | unset %Clone.List
n20=  echo -a $_xe 14(9e14)15nd Of Scan! Total14:15 %Var.Index
n21=}