EDmouse IR

From WiiLi

//EDmouse IR [by marsuten  @gmail.com-any improvement is welcome]
*ir sensor bar required

//Variables
    var.freezetime = 300 ms
       var.offsetx = 20
       var.offsety = 20
     pie.FrameRate = 100 hz //Leave between 60 and 100 Hz

//Buttons
mouse.LeftButton = wiimote.A
mouse.RightButton = wiimote.B
//Freeze
var.freeze = KeepDown(Pressed(wiimote.A or wiimote.B),var.freezetime)

//Mouse
var.dotx=smooth(maprange(1-wiimote.pointerx,1,0, -var.offsetx, screen.Width+var.offsetx),1)
var.doty=smooth(maprange(1-wiimote.pointery,1, 0 , -var.offsety, screen.Height+var.offsety),1)

if (wiimote.dot1vis or wiimote.dot2vis) and not var.freeze
mouse.x=smooth((1/(screen.Width/var.dotx)),2)
mouse.y=smooth((1/(screen.Height/var.doty)),2)
endif