I made this a while back for auto identify. I use things like this.

dialog aid {
  title "Auto Identify"
  size -1 -1 144 64
  option dbu
  edit %nick1, 1, 21 14 50 10
  edit %nick2, 2, 21 29 50 10
  edit %pass1, 3, 90 14 51 10, pass
  edit %pass2, 4, 90 29 51 10, pass
  button "Okay", 5, 57 49 30 10, ok
  box "Auto Identify Dialog", 6, 3 3 140 43
  text "Nick1:", 7, 5 15 16 8, center
  text "Nick2:", 8, 5 30 16 8, center
  text "Pass1:", 9, 74 15 16 8, center
  text "Pass2:", 10, 74 30 16 8, center
}

on *:dialog:aid:sclick:5: {
  set %nick1 $did(1) | set %nick2 $did(2) | set %pass1 $did(3) | set %pass2 $did(4)
}

on *:connect: {
  if ($me = %nick1) { identify %pass1 }
  if ($me = %nick2) { identify %pass2 }
}

on *:nick: {
  if $nick == $me {
    if ($newnick == %nick1) { identify %pass1 }
    if ($newnick == %nick2) { identify %pass2 }
  }
}

menu * {
  .Auto Identify: { dialog -m aid aid }
}