Répondeur
event(OnQueryWindowRequest,repondeur)
{
echo -w=$active -i=$msgtype(OwnPrivateMessage) "\[Privé\] $0 (*!$1\@$cr!h$2$cr$2$cr) désire
s'entretenir en privé."
%nick=$0
%msg="Salut $0 merci de patienter, j'arrive dès que possible :)"
timer -s (repondeurenvoie_$0,0100,%nick,%msg){
msg $0 $1
}
}
Anti-PV (commande /antipv)
alias(antipv)
{
if (!$option(boolCreateQueryonPrivMsg)){
echo -w=$active -i=$msgtype(Echo) "\[Anti-Pv\] Désactivé!"
option boolCreateQueryonPrivMsg 1
} else {
echo -w=$active -i=$msgtype(Echo) "\[Anti-Pv\] Actif!"
option boolCreateQueryonPrivMsg 0
}
}
commande /b nick (bannir)
alias(b)
{
if(!$0){
echo -i=$msgtype(Echo) "\[syntaxe\] /b <pseudo>"
halt
}
if(!$channel){
echo -i=$msgtype(Echo) "Vous n'êtes pas sur uen fenêtre Channel"
halt
}
if($chan.isMeOp($channel) || $chan.isMeHalfOp($channel)){
foreach(%nick,$str.split(",",$0)){
if(%nick){
%mask = $mask(%nick,9);
if(!%mask)%mask = %nick; # plain ban
if($chan.isOp(%nick))%raw = "mode $target -o+b %nick %mask"
else %raw = "mode $target +b %mask"
raw -q %raw
}
}
} else echo -i=$msgtype(Echo) "\[Erreur\] Vous n'êtes pas OP sur $target"
}
commande /closepv (ferme tout les Privés)
alias(closepv)
{
foreach(%i,$window.list(query,$ic)) window.close -q %i
}
commande /k nick raison (kick une personne)
alias(k)
{
if($channel) {
if(!$0) echo -i=$msgtype(Echo) "\[syntaxe\] /k <pseudo> <raison>"
else {
if($chan.isMeOp($channel) || $chan.isMeHalfOp($channel)) kick $0 $1-
else echo -i=$msgtype(Echo) "Vous n'êtes pas OP sur $target"
}
} else echo -i=$msgtype(Echo) "Vous devez être sur une fenêtre Channel"
}
commande /w nick (whois une personne avec inactivité)
alias(w)
{
if(!$0) echo -w=$active -i=$msgtype(Echo) "\[syntaxe\] /w <pseudo>"
else whois $0 $0
}
Ecrire en Couleur/Gras
le Code pour les Couleurs est $k(numéro entre 0 et 15). Visible avec la commande "CTRL+k" sur KVirc.
Le Code pour le Gras est $b(). Visible avec "CTRL+b" sur KVirc.
exemple:
* msg $target $(4)$0 (écrira en rouge)
* msg $target $b()$0 (écrira en gras)
* msg $target $b()$k(4)$0 (écrira en gras et en rouge)
* msg $target $k(4,0)$0 (écrira en rouge sur font blanc)
event(OnTextInput,color)
{
msg $target $k(4)$0
}