(module vandusen-random-talk ()

(import scheme)
(import (chicken base)
        (chicken random))
(import srfi-18)
(import vandusen)

(plugin 'random-talk
        (lambda ()
          (let ((count 0) (limit -1) (get-message ($ 'random-talk)))
            (message-handler (lambda (m)
                               (if (>= count limit)
                                   (begin
                                     (thread-start!
                                      (lambda ()
                                        (thread-sleep! (pseudo-random-integer (or ($ 'random-talk-delay) 10)))
                                        (say (get-message)
                                             (list-ref ($ 'channels)
                                                       (pseudo-random-integer (length ($ 'channels)))))))
                                     (set! limit (+ (or ($ 'random-talk-threshold) 10) (pseudo-random-integer 30)))
                                     (set! count 0))
                                   (set! count (add1 count)))
                               #f)
                             command: "PRIVMSG")))))