Oww My Nose

menu NickList {
  -
  $iif($1 != $null,owwScript)
  .$iif($1 != $null,Add User):dialog -m adduser adduser
  -
}
dialog addUser {
  title "Add User"
  size -1 -1 96 36
  option dbu
  text "What level do you want to give them?", 1, 2 2 92 8
  edit "enter number or name here", 2, 2 11 92 10, center
  button "OK", 3, 2 22 25 12, default ok
  button "Cancel", 4, 69 22 25 12
  button "Change name", 5, 29 22 38 12
}

on *:dialog:adduser:*:*:{
  if ($devent == init) {
    dialog -t $dname Add $snick($active,1)
    did -b $dname 3
    set %auser.nick $snick($active,1)
  }
  if ($devent == edit) {
    if ($did == 2) {
      if (*enter number or name here* iswm $did(2)) did -r $dname 2
      did -e $dname 3
    }
  }
  if ($devent == sclick) {
    if ($did == 3) {
      .auser -a $did(2) %auser.nick
      dialog -x $dname
    }
    if ($did == 4) {
      dialog -x $dname
    }
    if ($did == 5) {
      dialog -t $dname Add $snick($active,1)
      %auser.nick = $snick($active,1)
    }
  }
  if ($devent == close) {
    unset %auser.nick
  
}