GENERATEUR DE PROFIL D'USER IRC

Menu * {
  Gestion Profil:/fil
  Nouveau Profil:/fil
  Voir Profil $$1 :/query $$1
}
alias fil { dialog -m profil profil }
dialog profil {
  title "Générateur de Profils"
  option dbu
  size -1 -1 194 117
  text "Nom :", 1, 11 10 25 8, center
  edit "", 2, 40 9 53 10, autohs
  button "Ajouter", 3, 10 22 34 10
  button "Effacer", 4, 59 22 34 10
  list 5, 10 36 83 73, size
  box "Profils :", 6, 4 1 94 112
  text "Pseudo :", 7, 103 12 25 8, center
  edit "", 8, 131 11 54 10, autohs
  text "Age :", 9, 103  25 25 10, center
  edit "", 10, 131 24 54 10, autohs
  edit "", 11, 131 38 54 10, autohs
  text "Sexe :", 12, 103 39 25 8, center
  edit "", 13, 131 51 54 10, autohs
  text "Ville :", 14, 103 52 25 8, center
  edit "", 15, 102 75 88 26, multi
  text "Description :", 16, 125 65 40 8, center
  button "Fermer", 17, 128 103 37 11, ok
}
ON *:DIALOG:profil:*:*:{
  if ($devent == init) { loadprofil }
  if ($devent == sclick) {
    if ($did == 3) { writeini profil.ini $did(2) infosprofil $did(2) $did(8) $did(10) $did(11) $did(13) $did(15) | did -a $dname 5 $did(2)  }
    if ($did == 4) && ($did(5).seltext) { .remini profil.ini $did(5).seltext | loadprofil | did -r $dname 8,10,11,13,15 }
    if ($did == 5) && ($did(5).seltext) { did -ra $dname 8 $gettok($readini(profil.ini,$did(5).seltext,infosprofil),2,32) | did -ra $dname 10 $gettok($readini(profil.ini,$did(5).seltext,infosprofil),3,32) | did -ra $dname 11 $gettok($readini(profil.ini,$did(5).seltext,infosprofil),4,32) | did -ra $dname 13 $gettok($readini(profil.ini,$did(5).seltext,infosprofil),5,32) | did -ra $dname 15 $gettok($readini(profil.ini,$did(5).seltext,infosprofil),6-,32) }
  }
}
dialog profilpv {
  title "Profil Pv/QUERY"
  option dbu
  size -1 -1 170 22
  text "-=- Profil -=-", 1, 80 2 50 10
  edit "", 2, 2 10 167 10, read
}
ON *:Active:?:{ dialog -m profilpv profilpv | did -ra profilpv 2 $readini(profil.ini,$active,infosprofil) | if (!$readini(profil.ini,$nick,infosprofil)) { did -a profilpv 2 $active n'a pas de profil | halt } }
alias -l loadprofil { did -r profil 5 | var %a = 0, %aa = $ini(profil.ini,0) | while (%aa > %a) { inc %a | did -a profil 5 $ini(profil.ini,%a) } }