(define where
  (list "en short" "en string" "en tongues" "en rollers"
        " poil" "en jpeg" "en gif" "en scooter" " vlo"
        " mobylette" "en babouches" "en Twingo" "en kilt"
        "en string" "en charentaises" "en bermuda"
        "elle fait le poirier" "elle fait des quiches"
        "elle mange du thon" "elle recompile son noyau"
        "elle conduit une motocrottes" "elle se fait bouillir"
	"elle vient te chercher"))

(define how
  (list "au prisu" "sur Vnus" "sur la Voie Lacte" "dans la cuisine"
        "dans l'ascenseur" "chez Sabatier" " NX" "au commissariat"
        "au stade de France" "au Bt'ens" " la Bourboule"
        " la foire du trne" "la tte en bas" "au monoprix"))

(define (tamere w)
  (string-append w
   ", ta mre "
   (list-ref where (bot:random (length where))) " "
   (list-ref how (bot:random (length how)))))

(define (bot:tamere c w)
  (bot:say c (tamere w)))

(bot:addcommand "tamere" bot:tamere #t 2 1)
