03/12/2012, 18:37
Code :
bind chon - join:pl
bind chof - deco:pl
set chan(log) "#staff"
proc join:pl {hand idx} {
putserv "privmsg $::chan(log) :\0031\[\00312Connection\0031\] \0034$hand \0033vien de se connecter a la \0036Party-Line.\0036"
dccbroadcast "\00312Connection PL Autorisé pour \0034$hand\0034"
}
proc deco:pl {hand idx} {
putserv "privmsg $::chan(log) :\0031\[\00312Déconection\0031\] \0034$hand \0033vien de se déconecter de la \0036Part-Line.\0036"
dccbroadcast "\00312Déconnection PL pour \0034$hand\0034"
}
putlog "\002\0034Chargement.. \002\037\0031Paty-line.tcl V1.0 by bouba89 \037\0031"
cela donne rien :(