[résolu] problème pl

Pages (2): « Première [1] 2 Suivante > Dernière »

Affichage hiérarchique | Affichage linéaire

[résolu] problème pl

Auteur Message

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #1

[résolu] problème pl

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

      }

      }

      }

Ce message a été modifié le: 13/07/2010 20:20 par MenzAgitat.

08/07/2010 21:18

Trouver tous les messages de cet utilisateur

CrazyCat
Administrator

Messages : 797
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne

Message : #2

RE: problème pl

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

Trucs et astuces en programmation

08/07/2010 21:58

Visiter le site internet de cet utilisateur

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #3

RE: problème pl

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

08/07/2010 22:26

CrazyCat
Administrator

Messages : 797
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne

Message : #4

RE: problème pl

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.

Trucs et astuces en programmation

08/07/2010 22:36

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #5

RE: problème pl

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

08/07/2010 22:41

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #6

RE: problème pl

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 *

}

09/07/2010 21:46

CrazyCat
Administrator

Messages : 797
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne

Message : #7

RE: problème pl

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

Trucs et astuces en programmation

09/07/2010 22:54

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #8

RE: problème pl

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

09/07/2010 23:03

CrazyCat
Administrator

Messages : 797
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne

Message : #9

RE: problème pl

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]

Trucs et astuces en programmation

10/07/2010 18:33

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #10

RE: problème pl

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)

10/07/2010 19:17

CrazyCat
Administrator

Messages : 797
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne

Message : #11

RE: problème pl

Conclusion: utiliser un eggdrop Smile

Trucs et astuces en programmation

10/07/2010 23:27

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #12

RE: problème pl

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 =)

10/07/2010 23:56

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #13

RE: problème pl

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

12/07/2010 17:47

fedora
Novice ..

Messages : 356
Groupe : Registered
Inscription : Sep 2008
Statut : Absent

Message : #14

RE: problème pl

suffit de chercher un peut sur le forum.

Couleurs_et_mise_en_forme

Cordialement

La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.

12/07/2010 18:04

aliassangelius
Member

Messages : 62
Groupe : Registered
Inscription : May 2010
Statut : Hors ligne

Message : #15

RE: problème pl

merci Smile

12/07/2010 18:05

Pages (2): « Première [1] 2 Suivante > Dernière »

« Sujet précédent | Sujet suivant »

Discussions probablement similaires...
Discussion:		Auteur	Réponses:	Affichages:	Dernier message
	problème sur un principe de tcl [résolu]	systak	8	201	14/05/2009 09:42 Dernier message: systak

Voir une version imprimable
Envoyer ce sujet à un ami
S'abonner au sujet | Ajouter le sujet aux favoris