Smooth FlyBehaviour for mojo3D

[coconParticipant]

I have made some simple changes to the mojo3D fly behaviour so it becomes more handy. It relies on Keyboard and Mouse combo and it tries to produce a smooth effect for movement and rotation. It will avoid mouse locking, so this means in order to rotate, the left mouse button needs to be pressed, also it features a hack I learnt from user “abakobo” that it supposed to handle AZERTY keyboards  as well (I am a QWERTY user so I don’t have a clue about this so if you test and see something weird about it, mention it). However it is not useful for mobile devices since the movement is done with keyboard, perhaps a future addition would be to detect either a desktop or mobile device, and if on mobile device it would get the movement vector from the left half of the screen and the rotation vector from the half right.

Monkey

Namespace mojo3d Class FlyBehaviour Extends Behaviour Method New( entity:Entity ) Super.New( entity ) End Method OnUpdate( elapsed:Float ) Override ' rotation If Mouse.ButtonPressed( MouseButton.Left ) screenStart = Mouse.Location End If Mouse.ButtonDown( MouseButton.Left ) Local vector:Vec2f = (screenStart - Mouse.Location) * 0.1 rotationX.Speed += -vector.Y * elapsed rotationY.Speed += vector.X * elapsed End rotationX.Update() rotationY.Update() Entity.RotateX(rotationX.Speed) Entity.RotateY(rotationY.Speed, True) ' position If Keyboard.KeyDown(Key.Raw|Key.A) Then moveX.MoveToNegative() If Keyboard.KeyDown(Key.Raw|Key.D) Then moveX.MoveToPositive() If Keyboard.KeyDown(Key.Raw|Key.Q) Then moveY.MoveToNegative() If Keyboard.KeyDown(Key.Raw|Key.E) Then moveY.MoveToPositive() If Keyboard.KeyDown(Key.Raw|Key.S) Then moveZ.MoveToNegative() If Keyboard.KeyDown(Key.Raw|Key.W) Then moveZ.MoveToPositive() moveX.Update() moveY.Update() moveZ.Update() Entity.MoveX(moveX.Speed) Entity.MoveY(moveY.Speed, True) Entity.MoveZ(moveZ.Speed) End Private Field screenStart := New Vec2i Field screenArea:Float = 200.0 Field rotationX := New ValueSpeed(0.0, 2.0) Field rotationY := New ValueSpeed(0.0, 2.0) Field moveX := New ValueSpeed(0.02, 2.0) Field moveY := New ValueSpeed(0.02, 2.0) Field moveZ := New ValueSpeed(0.02, 2.0) End Private Class ValueSpeed ' a simple contraption to handle values related to speed ' Speed = the actual value ' SpeedIncrement = increments "Speed" ' SpeedCooldown = multiplied with "Speed" to bring it down to zero ' SpeedClamp = it will clamp "Speed" to -x and x Field Speed:Float = 0.0 Field SpeedIncrement:Float Field SpeedCooldown:Float = 0.91 Field SpeedClamp:Float Method New(incrementSpeed:Float = 0.1, maxSpeed:Float = 2.0) SpeedIncrement = incrementSpeed SpeedClamp = maxSpeed End Method MoveToNegative() Speed -= SpeedIncrement End Method MoveToPositive() Speed += SpeedIncrement End Method Update() Speed = Clamp(Speed, -SpeedClamp, SpeedClamp) Speed *= SpeedCooldown End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

Namespace mojo3d   Class FlyBehaviour Extends Behaviour Method New( entity:Entity ) Super.New( entity )   End Method OnUpdate( elapsed:Float ) Override ' rotation If Mouse.ButtonPressed( MouseButton.Left ) screenStart = Mouse.Location End If Mouse.ButtonDown( MouseButton.Left ) Local vector:Vec2f = (screenStart - Mouse.Location) * 0.1 rotationX.Speed += -vector.Y * elapsed rotationY.Speed += vector.X * elapsed End rotationX.Update() rotationY.Update() Entity.RotateX(rotationX.Speed) Entity.RotateY(rotationY.Speed, True) ' position If Keyboard.KeyDown(Key.Raw|Key.A) Then moveX.MoveToNegative() If Keyboard.KeyDown(Key.Raw|Key.D) Then moveX.MoveToPositive() If Keyboard.KeyDown(Key.Raw|Key.Q) Then moveY.MoveToNegative() If Keyboard.KeyDown(Key.Raw|Key.E) Then moveY.MoveToPositive() If Keyboard.KeyDown(Key.Raw|Key.S) Then moveZ.MoveToNegative() If Keyboard.KeyDown(Key.Raw|Key.W) Then moveZ.MoveToPositive() moveX.Update() moveY.Update() moveZ.Update() Entity.MoveX(moveX.Speed) Entity.MoveY(moveY.Speed, True) Entity.MoveZ(moveZ.Speed) End   Private Field screenStart := New Vec2i Field screenArea:Float = 200.0 Field rotationX := New ValueSpeed(0.0, 2.0) Field rotationY := New ValueSpeed(0.0, 2.0) Field moveX := New ValueSpeed(0.02, 2.0) Field moveY := New ValueSpeed(0.02, 2.0) Field moveZ := New ValueSpeed(0.02, 2.0) End   Private Class ValueSpeed ' a simple contraption to handle values related to speed   ' Speed = the actual value ' SpeedIncrement = increments "Speed" ' SpeedCooldown = multiplied with "Speed" to bring it down to zero ' SpeedClamp = it will clamp "Speed" to -x and x Field Speed:Float = 0.0   Field SpeedIncrement:Float Field SpeedCooldown:Float = 0.91 Field SpeedClamp:Float Method New(incrementSpeed:Float = 0.1, maxSpeed:Float = 2.0) SpeedIncrement = incrementSpeed SpeedClamp = maxSpeed End Method MoveToNegative() Speed -= SpeedIncrement End Method MoveToPositive() Speed += SpeedIncrement End Method Update() Speed = Clamp(Speed, -SpeedClamp, SpeedClamp) Speed *= SpeedCooldown End End

[Author]

Posts