After a while I got a script that works perfectly:
debug =wiimote.RawForceY+ " Lastx " + var.lastx + " Lasty " + var.lasty + " VarOn: " + var.on + " Movmouse: " + var.movmouse + " MovmouseY: " + var.movmouseY + " pointerX " + wiimote.PointerX*1680 + " Cursor PosX " + mouse.CursorPosY +"vartime" + var.time + " pointerY " + wiimote.PointerY*1050
if wiimote.One then
var.lastx = wiimote.PointerX*1680
var.lasty = wiimote.PointerY*1050
var.on = 1
var.resY = wiimote.PointerY*1050
endif
if wiimote.Two then
var.on = 0
endif
if var.On = 0 then
mouse.CursorPosX = wiimote.PointerX*1680
mouse.CursorPosy = wiimote.Pointery*1050
endif
if var.lastx != wiimote.PointerX*1680 and var.on != 0 then
var.movmouse = 2*((wiimote.PointerX*1680)-var.lastx)
var.lastx = wiimote.PointerX*1680
mouse.CursorPosX = mouse.CursorPosX + var.movmouse
endif
if var.lasty != wiimote.PointerY*1050 and var.on != 0 then
var.movmouseY = 2*((wiimote.PointerY*1050)-var.lastY)
var.lastY = wiimote.PointerY*1050
mouse.CursorPosY = mouse.CursorPosY + var.movmouseY
endif
mouse.LeftButton = Wiimote.B
mouse.rightButton = Wiimote.A
mouse.WheelUp =wiimote.Up
mouse.WheelDown =wiimote.Down
key.W = Wiimote.Nunchuk.JoyY < -0.4
key.S = Wiimote.Nunchuk.JoyY > 0.4
key.A = Wiimote.Nunchuk.JoyX < -0.4
key.D = Wiimote.Nunchuk.JoyX > 0.4
key.R = wiimote.Nunchuk.Z
key.X = wiimote.Nunchuk.C
key.Q = wiimote.Minus
key.E = wiimote.Plus
key.Escape = wiimote.Home
You need to target the center of the screen and press "1", you can do it several times if you do not have enough accuracy, the button "2" is to get back to use the pointer on the desktop. The Nunchuk is functional, the D-pad is only operable to simulate the scroll on the map.