J4Gu4R
Messages postés
385
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
3 juillet 2007
15 déc. 2004 à 18:25
le plus simple je pense C de laisser ici mon code
alias slap { dialog -m slap slap }
dialog slap {
title "slap"
size -1 -1 130 198
option dbu
edit "", 101, 25 20 65 10 , center autohs
edit "", 102, 5 35 30 10 , center autohs
edit "", 103, 40 35 65 10 , center autohs
edit "", 104, 5 47 30 10 , center autohs
edit "", 105, 40 47 30 10 , center autohs
edit "", 106, 75 47 30 10 , center autohs
edit "", 110, 5 70 25 10, center autohs
edit "", 111, 5 81 25 10, center autohs
edit "", 112, 5 92 25 10, center autohs
edit "", 113, 5 103 25 10, center autohs
edit "", 114, 5 114 25 10, center autohs
edit "", 115, 5 125 25 10, center autohs
edit "", 116, 5 136 25 10, center autohs
edit "", 117, 5 147 25 10, center autohs
edit "", 118, 5 158 25 10, center autohs
edit "", 119, 5 169 25 10, center autohs
edit "", 129, 5 180 25 10, center autohs
edit "", 130, 59 70 60 10, center autohs
edit "", 131, 59 81 60 10, center autohs
edit "", 132, 59 92 60 10, center autohs
edit "", 133, 59 103 60 10, center autohs
edit "", 134, 59 114 60 10, center autohs
edit "", 135, 59 125 60 10, center autohs
edit "", 136, 59 136 60 10, center autohs
edit "", 137, 59 147 60 10, center autohs
edit "", 138, 59 158 60 10, center autohs
edit "", 139, 59 169 60 10, center autohs
button "Dire", 1000, 50 185 30 10
}
on *:dialog:slap:*:*: {
if ($devent == edit) {
set %slap.active Oui
set %slap1 $did(101)
set %slap2 $did(102)
set %slap3 $did(103)
set %slap4 $did(104)
set %slap5 $did(105)
set %slap6 $did(106)
set %slap10 $did(110)
set %slap11 $did(111)
set %slap12 $did(112)
set %slap13 $did(113)
set %slap14 $did(114)
set %slap15 $did(115)
set %slap16 $did(116)
set %slap17 $did(117)
set %slap18 $did(118)
set %slap19 $did(119)
set %slap29 $did(129)
set %slap30 $did(130)
set %slap31 $did(131)
set %slap32 $did(132)
set %slap33 $did(133)
set %slap34 $did(134)
set %slap35 $did(135)
set %slap36 $did(136)
set %slap37 $did(137)
set %slap38 $did(138)
set %slap39 $did(139)
}
if ($devent == init) {
if %slap.active == Oui { did -c slap 1000 } {
if %slap1 { did -a slap 101 %slap1 }
if %slap2 { did -a slap 102 %slap2 }
if %slap3 { did -a slap 103 %slap3 }
if %slap4 { did -a slap 104 %slap4 }
if %slap5 { did -a slap 105 %slap5 }
if %slap6 { did -a slap 106 %slap6 }
if %slap10 { did -a slap 110 %slap10 }
if %slap11 { did -a slap 111 %slap11 }
if %slap12 { did -a slap 112 %slap12 }
if %slap13 { did -a slap 113 %slap13 }
if %slap14 { did -a slap 114 %slap14 }
if %slap15 { did -a slap 115 %slap15 }
if %slap16 { did -a slap 116 %slap16 }
if %slap17 { did -a slap 117 %slap17 }
if %slap18 { did -a slap 118 %slap18 }
if %slap19 { did -a slap 119 %slap19 }
if %slap29 { did -a slap 129 %slap29 }
if %slap30 { did -a slap 130 %slap30 }
if %slap31 { did -a slap 131 %slap31 }
if %slap32 { did -a slap 132 %slap32 }
if %slap33 { did -a slap 133 %slap33 }
if %slap34 { did -a slap 134 %slap34 }
if %slap35 { did -a slap 135 %slap35 }
if %slap36 { did -a slap 136 %slap36 }
if %slap37 { did -a slap 137 %slap37 }
if %slap38 { did -a slap 138 %slap38 }
if %slap39 { did -a slap 139 %slap39 }
}
}
if ($devent == sclick) {
if $did == 1000 {
set %aleatoir2 $rand(%slap5,%slap6)
msg %slap1 11,1***** 0,1 Le %slap3 Mètre 11,1*****9*4
msg %slap1 11,1***** 0,1 Réponse: 11,1 $+ %slap1
msg %slap1 11,1***** 0,1 ton résultat 4×5]12]14]15»11,1*****9* %aleatoir2 $+ %slap4 11,1*****9*4
}
}
}
vala merci encore
-J4Gu4R-