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"