[project @ 2005-07-05 07:24:59 by unknown_lamer]

[clinton/bobotpp.git] / scripts / boulet

;;; Activate or desactivate the bot
(define talk 1)
(define (shutup)
  (set! talk 0)
  )
(bot:addcommand "shutup" shutup #f 0 2)
(define (dotalk)
  (set! talk 1)
  )
(bot:addcommand "talk" dotalk #f 0 2)

;;; Miscellaneous list functions
(define (removeChannel c l)
  (if (null? l)
      (list)
      (let ((deb (car l)))
        (if (string-ci=? c (car deb))
            (cdr l)
            (append (list deb) (removeChannel c (cdr l)))
            )
        )
      )
  )

(define (changeChannel c n l)
  (if (null? l)
      (list)
      (let ((deb (car l)))
        (if (string-ci=? c (car deb))
            (append (list (list c n)) (cdr l))
            (append (list deb) (changeChannel c n (cdr l)))
            )
        )
      )
)

(define (addChannel c n l)
  (append l (list (list c n)))
)

;;; When someone joins a channel
(define dumbTimer (list))
(define (joinLourd n c)
  (if (string-ci=? n (bot:getnickname))
      (begin
        (if (= 1 talk) (bot:say c "salut les gars, vous parlez de quoi ?"))
        (set! dumbTimer (addChannel c (bot:addtimer (+ 600 (bot:random 3000)) (dumbLourd c)) dumbTimer))
        )
      (if (= 1 talk) (bot:say c (string-append "euh humm euh..., " n "... une ptite question...")))
      )
  )
(bot:addhook hooks/join ".*" joinLourd)

;;; When someone leaves the channel
(define (partLourd n c)
  (bot:flushport)
  (if (not (string-ci=? n (bot:getnickname)))
      (if (= 1 talk) (bot:msg n "hey, reviens, on s'amusait bien"))
      (let* ((timer (assoc c dumbTimer)))
        (bot:deltimer (cadr timer))
        (set! dumbTimer (removeChannel c dumbTimer))
        )
      )
  )
(bot:addhook hooks/part ".*" partLourd)

;;; Random action to say something dumb
(define dumbList
  (list "errr... umm umm !!"
        "ahum. err... p'tite question !"
        "putain, php c'est vraiment de la merde"
        "quelle daube mysql !"