Control Manager

[AnatolParticipant]

I created a simple yet very flexible class to deal with controls, it can best be described as, “when a certain condition is met then perform an action”.

I’m using it for user controls, e.g. when you touch the screen or press a key or rotate the device, then do something to the player sprite, etc. But it’s not limited to user input, it works for any type of condition.

It’s basically just stuff you would otherwise put into the OnRender loop, which works just the same, but I prefer to have these conditions and commands packaged in one place. Plus, you add every control with a reference key, so you can then disable and enable the these controls easily. Again, nothing you couldn’t do in the OnRender loop, but I find this approach a bit cleaner. I’m using it with Lambda functions, but could be done otherwise as well.

Monkey

Class Control Field Condition:Bool() Field Callback:Void() Field Enabled:Bool = True End Class ControlManager Field Controls := New Map<String,Control> Method Add ( key:String, condition:Bool(), callback:Void() ) Local control := New Control() control.Condition = condition control.Callback = callback Controls.Add( key, control ) End Method Remove ( key:String ) Controls.Remove( key ) End Method Disable ( key:String ) Controls.Get( key ).Enabled = False End Method Enable ( key:String ) Controls.Get( key ).Enabled = True End Method DisableAll () For Local key := Eachin Controls.Keys Disable( key ) Next End Method EnableAll () For Local key := Eachin Controls.Keys Enable( key ) Next End Method OnUpdate () For Local control := Eachin Controls.Values If control.Enabled And control.Condition() control.Callback() End Next 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

Class Control Field Condition:Bool() Field Callback:Void() Field Enabled:Bool = True End     Class ControlManager Field Controls := New Map<String,Control> Method Add ( key:String, condition:Bool(), callback:Void() ) Local control := New Control() control.Condition = condition control.Callback = callback Controls.Add( key, control ) End Method Remove ( key:String ) Controls.Remove( key ) End Method Disable ( key:String ) Controls.Get( key ).Enabled = False End Method Enable ( key:String ) Controls.Get( key ).Enabled = True End Method DisableAll () For Local key := Eachin Controls.Keys Disable( key ) Next End Method EnableAll () For Local key := Eachin Controls.Keys Enable( key ) Next End Method OnUpdate () For Local control := Eachin Controls.Values If control.Enabled And control.Condition() control.Callback() End Next End End

Just create an instance, …

Monkey

ControlManager = New ControlManager()

1	ControlManager = New ControlManager()

… add controls …

Monkey

' condition Local rightArrowKeyDown := Lambda:Bool () Return Keyboard.KeyDown( Key.Right ) End ' callback (action) Local spriteRotateRight := Lambda () MySprite.Rotation += 0.05 End ' add the control ControlManager.Add( "rightArrowKeyDown", rightArrowKeyDown, spriteRotateRight )

1 2 3 4 5 6 7 8 9 10 11 12

' condition Local rightArrowKeyDown := Lambda:Bool () Return Keyboard.KeyDown( Key.Right ) End   ' callback (action) Local spriteRotateRight := Lambda () MySprite.Rotation += 0.05 End   ' add the control ControlManager.Add( "rightArrowKeyDown", rightArrowKeyDown, spriteRotateRight )

… and call …

Monkey

ControlManager.OnUpdate()

1	ControlManager.OnUpdate()

… in the OnRender loop.

If you want to disable the control/s later you just do

Monkey

ControlManager.Disable( "rightArrowKeyDown" )

1	ControlManager.Disable( "rightArrowKeyDown" )

for a specific control or for all

Monkey

ControlManager.DisableAll()

1	ControlManager.DisableAll()

and then enable them in the same way.

Here’s a demo with various control examples: https://github.com/anatolbogun/monkey2-utils/blob/master/demos/control_manager_demo/main.monkey2#L61-L121

[regularkParticipant]

Very nice, thanks for sharing Anatol.

[Author]

Posts