Part

**Dylan** Mar 29 Déc - 5:03

Code:: ################################################################# # # # Message de part en notice # # # ################################################################# set channel1 "*" ## The message diplayed when someone leaves. set part { "4 merci de ta visite sur 8 #Aides-Bittorent-&-autres" "4 tu pars déja !!! Bon a un de ses jours alors @++" "4 attend !!! il est pas tard ... reviens sinon @++ alors" "4 tu vas me manquer, pas toi ?!" } ################################################################################################## bind part - "$channel1 %" part proc part {nick uhost hand channel args} { global part set part1 [lindex $part [rand [llength $part]]] putserv "NOTICE $nick : 7 $nick 7" putserv "NOTICE $nick : $part1" return 0 } ################################################################################################## ################################################################################################## ################################################################# # # # Message de part sur le chan # # # ################################################################# ## Set the MAIN channel. set channel2 "*" ## The message diplayed when someone leaves. set partg { "c'est dommage ,je le kiffais bien" "j'espere qu'il vas nous revenir vite" "il me manque deja......snifffff dommage qu'il nous quitte si vite" "j'm'ennuie quand il n'est plus là" "bon on fait quoi maintenant qu'il es parti" } ################################################################################################## bind part - "$channel2 %" partg proc partg {nick uhost hand channel args} { global partg set partg1 [lindex $partg [rand [llength $partg]]] putserv "PRIVMSG $channel : $partg1 7 $nick 7" return 0 } putlog "4 tcl.part par lapoulpe"