WiimoteIR #1 v.1.0

Directions for setting up the script is included in the scripts comments.

What's included in WiimoteIR #1 version 1.0:

• Script does not continue if it does not detect Wiimote.
• Wiimote LEDs will flash back and forth twice telling the user Wiimote is detected and mouse control will start. 
• A and B buttons can be easily changed. (Instructions included in script)

Key Map:

• D-pad = Scroll Wheel
• A button = Left Click
• B button = Right Click
• 1 button = Launch On-screen Keyboard

Please copy paste the entire script into GlovePIE and save.

WiimoteIR #1 version 1.0 (Script):

/* WiimoteIR is scripted by Sunny Wu.
Development blog at: http://wiimoteir.blogspot.com/
Project website at: http://http://wiimoteir.webs.com */

/* Version Info: WiimoteIR #1 v.1.0 */

/* >>>>>> WARNING! DO NOT RUN SCRIPT YET! <<<<<<
Some setup is required before the script will work!
DO NOT RUN YET!
Script will only work with 1 monitor setup. If you have 2 monitors, please disable one of them!
If you are not using wiimote1 please replace all the wiimote1's with the wiimote you are using.
If you do not understand what this means, then ignore it.

Before running make sure:
1. Is there an infrared source for your Wiimote?
2. Is your Wiimote connected to your computer via Bluetooth. Make sure it is NOT connected to your Wii.*/

/* For variables of resx and resy please get your monitor resolution.
If you are on Windows Vista or Windows 7.
1. Go to your desktop, right click and click Personalize
2. Then go to display settings.
3. You will see ??? by ??? pixels.
4. Most likely, the bigger number is your width.
5. Replace ??? of resx with your width.
6. Replase ??? of resy with your height. */
var.resx = ???
var.resy = ???

/* For variables of wiix and wiiy, please open a second Glovepie window and follow these instructions:
1. In second GlovePIE window type (without quotes): "debug = wiimote1.dot1x"
2. Run the script and you will see a value appear next to the run button.
3. Move the Wiimote slowly left and right and try to get to the highest number it will reach in the box. Note that number
4. Go back to your original GlovePIE window and replace ??? for wiix with that number
5. Now go back to the other GlovePIE window and now type (with out quotes): "debug = wiimote1.dot1y"
6. Run the script, and this time slowly move your Wiimote up and down. Note the highest number it can reach.
7. Go back to your original GlovePIE and replace ??? for wiiy with the number you just noted.
8. Save script and test it out. */
var.wiix = ???
var.wiiy = ???

if var.led = 2
mouse.CursorPosX = smooth(var.resx-round((((wiimote1.dot1x+wiimote1.dot2x)/2)/var.wiix)*var.resx),3)
mouse.CursorPosY = smooth(round((((wiimote1.dot1y+wiimote1.dot2y)/2)/var.wiiy)*var.resy),3)

/* If you want to swap the A and B buttons edit the following 2 lines. I think it is pretty easy to understand. LOL */
mouse.LeftButton = wiimote1.A
mouse.RightButton = wiimote1.B

/* DO NOT EDIT BELOW THIS LINE! */
mouse.WheelDown = wiimote1.Down
mouse.WheelUp = wiimote1.Up
mouse.WheelLeft = wiimote1.Left
mouse.WheelRight = wiimote1.Right
if pressed(wiimote1.One)then execute("C:\Windows\system32\osk.exe")
else
if wiimote1.Exists
var.led = 1
end if
if var.led = 1
var.wait = 50 ms
wiimote1.Led1 = true
wait var.wait
wiimote1.Led1 = false
wiimote1.Led2 = true
wait var.wait
wiimote1.Led2 = false
wiimote1.Led3 = true
wait var.wait
wiimote1.Led3 = false
wiimote1.Led4 = true
wait var.wait
wiimote1.Led4 = false
wiimote1.Led3 = true
wait var.wait
wiimote1.Led3 = false
wiimote1.Led2 = true
wait var.wait
wiimote1.Led2 = false
wiimote1.Led1 = true
wait var.wait
wiimote1.Led1 = false
wiimote1.Led2 = true
wait var.wait
wiimote1.Led2 = false
wiimote1.Led3 = true
wait var.wait
wiimote1.Led3 = false
wiimote1.Led4 = true
wait var.wait
wiimote1.Led4 = false
wiimote1.Led3 = true
wait var.wait
wiimote1.Led3 = false
wiimote1.Led2 = true
wait var.wait
wiimote1.Led2 = false
var.led = 2
end if
end if

Version Specific FAQ:

Question:
My cursor moves in the opposite direction!
Answer:
First, you will have to figure out which axis is reversed. Is the X-axis (◄ ►) reversed? Or is it the Y-axis (▲ ▼) reversed?

If the X-axis is reversed, find the line that says...

mouse.CursorPosX = smooth(var.resx-round((((wiimote1.dot1x+wiimote1.dot2x)/2)/var.wiix)*var.resx),3)

and replace it with...

mouse.CursorPosX = smooth(round((((wiimote1.dot1x+wiimote1.dot2x)/2)/var.wiix)*var.resx),3)

If the Y-axis is reversed, find the line that says...

mouse.CursorPosY = smooth(round((((wiimote1.dot1y+wiimote1.dot2y)/2)/var.wiiy)*var.resy),3)

and replace it with...

mouse.CursorPosY = smooth(var.resy-round((((wiimote1.dot1y+wiimote1.dot2y)/2)/var.wiiy)*var.resy),3)

Now go try out your script again. You cursor should no longer be reversed. If both axis is reversed, do both of those fixes.