possibilité de choisir ses pseudos ,supporte un nombre infini de pseudo ,en dialog,avec un mode away
Source / Exemple :
;codé par _NicX_
menu menubar,channel {
[Pseudo ManageR](f2):dialog -mr pseudo pseudo
}
dialog pseudo {
title "Pseudo Manager"
size -1 -1 150 227
option dbu
box "Pseudo Actuel", 2, 1 2 147 23
edit "", 3, 4 10 48 10, read center
list 5, 4 34 69 140, size hsbar vsbar
box "", 6, 76 32 72 66
button "Ajouter", 7, 78 37 68 19
button "Supprimer", 8, 78 57 68 19
button "Prendre ce pseudo", 12, 78 77 68 19
box "", 13, 1 24 148 152
edit %awayraison, 17, 2 196 145 10
text "Message", 18, 59 186 32 8, center
box "aWay Mode", 19, 1 179 148 47
button "Fermer", 20, 118 159 28 14, ok
button "On", 15, 57 208 17 10
button "Off", 16, 75 208 17 10
edit "", 1, 89 10 57 10, read
text "Network", 4, 62 11 25 8, center
text "état", 9, 3 216 18 8, center
edit "", 10, 22 215 21 9
}
on *:dialog:pseudo:init:0: { /did -r pseudo 3 | /did -a pseudo 3 $me | loadbuf 1-150 -o pseudo 5 Pseudos.jcvd | did -r pseudo 1 | did -a pseudo 1 $network
if (%awayt == on ) { did -r pseudo 10 | did -a pseudo 10 %awayt }
if (%awayt == off) { did -r pseudo 10 | did -a pseudo 10 %awayt }
}
on *:dialog:pseudo:sclick:7: { Pseudajout }
on *:dialog:pseudo:sclick:8: { PSeudel }
on *:dialog:pseudo:sclick:12: { PPseudo }
on *:dialog:pseudo:sclick:15: { set %awayt on | /set %awayraison $did(pseudo,17) | apseudo | did -r pseudo 10 | did -a pseudo 10 %awayt | /set % $+ $network $+ away $network | enable #autopen }
on *:dialog:pseudo:sclick:16: { set %awayt off | did -r pseudo 10 | did -a pseudo 10 %awayt | bpseudo | /set % $+ $network $+ away $network | disable #autopen }
on *:dialog:pseudo:dclick:5: { dpseudo }
alias pseudajout {
set %pseudajout $$?="Entre le Pseudo"
if (%pseudajout == $null) { echo -a Tu n'as pas entré de pseudo }
else {
/did -a pseudo 5 %pseudajout
/write Pseudos.jcvd %pseudajout
unset %pseudajout
}
}
alias pseudel {
/set %pseudel $did(5).sel
if (%pseudel == $null) { echo -a Tu n'as pas séléctionné de texte }
else {
/echo -a Le pseudo $did(5,$did(5).sel).text a bien été effacé
/did -d pseudo 5 %pseudel
/write -dw"* $+ $did(5,$did(5).sel).text $+ *" pseudos.jcvd
unset %pseudel
}
}
alias ppseudo {
/set %ppseudo $did(5).seltext
/nick %ppseudo
unset %ppseudo
}
alias dpseudo {
/set %dpseudo $did(5).seltext
/nick %dpseudo
unset %dpseudo
}
alias pseudow {
/write pseudos.jcvd %epseudo
/write pseudos.jcvd %epseudo $+ `[EaT]
/write pseudos.jcvd %epseudo $+ `[Play]
/write pseudos.jcvd %epseudo $+ `[DoDo]
/write pseudos.jcvd %epseudo $+ `[aW]
/write pseudos.jcvd %epseudo $+ `[AbsenT]
/write pseudos.jcvd %epseudo $+ `[TV]
}
alias apseudo {
/ame 7,1 (AwAy Mode : 4,1Activé 7,1 ) (Raison : 4,1 %awayraison 7,1 ) (Heure : 4,1 $time 7,1 ) | /away (AwAy Mode : 4,1Désactivé 7,1 ) (Raison : 4,1 %awayraison 7,1 ) (Heure : 4,1 $time 7,1 )
}
alias bpseudo {
/ame 7,1 (AwAy Mode : 4,1Désactivé 7,1 ) (Raison : 4,1 %awayraison 7,1 ) (Heure : 4,1 $time 7,1 ) | away
}
on *:quit: {
set %awayt off
}
#autopen off
on *:open:?:*: { msg $nick 7,1 (AwAy Mode : 4,1Activé 7,1 ) (Raison : 4,1 %awayraison 7,1 ) (Heure : 4,1 $time 7,1 ) | /away (AwAy Mode : 4,1Désactivé 7,1 ) (Raison : 4,1 %awayraison 7,1 ) (Heure : 4,1 $time 7,1 ) }
#autopen end
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.