source: project/release/4/vandusen/trunk/vandusen-random-talk.scm @ 21508

Last change on this file since 21508 was 18259, checked in by Moritz Heidkamp, 11 years ago

vandusen: initial import

File size: 643 bytes
Line 
1(module vandusen-random-talk ()
2
3(import chicken scheme data-structures extras)
4(use vandusen srfi-18)
5
6(plugin 'random-talk
7        (lambda ()
8          (let ((count 0) (limit -1) (get-message ($ 'random-talk)))
9            (message-handler (lambda (m) 
10                               (if (>= count limit)
11                                   (begin
12                                     (thread-start! (lambda ()
13                                                      (thread-sleep! (random (or ($ 'random-talk-delay) 10)))
14                                                      (say (get-message) (car (shuffle ($ 'channels) random)))))
15                                       
16                                     (set! limit (+ (or ($ 'random-talk-threshold) 10) (random 30)))
17                                     (set! count 0))
18                                   (set! count (add1 count)))
19                               #f)
20                             command: "PRIVMSG")))))
21
22
23
24
25
Note: See TracBrowser for help on using the repository browser.