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

Last change on this file was 26679, checked in by Moritz Heidkamp, 9 years ago

vandusen: get rid of call to obsolete `shuffle' procedure

File size: 851 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!
13                                      (lambda ()
14                                        (thread-sleep! (random (or ($ 'random-talk-delay) 10)))
15                                        (say (get-message)
16                                             (list-ref ($ 'channels)
17                                                       (random (length ($ 'channels)))))))
18                                     (set! limit (+ (or ($ 'random-talk-threshold) 10) (random 30)))
19                                     (set! count 0))
20                                   (set! count (add1 count)))
21                               #f)
22                             command: "PRIVMSG")))))
23
24
25
26
27
Note: See TracBrowser for help on using the repository browser.