GlovePIE:Wiilarm
From WiiLi
(Redirected from Wiilarm)
// 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