Communauté sur les Eggdrops - Community about Eggdrops
[Recherche] Script Autovoice - 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: [Recherche] Script Autovoice (/showthread.php?tid=1341)



[Recherche] Script Autovoice - Prototype - 02/05/2013

Et rebonjour.. :x

J'ai fait énormément de recherches, mais je n'ai quasiment rien trouver. Je cherche un script qui fait que, après un certain nombre de lignes dites, le bot +v la personne en question.

J'ai trouvé ActiveChatter, mais il ne marche pas.. Quand un user atteint le nombre de ligne, il me change les modes du chan oO Oui oui, au lieu de /voice $nick , il /mode #chan +MIRCTS ... >< Et le pire, c'est que les lettres tombent aléatoirement .. C'est vous dire que ça me dérange. Et au final, il ne voice personne ..


Enfin bref, est-ce que vous en connaitrez un ? :3


Merci, encore une fois, vous gérez ! <3


RE: [Recherche] Script Autovoice - CrazyCat - 02/05/2013

Tu dois certainement pouvoir modifier le script pour qu'il utilise les bons modes.
J'imagine que tu parles de ActiveChatter qui est à http://code.google.com/p/egghelp/source/browse/trunk/activechatter.tcl ?


RE: [Recherche] Script Autovoice - Prototype - 05/05/2013

Effectivement, j'ai modifié les scripts, et il marche mieux maintenant. Le script que j'avais était faussé, il mettait des "/mode #chan +/-" au lieu de simplement voice les gens. Là c'est bon, ça marche niiiickel. Encore une fois, merci énormément de votre aide, même envers des gros newbie comme moi ;) Vous gérez .


RE: [Recherche] Script Autovoice - CrazyCat - 05/05/2013

D'un autre côté, un voice, c'est /mode #chan +v machin.


RE: [Recherche] Script Autovoice - Prototype - 07/05/2013

Vrai, j'me suis mal exprimé. Il y avait de mauvais Flags dessus.

Tant que j'y suis, comme mon chan subit des attaques de spammers, vous n'avez pas un script facile pour voice tout le monde présent sur le chan ? Genre un !allvoice, et mon bot Voice toute le monde ? :) Merci d'avance.


RE: [Recherche] Script Autovoice - aliasangelius - 07/05/2013

Salut,


tcl
bind pub o "!voiceall" voiceall
proc voiceall { nick host hand chan arg } {
            foreach voiceall [chanlist $chan] { if [isop $voiceall $chan] continue; pushmode $chan +v $voiceall }
}


Un truc du genre je pense


RE: [Recherche] Script Autovoice - Prototype - 09/05/2013

Nickel ! ça marche parfaitement :D

Une dernière question et ça ira pour moi : J'ai un petit script pour sécuriser le chan, qui me permet de, avec une simple commande, pouvoir le mettre en +MD/-MD, ou alors en +avs/-avs. Or, je suis le seul à pouvoir le faire, c'est à dire que je suis le seul que le bot écoute. J'aimerai savoir si il y a pas une solution pour changer ça, en mettant des "if isop" quelque part.

Je vous met le code ici. Merci encore :)



tcl
catch {bind pub m !autovoice channel:avs}
catch {bind join - * chan:vsjoin}
setudef flag avs
 
proc channel:avs {nick uhost hand chan arg} {
	switch -exact -- $arg {
		"on" {
			channel set $chan +avs
			putserv "PRIVMSG $chan :L'auto Voice a été activé, &nick."
		}
		"off" {
			channel set $chan -avs
			putserv "PRIVMSG $chan :L'auto Voice a été désactivé, &nick."
		}
	}
}
 
proc chan:vsjoin {nick uhost hand chan} {
	if {[channel get $chan avs]} {
              putquick "MODE $chan +v $nick"
	}
}
 
 
 
 
catch {bind pub m !p channel:pro}
setudef flag pro
 
proc channel:pro {nick uhost hand chan arg} {
	switch -exact -- $arg {
		"on" {
			channel set $chan +pro
			channel set $chan -avs
			putserv "PRIVMSG $chan :Le chan est dorénavant protégé, &nick."
		 	putserv "MODE $chan +mD"
		}
		"off" {
			channel set $chan -pro
			putserv "PRIVMSG $chan :Le chan n'est dorénavant plus protégé, &nick."
			putserv "MODE $chan -mD"
		}
	}
}




RE: [Recherche] Script Autovoice - CrazyCat - 09/05/2013

Donc, il s'agit des commandes restreintes au master ? Les bind pub m.
Deux possibilités :
- changer les binds pour les ouvrir aussi aux ops des canaux (bind pub m|o) en ajoutant bien sûr ces personnes dans la userlist de l'eggdrop avec les bons flags,
- changer les binds pour qu'ils soient accessibles à tous (bind pub -) et ajouter dans les procédures appelées, dès le début:

tcl
if { ![isop $nick $chan] } { return 0; }




RE: [Recherche] Script Autovoice - Prototype - 09/05/2013

Si j'ai bien compris, ça donnerai ça :


tcl
catch {bind pub - !autovoice channel:avs}
catch {bind join - * chan:vsjoin}
setudef flag avs
if { ![isop $nick $chan] } { return 0; }
 
proc channel:avs {nick uhost hand chan arg} {
	switch -exact -- $arg {
		"on" {
			channel set $chan +avs
			putserv "PRIVMSG $chan :L'auto Voice a été activé, &nick."
		}
		"off" {
			channel set $chan -avs
			putserv "PRIVMSG $chan :L'auto Voice a été désactivé, &nick."
		}
	}
}
 
proc chan:vsjoin {nick uhost hand chan} {
	if {[channel get $chan avs]} {
              putquick "MODE $chan +v $nick"
	}
}
 
 
 
 
catch {bind pub - !p channel:pro}
setudef flag pro
if { ![isop $nick $chan] } { return 0; }
 
proc channel:pro {nick uhost hand chan arg} {
	switch -exact -- $arg {
		"on" {
			channel set $chan +pro
			channel set $chan -avs
			putserv "PRIVMSG $chan :Le chan est dorénavant protégé, &nick."
		 	putserv "MODE $chan +mD"
		}
		"off" {
			channel set $chan -pro
			putserv "PRIVMSG $chan :Le chan n'est dorénavant plus protégé, &nick."
			putserv "MODE $chan -mD"
		}
	}
}



C'est ça ? *noob inside*


RE: [Recherche] Script Autovoice - CrazyCat - 09/05/2013

Pas tout à fait, je te le corrige pour la première procédure:

tcl
catch {bind pub - !autovoice channel:avs}
 
proc channel:avs {nick uhost hand chan arg} {
   if { ![isop $nick $chan] } { return 0; }
   switch -exact -- $arg {
      "on" {
         channel set $chan +avs
         putserv "PRIVMSG $chan :L'auto Voice a été activé, &nick."
      }
      "off" {
         channel set $chan -avs
         putserv "PRIVMSG $chan :L'auto Voice a été désactivé, &nick."
      }
   }
}

La condition est forcément dans les procédures.


RE: [Recherche] Script Autovoice - Prototype - 09/05/2013

Du coup, si j'ai bien compris, le bon script est :


tcl
catch {bind pub - !autovoice channel:avs}
catch {bind join - * chan:vsjoin}
setudef flag avs
 
proc channel:avs {nick uhost hand chan arg} {
   if { ![isop $nick $chan] } { return 0; }
   switch -exact -- $arg {
      "on" {
         channel set $chan +avs
         putserv "PRIVMSG $chan :L'auto Voice a été activé, &nick."
      }
      "off" {
         channel set $chan -avs
         putserv "PRIVMSG $chan :L'auto Voice a été désactivé, &nick."
      }
   }
}
 
proc chan:vsjoin {nick uhost hand chan} {
   if {[channel get $chan avs]} {
             putquick "MODE $chan +v $nick"
   }
}
 
 
 
 
catch {bind pub - !p channel:pro}
setudef flag pro
 
proc channel:pro {nick uhost hand chan arg} {
   if { ![isop $nick $chan] } { return 0; }
   switch -exact -- $arg {
      "on" {
         channel set $chan +pro
         channel set $chan -avs
         putserv "PRIVMSG $chan :Le chan est dorénavant protégé, &nick."
          putserv "MODE $chan +mD"
      }
      "off" {
         channel set $chan -pro
         putserv "PRIVMSG $chan :Le chan n'est dorénavant plus protégé, &nick."
         putserv "MODE $chan -mD"
      }
   }
}




RE: [Recherche] Script Autovoice - CrazyCat - 09/05/2013

Oui.
Par contre, je vois du "&nick" dans tes messages, ça ne serait pas plutôt $nick ?


RE: [Recherche] Script Autovoice - Prototype - 09/05/2013

J'ai corrigé ça dans le script, j'ai oublié de le faire ici, mais oui tu as raison, c'est bien $ au lieu de &.


Encore une autre fois, merci merci merci et merci :) Vous gérez la fougère !


RE: [Recherche] Script Autovoice - aliasangelius - 09/05/2013

Salut,

Je vais être chiant..
Mais votre façon de faire je trouve sa pas super..

Admettons ont op une personne sur le salon elle pourra se servir de la commande.
Or il et plutôt préférable de faire par système de flag.. Moi je ferait avec les flags Après sa ne tien qu'à moi


RE: [Recherche] Script Autovoice - Prototype - 09/05/2013

Oui, mais le chan où je suis n'a d'OP que les personnes qui stream dessus, ainsi que deux personnes. Donc, ceux qui sont apte à gérer le chan. Mais, personnellement, je préfère quelqu'un qui n'a pas de controle sur le bot mais peut protéger le chan que quelqu'un qui a un controle sur le bot, tout simplement. M'voyez ?