IRCTELNET

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Lancement par /irctelnet <host> <port> ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias irctelnet {
  if (($1 == $null) && ($2 == $null)) {
    set %server $?="Host ou adresse IP du serveur ?"
    set %portserv $?="Port du serveur ?"
    set %quidonc $?="Pseudo ?"
  }
  if (($1 != $null) && ($2 != $null)) {
    set %server $1
    set %portserv $2
    set %quidonc $3
  }
  window -e @IRC | titlebar @IRC Session IRCTELNET : %server sur port %portserv
  sockclose irctelnet*
  sockopen irctelnet %server %portserv

}

on *:sockopen:irctelnet:{
  if ($sockerr > 0) { 
    aline -ph 4 @IRC Connection impossible sur %server sur le port %portserv
    return
  }
  else {
    aline -ph 3 @IRC Connection établie avec %server sur le port %portserv
    if (%portserv == 6667) {
      sockwrite -n irctelnet USER Lycos U U : IrcTelnet
      sockwrite -n irctelnet NICK %quidonc
      if (%quidonc == $null) sockwrite -n irctelnet NICK IRCtelnet
    }
  }
}

on *:sockclose:irctelnet:{
  aline -ph 4 @IRC Fermeture IRCTELNET sur %server sur le port %portserv
}

on *:sockread:irctelnet:{
  if ($sockerr > 0) { return }
  :rect
  sockread %ircdata
  if ($sockbr == 0) { return }
  if (%ircdata != $null) {
    aline -ph 1 @IRC %ircdata

    if (%ircdata == PING :irc04.icq.com) { sockwrite -n irctelnet PONG :irc04.icq.com 
    aline -ph 9 @IRC PONG :irc04.icq.com }


    if (%ircdata == PING : $+ %server) { sockwrite -n irctelnet PONG : $+ %server 
    aline -ph 9 @IRC PONG : $+ %server }
    if (%server == 212.68.194.235) {
      if (%ircdata == PING :infocenter.net) { sockwrite -n irctelnet PONG :infocenter.net 
      aline -ph 9 @IRC PONG :infocenter.net }
    }
    goto rect
  }