Anonymous

(in-package :irc)

(defvar *con* nil)

(defun start-sbcl-bot ()
  (setf cl-irc::*debug-p* t)
  (setf *con* (connect :nickname "sbclbot"
		       :server "irc.core.gen.tr"
		       :port 7000))
  (add-hook *con* 'irc::irc-join-message 'join-hook)
  (join *con* "#c0r3")
  (start-background-message-handler *con*))

(defun join-hook (message)
  (let ((channel (trailing-argument message)))
    (privmsg *con* channel "hello")))