Messages

1

General / Re: Has anyone gotten a Wii remote to work with Aquaria? (GlovePIE)

« on: March 10, 2012, 12:33:09 am »

After a while I got a script that works perfectly:

Code: [Select]

   
   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.