on *:socklisten:StartReceive: {
  SockAccept ReceiveData
}

alias IniciarChat {
  SockClose *
  socklisten StartReceive 9999
  Set %SendSock SendingData
  SockOpen %SendSock $1-
}

on *:sockopen:*Data: {
  var %Sock SockWrite -n $SockName
  var %frase O computador $ip enviou isto
  echo -s %frase
  %Sock %frase
}

on *:sockread:*Data: {
  SockRead &Data
  echo -s $bvar( &data, 1-).text
  SockWrite %SendSock $Sock( $SockName).ip $Sock( $SockName).bindport E agora isto é a resposta novamente
}