PSEUDO CHOOSER EN DIALOG

;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