dialog.ini tab

Alias Setup {
  /dialog -mkc Setup Setup
}

Dialog Setup {
  title "Setup"
  size -1 -1 210 110
  option dbu

  text "Raider Name:", 1, 6 15 35 20
  text "Chans:", 2, 6 29 30 20
  edit "", 3, 43 13 55 10,autohs,limit 0
  edit "", 4, 43 27 55 10,autohs,limit 0
  box "General", 5, 2 4 100 40

  box "Sigil Split", 6, 110 4 95 40
  text "Username:", 7, 115 15 30 10
  text "Password:", 8, 115 29 30 10
  edit "", 9, 145 13 55 10,autohs,limit 0
  edit "", 10, 145 27 55 10,autohs,limit 0

  box "Torax Split", 11, 110 50 95 40
  text "Username:", 12, 115 61 30 10
  text "Password:", 13, 115 75 30 10
  edit "", 14, 145 59 55 10,autohs,limit 0
  edit "", 15, 145 73 55 10,autohs,limit 0

  box "Auth Info", 16, 2 50 100 40
  text "Username:", 17, 10 61 30 10
  text "Password:", 18, 10 75 30 10
  edit "", 19, 43 59 55 10,autohs,limit 0
  edit "", 20, 43 73 55 10,autohs,limit 0

  Button "Ok", 21, 120 95 35 12, ok
  Button "Cancel", 22, 55 95 35 12, cancel
}

on *:dialog:Setup:init:*: {
  var %Raider $readini(Raider,n,Info,Raider)
  var %Chans $readini(Raider,n,Info,Chans)
  var %sUser $readini(Raider,n,Sigil,User)
  var %sPW $readini(Raider,n,Sigil,pw)
  var %tUser $readini(Raider,n,Torax,User)
  var %tPW $readini(Raider,n,Torax,PW)
  var %Auth $readini(Raider,n,Auth,user)
  var %aPW $readini(Raider,n,Auth,PW)
  did -o setup 3 1 %Raider
  did -o setup 4 1 %Chans
  did -o setup 9 1 %sUser
  did -o setup 10 1 %sPW
  did -o setup 14 1 %tUser
  did -o setup 15 1 %tPW
  did -o setup 19 1 %auth
  did -o setup 20 1 %aPW
}

on *:dialog:setup:sClick:21: {
  if ((!$did(3)) || (!$did(4)) || (!$did(9)) || (!$did(10)) || (!$did(14)) || (!$did(15)) || (!$did(19)) || (!$did(20))) { echo -a All fields are mandatory. | halt }
  writeini Raider Info Raider $did(3)
  writeini Raider Info Chans $did(4)
  writeini Raider Sigil user $did(9)
  writeini Raider Sigil pw $did(10)
  writeini Raider torax user $did(14)
  writeini Raider torax pw $did(15)
  writeini Raider Auth User $did(19)
  writeini Raider Auth Pw $did(20)

  if ($status != connected) {
    /server irc.quakenet.org
    /server -m frostbrood.com:6667
  }
}