GlovePIE:Warning Forever

From WiiLi

Warning Forever is a free PC game by Hikware. The download page can be found here and you can read up on the game at Wikipedia here.

/*
  Warning Forever
  ===============
  Game by Hikoza T. Ohkubo / Hikware
  GlovePIE script by TylerK

  To use this script hold the Wiimote in the classic NES controller style.
  Please note that by default the pause button is not enabled. You must go into
  the game's options screen and enable it. Also when you first run the game it
  may ask what controller to use - select Keyboard or this script will not work.

  Wiimote              Function
  -----------------------------------------------
  2            |       Shoot
  1            |       Toggle Aim
  B            |       Hold to move slowly
  Plus / Minus |       Pause
  D-Pad        |       Movement
  Home         |       Exit game
*/

// Disable LEDs to conserve battery.
Wiimote.Leds = 0;

// Controls
Up = Wiimote.Right
Down = Wiimote.Left
Left = Wiimote.Up
Right = Wiimote.Down
Enter = Wiimote.Plus
D = Wiimote.One
Z = Wiimote.Two
X = Wiimote.B
F = Wiimote.Minus or Wiimote.Plus
Escape = Wiimote.Home

/*
  RUMBLE
  The following code will make the Wiimote rumble as the red "WARNING" messages
  scroll across the screen before a round. It will also attempt to activate the
  rumble when a boss explodes, although it does not work 100% of the time.
*/

var.hdc = USER32.DLL.GetDC(NULL)
var.p1 = (IntToHex(GDI32.DLL.GetPixel(var.hdc, Int(36), Int(89)), 6) == "FFFBFF")
var.p2 = (IntToHex(GDI32.DLL.GetPixel(var.hdc, Int(312), Int(150)), 6) == "FFFBFF")
var.p3 = (IntToHex(GDI32.DLL.GetPixel(var.hdc, Int(590), Int(300)), 6) == "FFFBFF")
var.r1 = (IntToHex(GDI32.DLL.GetPixel(var.hdc, Int(390), Int(85)), 6) == "0028A5")
USER32.DLL.ReleaseDC(NULL, Int(var.hdc))


// WARNING!
if (var.r1) then
   Wiimote1.Rumble = true
   wait 90 ms
   Wiimote1.Rumble = false
endif

// Boss explosion
if (var.p1 and var.p2 and var.p3) then
   Wiimote1.Rumble = true
   wait 250 ms
   Wiimote1.Rumble = false
endif