UN EDITEUR DE PSEUDOS

;###########################
;     Addnick Config
;###########################

dialog addnick {
  title >> Nicknames Config. <<
  Size -1 -1 241 241
  box "" ,36,1 1 239 215
  text Nickname [1] ,3, 20 30 70 20 
  edit %nick1 ,4, 100 25 115 20,autohs 
  text Nickname [2] ,6, 20 50 70 20 
  edit %nick2 ,7, 100 45 115 20,autohs 
  text Nickname [3] ,9, 20 70 70 20 
  edit %nick3 ,10, 100 65 115 20,autohs 
  text Nickname [4] ,12, 20 90 70 20 
  edit %nick4 ,13, 100 85 115 20,autohs 
  text Nickname [5] ,15,20 110 70 20 
  edit %nick5 ,16, 100 105 115 20,autohs 
  text Nickname [6], 18, 20 130 70 20
  edit %nick6 ,19, 100 125 115 20,autohs 
  text Nickname [7],22,20 150 150 20
  edit %nick7 ,23,100 145 115 20,autohs 
  text Nickname [8], 25,20 170 150 20
  edit %nick8 ,26,100 165 115 20,autohs 
  text Nickname [9],28,20 190 150 20
  edit %nick9 ,29,100 185 115 20,autohs
  button "Register" ,50, 162 220 78 20,ok
  button "Cancel" ,51, 2 220 80 20,cancel
  button "Reset" ,52, 83 220 78 20
}


on 1:dialog:addnick:sclick:*: {
  If ($did == 52) {
    /unset %nick1 %nick2 %nick3 %nick4 %nick5 %nick6 %nick7 %nick8 %nick9
    /did -ra addnick 4
    /did -ra addnick 7
    /did -ra addnick 10
    /did -ra addnick 13
    /did -ra addnick 16
    /did -ra addnick 19
    /did -ra addnick 23
    /did -ra addnick 26
    /did -ra addnick 29
  }
  If ($did == 50) {
    /set %nick1 $did($dname,4)
  }
  If ($did == 50) {
    /set %nick2 $did($dname,7)
  }
  If ($did == 50) {
    /set %nick3 $did($dname,10)
  }
  If ($did == 50) {
    /set %nick4 $did($dname,13)
  }
  if ($did == 50) {
    /set %nick5 $did($dname,16)
  }
  if  ($did == 50) {
    /set %nick6 $did($dname,19)
  }
  if ($did == 50) {
    /set %nick7 $did($dname,23)
  }
  if ($did == 50) {
    /set %nick8 $did($dname,26)
  }
  If ($did == 50) {
    /set %nick9 $did($dname,29)
  }
}
menu menubar {
 Nicks List
 .Config:/dialog -m addnick addnick
 .-
 . %nick1 :/nick %nick1
 . %nick2 :/nick %nick2
 . %nick3 :/nick %nick3
 . %nick4 :/nick %nick4
 . %nick5 :/nick %nick5
 . %nick6 :/nick %nick6
 . %nick7 :/nick %nick7
 . %nick8 :/nick %nick8
 . %nick9 :/nick %nick9
}