Keycodes

[AdamStrangeParticipant]

OK here’s what I want:

field KeyPress:int

a variable say KeyPress that equals Key.X

and can then be redefined

E.G.

KeyPress = Key.Z

[JesseParticipant]

can’t you do this for now?:
Field keyPress := Key.X
later
keyPress = Key.Z

[abakoboParticipant]

Keys are Enums of type Key.

They are defined in mojo/input/keycodes.monkey2

you just have to

Monkey

[crayon-5cba87d98913f681457901 inline="true" ] Field keyPress:Key

1 2 3

[crayon-5cba87d98913f681457901 inline="true" ] Field keyPress:Key

[/crayon]

and then you can (or just do as Jesse wrote)

Monkey

[crayon-5cba87d989145199668506 inline="true" ] keyPress=Key.X

1 2 3

[crayon-5cba87d989145199668506 inline="true" ] keyPress=Key.X

[/crayon]

you may also

Monkey

[crayon-5cba87d98915a076342500 inline="true" ] Field i:int=Key.X

1 2 3

[crayon-5cba87d98915a076342500 inline="true" ] Field i:int=Key.X

[/crayon]

But you’ll lose it’s Enums properties (mainly the ability to |Key.Raw in this case, wich sould ALWAYS be used for WASD type controls IMO). And you wont be able to reconvert it to the ‘Key’ type easily.

If it’s of the ‘Key’ type you’ll be able to
`keyPressed=keyPressed.Y’
wich can be usefull if you call your keyPressed just k for example.

[AdamStrangeParticipant]

all great but not quite what I was looking for. ;/

but found a solution:

Monkey

Select int(event.Key) Case Key.Escape Case _keyX

1 2 3 4

Select int(event.Key)   Case Key.Escape   Case _keyX

using the int allowed me to do what I wanted in the OnMouseEvent

and (yep using a hidden command – thanks Mark)

Monkey

If Keyboard.KeyDown( Keyboard.KeyCodeToKey( _keyStrafeLeft ) ) Then

1 2	If Keyboard.KeyDown( Keyboard.KeyCodeToKey( _keyStrafeLeft ) ) Then

This was I can redefine the keys (properly IMHO) as ints that can come from external sources and controls

[abakoboParticipant]

I don’t really get what you’re trying to do here but I know you don’t have to be warned that hidden functionalities are subject to change..

[AdamStrangeParticipant]

thats what I was trying to do:

a screen where I could change the keybindings

the controls return the key being winded as an int

Attachments:

1. 

   Screen-Shot-2017-06-12-at-10.26.53.png
   

[abakoboParticipant]

using the int allowed me to do what I wanted in the OnMouseEvent

I don’t undestand why you want to mix mouse events and key events… or you meant OnKeyEvent?
You want the player to be able to chose between mouse or key controls?

[AdamStrangeParticipant]

My bad – should have been OnKeyEvent ;[

It’s a simple rebinding screen. but it’s not simple to actually do it

[JesseParticipant]

can’t you cast it to an integer? I think that’s what I did to one of my games.

[AdamStrangeParticipant]

yep I think that’s what the hidden command is doing as well (casting that is)

[impixiParticipant]

This is the way I’m currently doing it:

1. Enumerate the in-game commands that are assignable to keys:

Monkey

[crayon-5cba87d99b6b4232770497 inline="true" ] Enum Command ExitGame = 0 MoveForward MoveBack StrafeLeft StrafeRight Jump RaiseStance LowerStance SpeedFast SpeedSlow Interact Length End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

[crayon-5cba87d99b6b4232770497 inline="true" ] Enum Command ExitGame = 0 MoveForward MoveBack StrafeLeft StrafeRight Jump RaiseStance LowerStance   SpeedFast SpeedSlow   Interact   Length End

[/crayon]

2. Store and initialise the keybindings in a global Key array:

Monkey

[crayon-5cba87d99b6ba278559967 inline="true" ]Global KeyBindings := New Key[Command.Length] Function InitBindings() KeyBindings[Command.ExitGame] = Key.Escape KeyBindings[Command.MoveForward] = Key.W | Key.Raw KeyBindings[Command.MoveBack] = Key.S | Key.Raw KeyBindings[Command.StrafeLeft] = Key.A | Key.Raw KeyBindings[Command.StrafeRight] = Key.D | Key.Raw KeyBindings[Command.Interact] = Key.E | Key.Raw KeyBindings[Command.SpeedFast] = Key.LeftShift | Key.Raw KeyBindings[Command.SpeedSlow] = Key.LeftControl | Key.Raw End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

[crayon-5cba87d99b6ba278559967 inline="true" ]Global KeyBindings := New Key[Command.Length]   Function InitBindings()   KeyBindings[Command.ExitGame] = Key.Escape KeyBindings[Command.MoveForward] = Key.W | Key.Raw KeyBindings[Command.MoveBack] = Key.S | Key.Raw KeyBindings[Command.StrafeLeft] = Key.A | Key.Raw KeyBindings[Command.StrafeRight] = Key.D | Key.Raw KeyBindings[Command.Interact] = Key.E | Key.Raw KeyBindings[Command.SpeedFast] = Key.LeftShift | Key.Raw KeyBindings[Command.SpeedSlow] = Key.LeftControl | Key.Raw   End

[/crayon]

3. Check for the bounded keys during the game’s update call:

Monkey

[crayon-5cba87d99b6bf078123029 inline="true" ]Method OnUpdate:Void() '... Local velocity := 0.2 If Keyboard.KeyDown(KeyBindings[Command.SpeedFast]) velocity = 1.0 Elseif Keyboard.KeyDown(KeyBindings[Command.SpeedSlow]) velocity = 0.05 Endif If Keyboard.KeyDown(KeyBindings[Command.ExitGame]) App.Terminate() Elseif Keyboard.KeyDown(KeyBindings[Command.MoveForward]) _camera.MoveZ(velocity) Elseif Keyboard.KeyDown(KeyBindings[Command.MoveBack]) _camera.MoveZ(-velocity) Elseif Keyboard.KeyDown(KeyBindings[Command.StrafeLeft]) _camera.MoveX(-velocity) Elseif Keyboard.KeyDown(KeyBindings[Command.StrafeRight]) _camera.MoveX(velocity) Endif '... _mouseLook.Update() 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

[crayon-5cba87d99b6bf078123029 inline="true" ]Method OnUpdate:Void() '... Local velocity := 0.2 If Keyboard.KeyDown(KeyBindings[Command.SpeedFast]) velocity = 1.0 Elseif Keyboard.KeyDown(KeyBindings[Command.SpeedSlow]) velocity = 0.05 Endif   If Keyboard.KeyDown(KeyBindings[Command.ExitGame]) App.Terminate() Elseif Keyboard.KeyDown(KeyBindings[Command.MoveForward]) _camera.MoveZ(velocity) Elseif Keyboard.KeyDown(KeyBindings[Command.MoveBack]) _camera.MoveZ(-velocity) Elseif Keyboard.KeyDown(KeyBindings[Command.StrafeLeft]) _camera.MoveX(-velocity) Elseif Keyboard.KeyDown(KeyBindings[Command.StrafeRight]) _camera.MoveX(velocity) Endif '... _mouseLook.Update()   End

[/crayon]

The hope is it will make it easy to add a key-rebinding screen (as you’re wanting to do)…

I’ll probably encapsulate the behaviour in a class but the fundamentals are there…

[Mark SiblyKeymaster]

I like it Impixi. Actually, I’ve been thinking about doing something similar on and off for ages – very ‘top of my head’ code follows…

 

Monkey

Enum GameButton 'or just 'Button'? Up Down Left Right Fire1 Fire2 Etc End Class GameController 'or 'GamePad'? Method ButtonDown( button:GameButton ) Virtual Method Joyx:Float() Virtual Method Joyy:Float() Virtual ...etc...more 'useful' gamecontroller stuff. End Class KeyboardController Extends GameController Method ButtonDown:Bool( button:GameButton ) Override Return Keyboard.KeyDown( _unmap[button] ) End 'Customize... Method MapKeyToButton( key:Key,button:GameButton ) _map[key]=button _unmap[button]=key End 'Some stock mappings... Function WASDController:KeyboardController() Function IJKLController:KeyboardController() Function NumpadController:KeyboardController() Function ArrowKeysController:KeyboardControler() End Class JoystickController Extends GameController '...etc... 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

Enum GameButton     'or just 'Button'? Up Down Left Right Fire1 Fire2 Etc End   Class GameController    'or 'GamePad'? Method ButtonDown( button:GameButton ) Virtual Method Joyx:Float() Virtual Method Joyy:Float() Virtual   ...etc...more 'useful' gamecontroller stuff.   End   Class KeyboardController Extends GameController Method ButtonDown:Bool( button:GameButton ) Override Return Keyboard.KeyDown( _unmap[button] ) End 'Customize... Method MapKeyToButton( key:Key,button:GameButton ) _map[key]=button _unmap[button]=key End   'Some stock mappings... Function WASDController:KeyboardController()   Function IJKLController:KeyboardController()   Function NumpadController:KeyboardController()   Function ArrowKeysController:KeyboardControler() End   Class JoystickController Extends GameController   '...etc... End

The basic idea being your code would only really have to deal with GameControllers and GameButtons.

Possibly a bit ‘high level’ for monkey2? Or not?

[impixiParticipant]

@Mark Sibly:

Yes, nice idea, and probably the way it “should” be done.

Possibly a bit ‘high level’ for monkey2? Or not?

Not at all: extra functionality is always welcome. But don’t spread yourself too thin: you have enough to do already!

[abakoboParticipant]

Like impixi, it’s welcome but can be part of 3rd party framework too. You probably have more interresting things to achieve.
But it would be nice if the KeyboardDevice (and others InputDevices) had a ‘Last(pressed)Button’ method in order to make controls setupscreen without the need of the OnKeyEvent method override (or other On(INPUT)Event)

I made a little controls setup demo (without the use of ints, only Key) to show it. In the case I missed something.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Global w_width:=600 'initial window size Global w_height:=100 Class CtrlsOptions Extends Window 'control Keys Field kUp:Key=Key.Up Field kDown:Key=Key.Down Field kLeft:Key=Key.Left Field kRight:Key=Key.Right Field kBoost:Key=Key.LeftShift 'cycle fields Field lastKey:=Key.None Field screen:="Game" Field optionStep:=0 Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) End Method OnKeyEvent( event:KeyEvent ) Override lastKey=event.Key End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("F1 for game screen / F2 for Ctrls Setup screen",10,15) If Keyboard.KeyPressed(Key.F1) Then screen="Game" If Keyboard.KeyPressed(Key.F2) Then screen="Options" Select screen Case "Game" canvas.DrawText("Game",10,35) If Keyboard.KeyDown(kUp) Then canvas.DrawText("Up",400,40) If Keyboard.KeyDown(kDown) Then canvas.DrawText("Down",400,60) If Keyboard.KeyDown(kLeft) Then canvas.DrawText("Left",350,50) If Keyboard.KeyDown(kRight) Then canvas.DrawText("Right",450,50) If Keyboard.KeyDown(kBoost) Then canvas.DrawText("!Boost!",520,50) Case "Options" canvas.DrawText("Options",10,35) Select optionStep Case 0 canvas.DrawText("Press the new up button",200,60) If lastKey<>Key.F2 And lastKey<>Key.F1 kUp=lastKey optionStep+=1 End Case 1 canvas.DrawText("Press the new down button",200,60) If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp kDown=lastKey optionStep+=1 End Case 2 canvas.DrawText("Press the new Left button",200,60) If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp And lastKey<>kDown kLeft=lastKey optionStep+=1 End Case 3 canvas.DrawText("Press the new Right button",200,60) If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp And lastKey<>kDown And lastKey<>kLeft kRight=lastKey optionStep+=1 End Case 4 canvas.DrawText("Press the new Boost button",200,60) If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp And lastKey<>kDown And lastKey<>kLeft And lastKey<>kRight kBoost=lastKey optionStep=0 screen="Game" End End End End End Function Main() New AppInstance New CtrlsOptions( "Ctrls",w_width,w_height ) App.Run() 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 91 92 93 94

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Global w_width:=600 'initial window size Global w_height:=100   Class CtrlsOptions Extends Window     'control Keys Field kUp:Key=Key.Up Field kDown:Key=Key.Down Field kLeft:Key=Key.Left Field kRight:Key=Key.Right Field kBoost:Key=Key.LeftShift 'cycle fields Field lastKey:=Key.None Field screen:="Game" Field optionStep:=0 Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags ) End Method OnKeyEvent( event:KeyEvent ) Override lastKey=event.Key End Method   Method OnRender( canvas:Canvas ) Override App.RequestRender()       canvas.DrawText("F1 for game screen / F2 for Ctrls Setup screen",10,15)          If Keyboard.KeyPressed(Key.F1) Then screen="Game"     If Keyboard.KeyPressed(Key.F2) Then screen="Options"          Select screen      Case "Game"      canvas.DrawText("Game",10,35)    If Keyboard.KeyDown(kUp) Then canvas.DrawText("Up",400,40)      If Keyboard.KeyDown(kDown) Then canvas.DrawText("Down",400,60)      If Keyboard.KeyDown(kLeft) Then canvas.DrawText("Left",350,50)      If Keyboard.KeyDown(kRight) Then canvas.DrawText("Right",450,50)      If Keyboard.KeyDown(kBoost) Then canvas.DrawText("!Boost!",520,50)      Case "Options"      canvas.DrawText("Options",10,35)      Select optionStep      Case 0      canvas.DrawText("Press the new up button",200,60)      If lastKey<>Key.F2 And lastKey<>Key.F1      kUp=lastKey      optionStep+=1      End      Case 1      canvas.DrawText("Press the new down button",200,60)      If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp      kDown=lastKey      optionStep+=1      End      Case 2      canvas.DrawText("Press the new Left button",200,60)      If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp And lastKey<>kDown      kLeft=lastKey      optionStep+=1      End      Case 3      canvas.DrawText("Press the new Right button",200,60)      If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp And lastKey<>kDown And lastKey<>kLeft      kRight=lastKey      optionStep+=1      End      Case 4      canvas.DrawText("Press the new Boost button",200,60)      If lastKey<>Key.F2 And lastKey<>Key.F1 And lastKey<>kUp And lastKey<>kDown And lastKey<>kLeft And lastKey<>kRight      kBoost=lastKey      optionStep=0      screen="Game"      End      End      End End End   Function Main() New AppInstance New CtrlsOptions( "Ctrls",w_width,w_height ) App.Run() End

[Author]

Posts