CONNEXION

dialog setcon {
  title "Connexion"
  size -1 -1 170 137
  option dbu
  text "Bienvenue dans le XXXXXX Script", 1, 43 5 83 8
  edit "", 3, 47 31 81 10
  edit "", 5, 28 59 120 10, pass
  button "Enregistrer", 7, 66 116 37 12, ok
  box "Ton Pseudo", 8, 36 22 104 24
  box "Ta Clé Nickserv", 9, 19 50 138 24
  box "serveur + port ( xxxxx.xxxx:port )", 10, 20 85 138 24
  edit "", 11, 31 95 114 10
}
on *:dialog:setcon:sclick:7: {
  set %passenick $did(5)
  set %nick $did(3)
  set %serveur $did(11)
  dialog -m connect connect
  nick %nick
  dialog -m connect connect
}
dialog connect {
  title "Infos de connexion"
  size -1 -1 170 117
  option dbu
  text "Voici les informations de ta connexion :", 1, 36 4 97 8
  box "Pseudo", 2, 18 17 133 23
  edit %nick , 3, 47 25 76 10, read
  box "Serveur", 4, 18 44 133 23
  edit %serveur , 5, 47 53 76 10, read
  text "Veux tu te connecter ?", 6, 56 77 58 8
  button "Oui", 7, 36 96 37 12, ok
  button "Non", 8, 96 96 37 12, 
}
on *:dialog:connect:sclick:7: {
  server %serveur %passenick
}
on *:dialog:connect:sclick:8: {
  dialog -x connect connect 
  echo -a 4/2!4\ 1CONNEXION ANNULEE 4/2!4\
}