WASD camera control with mouse look

[EthernautParticipant]

Since last time I did something 2D in Mojo3D Mark yelled at me (just kidding! We love you Mark), here’s something more proper for 3D. After years (decades?) playing first person games, I really don’t like the “util.Fly” camera controls that’s in every Mojo3D example, so I made my own function that uses a control scheme more familiar to that sort of game.

You can make a module out of it and it becomes really easy to Import and use. There’s one function you call at the start, and one that you call on every frame, with optional delta frame support (use delta = 1.0 for “normal” speed. I don’t like “millisecs based delta” ).

If you use touchStyle = true, it seems more appropriate for touch screens, since you have to tap (click) then drag, and the camera pan&tilt follows the same direction of the drag. But I haven’t tested it on a touch based device, so feedback is welcome.

Use example: in the Mojo3D examples, import this file and replace any line that says:
util.Fly( _camera, Self )
With:
WasdCameraControl( _camera, Self, 1.0 )

Default Keys:
W,S – Move forward and back
A,D – Strafe left and right
R, F – Up and Down
Shift – Move faster modifier
Control – Move slower modifier
Mouse to look around

Still has some kinks, like losing track of the mouse if you switch to a different window and come back, or if you start the app with the mouse cursor outside the window. But it seems to work great if the app is fullscreen, so there you go:

Monkey

Namespace util #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. 'Works better in full screen! In windowed mode the mouse cursor seems to be "lost" sometimes 'Call WASDInit a single time on start, then WASDCameraControl on every frame. 'The default values work well with delta = 1.0. Adjust if your delta is counted in seconds instead. Function WasdInit( window:Window, showMouse:Bool = False ) Mouse.Location = New Vec2i( window.Width / 2, window.Height / 2 ) Mouse.PointerVisible = showMouse End Function WasdCameraControl( cam:Entity, window:Window, delta:Double = 1.0, touchStyle:Bool = False ,walkSpeed:Float = 0.1, mouseLookSpeed:Float = 0.2 ) Global prevMouse:= New Vec2f( Float( Mouse.X ), Float( Mouse.Y ) ) Global finalWalkSpeed:Float If App.ActiveWindow If Keyboard.KeyDown( Key.LeftShift ) Or Keyboard.KeyDown( Key.RightShift ) finalWalkSpeed = ( 3.0 * walkSpeed ) * delta ElseIf Keyboard.KeyDown( Key.LeftControl ) Or Keyboard.KeyDown( Key.RightControl ) finalWalkSpeed = ( walkSpeed / 3.0 ) * delta Else finalWalkSpeed = walkSpeed * delta End If Keyboard.KeyDown( Key.W ) Or Keyboard.KeyDown( Key.Up ) cam.MoveZ( finalWalkSpeed ) ElseIf Keyboard.KeyDown( Key.S ) Or Keyboard.KeyDown( Key.Down ) cam.MoveZ( -finalWalkSpeed ) End If Keyboard.KeyDown( Key.A ) Or Keyboard.KeyDown( Key.Left ) cam.MoveX( -finalWalkSpeed ) ElseIf Keyboard.KeyDown( Key.D ) Or Keyboard.KeyDown( Key.Right ) cam.MoveX( finalWalkSpeed ) End If Keyboard.KeyDown( Key.R ) cam.MoveY( finalWalkSpeed ) ElseIf Keyboard.KeyDown( Key.F ) cam.MoveY( -finalWalkSpeed ) End If touchStyle If Mouse.ButtonHit( MouseButton.Left ) prevMouse = New Vec2f( Float( Mouse.X ), Float( Mouse.Y ) ) End If Mouse.ButtonDown( MouseButton.Left ) prevMouse = MouseLook( cam, window, prevMouse, mouseLookSpeed/2.0 ) End Else prevMouse = MouseLook( cam, window, prevMouse, -mouseLookSpeed ) 'limits mouse to center of screen to prevent losing it out of the window Local threshold := window.Height / 10 Local center := New Vec2i( window.Width/2, window.Height/2 ) Local limit := New Recti( center.X - threshold, center.Y - threshold, center.X + threshold, center.Y + threshold ) If Mouse.X < limit.Left Or Mouse.X > limit.Right Or Mouse.Y < limit.Top Or Mouse.Y > limit.Bottom Mouse.Location = New Vec2i( center.X, center.Y ) prevMouse = Mouse.Location End End End End Private Function MouseLook:Vec2f( ent:Entity, window:Window, prevMouse:Vec2f, speed:Float ) Local diff:= New Vec2f( Mouse.X - prevMouse.X, prevMouse.Y - Mouse.Y ) If Abs( diff.X ) > 0 ent.RotateY( diff.X * speed, False ) prevMouse.X = Mouse.X End If Abs( diff.Y ) > 0 ent.RotateX( diff.Y * speed, False ) prevMouse.Y = Mouse.Y End ent.LocalRotation = New Vec3f( ent.LocalRx, ent.LocalRy, 0 ) Return prevMouse 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 90

Namespace util   #Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d..   'Works better in full screen! In windowed mode the mouse cursor seems to be "lost" sometimes 'Call WASDInit a single time on start, then WASDCameraControl on every frame. 'The default values work well with delta = 1.0. Adjust if your delta is counted in seconds instead.     Function WasdInit( window:Window, showMouse:Bool = False ) Mouse.Location = New Vec2i( window.Width / 2, window.Height / 2 ) Mouse.PointerVisible = showMouse End     Function WasdCameraControl( cam:Entity, window:Window, delta:Double = 1.0, touchStyle:Bool = False ,walkSpeed:Float = 0.1, mouseLookSpeed:Float = 0.2 ) Global prevMouse:= New Vec2f( Float( Mouse.X ), Float( Mouse.Y ) ) Global finalWalkSpeed:Float If App.ActiveWindow If Keyboard.KeyDown( Key.LeftShift ) Or Keyboard.KeyDown( Key.RightShift ) finalWalkSpeed = ( 3.0 * walkSpeed ) * delta ElseIf Keyboard.KeyDown( Key.LeftControl ) Or Keyboard.KeyDown( Key.RightControl ) finalWalkSpeed = ( walkSpeed / 3.0 ) * delta Else finalWalkSpeed = walkSpeed * delta End If Keyboard.KeyDown( Key.W ) Or Keyboard.KeyDown( Key.Up ) cam.MoveZ( finalWalkSpeed ) ElseIf Keyboard.KeyDown( Key.S ) Or Keyboard.KeyDown( Key.Down ) cam.MoveZ( -finalWalkSpeed ) End If Keyboard.KeyDown( Key.A ) Or Keyboard.KeyDown( Key.Left ) cam.MoveX( -finalWalkSpeed ) ElseIf Keyboard.KeyDown( Key.D ) Or Keyboard.KeyDown( Key.Right ) cam.MoveX( finalWalkSpeed ) End If Keyboard.KeyDown( Key.R ) cam.MoveY( finalWalkSpeed ) ElseIf Keyboard.KeyDown( Key.F ) cam.MoveY( -finalWalkSpeed ) End If touchStyle If Mouse.ButtonHit( MouseButton.Left ) prevMouse = New Vec2f( Float( Mouse.X ), Float( Mouse.Y ) ) End If Mouse.ButtonDown( MouseButton.Left ) prevMouse = MouseLook( cam, window, prevMouse, mouseLookSpeed/2.0 ) End Else prevMouse = MouseLook( cam, window, prevMouse, -mouseLookSpeed ) 'limits mouse to center of screen to prevent losing it out of the window Local threshold := window.Height / 10 Local center := New Vec2i( window.Width/2, window.Height/2 ) Local limit := New Recti( center.X - threshold, center.Y - threshold, center.X + threshold, center.Y + threshold ) If Mouse.X < limit.Left Or Mouse.X > limit.Right Or Mouse.Y < limit.Top Or Mouse.Y > limit.Bottom Mouse.Location = New Vec2i( center.X, center.Y ) prevMouse = Mouse.Location End End End End     Private Function MouseLook:Vec2f( ent:Entity, window:Window, prevMouse:Vec2f, speed:Float ) Local diff:= New Vec2f( Mouse.X - prevMouse.X, prevMouse.Y - Mouse.Y ) If Abs( diff.X ) > 0 ent.RotateY( diff.X * speed, False ) prevMouse.X = Mouse.X End If Abs( diff.Y ) > 0 ent.RotateX( diff.Y * speed, False ) prevMouse.Y = Mouse.Y End ent.LocalRotation = New Vec3f( ent.LocalRx, ent.LocalRy, 0 ) Return prevMouse End

Cheers!

[Author]

Posts