tiens pour crysis
If -2 < Wiimote1.Nunchuk.JoyY < -0.5 Then
W = True
Wait 1 ms
W = False
End If
If 2 > Wiimote1.Nunchuk.JoyY > 0.5 Then
S = True
Wait 1 ms
S = False
End If
If -2 < Wiimote1.Nunchuk.JoyX < -0.5 Then
A = True
Wait 1 ms
A = False
End If
If 2 > Wiimote1.Nunchuk.JoyX > 0.5 Then
D = True
Wait 1 ms
D = False
End If
If wiimote.Nunchuk.CButton = True
Keyboard.E = Wiimote.Nunchuk.roll > 45 degrees
Keyboard.Q = Wiimote.Nunchuk.roll < -45 degrees
Keyboard.R = Wiimote1.Nunchuk.RawForceZ <= -60 degrees
Keyboard.1 = wiimote1.minus
Keyboard.X = wiimote1.Home
Keyboard.2 = wiimote1.PLUS
Keyboard.B = wiimote1.up
Keyboard.J = wiimote1.down
Keyboard.F1 = wiimote1.right
Keyboard.F2 = wiimote1.left
Mouse.RightButton = wiimote1.A
Keyboard.F = Wiimote1.RawForceX >= 9 m per s
Else
Keyboard.Z = Wiimote1.Nunchuk.RawForceZ <= -60 degrees
Keyboard.G = wiimote1.minus
Keyboard.V = wiimote1.Home
Keyboard.LeftControl = wiimote1.PLUS
Keyboard.I = wiimote1.up
Keyboard.H = wiimote1.down
Keyboard.4 = wiimote1.right
Keyboard.3 = wiimote1.left
Keyboard.Space = wiimote1.A
Keyboard.T = Wiimote1.RawForceX >= 9 m per s
End If
Keyboard.LeftShift = Wiimote1.Nunchuk.ZButton
Mouse.LeftButton = Wiimote1.B
Keyboard.escape = wiimote1.one
Shift + p + i + e = Wiimote1.two //Stop script
If wiimote.B = True Then
wiimote.rumble = True
Wait 100 ms
wiimote.rumble = False
End If
//Get de-rotated IR data (detailed comment will be writen if requested)
If (Wiimote1.Dot1Vis and Wiimote1.Dot2Vis)Then
var.angle = atan((Wiimote1.dot1y- Wiimote1.dot2y)/(Wiimote1.dot1x- Wiimote1.dot2x))
var.Sin= sin(var.angle)
var.Cos= cos(var.angle)
var.NewX= 511-(var.cos* (511-Wiimote1.Dot1x) - var.Sin* (Wiimote1.Dot1Y- 383))
var.NewY= 383-var.sin* (511-Wiimote1.Dot1x) + var.cos* (Wiimote1.Dot1Y- 383)
var.Iseeit= True
Else If (Wiimote1.Dot1Vis)
var.angle = Wiimote1.roll
var.Sin= sin(var.angle)
var.Cos= cos(var.angle)
var.NewX= 511-(var.cos* (511-Wiimote1.Dot1x) - var.Sin* (Wiimote1.Dot1Y- 383))
var.NewY= 383-var.sin* (511-Wiimote1.Dot1x) + var.cos* (Wiimote1.Dot1Y- 383)
var.Iseeit= True
Else If (Wiimote1.Dot1Vis)
var.angle = Wiimote1.roll
var.Sin= sin(var.angle)
var.Cos= cos(var.angle)
var.NewX= 511-(var.cos* (511-Wiimote1.Dot2x) - var.Sin* (Wiimote1.Dot2Y- 383))
var.NewY= 383-var.sin* (511-Wiimote1.Dot2x) + var.cos* (Wiimote1.Dot2Y- 383)
var.Iseeit= True
Else
var.Iseeit= False
End If
/////RAHCMEFFPSG////
//Setup the input (so you can use any analog input with this code
var.InputX = var.NewX // X component
var.InputXRangeStart = 0 Pixels // Smallest X value possible
var.InputXRangeEnd= 1023 Pixels //Biggest X value possible
var.InputXRangeSiz= (var.InputXRangeEnd- var.InputXRangeStart ) //calculates the size of the avaiable range
var.InputY = var.NewY // Y component
var.InputYRangeStart = 0 Pixels // Smallest Y value possible
var.InputYRangeEnd = 767 Pixels //Biggest Y value possible
var.InputYRangeSiz= (var.InputYRangeEnd- var.InputYRangeStart ) //calculates the size of the avaiable range
var.InputEnabled= var.Iseeit//checks to see if the data is avaiable
var.RangeX=(var.InputXRangeSiz / 4) // how much of the Y axis us destuned to "Absolute" motion, more than this in either direction will go into "Relative" mode
var.RangeY= (var.InputYRangeSiz / 4) // how much of the Y axis us destuned to "Absolute" motion, more than this in either direction will go into "Relative" mode
var.eyesizeX= 1000 Mickeys //the size of the "Absolute" X movement in DirectInput units
var.eyesizeY= 700 Mickeys //the size of the "Absolute" y movement in DirectInput units
var.edgespeedX= 70mickeys //Speed of the X axis when in "relative" mode
var.edgespeedY= 70Mickeys //Speed of the Y axis when in "relative" mode
If (var.InputEnabled)Then //if the data is avaiable process it
var.Xloc= -MapRange(var.InputX, var.InputXRangeStart , var.InputXRangeEnd, -var.eyesizeX, var.eyesizeX)mickeys // X offset in relation to the relative position
var.Yloc= MapRange(var.InputY, var.InputYRangeStart , var.InputYRangeEnd, -var.eyesizeY, var.eyesizeY)mickeys // Y offset in relation to the relative position
var.dist= sqrt(sqr((var.InputXRangeSiz/2) - var.InputX)+ sqr((var.InputYRangeSiz/2)- var.InputY)) //not used anymore, returns the distance from the relative position, I choose to use the distance per axis instead
/////
var.Text= ""
If (sqrt(sqr((var.InputXRangeSiz /2) - var.InputX)) > var.RangeX) Then //if X is bigger than the Absolute range then process it as relative
var.MiddleX = var.MiddleX+ (Maprange(var.Xloc, -Var.EyeSizex, var.eyesizex, -var.edgespeedX, var.EdgeSpeedX)) // change the relative position based on the direction the cursor is
If (var.saystate)Then
var.Text =var.Text+"edging X " //adds to the debug thing what it is doin
End If
End If
If (sqrt(sqr((var.InputYRangeSiz /2) - var.InputY)) > var.RangeY) Then //if Y is bigger than the Absolute range then process it as relative
var.MiddleY = var.MiddleY+ (Maprange(var.Yloc, -Var.EyeSizeY, var.eyesizeY, -var.edgespeedY, var.EdgeSpeedY))// change the relative position based on the direction the cursor is
If (var.saystate) Then
var.Text= var.Text+ "edging Y " //adds to the debug thing what it is doing
End If
End If
If ((sqrt(sqr(((var.InputYRangeSiz)/2) - var.InputY)) <= var.RangeY)) and ( sqrt(sqr((var.InputXRangeSiz/2) - var.InputX)) <= var.RangeX)Then //if inside the absolute rnage then do whatever it is required
If (var.SayState)Then
var.Text=var.Text+"local "// not much to be done, only ads to the debug thing what it is doing
End If
End If
If (var.DisplayCoords) Then
var.Text = var.Text + " relative: " + [var.Xloc, var.Yloc]+ " Absolute: "+ Mouse.DirectInputPos
End If
debug = var.Text
Mouse.DirectInputPos = [var.MiddleX + var.Xloc, var.MiddleY + var.Yloc] //Position the DirectInput cursor based on what it has processed
End If
End If
mais comment on calibre la wiimote car la visée n´est pas tres precise la, il y a une mauvaise reaction, pas comme dans les jeux wii