alias unique { 
  var %idlist $replace( $$1, $chr(44),$chr(32) )
  if ( $regsub(%idlist,/\b(\w*)\b(?=.*\b\1\b)/ig,,%i) > 0 ) {
    noop $regsub(%idlist,/\b([\w!]*)\b(?=.*\b\1\b)/ig,,%i)
    var %ids $replace( $sorttok(%i,32,n),$chr(32),$chr(44))
  }
  echo -a 6ID's: %ids ( $+ $calc( $count( %ids ,$chr(44)) +1) ID Found)
}

alias spy { 
  unset %idlist
  var %i = 0
  echo 3Parsing spy...
  var %idofspy Unkown
  while (%i < $cb(0)) { 
    var %i %i + 1

    if (*Spy report on* iswm $cb( %i )) {

      var %idofspy $remove( $wildtok( $cb(%i), *[*]*,1,32) ,[,],$chr(44)) 
      var %idlist %idofspy
    } 
    if (*to defend* iswm $cb( %i ) ) {
      var %idlist %idlist $remove( $wildtok( $cb(%i), *[*]*,1,32) ,[,],$chr(44))

    }
    if (*Government incoming defences* iswm $cb(%i)) {
      echo $cb(%i)
    }

  }

  if ( $regsub(%idlist,/\b(\w*)\b(?=.*\b\1\b)/ig,,%i) > 0 ) {
    noop $regsub(%idlist,/\b([\w!]*)\b(?=.*\b\1\b)/ig,,%i)
    var %ids $replace( $sorttok(%i,32,n),$chr(32),$chr(44))

    echo 6ID's on %idofspy $+ : %ids ( $+ $calc( $count( %ids ,$chr(44)) +1) ID Found)
  }
  else { echo 6ID's on %idofspy $+ : None Found }
}