- 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
}
}