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 !

UN SYSTÊME VIP TRÈS SIMPLE


Information sur la source

Catégorie :AddOns Classé sous : vip, script, mirc, voicer, voice Niveau : Débutant Date de création : 16/07/2006 Vu : 5 091

Note :
9,67 / 10 - par 3 personnes
9,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

Description

Un systême VIP assez simple pour un seul salon qui utilise les hosts pour détecter si oui ou non la personne est VIP, si oui elle sera voicer. Enfin vous pouvez modifier mode $chan +v $nick et msg $chan VIP détecté: $nick à votre grés.

Utilisation: /vipadd pseudo #salon pour ajouté qu'unlqun dans la vip list.
Utilisation: /vipdel pseudo #salon pour effacer qu'unlqun de la liste des vips.
Utilisation: /viplist pour voir la liste de toutes les hosts vips.

(Comme le suggère le code il faut que la personne soit présente sur le salon en question).
 

Source

  • alias vipadd {
  • if ((!$read(viplist.txt,w,* $+ $address($$1,2) $+ *)) && ($$1 ison $$2)) {
  • write viplist.txt $address($$1,2)
  • echo -a [VIP-System] $$1 avec l'host $address($$1,2) ajouté à la liste des VIPS.
  • }
  • else {
  • echo -a [VIP-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la VIP list ou n'est pas présent sur $$2 $+ .
  • }
  • }
  • alias vipdel {
  • if (($read(viplist.txt,w,* $+ $address($$1,2) $+ *) != $null) && ($$1 ison $$2)) {
  • write -dw $+ $address($$1,2) viplist.txt
  • echo -a [VIP-System] $$1 avec l'host $address($$1,2) effacé de la liste des VIPS.
  • }
  • else {
  • echo -a [VIP-System] $$1 ( $+ $address($$1,2) $+ ) n'est pas dans la VIP list ou n'est pas présent sur $$2 $+ .
  • }
  • }
  • alias viplist {
  • var %x = 1
  • var %i = $lines(viplist.txt)
  • if (%i) {
  • while (%x <= %i) {
  • echo -a [Liste des hosts VIPS] $read(viplist.txt,%x)
  • inc %x
  • }
  • }
  • else {
  • echo -a [VIP-System] Il n'y a aucuns VIP dans la liste pour le moment.
  • }
  • }
  • on *:JOIN:#NomDuSalon:{
  • if ($read(viplist.txt,w,* $+ $address($nick,2) $+ *) != $null) {
  • mode $chan +v $nick
  • msg $chan VIP détecté: $nick
  • }
  • }
alias vipadd {
if ((!$read(viplist.txt,w,* $+ $address($$1,2) $+ *)) && ($$1 ison $$2)) {
  write viplist.txt $address($$1,2)
  echo -a [VIP-System] $$1 avec l'host $address($$1,2) ajouté à la liste des VIPS.
}
else {
  echo -a  [VIP-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la VIP list ou n'est pas présent sur $$2 $+ .
}
}
alias vipdel {
if (($read(viplist.txt,w,* $+ $address($$1,2) $+ *) != $null) && ($$1 ison $$2)) {
  write -dw $+ $address($$1,2) viplist.txt
  echo -a [VIP-System] $$1 avec l'host $address($$1,2) effacé de la liste des VIPS.
}
else {
  echo -a [VIP-System] $$1 ( $+ $address($$1,2) $+ ) n'est pas dans la VIP list ou n'est pas présent sur $$2 $+ .
}
}
alias viplist {
var %x = 1
var %i = $lines(viplist.txt)
if (%i) {
  while (%x <= %i) {
    echo -a [Liste des hosts VIPS] $read(viplist.txt,%x)
    inc %x
  }
}
else {
  echo -a [VIP-System] Il n'y a aucuns VIP dans la liste pour le moment.
}
}
on *:JOIN:#NomDuSalon:{
if ($read(viplist.txt,w,* $+ $address($nick,2) $+ *) != $null) {
  mode $chan +v $nick
  msg $chan VIP détecté: $nick 
}
}

Conclusion

Modifiez on *:JOIN:#NomDuSalon:{ en mettant à la place de #NomDuSalon le nom de votre salon où sera appliqué le systême VIP.
 

Commentaires et avis

signaler à un administrateur
Commentaire de RCA ArKanis le 16/07/2006 17:03:37

tu prends l'adresse avec l'ip (,2), est-tu sûr que c'est un bon choix ?
Sachant que la plupart ont une connection qui reboot tous les jours pour changer d'IP, à mon avis, c'est pas ce qui est le plus malin de prendre ^^

var %a = ...
var %b = ...
devient : var %a = ..., %b = ...

Question utilité : c'est très réduit
Tu n'as même pas d'anti-flood sur le ON JOIN (sur un retour de net split, ça doit faire mal) et puis tu ne gères pas le fait qu'$address puisse être vide : renseigne toi à propos de l'IAL

Pour ton VIP LIST, tu ferais mieux d'utiliser /loadbuf, c'est plus rapide et plus simple


enlève le != $null ici : if ($read(viplist.txt,w,* $+ $address($nick,2) $+ *) != $null) {
ça devient : if ($read(viplist.txt,w,* $+ $address($nick,2) $+ *)) {

signaler à un administrateur
Commentaire de wims le 16/07/2006 17:30:22

C'est un peu juste pour poster une source non ?
Pourquoi ne pas le rendre multi-salon\server ?

signaler à un administrateur
Commentaire de DJ_BoOmEr le 17/07/2006 12:55:11

Moi je suis peut etre méchant (mais ce n'est pas mon but hien ;)) mais je ne voit pas l'intéret de ceette source sachant que beaucoup de serveur ont ce que l'ont appelle des Acces ou le mode XOP ... ce qui fait que le host est mémoriser par le Bot, et que lorsque la personne join un channel, elle obtient le grade que l'Owner lui as attribué ... :) mais certain serveur ne dispose peut etre pas de cette fonction, donc elle peut etre utile ... (je pense notement a Quake car je ne connais pas son fonctionnement ... et étant donner qu'il n'as pas de BS, il est probable que cette aliase soit "nécéssaire" ...


Mais un autre point négatif (désolé :s) le problème de cette Aliase, c'est que si le propriétaire de l'aliase, ou plutot de la liste d'adresse, est pas connecté, alors meme si une personne VIP se connecte, elle n'aura pas son Voice ... :p

Voila c'est tout, mais désolé si je suis trop sévère ...

Ciao

signaler à un administrateur
Commentaire de wims le 17/07/2006 15:21:02

Le but de son code n'est pas de remplacé botserv, il stock juste les $address des differents $nick et quand les users *vip* se connecte sur le salon ils sont voicésn aucun rapport avec botserv

signaler à un administrateur
Commentaire de MJ92 le 23/07/2006 03:36:12

DJ_BoOmEr, les termes ne sont pas corrects... ouais je suis d'acc avec toi concernant la personne étant absente pas d'accès. Mais comme tu le dis, certain server n'ont pas de BotServ, mais le ChanServ sait également voicé d'ou l'addon n'est pas forcément nécessaire, mais plutot intéressant... et ce n'est pas une aliase, mais un remote, les alias blabla { sont des remotes, ou sinon ce serait : blabla { ou au pire /blabla {

Et pour finir, il serait plus intéressant Hator pour ta source de faire ce que te dis Arkanis (bon scripteur :p), de changer (,2) pour des raisons d'ip variables...

Sinon bien pensé... Bonne continuation !

signaler à un administrateur
Commentaire de lebaronrouge le 24/07/2006 21:04:14

Tient j'ai à peu pres le même systeme dans mon script perso :)
Le principe peut être sympa mais juste pour les server ne gérant pas cette commande.
Il manque un petit dialogue pour afficher la VIP liste,la mienne comporte 2 fichiers,un qui affiche les VIP par pseudo pour le dialogue ( plus clair à lire que des hosts) et une seconde qui sert au remote à vérifier si la personen entrée a son host dedans pour être voicé,j'ai d'ailleur ajouté aussi un remote complémentaire à toutes mes protections de salons incluant la protections des kick et kickbans de la personne bénéficiant d'u nacces vVIP.
je vais poster le mien pour te donner une idée et au cas ou il pourait servir à quelqu'un :)

Ca te permettra de voir et comparer pour améliorer le tient ou autre ;)

signaler à un administrateur
Commentaire de hisoka2501 le 04/08/2006 13:23:39

bon deja ca se vois: c du torchon et je m'explique:

# else {
#   echo -a [VIP-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la VIP list ou n'est pas présent sur $$2 $+ .
# }

tu m'explique en quoi un {} est nésscéssaire ici ? quand il n'y a qu'une seulle instruction cela ne sert A RIEN si ce n'est ralentir le code

utiliser un fichier texte pour faire ce genre de taff, c une blague ? utilise au moin du ini car une boucle a chaque join ca fait mal !

pour ce genre de choses j'aurais meme penssé plus a une hash table !

# if ($read(viplist.txt,w,* $+ $address($nick,2) $+ *) != $null) {

dacord dacord je vois...
alors une fois épuré ca donne:

if ($read(viplist.txt,w,$+(*,$address($nick,2),*))) {


# on *:JOIN:#NomDuSalon:{

je te fais grace de celui la ou je ne dirais que tu ne t'est pas foulé...

organise un .ini avec:
[section]
item=
sous la forme de:
[#cannel]
IDENT=$nick

ca serais deja un peu plus fiable et surtout bien plus rapide


#   msg $chan VIP détecté: $nick
sympa pour flood un canal en cas de net split, comme si le serveur en avais pas deja assé a faire


# alias viplist {
# var %x = 1
# var %i = $lines(viplist.txt)
# if (%i) {
#   while (%x <= %i) {
#     echo -a [Liste des hosts VIPS] $read(viplist.txt,%x)
#     inc %x
#   }
# }

devien:

alias viplist {
var %x = 1 , %i = $lines(viplist.txt)
if (%i) return
   while (%x <= %i) {
     echo -a [Liste des hosts VIPS] $read(viplist.txt,%x)
     inc %x
}

ca parais deja plus propre
aussis si tu tiens vraiement a utiliser un fichier texte classique tu devrais songer au file handeling

voila je ne note pas

signaler à un administrateur
Commentaire de RCA ArKanis le 04/08/2006 14:07:29

Pour $address($nick,2) tu as $wildsite (plus court ...)
Sinon dans l'alias viplist de Hisoka, il manque un } à la fin

M'enfin j'ai pas l'impression que l'auteur veuille mettre à jour son code :p

signaler à un administrateur
Commentaire de lebaronrouge le 03/09/2006 16:13:25

Et la condition qui vérifié si l'on est au moins autoriser à voicer? (op) ???

signaler à un administrateur
Commentaire de MJ92 le 04/09/2006 15:07:50

LEBARONROUGE,
Je crois qu'il a été dit que c'était dans un .txt et c'est l'user qui a la source (en l'occurence ici c'est Hathor) :
Utilisation: /vipadd pseudo #salon pour ajouté qu'unlqun dans la vip list.
Utilisation: /vipdel pseudo #salon pour effacer qu'unlqun de la liste des vips.
Utilisation: /viplist pour voir la liste de toutes les hosts vips.
Donc l'user (l'op) du chan qui ajoute celui qu'il veut en n'importe quel mode

... Bref, un bon code qui n'est pas très clair, moi j'utiliserais la liste des notifiés comme ca moins de soucis ^^

signaler à un administrateur
Commentaire de Foufoune_Palace le 30/09/2006 14:23:27

Allez , je met 5/10 , sa peut toujours servire à quelques choses

signaler à un administrateur
Commentaire de NOMADYSTIC le 07/07/2007 06:40:38

je narive pas a men servir ces normal?

signaler à un administrateur
Commentaire de NOMADYSTIC le 07/07/2007 09:44:15

ca marrche la mais on peut metre le choix de +v ou +o ? moi je les cloné la

signaler à un administrateur
Commentaire de NOMADYSTIC le 07/07/2007 09:59:30

jai ajouter des popup et tout car je veut me faire un script et jai doubler pour avoir les 2 mode.. on peut compresser ca en une seul remote car la jen est 2 .mrc

menu bar
UnderNet VIP
.V-OP
..Add VIP:/vipoadd $$?="Nicknames:" #$$?="Chan:"
..Del VIP:/vipodel $$?="Nicknames:" #$$?="Chan:"
..VIP List:/vipolist
.V-Voice
..Add VIP:/vipvadd $$?="Nicknames:" #$$?="Chan:"
..Del VIP:/vipvdel $$?="Nicknames:" #$$?="Chan:"
..VIP List:/vipvlist

Nick List
UnderNet VIP
.V-OP
..Add VIP:/vipoadd $$1 $chan
..Del VIP:/vipodel $$1 $chan
..VIP List:/vipolist
.V-Voice
..Add VIP:/vipvadd $$1 $chan
..Del VIP:/vipvdel $$1 $chan
..VIP List:/vipvlist

alias vipoadd {
  if ((!$read(viplist.txt,w,* $+ $address($$1,2) $+ *)) && ($$1 ison $$2)) {
    write viplist.txt $address($$1,2)
    echo -a 15[VIP-System] $$1 avec l'host $address($$1,2) ajouté à la liste des VIPS.
  }
  else {
    echo -a  15[VIP-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la VIP list ou n'est pas présent sur $$2 $+ .
  }
}
alias vipodel {
  if (($read(viplist.txt,w,* $+ $address($$1,2) $+ *) != $null) && ($$1 ison $$2)) {
    write -dw $+ $address($$1,2) viplist.txt
    echo -a 15[VIP-System] $$1 avec l'host $address($$1,2) effacé de la liste des VIPS.
  }
  else {
    echo -a 15[VIP-System] $$1 ( $+ $address($$1,2) $+ ) n'est pas dans la VIP list ou n'est pas présent sur $$2 $+ .
  }
}
alias vipolist {
  var %x = 1
  var %i = $lines(viplist.txt)
  if (%i) {
    while (%x <= %i) {
      echo -a 15[Liste des hosts VIPS] $read(viplist.txt,%x)
      inc %x
    }
  }
  else {
    echo -a 15[VIP-System] Il n'y a aucuns VIP dans la liste pour le moment.
  }
}
on *:JOIN:#N:{
  if ($read(viplist.txt,w,* $+ $address($nick,2) $+ *) != $null) {
    mode $chan +o $nick
    msg $chan ID 3Confirmed access authorized.
    msg $chan 0, 2007 14::15 VIP Détecté 14::0 $nick
    msg $chan 5Welcome in the pack! Bienvenue dans la meute! ;)
  }
}

@@@@@@@@@@@@@@@@@@@@@

alias vipvadd {
  if ((!$read(viplist2.txt,w,* $+ $address($$1,2) $+ *)) && ($$1 ison $$2)) {
    write viplist2.txt $address($$1,2)
    echo -a 14[VIP-System] $$1 avec l'host $address($$1,2) ajouté à la liste des VIPS.
  }
  else {
    echo -a  14[VIP-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la VIP list ou n'est pas présent sur $$2 $+ .
  }
}
alias vipvdel {
  if (($read(viplist2.txt,w,* $+ $address($$1,2) $+ *) != $null) && ($$1 ison $$2)) {
    write -dw $+ $address($$1,2) viplist2.txt
    echo -a 14[VIP-System] $$1 avec l'host $address($$1,2) effacé de la liste des VIPS.
  }
  else {
    echo -a 14[VIP-System] $$1 ( $+ $address($$1,2) $+ ) n'est pas dans la VIP list ou n'est pas présent sur $$2 $+ .
  }
}
alias vipvlist {
  var %x = 1
  var %i = $lines(viplist.txt)
  if (%i) {
    while (%x <= %i) {
      echo -a 14[Liste des hosts VIPS] $read(viplist2.txt,%x)
      inc %x
    }
  }
  else {
    echo -a 14[VIP-System] Il n'y a aucuns VIP dans la liste pour le moment.
  }
}
on *:JOIN:#N:{
  if ($read(viplist2.txt,w,* $+ $address($nick,2) $+ *) != $null) {
    mode $chan +v $nick
    msg $chan ID 3Confirmed access authorized.
    msg $chan 0, 2007 14::15 VIP Détecté 14::0 $nick
    msg $chan 5Welcome in the pack! Bienvenue dans la meute! ;)
  }
}

signaler à un administrateur
Commentaire de NOMADYSTIC le 07/07/2007 10:02:32

au fait bonne continuité au codeur du code, jai apris en jouent avec ;) 9/10 mais sa ses la note dun gars qui code pas :P

signaler à un administrateur
Commentaire de NOMADYSTIC le 10/07/2007 09:38:55

Je post ici et ailleur car jai pris cette source et les doublé pour mon usage, mais jessais de faire le tout en un seul.mrc mais le on join semble pas fonctioné, quelqu'un pourrais maider? la source original est ici http://www.ircfr.com/codes/SYSTEME-VIP-TRES-SIMPLE_38636.aspx et celle que je bricolle ici:



alias IDoAdd {
  if ((!$read(crypt\IDoList.txt,w,* $+ $address($$1,2) $+ *)) && ($$1 ison $$2)) {
    write crypt\IDoList.txt $address($$1,2)
    echo -a 15[ID-System] $$1 avec l'host $address($$1,2) ajouté à la liste des OPs.
  }
  else {
    echo -a  15[ID-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la list ou n'est pas présent sur $$2 $+ .
  }
}
alias IDvAdd {
  if ((!$read(crypt\IDvList.txt,w,* $+ $address($$1,2) $+ *)) && ($$1 ison $$2)) {
    write IDvlist.txt $address($$1,2)
    echo -a 14[ID-System] $$1 avec l'host $address($$1,2) ajouté à la liste des Voices.
  }
  else {
    echo -a  14[ID-System] $$1 ( $+ $address($$1,2) $+ ) est déjà dans la list ou n'est pas présent sur $$2 $+ .
  }
}
alias IDoDel {
  if (($read(crypt\IDoList.txt,w,* $+ $address($$1,2) $+ *) != $null) && ($$1 ison $$2)) {
    write -dw $+ $address($$1,2) crypt\IDoList.txt
    echo -a 15[ID-System] $$1 avec l'host $address($$1,2) effacé de la liste des OPs.
  }
  else {
    echo -a 15[ID-System] $$1 ( $+ $address($$1,2) $+ ) n'est pas dans la list ou n'est pas présent sur $$2 $+ .
  }
}
alias IDvdel {
  if (($read(crytp\IDvList.txt,w,* $+ $address($$1,2) $+ *) != $null) && ($$1 ison $$2)) {
    write -dw $+ $address($$1,2) crypt\IDvList.txt
    echo -a 14[ID-System] $$1 avec l'host $address($$1,2) effacé de la liste des Voices.
  }
  else {
    echo -a 14[ID-System] $$1 ( $+ $address($$1,2) $+ ) n'est pas dans la list ou n'est pas présent sur $$2 $+ .
  }
}
alias IDoList {
  var %x = 1
  var %i = $lines(crypt\IDoList.txt)
  if (%i) {
    while (%x <= %i) {
      echo -a 15[Liste des hosts OPs] $read(crypt\IDoList.txt,%x)
      inc %x
    }
  }
  else {
    echo -a 15[ID-System] Il n'y a aucuns OPs dans la liste pour le moment.
  }
}
alias IDvList {
  var %x = 1
  var %i = $lines(crypt\IDvList.txt)
  if (%i) {
    while (%x <= %i) {
      echo -a 14[Liste des hosts Voices] $read(crypt\IDvList.txt,%x)
      inc %x
    }
  }
  else {
    echo -a 14[ID-System] Il n'y a aucuns Voice dans la liste pour le moment.
  }
}

on *:JOIN:#Last.Call:{
  if ($read(crypt\VIPoList.txt,w,* $+ $address($nick,2) $+ *) != $null) {
    mode $chan +o $nick
    msg $chan 3ID Confirmed. Access authorized.
    msg $chan 5Welcome in the pack! Bienvenue dans la meute! ;)
  }
}

on *:JOIN:#Last.Call:{
  if ($read(crypt\IDvList.txt,w,* $+ $address($nick,2) $+ *) != $null) {
    mode $chan +v $nick
    msg $chan 3ID Confirmed. access authorized.
    msg $chan 5Welcome in the pack! Bienvenue dans la meute!
  }
}

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Design [ par MecModeKiller ] Salutje cherche un truc qui pouré faire de mon script un script vrément diférent d otre mirc ki se ressemble tous vrément troil y oré pa une dll ou un sockets-UDP@mirc-script [ par vbtom ] Salut,Si quelquun arrive a utiliser les sockets UDP en mirc script je veux bien quil mexplique (:merci d'avance !a+vbom Questions basiques [ par TiFus78 ] Bonjour et bravo pour le site.Il est très complet et un peu trop pour moi qui suis un nouveau sur mIRC.Auusi, en préambule à l'élaboration de script, Ajout de menu [ par crazycat ] Bonjour ici,je suis en train de réaliser un petit script mirc (en fait un ensemble d'alias/remote/popup) et je voudrais pouvoir ajouter mon propre men faire un pause dans un script mIRC [ par loulouxiv77 ] Bonjour!Je voulais savoir si quelqu'un connaitrait une fonction qui permet de faire faire une pause a un script (qu'il s'arrete un temps definit et qu script tlc en mirc [ par ged1978 ] j'aimerais savoir si quelqu'un connaissait un moyen de retranscrire un script tlc en script mirc merci... [mIRC] Cherche script (surtout event) [ par RPG3000 ] SaLuT tLm!Alors, je cherche un script (ou plutôt évènement) qui est capable de détecter un message envoyé.Par exemple: si "bernard301" envoie "Il fait Script mIRC sur serveur web [ par Romano007 ] Salut tout le monde,En fait je voudrai mettre un script mIRC sur un serveur web, pour qu'il soit connecté sur un serveur irc et une salle de tchat 24H Mirc script dans msn groups [ par Kellyluv ] Je sais que je vais paraitre inculte mais bon...Comment mettre un script irc sur une salle de conversation de groups msn ! Merci d''avance Nick = +v [ par reva94 ] Bonjours, est ce que quelqu'1 a une remote pour voice Fan-NICK (exemple : Vip-Fan`nick &lt;=== voudrai que ca voice auto quand le gars met VIP-Fan`)


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

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



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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,686 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é.