SOCKET MESSAGER

;premiere remote

menu menubar {
  Ouvrir Socket-Messager: { sockclose * | socklisten messager 6667 | echo $active 12Socket Messager et lancer }
  Fermer Socket-Messager: { sockclose * }
  couleur d'ecriture:{ set %color $$?"Entre ta couleur" }
  Connaitre son adresse de socket messager:/echo $active 12Votre adresse de socket messager est :4 $ip $+ :6667
  ouvrire une session avec socket messager avec quelqu'un:/messager $$?"Quel IP ?"
}

on 1:socklisten:*:{
  sockaccept pseudo
  sockwrite -n pseudo mon-pseudo $me
}

on 1:sockclose:*:{ aline -ph 4 @socket. [ $+ [ $sockname ] ] Déconnexion de $sockname }

on 1:sockread:*: {
  if ($sockname != pseudo) {
    if ( $sockerr == 0 ) { sockread %temp
      if (%temp != $null) { aline -ph 1 @socket. [ $+ [ $sockname ] ] %temp }
    }
    else {
      if ($gettok(%temp,1,32) == NICK) { set %pseudo $gettok(%temp,2,32) | fenetre }
    }
  }
}

on *:input:@socket.*:{ 
  aline -ph 2 $active 4[12 $+ $me $+ 4]  - %color  $+ $1-
  sockwrite -n $gettok($active,2,46) 4[12 $+ $me $+ 4] - %color $+  $+ $1-
}

On 1:close:@socket.*:{
  sockwrite -n $gettok($active,2,46) 4[12INFO4]7 $me vient de de fermer la session socket messager avec vous.
  sockclose $gettok($active,2,46)
}

menu @socket.* {
  Fermer le socket messager avec $gettok($active,2,46) :{
    sockwrite -n $gettok($active,2,46) 4[12INFO4]7 $me vient de de fermer la session socket messager avec vous.
    sockclose $gettok($active,2,46)
    close - $+ $active
  }
}

alias fenetre {
  window -e @socket. [ $+ [ %pseudo ] ]
  aline -ph 4 @socket. [ $+ [ %pseudo ] ] Connexion de %pseudo
  sockwrite -n pseudo 4[12INFO4] Connection effectuer avec7 $me
  sockrename pseudo %pseudo
}

alias messager {
  sockopen pseudo $1 6667
  .timer 1 1 fenetre
}


;à metre dans un deuxieme remote


on 1:sockread:*: {
  if ( $sockerr == 0 ) { sockread %temp2
    if (%temp2 != $null) {
      if ($gettok(%temp2,1,32) == mon-pseudo) { set %pseudo $gettok(%temp2,2,32) | fenetre }
    }
  }
}