ORGANISEUR POUR MIRC

dialog orga {
  title "Organiseur pour mIRC"
  size -1 -1 165 116
  option dbu
  button "Fermer", 7, 64 101 37 12, ok
  tab "Urls", 8, 1 -1 163 98
  edit "", 10, 5 27 107 10, tab 8
  button "Ajouter", 11, 122 26 37 12, tab 8
  combo 12, 17 40 60 50, tab 8 size
  button "Supprimer", 13, 104 51 37 12, tab 8
  button "Visiter", 14, 104 69 37 12, tab 8
  text "Tape une Url ci-dessous et cliques sur 'Ajouter'", 15, 23 16 119 8, tab 8
  tab "Salons", 9
  edit "", 16, 5 27 107 10, tab 9
  button "Ajouter", 17, 122 26 37 12, tab 9
  combo 18, 17 40 60 50, tab 9 size
  button "Supprimer", 19, 104 51 37 12, tab 9
  button "Joindre", 20, 104 69 37 12, tab 9
  text "Tape ci-dessous le nom d'un salon et cliques sur 'Ajouter'", 21, 13 16 139 8, tab 9
  tab "Pseudos", 22
  edit "", 23, 5 27 107 10, tab 22
  button "Ajouter", 24, 122 26 37 12, tab 22
  combo 25, 17 40 60 50, tab 22 size
  button "Supprimer", 26, 104 51 37 12, tab 22
  button "Whois", 27, 104 69 37 12, tab 22
  text "Tapes ci-dessous un pseudo et cliques sur 'Ajouter'", 28, 17 16 130 8, tab 22
  tab "Auteur", 29
  box "Remerciements", 30, 12 18 50 53, tab 29
  text "Merci a :", 31, 18 29 25 8, tab 29
  text "Lost-angel", 32, 22 41 30 8, tab 29
  text "Pour l'idee & pour l'aide sur le code.", 33, 15 52 44 14, tab 29
  box "Commentaires", 34, 97 35 61 50, tab 29
  text "Merci de ne pas copier ce code", 35, 103 43 42 14, tab 29
  text "Pour toutes idees , envoyez a Kaizer63@free.fr", 36, 102 62 52 20, tab 29
}
On *:dialog:orga:init:*:{ loadbuf -ro orga 12 urlfav.txt | loadbuf -ro orga 18 chanfav.txt | loadbuf -ro orga 25 nickfav.txt }
On *:dialog:orga:sclick:*:{
  if $did == 11 { write -a urlfav.txt $did(10) | loadbuf -ro orga 12 urlfav.txt }
  if $did == 13 { write -dl $+ $did(12).seltext urlfav.txt | loadbuf -ro orga 12 urlfav.txt } 
  if $did == 14 { run $did(12) }
  if $did == 17 { write -a chanfav.txt $did(16) | loadbuf -ro orga 18 chanfav.txt }
  if $did == 19 { write -dl $+ $did(18).seltext chanfav.txt | loadbuf -ro orga 18 chanfav.txt } 
  if $did == 20 { join $did(18) }
  if $did == 24 { write -a nickfav.txt $did(23) | loadbuf -ro orga 25 nickfav.txt }
  if $did == 26 { write -dl $+ $did(25).seltext nickfav.txt | loadbuf -ro orga 25 nickfav.txt } 
  if $did == 27 { whois $did(25) }
}
menu channel,query,menubar {
  Organiser pour mIRC:/dialog -m orga orga
}