Communauté sur les Eggdrops - Community about Eggdrops
Aide/Explications pour créer une commande - 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: Aide/Explications pour créer une commande (/showthread.php?tid=337)

Pages: 1 2


RE: Aide/Explications pour créer une commande - Merwin - 24/02/2009

Bah ça dépend de la façon dont tu détectes qu'un joueur rejoin un salon... tu vas être obligé de modifier le service du coup...


RE: Aide/Explications pour créer une commande - heretoc - 24/02/2009

Modifier ce n'est pas un probleme tant que ce n'est pas un simple bidouillage , mais un code qui tienne la route


RE: Aide/Explications pour créer une commande - Merwin - 24/02/2009

Bah oui mais ce que je veux dire c'est que ça revient pas à modifier, mais à ajouter une nouvelle fonctionalitée au code...
Et comme j'imagine que tu utilises un script Tcl pourri genre Eva ou un truc du genre, codé n'importe comment... ca va pas être simple.


RE: Aide/Explications pour créer une commande - heretoc - 24/02/2009

Enfaite Merwin oui le code est pouris car say entierement le mien (et vue que je debute sa fait des jolies catastrophe)
Après si j'ai un exemple de base je peut essayer de le faire fonctionner dans mon bot sa ce n'est pas le probleme (vue que y'a que moi qui comprend comment il fonctionne xD)


RE: Aide/Explications pour créer une commande - CrazyCat - 24/02/2009

Bon, vite fait, sûrement pas fonctionnel mais la logique y est:

tcl
bind pub n|n "!addsajoin" sj:adduser
proc sj:adduser {nick uhost hand chan args} {
    if {![matchattr $hand n]} { return 0 }
    if {$args == ''} { return 0 }
    set victim [lindex [split $args] 0]
    set chans [lrange [split $args] 1 end]
    if {[llength $chans] == 0} { return 0 }
    set victhand [nick2hand $victim]
    if {![adduser $victhand $victim![getchanhost $victim $chan]} { return 0 }
    chattr $victhand +S
    setuser $victhand XTRA [join $chans]
}
 
bind join - "#control *" sj:invite
proc sj:invite {nick uhost hand chan} {
    if {![matchattr $hand S]} { return 0 }
    foreach c [split [getuser $hand XTRA]] {
        putserv "SAJOIN $nick $c"
    }
}


Petit PS: Heretoc, pourrais-tu s'il te plait faire un effort d'écriture ? Particulièrement en ce qui concerne les "c'est" et "ça". Merci


RE: Aide/Explications pour créer une commande - heretoc - 24/02/2009

Enfaite pour les "c'est" say une habitude d'ecrire toujours say....
Mais pour les ça , pas de probleme

PS : merci crazycat