Communauté francophone sur les Eggdrops

Bonjour voila je Vien car je fais un showcommands pour Pl mais sur chan niquel mais en modifiant pour que sa le fasse en Pl sa veut pas..
Et je n’ai aucun message d'erreur..

TCL :

namespace eval helpcmds {

       

      bind dcc 0 .cmds helpcmds::aide

      proc helpcmds::aide {hand idx arg} {

      set levelnick [getlevel [nick2hand $nick]]

      putdcc $idx "AIDE => Commandes Robot XyLoO"

      putdcc $idx ""

       

      if {$levelnick>="0"} {

      pudcc $idx "Level NULL ($::botnick) : COMMANDES Pincipales"

      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 "Level I ($::botnick) : COMMANDES Pincipales"

      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 "Level II ($::botnick) : COMMANDES Opérateurs"

      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 "Level III ($::botnick) : COMMANDES Chan-Master"

      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 "Level IV ($::botnick) : COMMANDES Administrateurs"

      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 ""

      }

      }

      }

Déjà, tes merdes de codes mIRC ne passeront pas en party-line.
Ensuite, si la commande est effectuée en party-line, le nick2hand ne sert à rien.
Et dernièrement... getlevel ? fonction inconnue

Oui pas tout coder en code tcl et si getlevel existe c'est le bot purtcl il emploi le getlevel. Et pis bon dire tes merde ya des mots plus approprier pour le dire quand même du genre "ta certaine couleur mirc dans ton tcl corrige les stp" phrase simple.. Au moins moi ce n’est pas du ripage comme beaucoup de t'es tcl qui se trouve sur le site venez de tierce personnes

Excuse moi pour le qualificatif de "merde", mais il y a un bon moment que je râle après les codes couleur mIRC dans les codes.
Quant à la commande getlevel, je ne la connais pas (je ne connais pas les bots puretcl), mais je pense que le souci vient du nick2hand. En party-line, l'eggdrop connait ton déjà handle, pas ton nick.

Et pour ce qui concerne le rippage ou l'attribution "illicite" de tcl, j'y fais la guerre et lorsque je diffuse un tcl qui n'est pas de moi, je le signale.

Ok merci je vais regarder comment faire. Pour les code couleur j'ais pas terminer car le tcl n'est pas fini comme tu as pu le remarquer car le restant se trouve en code couleurs tcl. Concernant les contenu illicite je ne m'adresser pas à toi mais a certaines personnes du site qui si il lise ceci seront se reconnaitre pour le bot purtcl je vais t'envoyer un message privé et te donner le lien

Pour répondre à t'es question CrazyCat :

TCL :

proc getlevel {hand} {

  if [info exists ::auth($hand)] {return [lindex $::auth($hand) 2]}

  return 0

}

 

proc nick2hand {nick {chan ""}} {

 global auth

  foreach "hand infos" [array get auth] {

    if {[string tolower [lindex $infos 0]]==[string tolower $nick]} {return $hand}

  }

  return *

}

Bon, un truc qui est sur, c'est que ça ne peut pas marcher:

TCL :

proc helpcmds::aide {hand idx arg}  {

      set levelnick [getlevel [nick2hand $nick]]

$nick n'existe pas, il faut retrouver le handle par rapport à l'idx, donc avec idx2hand <idx>
Ce qui donnera:

TCL :

proc helpcmds::aide {hand idx arg}  {

      set levelnick [getlevel [idx2hand $idx]]

Ce que j'ai modifié mais il me dit que "can't read "idx": no such variable" Mad

Depuis 3 jours sa fait que ça lol

C'est vraiment étrange que $idx ne soit pas déclaré...
De plus, en relisant ce que je t'ai donné, je me suis rendu compte d'une idiotie: tu as déjà l'handle:

TCL :

proc helpcmds::aide {hand idx arg}  {

      set levelnick [getlevel $hand]

bah a croire que il aime pas en dcc le purtcl..
voila ce qu'il me dis exactement quand je tape la commande voir si ya une erreur ou pas :

Citation :

[19:15:51] (+alias_angelius) !tcl set errorInfo
[19:15:51] (Bot-Scripting) TCL -> can't read "hand": no such variable
[19:15:53] (Bot-Scripting) TCL -> while executing
[19:15:55] (Bot-Scripting) TCL -> "getlevel $hand"
[19:15:57] (Bot-Scripting) TCL -> (in namespace eval "::helpcmds" script line 4)
[19:15:59] (Bot-Scripting) TCL -> invoked from within
[19:16:01] (Bot-Scripting) TCL -> "namespace eval helpcmds {
[19:16:03] (Bot-Scripting) TCL ->
[19:16:05] (Bot-Scripting) TCL -> bind dcc 0 .cmds helpcmds::aide
[19:16:07] (Bot-Scripting) TCL -> set levelnick [getlevel $hand]
[19:16:09] (Bot-Scripting) TCL -> proc helpcmds::aide {hand idx arg} {..."
[19:16:11] (Bot-Scripting) TCL -> (file "scripts/XyLoO.tcl" line 1)
[19:16:13] (Bot-Scripting) TCL -> invoked from within
[19:16:15] (Bot-Scripting) TCL -> "source $file "
[19:16:17] (Bot-Scripting) TCL -> ("uplevel" body line 1)
[19:16:19] (Bot-Scripting) TCL -> invoked from within
[19:16:21] (Bot-Scripting) TCL -> "uplevel 1 $tryScript"
[19:16:23] (Bot-Scripting) TCL -> Done (0.0 Millisecondes)

Conclusion: utiliser un eggdrop Smile

lol.. tu as vu le nombre de faille d'un eggdrop ?! et le purtc tcl ? même si je mais des mois a réussir a trouver je le ferais mais je n'utilise plus d'eggdrop Mad

merci pour ton aide en tout cas CrazyCat =)

Juste petit renseignement couleur en tcl pour faire fond noir sur écriture blanche c'est quoi ? Mad

suffit de chercher un peut sur le forum.

Couleurs_et_mise_en_forme

Cordialement

merci

Pages: 1 2

Communauté francophone sur les Eggdrops

aliassangelius

CrazyCat

aliassangelius

CrazyCat

aliassangelius

aliassangelius

CrazyCat

aliassangelius

CrazyCat

aliassangelius

CrazyCat

aliassangelius

aliassangelius

fedora

aliassangelius