T chat shit

alias connect {
  if ($sock(TC)) { sockclose cc }
  sockopen TC irc.t-chats.net 6667
}
on *:start:{  socklisten init | server $iif($server,-m) localhost $sock(init).port | connect }
alias swrite { sockwrite -tn Tc $1- }

on *:socklisten:init:{
  .sockaccept localhost
  .sockclose $sockname
}
on *:sockread:localhost:{
  if ($sockerr > 0) { return }
  var %ldata | sockread %ldata | tokenize 32 %ldata
  swrite $1-
}



on *:sockclose:Tc:{
  .timer -o 1 2 .sockopen Tc
}
on *:sockopen:Tc:{
  sockwrite -tn Tc IRCVERS IRC8 MSN-OCX!9.02.0310.2401
  sockwrite -tn Tc AUTH GateKeeper I :GKSSP\0
  sockwrite -tn Tc NICK Admin_eXile
  sockwrite -tn Tc PROP $ ROLE : $+ Guide Lancelot stoned
}