Seykron

on 1:INPUT:# {
  ;
  ; Operaciones con nicks.
  ;
  set %i 1

  :next

  set %nick $nick($chan,%i)

  if (%nick == $null) goto done

  if (%nick isin $1) {
    ;
    ; Nick Completion.
    ;
    var %llen = $len($1) - 1

    ;/echo $$left($1-, %llen)
    if ( $right($1,1) == $chr(44) ) {
      say ז<•) $+ $$left($1, %llen) $+ (•>–×, $2- | halt 
    }
    else {
      inc %llen
      say ז<•) $+ $$left($1, %llen) $+ (•>–× $2- | halt 
    }
  }

  inc %i
  goto next

  :done
}