Ma premiére source, Voici un anti priver comme tous les autres...
vous pouvez configurer les textes...
Source / Exemple :
menu * {
-
Configuration anti priver:.dialog -m cdpv cdpv
}
dialog dpv {
size -1 -1 213 111
title "Priver"
button "positioner",1001,0 0 0 0
text "Privé de",1,5 9 51 17
text %anti-pv.nick ,2,59 9 149 17
text "message",3,4 37 66 17
box "",4,6 55 205 39
button "&Oui",5,85 67 60 23, ok
text "accepter ?",6,11 70 70 17
button "&Non",7,146 67 60 23, ok
text %anti-pv.msg ,8,71 37 134 17
}
ON *:DIALOG:dpv:*:*:{
if ($devent == sclick) {
if ($did == 5) {
.msg %anti-pv.nick %cdpv.msg2
.ignore -r $nick
.query %anti-pv.nick
.echo -a 2<1 $+ %anti-pv.nick $+ 1> %anti-pv.msg
.dialog -k dpv dpv
}
}
}
ON *:DIALOG:dpv:*:*:{
if ($devent == sclick) {
if ($did == 7) { .msg %anti-pv.nick %cdpv.msg3
}
}
}
on ^*:OPEN:?:{
haltdef
.msg $nick %cdpv.msg
.ignore -pu $nick 300
.timer 1 0 anti-pv $nick $1-
}
alias anti-pv {
set %anti-pv.nick $1
set %anti-pv.msg $2-
.dialog -m dpv dpv
}
dialog cdpv {
size -1 -1 260 271
title "Confuguration Anti Priver"
text " Anti Priver V1",1,7 8 247 17
box " configuration ",2,2 33 255 192
text "messages",3,9 56 63 17
text "patientez :",4,9 73 62 17
text "privé accepté :",5,8 121 99 17
text "privé refusé :",6,8 175 109 17
button "&Fermer",7,187 228 64 30, ok
edit %cdpv.msg ,8,8 95 241 22, autohs
edit %cdpv.msg2 ,9,8 142 242 22, autohs
edit %cdpv.msg3 ,10,8 195 242 22, autohs
button "&enregistrer",11,115 228 70 30
}
on *:dialog:cdpv:sclick:11: {
.set %cdpv.msg $did(8)
.set %cdpv.msg2 $did(9)
.set %cdpv.msg3 $did(10)
.echo -a 1[2Anti Priver1] 1Enregistrement réussi avec succé
}
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.