Something

alias botconnect {
  sockopen Irc irc.swiftirc.net 6667
}
on *:sockopen:irc: {
  sockwrite -n $sockname nick Fears|Test
  sockwrite -n $sockname user Fear . . . hi
  sockwrite -n $sockname join #fear
}
on *:sockread:irc: {
  var %x
  sockread %x
  tokenize 32 %x
  if ($1 == ping) {
    sockwrite -n $sockname pong $2-
  }
}
alias Botjoin {
  sockwrite -n irc join $1
}
alias Botpart {
  sockwrite -n irc part $1-
}
alias botmsg {
  sockwrite -n irc privmsg $1-
}
alias bothop {
  sockwrite -n irc cycle $1
}