From WiiLi
// Wiilarm 0.2
` By TiagoTiago
// IT IS NOT GUARANTEED THAT THE WIIMOTE BATERRIES WILL LAST TILL IT IS TIME TO BUZZ!
` DON'T RELY ON THIS AS YOUR SOLE ALARM DEVICE!
// Set the time bellow.
` Then leave the wiimote somewhere you believe you can hear it rumbling.
` You can leave it in any position except with the IR camera pointing up.
` To turn it off place the wiimote on a level surface with the IR camera up.
` To get a louder buzz it is recomended to place the wiimote on a hard surface.
Var.TargetHour = 12 // Set the hours for the alarm
Var.TargetMinute = 15 // Set the minutes for the alarm
Var.H = (Floor(Now In Hours) % 24) // Gets the hour part of the current time
Var.M = (Floor(Now In Minutes) % 60) // Gets the minutes part of the current time
Var.S = (60 + (Floor(Now In Seconds) % 60)) // Gets the seconds part of the current time (currently unused)
` If on or past the time, and not in the "off" position
If (((Var.H = Var.TargetHour) And (Var.M >= Var.TargetMinute)) Or (Var.H > Var.TargetHour)) And (Not(Wiimote.Pitch >- 80)) Then
` Random rumbling
Wiimote.Rumble = True
Wait Randomrange(10,5000) Ms
Wiimote.Rumble = False
Wait Randomrange(10,5000) Ms
Endif
