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.
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!
}
}
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! ;)
}
}
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.