//Wiimote Script for Project Shrine Maiden
// (One-handed Version) by MCO


//Setup
var.Vibration = 1
var.DefaultTilt = 10
var.BorderX = 1.5
var.BorderY = 1.5
var.BorderSpell = 60



//Wiimote Button Settings
//  Shot = A
//  Slow = B
//  Pause = +, 1
//  Skip = -, 2

Keyboard.Z = Wiimote1.A
Keyboard.Shift = Wiimote1.B
Keyboard.Escape = Wiimote1.Plus
Keyboard.Escape = Wiimote1.1
Keyboard.Ctrl = Wiimote1.Minus
Keyboard.Ctrl = Wiimote1.2


//Motion Sensor Settings

if Wiimote1.RawForceX > var.BorderX then
 Keyboard.Left = true
  wait 1 ms
 Keyboard.Left = false
endif
if Wiimote1.RawForceX < -var.BorderX then
 Keyboard.Right = true
   wait 1 ms
 Keyboard.Right = false
endif
if Wiimote1.RawForceZ - var.DefaultTilt > var.BorderY then
 Keyboard.Down = true
   wait 1 ms
 Keyboard.Down = false
endif
if Wiimote1.RawForceZ - var.DefaultTilt < -var.BorderY then
 Keyboard.Up = true
   wait 1 ms
 Keyboard.Up = false
endif

if Wiimote1.RawForceX > var.BorderSpell then
 if var.Vibration = 1 then
  Keyboard.X = true
  Wiimote1.Rumble = true
    wait 60 ms
  Keyboard.X = false
   wait 1440 ms
   Wiimote1.Rumble = false
 else
  Keyboard.X = true
    wait 60 ms
  Keyboard.X = false
 endif
endif
if Wiimote1.RawForceX < -var.BorderSpell then
 if var.Vibration = 1 then
  Keyboard.X = true
  Wiimote1.Rumble = true
    wait 60 ms
  Keyboard.X = false
   wait 1440 ms
   Wiimote1.Rumble = false
 else
  Keyboard.X = true
    wait 60 ms
  Keyboard.X = false
 endif
endif
if Wiimote1.RawForceY > var.BorderSpell then
 if var.Vibration = 1 then
  Keyboard.X = true
  Wiimote1.Rumble = true
    wait 60 ms
  Keyboard.X = false
   wait 1440 ms
   Wiimote1.Rumble = false
 else
  Keyboard.X = true
    wait 60 ms
  Keyboard.X = false
 endif
endif
if Wiimote1.RawForceY < -var.BorderSpell then
 if var.Vibration = 1 then
  Keyboard.X = true
  Wiimote1.Rumble = true
    wait 60 ms
  Keyboard.X = false
   wait 1440 ms
   Wiimote1.Rumble = false
 else
  Keyboard.X = true
    wait 60 ms
  Keyboard.X = false
 endif
endif
if Wiimote1.RawForceZ > var.BorderSpell then
 if var.Vibration = 1 then
  Keyboard.X = true
  Wiimote1.Rumble = true
    wait 60 ms
  Keyboard.X = false
   wait 1440 ms
   Wiimote1.Rumble = false
 else
  Keyboard.X = true
    wait 60 ms
  Keyboard.X = false
 endif
endif
if Wiimote1.RawForceZ < -var.BorderSpell then
 if var.Vibration = 1 then
  Keyboard.X = true
  Wiimote1.Rumble = true
    wait 60 ms
  Keyboard.X = false
   wait 1440 ms
   Wiimote1.Rumble = false
 else
  Keyboard.X = true
    wait 60 ms
  Keyboard.X = false
 endif
endif


//System

Wiimote1.Led1 = true