All pastes #931091 Raw Edit

Stuff

public text v1 · immutable
·published 2008-03-06 23:14 UTC
rendered paste body
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
}