begin process at 2010 07 30 01:29:32
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Bots

 > TCL EGGDROP

TCL EGGDROP


 Information sur la source

Note :
Aucune note
Catégorie :Bots Classé sous :tcl eggdrop, tcl bot, bot ops Niveau :Débutant Date de création :14/02/2010 Date de mise à jour :20/02/2010 17:27:14 Vu / téléchargé :988 / 66

Auteur : aliassangelius

Ecrire un message privé
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

ceci et un tcl pour robot(bot) récupérer et modifier car certaine chose ne fonctionner pas dedans ps: cette source n'est pas de moi mais je l'es corriger ;)




 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Tcl-Eggdrop.tclTélécharger ce fichier [Réservé aux membres club]44 581 octets

Télécharger le zip


 Historique

20 février 2010 17:27:14 :
Bonjour je vien de modifier le tcl. donc les commandes sont expliquer lorque vous faite sur le salon ou se trouve le robot(bot) !help il vous dira les commandes que vous pouvais effectuer grace à ce script tcl. merci à tous pour vos commentaire j'ai corriger les erreurs eventuel qui y'avait dessus

 Sources du même auteur

Source avec Zip Source avec une capture PANNEAU DE CONFIGURATION PS7

 Sources de la même categorie

Source avec Zip SERVICE GEOFRONT (PERL) par iZyTeHPariaH
ANIMATION POUR BOT par michounou
RECORD AFFLUENCE MULTI-SALON par extarsik
Source avec Zip Source avec une capture LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims
SALON TRADUCTION par CsDarkman

Commentaires et avis

Commentaire de IrX le 14/02/2010 11:24:02

bonjour,

Ligne 251
[code]
putserv "mode $chan -b [lindex $test 0]" <- il manquer "
[/code]

Commentaire de aliassangelius le 14/02/2010 17:53:22

bonjour

oui en effet j'avait completement oublier un " merci beaucoup ;)


Apprendre c'est comprendre..

Commentaire de Benjamin37 le 15/02/2010 14:22:33

Bonjour !

pas mal comme tcl.

Des petit erreurs que j'ai décelé ( mais je ne suis pas sur vu que je suis novice en langage tcl ) :
ligne 276
[code]
bind pub n| [string trim $prefixcmd]addowner pub_addowner
[/code]

il ne manque pas un n ?
ça serait plus ça :
[code]
bind pub n|n [string trim $prefixcmd]addowner pub_addowner

[/code]

La même chose aux lignes suivantes :  673,853,902,946 et 982  il manque aussi un n .


Voilà

Cordialement

Commentaire de aliassangelius le 18/02/2010 18:53:13

Bonjour

quand je fais addowner sa fonctionne correctement mais je vais tester et modifier comme tu me la dis voir ce que sa donne :)

le seul truc qui déconne dans ce tcl la c'est quand je fait un addmaster en pl je doit rajouter le flaq "s" et "n" enfin je vais modifier plein de chose et le re poster içi pour avoir vos avis merci pour les commentaire =)

Commentaire de SornDrixer le 19/02/2010 16:57:52 administrateur CS

Ca serait bien que tu détailles ce que fait ce script, comment l'utiliser, etc.

De plus, as-tu l'autorisation de son auteur pour publier sa source ici ? (vu qu'elle n'est pas de toi au départ)

Commentaire de aliassangelius le 20/02/2010 13:44:47

Bonjour SornDrixer

je vais le détailler ce que fais la source quand j'aurais apporter les modification dessus

et oui j'ai demander l'autorisation à l'auteur de publier son code je ne poste pas de source sans accord si elle n'est pas de moi à la base

Commentaire de uaip le 23/02/2010 22:59:13

Oh, ça me rappelle mes "débuts" :')
J'ai survolé très vite fait le code, propre, organisé, le bot a l'air pas mal.
Juste une question, ces "return 0" en fin de proc par bind, c'est nécessaire ?

Commentaire de aliassangelius le 24/02/2010 23:20:19

Bonjour UAIP

Return 0 permet de quitter une fonction en renvoyant 0 à la fonction appelante. 0 signifie que le code s'est terminé sans erreur.

Merci pour ton commentaire qui ma fait très plaisir :)

Commentaire de aliassangelius le 24/02/2010 23:21:40

Oublier de mettre un oui désolé je suis tête en l'air défois lol

Commentaire de uaip le 24/02/2010 23:45:04

Salut,
Je sais bien ce que signifie l'instruction "return" :)
Mais je parlais des return en fin de proc par bind.
Comme tu l'as dit, "return" permet à la procédure appelante de récupérer la valeur de retour.
Mais dans le cas où la fonction est bindée (ou triggée, ou ce que tu veux), il n'y a rien qui vérifie la valeur de retour (si ?).
Du moins, je n'ai jamais mis de "return" dans des proc par bind.

Commentaire de aliassangelius le 24/02/2010 23:55:01

if {[matchattr $hand S] == 1} {
  return 0
}

sa vérifie la valeur 1
=)

Commentaire de uaip le 25/02/2010 00:02:19

Pour prendre l'exemple de pub_deop, elle n'est appelée par aucune autre proc, simplement appelé par un bind. Don personne ne se soucie de sa valeur de retour.
De voir des return 0 et 1 partout, ça me fait mal aux yeux ^^
Enfin bon. Passons.

Commentaire de aliassangelius le 25/02/2010 00:07:32

J'ai jamais tester sans les return mais dès demain je vais tester et si ça fonctionne sans les return 0 je poste un commentaire pour dire ce que ça donne

Commentaire de uaip le 25/02/2010 00:39:34

Euh...
Je précise que je parlais des valeurs de retour (0 et 1). Si tu veux stopper une procédure et retourner dans la proc appelante, tu es obligé d'utiliser return (pour simplifier).
Mais si tu veux tester d'enlever des return, tu dois réorganiser la proc.
Du genre :
proc { param } {
..if { condition 1 } { return }
..commandes
..if { condition 2 } { return }
..commandes
}
devient :
proc { param } {
..if { !condition 1 } {
....commandes
....if { !condition 2 } {
......commandes
....}
..}
}
Et j'ai pas assez regardé ton code pour voir ce qui était le plus intéressant entre des return et des if/else, et là j'ai très mal au crâne d'où mon "Enfin bon. Passons." :)

Bonne nuit.

Commentaire de aliassangelius le 25/02/2010 14:58:19

oui mais bon hier soir je pense que moi de même j'était fatiguer lol

donc j'ai vérifier un peut et va falloir que je réorganise tout le script pour éviter les return mais ya une solution pour le faire comme tu la dit donc je vais me pencher dessus et tester le tout déjà tout modifier et ensuite réorganiser etc enfin bon quand ça sera fait je le ferais parvenir.

Commentaire de uaip le 25/02/2010 15:22:22

Tu n'es pas obligé de te prendre la tête pour ça. Le script fonctionne, c'est l'essentiel.

Commentaire de aliassangelius le 25/02/2010 19:48:37

oui je sais bien mais si je peut l'améliorer ça sera bien aussi :)

Commentaire de aliassangelius le 26/02/2010 17:48:16

# Op #
bind pub o|o [string trim $prefixcmd]op pub_op
proc pub_op {nick uhost hand chan text} {
  global botnick kaneda
  if {[matchattr $hand S] == 0} {
    if {[matchattr $hand Q] == 0}  {
      puthelp "NOTICE $nick :Vous devez vous identifier (/msg $botnick id <password>)"
    }
  }
  if {![botisop $chan]} {
    puthelp "NOTICE $nick : Je vais maintenant prendre controle de ton salon."
  }
  if {[lindex $text 0]!=""} {
    if {[onchan [lindex $text 0] $chan] == 0} {
      puthelp "NOTICE $nick :[lindex $text 0] n'est pas sur $chan."
    }
    pushmode $chan +o [lindex $text 0]
  }
  pushmode $chan +o $nick
}

voilà  un exemple en fesant comme ça sa fonctionne bien =)

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Juillet 2010
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,421 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales