Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

AUTOVOICE AVEC POSSIBILITÉ DE BLACK-LISTER


Information sur la source

Description

Cliquez pour voir la capture en taille normale
Autovoice classique avec fonction supplémentaire : vous pouvez empêcher quiconque de bénéficier du voice en ajoutant son host à la liste noire.

Le code principal de la source est à mettre dans la partie remote de mIRc.

Mettez cette ligne dans la partie popup pour ajouter un raccourci graphique au lancement du script :
Gérer l'autovoice:/dialog -m avoice avoice

Sinon, tapez /dialog -m avoice avoice pour le lancer.
 

Source

  • on *:JOIN:*:{
  • if ($chan == $readini(chanVoice.ini,$chan,avoice) && $address($nick,2) != $readini(chanVoiceBlack.ini,$address($nick,2),novoice)) mode $chan +v $nick
  • }
  • dialog avoice {
  • title "Gestion de l'autovoice"
  • size -1 -1 359 195
  • option pixels
  • tab "Gestion des salons", 1, 4 2 351 189
  • button "Supprimer", 4, 148 61 66 23, tab 1
  • text "Ajoutez ou supprimer un salon de la liste permet de voicer toutes les personnes qui y rentrent. N'oubliez pas de vous appliquer les modes +h, +o, +a ou +q pour que ce script fonctionne.", 5, 221 28 129 139, tab 1
  • button "Ajouter", 7, 149 35 66 22, tab 1
  • edit "#", 3, 14 33 127 22, tab 1
  • list 13, 14 59 125 116, tab 1 size
  • tab "Gestion de la liste noire", 2
  • text "La liste noire permet d'empécher certaines personnes de profiter de l'avoice sur les salons configurés. Les membres listés ne seront voicés sur un aucun salon ou ce script est actif.", 8, 234 33 109 143, tab 2
  • button "Ajouter", 11, 163 35 66 23, tab 2
  • button "Supprimer", 12, 164 62 65 22, tab 2
  • edit "*!*@", 6, 16 35 140 20, tab 2
  • list 14, 16 57 140 110, tab 2 size
  • }
  • on *:dialog:avoice:init:0:{
  • %i = 1
  • while ( %i <= $ini(chanVoice.ini,0)) {
  • did -a $dname 13 $ini(chanVoice.ini,%i)
  • inc %i
  • }
  • %i = 1
  • while ( %i <= $ini(chanVoiceBlack.ini,0)) {
  • did -a $dname 14 $ini(chanVoiceBlack.ini,%i)
  • inc %i
  • }
  • }
  • on *:dialog:avoice:sclick:*:{
  • if ($did == 7) {
  • //writeini -n chanVoice.ini $did(3) avoice $did(3)
  • did -r $dname 13
  • did -r $dname 3
  • %i = 1
  • while ( %i <= $ini(chanVoice.ini,0)) {
  • did -a $dname 13 $ini(chanVoice.ini,%i)
  • inc %i
  • }
  • }
  • if ($did == 4) {
  • //remini -n chanVoice.ini $did(13).seltext
  • did -r $dname 13
  • %i = 1
  • while ( %i <= $ini(chanVoice.ini,0)) {
  • did -a $dname 13 $ini(chanVoice.ini,%i)
  • inc %i
  • }
  • }
  • if ($did == 11) {
  • //writeini -n chanVoiceBlack.ini $did(6) novoice $did(6)
  • did -r $dname 14
  • did -r $dname 6
  • %i = 1
  • while ( %i <= $ini(chanVoiceBlack.ini,0)) {
  • did -a $dname 14 $ini(chanVoiceBlack.ini,%i)
  • inc %i
  • }
  • }
  • if ($did == 12) {
  • //remini -n chanVoiceBlack.ini $did(14).seltext
  • did -r $dname 14
  • %i = 1
  • while ( %i <= $ini(chanVoiceBlack.ini,0)) {
  • did -a $dname 14 $ini(chanVoiceBlack.ini,%i)
  • inc %i
  • }
  • }
  • }
on *:JOIN:*:{
  if ($chan == $readini(chanVoice.ini,$chan,avoice) && $address($nick,2) != $readini(chanVoiceBlack.ini,$address($nick,2),novoice)) mode $chan +v $nick
}

dialog avoice {
  title "Gestion de l'autovoice"
  size -1 -1 359 195
  option pixels
  tab "Gestion des salons", 1, 4 2 351 189
  button "Supprimer", 4, 148 61 66 23, tab 1
  text "Ajoutez ou supprimer un salon de la liste permet de voicer toutes les personnes qui y rentrent. N'oubliez pas de vous appliquer les modes +h, +o, +a ou +q pour que ce script fonctionne.", 5, 221 28 129 139, tab 1
  button "Ajouter", 7, 149 35 66 22, tab 1
  edit "#", 3, 14 33 127 22, tab 1
  list 13, 14 59 125 116, tab 1 size
  tab "Gestion de la liste noire", 2
  text "La liste noire permet d'empécher certaines personnes de profiter de l'avoice sur les salons configurés. Les membres listés ne seront voicés sur un aucun salon ou ce script est actif.", 8, 234 33 109 143, tab 2
  button "Ajouter", 11, 163 35 66 23, tab 2
  button "Supprimer", 12, 164 62 65 22, tab 2
  edit "*!*@", 6, 16 35 140 20, tab 2
  list 14, 16 57 140 110, tab 2 size
}

on *:dialog:avoice:init:0:{
  %i = 1
  while ( %i <= $ini(chanVoice.ini,0)) {
    did -a  $dname 13 $ini(chanVoice.ini,%i)
    inc %i
  }
  %i = 1
  while ( %i <= $ini(chanVoiceBlack.ini,0)) {
    did -a  $dname 14 $ini(chanVoiceBlack.ini,%i)
    inc %i
  }
}
on *:dialog:avoice:sclick:*:{
  if ($did == 7) { 
    //writeini -n chanVoice.ini $did(3) avoice $did(3)
    did -r  $dname 13
    did -r  $dname 3
    %i = 1
    while ( %i <= $ini(chanVoice.ini,0)) {
      did -a  $dname 13 $ini(chanVoice.ini,%i)
      inc %i
    }
  }
  if ($did == 4) { 
    //remini -n chanVoice.ini $did(13).seltext
    did -r  $dname 13
    %i = 1
    while ( %i <= $ini(chanVoice.ini,0)) {
      did -a  $dname 13 $ini(chanVoice.ini,%i)
      inc %i
    }
  }


  if ($did == 11) { 
    //writeini -n chanVoiceBlack.ini $did(6) novoice $did(6)
    did -r  $dname 14
    did -r  $dname 6
    %i = 1
    while ( %i <= $ini(chanVoiceBlack.ini,0)) {
      did -a  $dname 14 $ini(chanVoiceBlack.ini,%i)
      inc %i
    }
  }
  if ($did == 12) { 
    //remini -n chanVoiceBlack.ini $did(14).seltext
    did -r  $dname 14
    %i = 1
    while ( %i <= $ini(chanVoiceBlack.ini,0)) {
      did -a  $dname 14 $ini(chanVoiceBlack.ini,%i)
      inc %i
    }
  }
}

Conclusion

L'adresse à black-lister est comparé sous la forme *!*@host.
Il est donc obligatoire de mettre une host sous cette forme (c'est $addresse($nick,2))



 

Commentaires et avis

signaler à un administrateur
Commentaire de modserv le 07/03/2008 18:57:30

* /dialog: 'avoice' invalid table, in 'text' 5
* /dialog: 'avoice' invalid table, in 'text' 5
* /dialog: 'avoice' invalid table, in 'text' 5
* /dialog: 'avoice' invalid table, in 'text' 5
hum hum ?

signaler à un administrateur
Commentaire de ircland le 10/03/2008 22:28:42

Génial cette source! dommage de mIRC n'offre pas se "add-on" par default!

*eyes rolling*!!!

signaler à un administrateur
Commentaire de Patou_175 le 11/03/2008 20:38:09

modserv, je comprend pas, j'ai ressayé moi ça marche..
Tu mets bien tout le code dans "Remote", puis tu tapes "/dialog -m avoice avoice" pour le lancer ?

signaler à un administrateur
Commentaire de wims le 11/03/2008 21:30:08

L'id 5 de la table de ton dialog est un text
Ton texte comporte une virgule mais les virgules sont utilisés  comme séparateur de paramètre ds la table de dialog...
Je n'ai pas testé le code donc je peux pas en dire plus mais quel version utilisez-vous ? utilise $+ $chr(44) sinon, ça devrais marcher...

signaler à un administrateur
Commentaire de wims le 11/03/2008 21:32:42

Sur mIRC 6.3, aucun soucis pour la virgule, Modserv doit utiliser une version ancienne...

signaler à un administrateur
Commentaire de ircland le 12/03/2008 00:19:28

Non mais... le sujet n'est pas encore clot ? mIRC fait deja les autovoice sur le pseudo qu'on veut et la blacklist... Donc cassé vous pas la tête ... si vous êtes pas capable de la loader ou d'écrire une source dans le sens du monde utilisé mIRC avant de faire des sources inutiles...

signaler à un administrateur
Commentaire de wims le 12/03/2008 15:11:59

Je n'ai pas parlé de la source en elle même, je ne m'amuse pratiquement plus a commenter les sources que je juge inutile (celle ci a le bonus d'être en initié :))

signaler à un administrateur
Commentaire de ISoKa le 21/06/2008 21:26:04

#  %i = 1
# while ( %i <= $ini(chanVoice.ini,0)) {
# did -a $dname 13 $ini(chanVoice.ini,%i)
# inc %i
# }

didtok ?

signaler à un administrateur
Commentaire de ludovicleboss le 13/08/2008 20:15:03 10/10

Il marche tres bien et je ne comprend pas ton probleme MODSERV

signaler à un administrateur
Commentaire de hisoka2501 le 03/07/2009 04:17:56

while ( %i <= $ini(chanVoice.ini,0)) {

.. tu sais que la tu demande a mirc de compter le fichier ini a CHAQUE iteration de ta boucle ?
pas tres optimisé
les / au debut de tes lignes ne servent a rien
regroupe tes events dans un seul appel a on *dialog genre:

on *:dialog:avoice:*:*:{
if ($devent == init) {

}
elseif ($devent == sclick) {
if ($did == ...) {

}
}
}

si tu ne vérifie pas que les lignes de tes edit ne soient pas = a $null met $$did() dans ce cas, tu évitera des bugs

lors de ton init, %i = ... NON NON ET NONNNNNNNNNN
var %i = ...
la plupart des scripts utilisent %i lors des boucles, ton script qui set un %i comme ca en plein millieu d'une boucle dun autre script et c'est le bug !

pensse a utiliser elseif au lieu d'enchainer les if a la suite aussi

ca:
# did -r $dname 13
# did -r $dname 3

devien
# did -r $dname 3,13

niveau initié ? LOL
sur une échelle de 0 a 100 ton code ne dépasse pas les 15...
et au passage jette un oeil a $iif()

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Autovoice Pseudo Spéciaux [ par theNoX ] Bonjour,J'aimerais savoir comment faire un auto voice qui voice seulement les personne dont le pseudo commencent par "kE"Merci =) compteur de ligne ou mot pour autovoice [ par speeder ] Soriez-vous comment faire un auto voice sous mirc a partir du moment ou un user a entré un certain nombre de lignes, mots, ou phrase svp ??Par exemple Help :) [ par jujuquatre ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~JuJuQuArTrE s^ s^ s^ JuJu_BoT WWW.ut2004.fr.st~~~~~~~~~~~~~~~~~~~~~~~~~~~~Ben voila J'ai commencer un addon de auto-mode ( devoice auto? [ par maaars ] kikoo...alors voila j'ai une source qui permet de voice les gens seulement quand ils parlent (detection de caractères clefs)... et je cherche un moyen Auto voice selon le nick [ par XavierBL ] Bonjour,Avant de poster, j'ai bien fait une recherche sur le site mais je n'ai pas trouvé ce que je voulais.Je suis à la recherche d'un petit script p probleme d'auto away [ par mixam ] bonjour j'ai un probleme avec mon systeme d'auto away il s'affiche plusieurs fois voici le code on 1:input:*: if ( %away == off ) &amp;&amp; ( %auto = auto kicker gras et surligné. [ par jeekee ] bonjour à tous, je suis un nouvel inscrit sur le site et j ai de petites connaissances en mirc scripting, mais en ce moment j essayer de trouver, comm auto join salon [ par snip74 ] bonjour, je recherche un scrip pour un bot qui a pour but de faire joindre un user grace a son vhost merci exemple : toto a le vhost j@animateurplus. pb auto op [ par djdadou ] salut, bon voila j'ai le pb suivant: si je met un salon /chanserv set #channel XOP onet que je tape /auto on et que je met un access a une personne ex Auto ghost on join [Question] [ par guibio ] Bonsoir je cherche a faire un script qui ghost certain nick au moment ou il join le canal que je veux c'est possible ? du genre si tartenpion arrive s


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,530 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.