il fait répondeur et fermeture de pv le tout configurable (voir capture)
cela plaira à Huitre qui m'a donné une superbe idée pour un répondeur fermeture Pv
Source / Exemple :
alias repondeur { dialog -m repondeur repondeur }
dialog repondeur {
title "Répondeur de pv"
size -1 -1 617 170
option pixels
edit "", 1, 107 8 410 20, autohs center
icon 2, 17 31 565 22, repondeur\apercu\repondeur.jpg
list 3, 14 57 587 100, size
button "Modifier", 4, 54 8 46 20
button "Ajouter", 5, 7 8 45 20
button "Supprimer", 6, 7 30 55 20
check "ok/répondeur", 8, 528 9 90 16
check "ok/anti pv", 12, 528 31 90 16
}
on *:dialog:repondeur:*:*:{
if $devent == init {
reacturep
if (%rep-active == ON) { did -c repondeur 8 }
if (%antipv-active == ON) { did -c repondeur 12 }
did -ra $dname 1 %rep-repondeur
repapercu $did(1)
}
if $devent == edit {
set %rep $did(1)
repapercu $did(1)
set %rep-repondeur $did(1)
}
if $devent == sclick {
if ($did == 8) {
if ($did(8).state == 1) { set %rep-active ON }
else { unset %rep-active }
}
if ($did == 5) {
write repondeur\repondeur-antipv\repondeur.txt $did(1)
reacturep
repapercu $did(1)
}
if ($did == 6) {
write $+(-dl,$did(3).sel) repondeur\repondeur-antipv\repondeur.txt
did -r $dname 1
reacturep
repapercu $did(1)
}
if ($did == 4) {
write $+(-l,$did(3).sel) repondeur\repondeur-antipv\repondeur.txt $did(1)
reacturep
repapercu $did(1)
}
if ($did == 3) {
did -ra repondeur 1 $did(3).seltext
repapercu $did(1)
set %rep-repondeur $did(1)
}
if ($did == 12) {
if ($did(12).state == 1) { set %antipv-active ON }
else { unset %antipv-active }
}
}
}
alias reacturep {
did -r repondeur 3
var %rp = 1
while (%rp <= $lines(repondeur\repondeur-antipv\repondeur.txt)) {
did -a repondeur 3 $read(repondeur\repondeur-antipv\repondeur.txt, %rp)
inc %rp
}
}
alias repapercu {
.remove repondeur\apercu\repondeur.jpg
window -ph +b @repapercu 50 50 588 22
if ($1- != $null) { drawtext -p @repapercu 1 "Comic Sans MS" 12 10 1 $1- }
drawsave @repapercu repondeur\apercu\repondeur.jpg
did -g repondeur 2 repondeur\apercu\repondeur.jpg
close -@ @repapercu
}
on 1: OPEN:?: {
echo -s 4----------» 7 $nick 4 veut te parlé en privé ... 3«----------
if (%rep-active == on) {
msg $nick $replace(%rep-repondeur,<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
if (%antipv-active == on) {
echo -s 4----------» 7 Le PV De 4 $nick ... 3est fermer à $time
close -m $nick
}
}
Conclusion :
voila le code tout seul ne suffit pas faut télécharger le dossier zip
dès que j'aurais 5 minutes je suivrai les conseils de coolman002.
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.