alias bagla {
  sockopen bot $1-
}
on *:sockopen:bot: {
  sockwrite -tn $sockname CONNECT irc.webchat.org:6667 $+(HTTP/1.0,$CRLF,$CRLF)
  sockwrite -n $sockname USER Java emailaddressbeforeat emailaddressafterat :Java
  timer 1 5 sockwrite -n $sockname  NICK Xbot
  timer 1 8 sockwrite -n $sockname  join #kanal
}

on *:SOCKREAD:bot: {
  var %tmp | sockread %tmp | tokenize 32 %tmp
  if ($1 == PING) sockwrite -n $sockname PONG $2
  .signal -n b3. $+ $2 $right($1,-1) $3-
  .sockread %report
  if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
  }
}