R-asv

Description

Bon, alors voilà, c'est un asv système + quelques informations en plus

Source / Exemple :


dialog r-asv {
  title "R-ASV by Re[M]i_34"
  size -1 -1 155 143
  option dbu
  tab "Standard", 1, 5 2 145 123
  text "Age :", 3, 32 23 25 8, tab 1 center
  text "Sexe :", 4, 32 37 25 8, tab 1 center
  text "Ville :", 5, 31 53 25 8, tab 1 center
  edit %age , 6, 70 23 57 10, tab 1, autohs
  edit %sexe , 7, 70 37 57 10, tab 1
  edit %ville , 8, 70 53 57 10, tab 1, autohs
  box "Le dire ...", 9, 13 64 129 25, tab 1
  button "En PV", 10, 18 73 33 10, tab 1
  button "En Notice", 11, 55 73 35 10, tab 1
  button "Sur le salon", 12, 93 73 41 10, tab 1
  ;icon 13, 10 92 130 25, $scriptdirr-asv.bmp ,tab 1
  tab "Optionnel", 2
  text "Couleur des cheveux :", 14, 11 27 57 8, tab 2 center
  edit %couleur_cheveux , 15, 72 26 50 10, tab 2, autohs
  text "Couleur des yeux :", 16, 11 39 57 8, tab 2 center
  edit %couleur_yeux , 17, 72 38 50 10, tab 2, autohs
  text "Poids :", 18, 11 51 57 8, tab 2 center
  edit %poids , 19, 72 50 50 10, tab 2, autohs
  text "Taille :", 20, 10 63 58 8, tab 2 center
  edit %taille , 21, 72 62 50 10, tab 2, autohs
  box "Physique", 22, 7 17 124 61, tab 2
  text "Portable :", 23, 20 85 34 8, tab 2 center
  edit %num_port , 24, 72 83 50 10, tab 2, autohs
  text "Adresse :", 25, 20 95 34 8, tab 2 center
  edit %adresse , 26, 72 94 50 10, tab 2, autohs
  text "Code Postal :", 27, 20 106 34 8, tab 2 center
  edit %code_postal , 28, 72 105 50 10, tab 2, autohs
  box "Personnel", 29, 7 77 125 43, tab 2
  button "Dire ça en PV", 30, 133 22 15 97, tab 2 multi
  button "Fermer", 31, 13 128 131 12, ok
}
on *:dialog:r-asv:edit:6:{ set %age $did(6).text }
on *:dialog:r-asv:edit:7:{ set %sexe $did(7).text }
on *:dialog:r-asv:edit:8:{ set %ville $did(8).text }
on *:dialog:r-asv:edit:15:{ set %couleur_cheveux $did(15).text }
on *:dialog:r-asv:edit:17:{ set %couleur_yeux $did(17).text }
on *:dialog:r-asv:edit:19:{ set %poids $did(19).text }
on *:dialog:r-asv:edit:21:{ set %taille $did(21).text }
on *:dialog:r-asv:edit:24:{ set %num_port $did(24).text }
on *:dialog:r-asv:edit:26:{ set %adresse $did(26).text }
on *:dialog:r-asv:edit:28:{ set %code_postal $did(28).text }

on *:dialog:r-asv:sclick:10:{ .set %pseudo $$?="Pseudo ?" | msg %pseudo 12J'ai4 %age 12ans, je suis un/une4 %sexe 12et je viens de4 %ville }
on *:dialog:r-asv:sclick:11:{ .set %notice $$?="Pseudo ou Salon ?" | notice %notice 12J'ai4 %age 12ans, je suis un/une4 %sexe 12et je viens de4 %ville }
on *:dialog:r-asv:sclick:12:{ .set %salon $$?="Salon ?" | msg %salon 12J'ai4 %age 12ans, je suis un/une4 %sexe 12et je viens de4 %ville }
on *:dialog:r-asv:sclick:30:{ .set %pseudo2 $$?="Pseudo ?" | msg %pseudo2 12Je mesure4 %taille $+ 12, je pèse4 %poids $+ 12kilos, mes cheveux sont4 %couleur_cheveux $+ 12, mes yeux sont4 %couleur_yeux $+ 12. | .timer 1 1 msg %pseudo2 12Mon numéro de portable est le4 %num_port $+ 12, mon adresse est4 %adresse %code_postal %ville }
}
menu * {
R-ASV:dialog -m r-asv r-asv
}

Conclusion :


Voilà, dites moi ce que vous en pensez :)

PS: si vous voulez l'image, téléchargez le zip et enlevez le ; qui se situe devant :
icon 13, 10 92 130 25, $scriptdirr-asv.bmp ,tab 1 .

Codes Sources

A voir également

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.