Communauté sur les Eggdrops - Community about Eggdrops
Clam.tcl v2.0 - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: Clam.tcl v2.0 (/showthread.php?tid=562)



Clam.tcl v2.0 - Behemoth - 06/12/2009

Salut..

Voilà j voulais utiliser ce script dans mon Bot qui est dans un serveur ou on a pas accèss IRCOp...

J ai des soucis avec le script.. On est pas dans un serveur 'Unreal/Anope' et non plus pas d acess au Niveau OperServ..


J ai des soucis avec ces commandes :

1. badnick ( !addbad 'nick' ) : mais quand j éxécute cette commande, le bot n ajoute pas le 'badnick' dans son database.

2.badnicklist ( !badlist ) : me donne pas la liste des badnicks ( meme si j ai ajouter des pseudos dans le .db et le transferer sur mon shell ).

j serais très reconnaissant si vous veniez à mon aide svp..

Source supprimée: STOP aux codes couleurs mIRC dans les sources


RE: Clam.tcl v2.0 - fedora - 06/12/2009

bonsoir,

Quand tu tape !addbad "nick" as tu une erreur en pl ? ect ...
A tu regarder si le souci venais pas des droits d'écriture sur ton shell ?


RE: Clam.tcl v2.0 - heretoc - 08/12/2009

Héhé mon Clam est utilisé sa fait plaisir
Clam est un tcl d'apprentissage avec des trucs fonctionnel comme d'autres ac des tites erreures (mais volontaire)

Pour en revenir au addbadnick say un truc experimental que j'avais fait pour voir comment il gerer de lire une database entiere à chaque join d'un pseudonyme
Mais sachant que Clam est surtout fait pour Unreal et Anope je ne serais comment t'aider


Aller quand j'aurais le temps j'ajouterais Clam v3 ou les bugs que j'avais mis dans la v2 sont corriger mais remplacer pas d'autres (niark)


RE: Clam.tcl v2.0 - snoopy - 09/12/2009

En gros quand tu fais !addbad "nick" , tu veux que sa te l'ajoute a un fichier ?


RE: Clam.tcl v2.0 - fedora - 09/12/2009

Quote:1. badnick ( !addbad 'nick' ) : mais quand j éxécute cette commande, le bot n ajoute pas le 'badnick' dans son database.

2.badnicklist ( !badlist ) : me donne pas la liste des badnicks ( meme si j ai ajouter des pseudos dans le .db et le transferer sur mon shell ).
donc je pense que oui il voudrai en tapant !addbad nick sa ajoute ect ...


RE: Clam.tcl v2.0 - snoopy - 09/12/2009

ok donc pour add dans un fichier


tcl
set TF(bl) "scripte/emplacement-de-ton-fichier.db"
 
bind pub - !badlist liste
bind pub - !addbad ajout
 
proc ajout {nick host hand chan arg} {
       global TF
       set victim [lindex $arg 0]
     catch {open $TF(bl) r+} dossier	 
	 while {![eof $dossier]} {
	 gets $dossier lecture
     if {[string equal -nocase [lindex $lecture 0] $victim]} {
     # le pseudo recherché est déjà dedans #
     close $dossier
     return
     }
     }
     # le pseudo est ajouté #
     puts $dossier "$victim ajouté par $nick"
     close $dossier
}
proc liste {nick host hand chan arg} {
     global TF
     catch {open $TF(bl) r} dossier
     while {![eof $dossier]} { 
     set lecture [gets $dossier] 
	 if {$lecture != ""} {
putserv "NOTICE $nick : $lecture "
     }
     }
     close $dossier  
}


voila je viens de te codé sa vite fait , je pense pas qu'il y ai d'erreur


RE: Clam.tcl v2.0 - CrazyCat - 09/12/2009

apparté
snoopy Wrote:voila je viens de te codé sa vite fait , je pense pas qu'il y ai d'erreur
Rien que dans cette phrase, j'en note au moins 4:
"Voila, je viens de te coder ça vite fait, je ne pense pas qu'il y ait d'erreur"

Je veux bien que ce soit un forum plutôt informatique, mais si vous faites l'effort d'écrire correctement le code, vous pourriez faire de même pour le français, pensez un peu à ceux qui vous lisent.
/apparté