Generateur de profil d'user irc

Commenter

Contenu du snippet

C'est un code qui permet d'éditer le profil des users IRC.

Source / Exemple : 


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) } }

Conclusion :


Merci a SornDrixer qui m'a aider :) et ReMi34 pour le dialog :)
Have fun & no ripp...

Enjoy ^^

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (vesparo)