Code:
alias sockbot {
  hadd -m sockbot nick $2
  sockopen sockbot. [ $+ [ $hget(sockbot,nick) ] ] $1 $iif($3,$3,6667)
}
on *:sockopen:sockbot.*:{
  if ($sockerr) { return }
  echo -s Sockbot Connected!
  sockwrite -n $sockname nick $hget(sockbot,nick)
  sockwrite -n $sockname user sock . . sock
}
on *:sockread:sockbot.*:{
  if ($sockerr) { return }
  if ($1 == ping) { sockwrite -n $sockname PONG $remove($2,:) }
}
on *:sockclose:sockbot.*:{
  hfree sockbot
  echo -s Sockbot Disconnected!
}

/sockbot <server> <nickname> <port>
this should keep it connected smile.