Un systême vip très simple

2/5 (16 avis)

Snippet vu 8 405 fois - Téléchargée 23 fois

Contenu du snippet

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 / Exemple :


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.

A voir également

Ajouter un commentaire Commentaires
Messages postés
21
Date d'inscription
dimanche 1 juillet 2007
Statut
Membre
Dernière intervention
10 juillet 2007

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!
}
}
Messages postés
21
Date d'inscription
dimanche 1 juillet 2007
Statut
Membre
Dernière intervention
10 juillet 2007

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
Messages postés
21
Date d'inscription
dimanche 1 juillet 2007
Statut
Membre
Dernière intervention
10 juillet 2007

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! ;)
}
}
Messages postés
21
Date d'inscription
dimanche 1 juillet 2007
Statut
Membre
Dernière intervention
10 juillet 2007

ca marrche la mais on peut metre le choix de +v ou +o ? moi je les cloné la
Messages postés
21
Date d'inscription
dimanche 1 juillet 2007
Statut
Membre
Dernière intervention
10 juillet 2007

je narive pas a men servir ces normal?
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.