Source
alias Option PV dialog -m optionpv optionpv
dialog optionpv {
title "Option PV"
icon images\playboy.ico, 0
size -1 -1 300 200
box "Méssage d'accueil du PV" ,2, 10 10 280 80
check "Activer le méssage d'accueil du PV" ,3, 20 30 220 20
edit %pvmsg ,4, 20 55 260 20, autohs
box "Anti PV" ,5, 10 97 280 50
check "Activer l'anti PV ( fermera automatiquement le PV )" ,6, 20 117 260 20
button "OK" ,7, 95 160 100 30, multi ok
}
on 1:dialog:optionpv:init:*: {
if (%pvmessage == on) { did -c optionpv 3 }
if (%pvmessage == off) { did -b optionpv 4 }
if (%pvmsg != $null) { did -ra optionpv 4 %pvmsg }
if (%pvferme == on) { did -c optionpv 6 }
}
on 1:dialog:optionpv:sclick:7: { set %pvmsg $did(4) }
on 1:dialog:optionpv:sclick:*: {
if ($did(3).state == 1) { did -e optionpv 4 | set %pvmessage on }
if ($did(3).state == 0) { did -b optionpv 4 | set %pvmessage off }
if ($did(6).state == 1) { set %pvferme on }
if ($did(6).state == 0) { set %pvferme off }
}
#optionpv on
on 1:open:?: {
if (%pvmessage == on) { /msg $nick %pvmsg }
if (%pvferme == on) { /notice $nick > 0,0 11,0[12,11[2,12[1,2 0 - j'pense pas t'avoir accepté ds mon pv alors casse toi !!!! - 2,12]12,11]11,0] | close -m $nick }
halt
}
#optionpv end