on *:socklisten:StartReceive: {
  SockAccept ReceiveData
}

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

on *:sockopen:*Data: {
  var %Sock SockWrite -n $SockName
  var %frase E agora isto é a resposta novamente
  echo -s %frase
  %Sock %frase
}

on *:sockread:*Data: {
  Set %SendSock SendingData
  SockRead &Data
  echo -s $bvar( &data, 1-).text
  if ( $Sock( %SendSock) == $null ) {
    SockOpen %SendSock $Sock( $SockName).ip $Sock( $SockName).bindport
  }
  Else {
    Sockwrite %SendSock EAgora isto vai ser sempre a resposta
  }
}

alias f6 {
  SockClose *
}