PETIT MENU DE CONNECTION AUX SERVEURS

;Petit Menu de connection Par guigui653

dialog serveur {
  title "Connection au server /\ par guigui653"
  size -1 -1 300 300
  text "Ton Pseudo" ,1, 25 20 100 15,
  edit %nickname ,2, 110 15 160 20,
  button "Serveur JeuxVideo.com" ,3, 30 50 250 50, flat
  button "Serveur Epiknet.org" ,4, 30 120 250 50, flat
  button "Serveur Voila" ,5, 30 190 250 50, flat
  button "OK" ,6, 30 250 250 35, ok
}

on *:dialog:serveur:sclick:3: {
  /nick %nickname
  /server irc.jeuxvideo.com
  /dialog -x serveur serveur
}
on *:dialog:serveur:sclick:4: {
  /nick %nickname
  /server irc.epiknet.org
  /dialog -x serveur serveur
}
on *:dialog:serveur:sclick:5: {
  /nick %nickname
  /server irc.voila.fr
  /dialog -x serveur serveur
}

on *:dialog:serveur:edit:2: { set %nickname $did(2).text }
on *:START: { /dialog -m serveur serveur }