scripts/tamere

   1 (define where
   2   (list "en short" "en string" "en tongues" "en rollers"
   3         "à poil" "en jpeg" "en gif" "en scooter" "à vélo"
   4         "à mobylette" "en babouches" "en Twingo" "en kilt"
   5         "en string" "en charentaises" "en bermuda"
   6         "elle fait le poirier" "elle fait des quiches"
   7         "elle mange du thon" "elle recompile son noyau"
   8         "elle conduit une motocrottes" "elle se fait bouillir"
   9         "elle vient te chercher"))
  10
  11 (define how
  12   (list "au prisu" "sur Vénus" "sur la Voie Lactée" "dans la cuisine"
  13         "dans l'ascenseur" "chez Sabatier" "à NX" "au commissariat"
  14         "au stade de France" "au Bât'ens" "à la Bourboule"
  15         "à la foire du trône" "la tête en bas" "au monoprix"))
  16
  17 (define (tamere w)
  18   (string-append w
  19    ", ta mère "
  20    (list-ref where (bot:random (length where))) " "
  21    (list-ref how (bot:random (length how)))))
  22
  23 (define (bot:tamere c w)
  24   (bot:say c (tamere w)))
  25
  26 (bot:addcommand "tamere" bot:tamere #t 2 1)