|
[résolu] problème pl
|
| Auteur |
Message |
aliassangelius
Unregistered
|
RE: problème pl
Re Bonsoir :p
Voilà réussi a ce que sa marche grâce à Dj_KennY :)
Sauf que maintenant sa ne m'affiche pas tout sa me donne que jusqu'a :
[19:31:34] <XyLoO> AIDE => Commandes Robot XyLoO
[19:31:34] <XyLoO> _
Rien d'autre je re post le tcl corriger en couleur tcl hein :)
namespace eval helpcmds {}
bind dcc 0 cmds helpcmds::aide
proc helpcmds::aide {hand idx arg} {
set levelnick [getlevel $hand]
putdcc $idx "\00300,01AIDE => Commandes Robot XyLoO"
putdcc $idx "_"
if {$levelnick>="0"} {
pudcc $idx "\0031Level \002NULL\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
putdcc $idx "_"
putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
putdcc $idx "\0033Auth \0034Commandes \0031: \0032 /msg $::botnick auth $nick pass"
putdcc $idx "\0033Cmds \0034Commandes \0031: \0032!cmds"
putdcc $idx "_"
}
if {$levelnick>="1"} {
putdcc $idx "\0031Level \002I\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
putdcc $idx "_"
putdcc $idx "\0033Access \0034Commandes \0031: \0032!access"
putdcc $idx "\0033Autovoice \0034Commandes \0031: \0032!autovoice"
putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
putdcc $idx "\0033Addquote \0034Commandes \0031: \0032!addquote <text>"
putdcc $idx "\0033Findquote \0034Commandes \0031: \0032!findquote <text>"
putdcc $idx "\0033Statsquote \0034Commandes \0031: \0032!statsquote"
putdcc $idx "\0033Quote \0034Commandes \0031: \0032!quote <n°>"
putdcc $idx "\0033Man \0034Commandes \0031: \0032!man <commande> option"
putdcc $idx "\0033Voice \0034Commandes \0031: \0032!voice ou !voice <pseudo>"
putdcc $idx "\0033Devoice \0034Commandes \0031: \0032!devoice ou !devoice <pseudo>"
putdcc $idx "\0033Voiceall \0034Commandes \0031: \0032!voiceall"
putdcc $idx "\0033Devoiceall \0034Commandes \0031: \0032!devoiceall"
putdcc $idx "_"
}
if {$levelnick>="2"} {
putdcc $idx "\0031Level \002II\002 \0031($::botnick) : \037COMMANDES Opérateurs\037"
putdcc $idx "_"
putdcc $idx "\0033Op \0034Commandes \0031: \0032!op ou !op <pseudo>"
putdcc $idx "\0033Deop \0034Commandes \0031: \0032!deop ou !deop <pseudo>"
putdcc $idx "\0033Opall \0034Commandes \0031: \0032!opall"
putdcc $idx "\0033Deopall \0034Commandes \0031: \0032!deopall"
putdcc $idx "\0033Mode \0034Commandes \0031: \0032!mode <mode>"
putdcc $idx "\0033Ban \0034Commandes \0031: \0032!ban <host/nick>"
putdcc $idx "\0033Unban \0034Commandes \0031: \0032!unban <host>"
putdcc $idx "\0033Banlist \0034Commandes \0031: \0032!banlist"
putdcc $idx "\0033Clearbans \0034Commandes \0031: \0032!clearbans"
putdcc $idx "\0033Kick \0034Commandes \0031: \0032!kick <pseudo> raison"
putdcc $idx "\0033Kickban \0034Commandes \0031: \0032!kickban <pseudo> raison"
putdcc $idx "\0033Topic \0034Commandes \0031: \0032!topic <phrase>"
putdcc $idx "_"
}
if {$levelnick>="3"} {
putdcc $idx "\0031Level \002III\002 \0031($::botnick) : \037COMMANDES Chan-Master\037"
putdcc $idx "_"
putdcc $idx "\0033Deluser \0034Commandes \0031: \0032!deluser <pseudo>"
putdcc $idx "\0033Join \0034Commandes \0031: \0032!join <salon>"
putdcc $idx "\0033Part \0034Commandes \0031: \0032!part <salon>"
putdcc $idx "\0033Uptime \0034Commandes \0031: \0032!uptime"
putdcc $idx "\0033Xbl \0034Commandes \0031: \0032!xbl <pseudo>"
putdcc $idx "\0033Xblist \0034Commandes \0031: \0032!xblist"
putdcc $idx "\0033Xdelbl \0034Commandes \0031: \0032!xdelbl"
putdcc $idx "_"
}
if {$levelnick>="4"} {
putdcc $idx "\0031Level \002IV\002 \0031($::botnick) : \037COMMANDES Administrateurs\037"
putdcc $idx "_"
putdcc $idx "\0033Autorise \0034Commandes \0031: \0032!autorise <pseudo>"
putdcc $idx "\0033Deautorise \0034Commandes \0031: \0032!deautorise <pseudo>"
putdcc $idx "\0033Die \0034Commandes \0031: \0032!die"
putdcc $idx "\0033Restart \0034Commandes \0031: \0032!restart <phrase> ou sans"
putdcc $idx "\0033Rehash \0034Commandes \0031: \0032!rehash"
putdcc $idx "\0033Save \0034Commandes \0031: \0032!save"
putdcc $idx "\0033Version \0034Commandes \0031: \0032!version"
putdcc $idx "\0033Tcl \0034Commandes \0031: \0032!tcl <argument>"
putdcc $idx "_"
}
}
|
|
| 12/07/2010 18:38 |
|
 |
CrazyCat
Administrator
Messages : 1,344
Groupe : Administrators
Inscription : Apr 2004
Statut :
Hors ligne
|
RE: problème pl
Explication la plus logique: getlevel te renvoie un entier, que tu compares à une chaine.
Seconde explication logique: getlevel ne te renvoie rien, ajoute un:
avant ton premier if pour savoir sur quoi tu travailles et ce que sont les retours.
Trucs et astuces en programmation
|
|
| 12/07/2010 20:32 |
|
|
aliassangelius
Unregistered
|
RE: problème pl
oui ce que j'ai fait mais quand je rajoute
sa me lance plus de pl..
DCC Chat session
Client: XyLoO (88.191.118.44)
Time: Mon Jul 12 23:12:11 2010
Acknowledging chat request...
Unable to connect
DCC session closed
|
|
| 12/07/2010 22:15 |
|
|
CrazyCat
Administrator
Messages : 1,344
Groupe : Administrators
Inscription : Apr 2004
Statut :
Hors ligne
|
RE: problème pl
Je ne vois pas trop comment un simple putlog peut faire planter. Mais sinon, utilise
putdcc $idx "$hand => $levelnick"
Trucs et astuces en programmation
|
|
| 13/07/2010 08:10 |
|
|
aliassangelius
Unregistered
|
RE: problème pl
oui en fesant comme ça sa fonctionne la PL mais sa ne m'affiche que mon level de conbien il et
[14:35:50] (Fredo) .cmds
[14:35:50] <XyLoO> AIDE => Commandes Robot XyLoO
[14:35:50] <XyLoO> _
[14:35:50] <XyLoO> Fredo => 4
[14:35:50] <XyLoO> Level NULL (XyLoO) : COMMANDES Pincipales
[14:35:50] <XyLoO> _
[14:35:50] <XyLoO> Admin Commandes : !admins
|
|
| 13/07/2010 13:38 |
|
|
CrazyCat
Administrator
Messages : 1,344
Groupe : Administrators
Inscription : Apr 2004
Statut :
Hors ligne
|
RE: problème pl
Explication la plus logique: getlevel te renvoie un entier, que tu compares à une chaine.
[14:35:50] (Fredo) .cmds
[14:35:50] <XyLoO> AIDE => Commandes Robot XyLoO
[14:35:50] <XyLoO> _
[14:35:50] <XyLoO> Fredo => 4
[14:35:50] <XyLoO> Level NULL (XyLoO) : COMMANDES Pincipales
[14:35:50] <XyLoO> _
[14:35:50] <XyLoO> Admin Commandes : !admins
Donc, j'avais raison.
if {$levelnick>=0} {
...
if {$levelnick>=1} {
Trucs et astuces en programmation
|
|
| 13/07/2010 13:47 |
|
|
aliassangelius
Unregistered
|
RE: problème pl
Sujet Résolu sur zeolia salon eggdrop :
Merci beaucoup pour toute ton aide que tu ma faites CrazyCat je poste la correction du Tcl :
namespace eval helpcmds {}
bind dcc 0 cmds helpcmds::aide
proc helpcmds::aide {hand idx arg} {
set levelnick [getlevel $hand]
putdcc $idx "\00300,01AIDE => Commandes Robot XyLoO"
putdcc $idx "_"
putdcc $idx "$hand => $levelnick"
if {$levelnick>=0} {
putdcc $idx "\0031Level \002NULL\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
putdcc $idx "_"
putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
putdcc $idx "\0033Auth \0034Commandes \0031: \0032 /msg $::botnick auth [hand2nick $hand] pass"
putdcc $idx "\0033Cmds \0034Commandes \0031: \0032!cmds"
putdcc $idx "_"
}
if {$levelnick>=1} {
putdcc $idx "\0031Level \002I\002 \0031($::botnick) : \037COMMANDES Pincipales\037"
putdcc $idx "_"
putdcc $idx "\0033Access \0034Commandes \0031: \0032!access"
putdcc $idx "\0033Autovoice \0034Commandes \0031: \0032!autovoice"
putdcc $idx "\0033Admin \0034Commandes \0031: \0032!admins"
putdcc $idx "\0033Addquote \0034Commandes \0031: \0032!addquote <text>"
putdcc $idx "\0033Findquote \0034Commandes \0031: \0032!findquote <text>"
putdcc $idx "\0033Statsquote \0034Commandes \0031: \0032!statsquote"
putdcc $idx "\0033Quote \0034Commandes \0031: \0032!quote <n°>"
putdcc $idx "\0033Man \0034Commandes \0031: \0032!man <commande> option"
putdcc $idx "\0033Voice \0034Commandes \0031: \0032!voice ou !voice <pseudo>"
putdcc $idx "\0033Devoice \0034Commandes \0031: \0032!devoice ou !devoice <pseudo>"
putdcc $idx "\0033Voiceall \0034Commandes \0031: \0032!voiceall"
putdcc $idx "\0033Devoiceall \0034Commandes \0031: \0032!devoiceall"
putdcc $idx "_"
}
if {$levelnick>=2} {
putdcc $idx "\0031Level \002II\002 \0031($::botnick) : \037COMMANDES Opérateurs\037"
putdcc $idx "_"
putdcc $idx "\0033Op \0034Commandes \0031: \0032!op ou !op <pseudo>"
putdcc $idx "\0033Deop \0034Commandes \0031: \0032!deop ou !deop <pseudo>"
putdcc $idx "\0033Opall \0034Commandes \0031: \0032!opall"
putdcc $idx "\0033Deopall \0034Commandes \0031: \0032!deopall"
putdcc $idx "\0033Mode \0034Commandes \0031: \0032!mode <mode>"
putdcc $idx "\0033Ban \0034Commandes \0031: \0032!ban <host/nick>"
putdcc $idx "\0033Unban \0034Commandes \0031: \0032!unban <host>"
putdcc $idx "\0033Banlist \0034Commandes \0031: \0032!banlist"
putdcc $idx "\0033Clearbans \0034Commandes \0031: \0032!clearbans"
putdcc $idx "\0033Kick \0034Commandes \0031: \0032!kick <pseudo> raison"
putdcc $idx "\0033Kickban \0034Commandes \0031: \0032!kickban <pseudo> raison"
putdcc $idx "\0033Topic \0034Commandes \0031: \0032!topic <phrase>"
putdcc $idx "_"
}
if {$levelnick>=3} {
putdcc $idx "\0031Level \002III\002 \0031($::botnick) : \037COMMANDES Chan-Master\037"
putdcc $idx "_"
putdcc $idx "\0033Deluser \0034Commandes \0031: \0032!deluser <pseudo>"
putdcc $idx "\0033Join \0034Commandes \0031: \0032!join <salon>"
putdcc $idx "\0033Part \0034Commandes \0031: \0032!part <salon>"
putdcc $idx "\0033Uptime \0034Commandes \0031: \0032!uptime"
putdcc $idx "\0033Xbl \0034Commandes \0031: \0032!xbl <pseudo>"
putdcc $idx "\0033Xblist \0034Commandes \0031: \0032!xblist"
putdcc $idx "\0033Xdelbl \0034Commandes \0031: \0032!xdelbl"
putdcc $idx "_"
}
if {$levelnick>=4} {
putdcc $idx "\0031Level \002IV\002 \0031($::botnick) : \037COMMANDES Administrateurs\037"
putdcc $idx "_"
putdcc $idx "\0033Autorise \0034Commandes \0031: \0032!autorise <pseudo>"
putdcc $idx "\0033Deautorise \0034Commandes \0031: \0032!deautorise <pseudo>"
putdcc $idx "\0033Die \0034Commandes \0031: \0032!die"
putdcc $idx "\0033Restart \0034Commandes \0031: \0032!restart <phrase> ou sans"
putdcc $idx "\0033Rehash \0034Commandes \0031: \0032!rehash"
putdcc $idx "\0033Save \0034Commandes \0031: \0032!save"
putdcc $idx "\0033Version \0034Commandes \0031: \0032!version"
putdcc $idx "\0033Tcl \0034Commandes \0031: \0032!tcl <argument>"
putdcc $idx "_"
}
}
|
|
| 13/07/2010 14:06 |
|
|
|
|
Twitter
Recherche
Liste des membres
Chat
Aide
Téléchargements
