Scratch

/*
 * wiimote 2 scratch- MOUSE METHOD (not tapping method.) alpha2 by AddZero
 * 
 * How to use:
 *  1. Press "Run" button above.
 *  2. Start the scratch program. (in scratch or on website.)
 *  3. Press the "Home" on the wiimote to turn ON and OFF tilt reporting.
 *     This moves the mouse depending on the pitch and roll of the wiimote.
 *     The scratch converts this into the pitch and roll variables.
 *     ONLY turn this on while the scratch program is active.  
 */

//Key mappings:
Up = wiimote.Right
Down = wiimote.Left
Left = wiimote.Up
Right = wiimote.Down
A = wiimote.A
B = wiimote.B
P = wiimote.Plus
M = wiimote.Minus
O = wiimote.One
T = wiimote.Two
H = wiimote.Home
L = Wiimote.Battery

wiimote.Led1 = true

//toggle acceleration/tilt reporting with Home button
if wiimote.Home = true
 if var.accel = false then
  var.mouseoffsetX= mouse.CursorPosX
  var.mouseoffsetY= mouse.CursorPosY
  mouse.LeftButton = true
  wait 250 ms
  mouse.LeftButton = false
  wait 250 ms
  mouse.CursorPosX = mouse.CursorPosX + 100
   //it moves the mouse 100 so scratch can figure out the mouse scale.
   //so it works correctly in fullscreen or shrunk as well.

  wait 500 ms
  var.accel = true
  wiimote.Led4 = true
 elseif var.accel=true then
  var.accel = false
  wiimote.Led4 = false
  mouse.CursorPosX = var.mouseoffsetX
  mouse.CursorPosY = var.mouseoffsetY
 end if
 wait .5 s
end if

//it moves the mouse depending on the roll and pitch
if var.accel= true
  mouse.CursorPosX = var.mouseoffsetX + (wiimote.SmoothRoll div 2)
  mouse.CursorPosY = var.mouseoffsetY + (wiimote.SmoothPitch div 2)
end if
if keyboard.Space
  ExitProgram()
 end if