Fun.tcl
#1
Bonsoir je vien de créer se petit code j'aimerai savoir si il es correcte et/ou si je peu l'optimiser

TCL
bind pub - !cmd pub:cmd
proc pub:aide { nick uhost handle channel arg } {
putserv "NOTICE $nick :\00312Pour faire fonctionner les commandes il faut taper de la manière suivant !cmd pseudo ( exemple: !bierre Hathor )"
putserv "NOTICE $nick :\00312Voici les commandes de fun"
putserv "NOTICE $nick :\0034les commandes banman:"
putserv "NOTICE $nick :\00312!biere\0034 !coca \00312!sky"
putserv "NOTICE $nick :\0034Les commandes love:"
putserv "NOTICE $nick :\00312!kiss\0034 !palo"
putserv "NOTICE $nick :\00312Fin des commandes de fun"
}
 
bind pub - !liste pub:liste
proc pub:aide { nick uhost handle channel arg } {
putserv "NOTICE $nick :\00312Pour faire fonctionner les commandes il faut taper de la manière suivant !cmd pseudo ( exemple: !bierre Hathor )"
putserv "NOTICE $nick :\00312Voici les commandes de fun"
putserv "NOTICE $nick :\0034les commandes banman:"
putserv "NOTICE $nick :\00312!biere\0034 !coca \00312!sky"
putserv "NOTICE $nick :\0034Les commandes love:"
putserv "NOTICE $nick :\00312!kiss\0034 !palo"
putserv "NOTICE $nick :\00312Fin des commandes de fun"
}
 
bind pub - !jokes pub:jokes
proc pub:aide { nick uhost handle channel arg } {
putserv "NOTICE $nick :\00312Pour faire fonctionner les commandes il faut taper de la manière suivant !cmd pseudo ( exemple: !bierre Hathor )"
putserv "NOTICE $nick :\00312Voici les commandes de fun"
putserv "NOTICE $nick :\0034les commandes banman:"
putserv "NOTICE $nick :\00312!biere\0034 !coca \00312!sky"
putserv "NOTICE $nick :\0034Les commandes love:"
putserv "NOTICE $nick :\00312!kiss\0034 !palo"
putserv "NOTICE $nick :\00312Fin des commandes de fun"
}
 
bind pub - !biere pub:biere
proc pub:aide { nick uhost handle channel arg } {
putserv "PRIVMSG $chan :\0037$user \00312offre une bonne bière bien fraiche à \0034$pseudo"
}
 
bind pub - !coca pub:coca
proc pub:aide { nick uhost handle channel arg } {
putserv "PRIVMSG $chan :\0037$user \00312offre un coca bien frais à \0034$pseudo"
}
 
bind pub - !sky pub:sky
proc pub:aide { nick uhost handle channel arg } {
putserv "PRIVMSG $chan :\0037$user \00312offre un bon sky 16 ans d'age à \0034$pseudo"
}
 
bind pub - !kiss pub:coca
proc pub:aide { nick uhost handle channel arg } {
putserv "PRIVMSG $chan :\0037$user \00312fait un énorme kisssss à \0034$pseudo"
}
 
bind pub - !palo pub:palo
proc pub:aide { nick uhost handle channel arg } {
putserv "PRIVMSG $chan :\0037$user \00312roule un énorme paloOoOoOoOo à \0034$pseudo"
}


Merci d'avance pour vos future réponse.
Cordialement Aragorn
Répondre Avertir


Messages dans ce sujet
Fun.tcl - par Aragorn - 28/06/2009, 18:53
RE: Fun.tcl - par heretoc - 28/06/2009, 19:01
RE: Fun.tcl - par Aragorn - 28/06/2009, 19:36
RE: Fun.tcl - par Aragorn - 28/06/2009, 20:45
RE: Fun.tcl - par heretoc - 29/06/2009, 00:12
RE: Fun.tcl - par fedora - 29/06/2009, 08:31
RE: Fun.tcl - par Artix - 29/06/2009, 10:28
RE: Fun.tcl - par Aragorn - 29/06/2009, 12:44
RE: Fun.tcl - par BdS - 29/06/2009, 12:50
RE: Fun.tcl - par Aragorn - 29/06/2009, 13:26
RE: Fun.tcl - par BdS - 29/06/2009, 13:38
RE: Fun.tcl - par Aragorn - 29/06/2009, 13:48
RE: Fun.tcl - par Aragorn - 29/06/2009, 16:19
RE: Fun.tcl - par CrazyCat - 29/06/2009, 21:41
RE: Fun.tcl - par Aragorn - 30/06/2009, 01:02
RE: Fun.tcl - par fedora - 30/06/2009, 08:39
RE: Fun.tcl - par Artix - 30/06/2009, 13:00
RE: Fun.tcl - par heretoc - 30/06/2009, 12:39
RE: Fun.tcl - par CrazyCat - 30/06/2009, 13:23
RE: Fun.tcl - par Aragorn - 01/07/2009, 11:00
RE: Fun.tcl - par heretoc - 01/07/2009, 11:18
RE: Fun.tcl - par Alucard`68 - 12/03/2012, 15:05
RE: Fun.tcl - par KiBa - 12/03/2012, 15:20
RE: Fun.tcl - par Alucard`68 - 12/03/2012, 15:30
RE: Fun.tcl - par CrazyCat - 12/03/2012, 15:43
RE: Fun.tcl - par KiBa - 12/03/2012, 15:45
RE: Fun.tcl - par CrazyCat - 12/03/2012, 22:50
RE: Fun.tcl - par cestlemien - 13/03/2012, 01:24
RE: Fun.tcl - par djkenny - 13/03/2012, 21:40

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté