[Ex] Réflexes, l'alcoolotest!
Posté : sam. 08 janv. 2011 18:51
Bonjour tout le monde!
Je veut partager aujourd'hui avec vous un petit script qui teste les réflexes afin de savoir si on a trop bu!
Sa ne m'est pas utile pour l'instant, étant agé de 15 ans, mais je ne dit pas pour tout le monde...
Voila le code, étant donné qu'il est assez court, je ne met pas de spoiler. Si il en faut un, dites le moi, je rectifierait sa.
En espèrent vous avoir offert un petit truc utile en plus. xD
Je veut partager aujourd'hui avec vous un petit script qui teste les réflexes afin de savoir si on a trop bu!
Sa ne m'est pas utile pour l'instant, étant agé de 15 ans, mais je ne dit pas pour tout le monde...
Voila le code, étant donné qu'il est assez court, je ne met pas de spoiler. Si il en faut un, dites le moi, je rectifierait sa.
Code : Tout sélectionner
MsgBox (0,"Alcoolotest by Fish-Panai","Bienvenue dans l'alcoolotest! Ce programme permet de tester vos reflexes et d'en déduire votre taux d'alcoolémie.")
MsgBox (0,"Alcoolotest by Fish-Panai","Je vous rappelle que ce programme est destiné à l'amusement et qu'il ne constitue en aucuns cas une mesure véridique du taux d'alcoolemie!")
MsgBox (0,"Alcoolotest by Fish-Panai","Quand vous êtes prêt, appuyez sur le bouton ok. Dés que vous entendrez le bip, vous appuyrez sur la touche ""F2"".")
$time = Random (5000,10000)
$reflex = 0
HotKeySet ("{F2}","Tricheur")
Sleep ($time)
HotKeySet ("{F2}","Reflexes")
Beep (1200,200)
While 1
Sleep (100)
$reflex = $reflex + 0.1
WEnd
Func Tricheur ()
MsgBox (0,"Tricheur!","Vous avez tricher! Il ne faut pas appuyer sur F2 avant le beep petit malin!")
Exit
EndFunc
Func Reflexes ()
If $reflex > 0.2 Then
MsgBox (0,"Hum hum...","Vous avez trop bu!!")
Else
MsgBox (0,"Bien","Ok, je vous laisse reprendre la route... Soyez prudent...")
EndIf
Exit
EndFunc