/ScriptServ

;%%%%%%%%%%%%%%%%%%%%%%%%
;script ircN
;version 6.0ß
;author Chutzpah
;email  
;url  
;%%%%%%%%%%%%%%%%%%%%%%%%
on 1:CHATOPEN {
  if ($nick == %telnet.chatnick) {
    write $tp(itelnet.pop) exit $chr(123) itelnet off -c $chr(125)
    write $tp(itelnet.pop) -
    write $tp(itelnet.pop) egg
    write $tp(itelnet.pop) .send nick $chr(123) it.relay $chr(36) $+ me $chr(125)
    write $tp(itelnet.pop) .whom $chr(123) it.relay .whom $chr(125)
    write $tp(itelnet.pop) .who $chr(123) it.relay .who $chr(125)
    write $tp(itelnet.pop) .whois $chr(123) it.relay .whois $str($chr(36),2) $+ ?="enter nick to whois:" $chr(125)
    window -aed @itelnet %teloc $tp(itelnet.pop) Terminal 412
    titlebar @itelnet - %telnet.host ( $+ %telnet.port $+ )
    set %telnet.con yes
    itecho $ac(Connection established to [ [ %telnet.host ] on port [ %telnet.port ] $+ . ] )
    itecho $chr(255)
    itecho $chr(255)
    .timer 1 10 it.check
  }
}
on 1:CHAT:* {
  if (($nick == %telnet.chatnick) && (%itelnet.echo != off)) {
    if ($1 == $null) itecho $chr(255)
    else itecho $1-
  }
}
on 1:CHATCLOSE {
  if ($nick == %telnet.chatnick) {
    itelnet off
  }
}
on 1:INPUT {
  if (($active == @itelnet) && (%itelnet.echo != off)) {
    if ($1 == /exit) { itelnet off -c | halt }
    elseif ($1 == /it) { itecho $2- | halt }
    else it.relay $1-
halt
  }
}
alias it.relay {
  msg = $+ %telnet.chatnick $1-
  itecho $1-
}