Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bind pub - !test pub_test
- bind pub - !test2 pub_test2
- bind pub - !coulidefraises pub_coulidefraises
- ### BOT JOKES ;)
- ### !test
- proc pub_test{nick host hand chan arg} {
- set arg [lindex $arg]
- if {$arg != ""} { putserv "PRIVMSG $chan : $arg, tu veux faire un gâteau ? Tapes !marbreochocolat pour avoir les ingrédients ;) "
- } else { putserv "PRIVMSG $chan :ACTION J'ai faim !"
- }
- return 0
- }
- ### !test2
- proc pub_test2{nick host hand chan arg} {
- set arg [lindex $arg]
- if {$arg != ""} { putserv "PRIVMSG $chan : $arg, voici la suite (: ! "
- } else { putserv "PRIVMSG $chan : ACTION je mange."
- }
- return 0
- }
- ### !coulidefraises
- proc pub_coulidefraises{nick host hand chan arg} {
- set arg [lindex $arg]
- if {$arg != ""} { putserv "PRIVMSG $chan : $arg, voici la recette du coulis de fraises ^^. Pour cela il te faut 250 grammes de fraises lavées et coupées, 1 sucre vanillé, 2 cuillères à soupe rases de sucre, et une demi cuillère à soupe de jus de citron (:. Passes le tout au mixeur et mets au frigidaire une demi-heure (: "
- } else { putserv "PRIVMSG $chan : $arg, voici la recette du coulis de fraises ^^. Pour cela il te faut 250 grammes de fraises lavées et coupées, 1 sucre vanillé, 2 cuillères à soupe rases de sucre, et une demi cuillère à soupe de jus de citron (:. Passes le tout au mixeur et mets au frigidaire une demi-heure (: "
- }
- return 0
- }
- ### !recettes
- proc pub_recettes{nick host hand chan arg} {
- putserv "NOTICE $nick :\037Aide Recettes - !<commande> <recette> pour avoir la suite - !<commande2> et ainsi de suite :p
- putserv "NOTICE $nick :\022 voici les commandes => !test, !test2, !coulidefraises"
- }
- putlog "Jokes.tcl v1.0 add on de Thor.tcl (ajouts par Jarod) - Date: 24-06-01"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement