gamexprt1

Joined: 23 Apr 2007 Posts: 54 Location: Washington
Digg It |
Posted: Mon Aug 20, 2007 2:24 am Post subject: |
|
|
| Code: | // Single-Punch Version
` Will only measure once.
` Press home to "re-arm".
If (Wiimote.RelAccy >= 10 M Per S Per S) And (Not (Var.Disarmed))
Say("Sissy")
Var.Gotit = True
Endif
Var.Test1 = (Wiimote.RelAccy >= 10 M Per S Per S) And (Not (Var.Disarmed))
Var.Test2 = (Wiimote.RelAccy >= 10 M Per S Per S)
Var.Test3 = (Not (Var.Disarmed))
Debug = Var.Test1 + " || " + Var.Test2 + " || " + Var.Test3
If (Wiimote.RelAccy >= 15 M Per S Per S) And Not (Var.Disarmed)
Say("Wimp")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 20 M Per S Per S) And Not (Var.Disarmed)
Say("Little girl")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 25 M Per S Per S And Wiimote.RelAccy < 30 M Per S Per S) And Not (Var.Disarmed)
Say("House wife")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 30 M Per S Per S And Wiimote.RelAccy < 35 M Per S Per S) And Not (Var.Disarmed)
Say("Dock worker")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 35 M Per S Per S And Wiimote.RelAccy < 40 M Per S Per S) And Not (Var.Disarmed)
Say("Weight-lifter")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 40 M Per S Per S And Wiimote.RelAccy < 45 M Per S Per S) And Not (Var.Disarmed)
Say("Heavy metal")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 45 M Per S Per S And Wiimote.RelAccy < 51 M Per S Per S) And Not (Var.Disarmed)
Say("Insane strength")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 51 M Per S Per S And Wiimote.RelAccy < 52 M Per S Per S) And Not (Var.Disarmed)
Say("Incredible Hulk")
Var.Gotit = True
Endif
If (Wiimote.RelAccy >= 52 M Per S Per S) And Not (Var.Disarmed)
Say("Impossible!")
Var.Disarmed = True
Endif
If (Var.Gotit)
Var.Disarmed = True
Endif
If (Wiimote.Home)
Var.Disarmed = False
Var.Gotit= False
Endif |
Nice and clean! _________________ If (Post = Read) Then
Dignity = False
Endif |
|