Simple cheat code class (My first attempt at using Monkey2!)

[jondecker76Participant]

I wanted to get a small start playing with Monkey2, so I thought I would build something simple but fun. I made a quick class to implement simple sequential cheat codes, and whipped up a quick demo of the old NES Contra cheat (Up, Up, Down, Down, Left, Right, Left, Right, B, A, B, A, Enter)

I’m still learning all of these new features, so please chime in if you see something that could have been done more efficiently.

Issues:
No real issues, only keyboard is supported right now. I would like to get away from using the event system for checking keyboard input, but I haven’t found an elegant way to check that A) a key was pressed and B) which key it was – so for now until I figure it out, the OnKeyEvent will have to do..

Plans:
I do plan on making this a full-fledged module that supports Keyboard, Joystick, Mouse Buttons and even other sequences as individual strokes (so that sequences can be chained or share a common base)

Anyways, give it a try and see what you think

Monkey

Namespace CheatSequence #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. ' ------------------------------------------------------------------------------------------------------------------ ' SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ ' We will define some constants Enum Stroke key = 1 joy = 2 End Class CheatSequence Public Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> End ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method ' The update method should be called any time a key is pressed ' The OnKeyEvent is recommended ' TODO: Add joystick and mouse support Method Update(thisKey:Int) If strokes.Get(strokeCounter).strokeType=Stroke.key And strokes.Get(strokeCounter).strokeValue=thisKey Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif End Method ' Check to see if the cheat is successful ' This should be called each iteration through the game loop Method Success:Bool() ' We can't be successful if we timed out, lets handle that first If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else 'If we've made it this far, lets see if we got it! If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Endif Return False End End ' Store a cheat stroke. This includes the kind of stroke (keyboard, joystick, etc..) ' the value of the stroke (whick key or button) Class SequenceStroke Field strokeType:Int Field strokeValue:Int Method New(thisStrokeType:Int,thisStrokeValue:Int) strokeType=thisStrokeType strokeValue=thisStrokeValue End End ' ------------------------------------------------------------------------------------------------------------------ ' END SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ Class MyWindow Extends Window Field contraCheat:CheatSequence Field lives:Int Method New() Super.New( "Cheat Code Test",640,480,WindowFlags.Fullscreen ) lives=3 contraCheat= New CheatSequence(1000) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.Enter) End Method OnRender( canvas:Canvas ) Override If contraCheat.Success() ' Check to see if our cheat was successful lives+=30 Endif Local delta:=Millisecs() - contraCheat.lastStrokeTimestamp canvas.Color=Color.Gold canvas.DrawText("Lives: " + lives,App.ActiveWindow.Width/2 ,App.ActiveWindow.Height/2) canvas.Color=Color.White canvas.DrawText("Try the cheat! UUDDLRLRBABA<Enter>",4,App.ActiveWindow.Height-95) canvas.DrawText("Timer: " + delta,4,App.ActiveWindow.Height-55) canvas.DrawText("numStokes: " + contraCheat.numStrokes,4,App.ActiveWindow.Height-40) canvas.DrawText("strokeCounter : " + contraCheat.strokeCounter,4,App.ActiveWindow.Height-25) App.RequestRender() End Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown If ( event.Key=Key.Escape ) Then App.Terminate() contraCheat.Update(event.Key) ' Update the cheat sequence any time a key is pressed End End End Function Main() New AppInstance New MyWindow 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 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147

Namespace CheatSequence   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..     ' ------------------------------------------------------------------------------------------------------------------ ' SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ ' We will define some constants Enum Stroke key = 1 joy = 2 End   Class CheatSequence Public Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> End ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method ' The update method should be called any time a key is pressed ' The OnKeyEvent is recommended ' TODO: Add joystick and mouse support Method Update(thisKey:Int) If strokes.Get(strokeCounter).strokeType=Stroke.key And strokes.Get(strokeCounter).strokeValue=thisKey Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif End Method ' Check to see if the cheat is successful ' This should be called each iteration through the game loop Method Success:Bool() ' We can't be successful if we timed out, lets handle that first If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else 'If we've made it this far, lets see if we got it! If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Endif Return False End End   ' Store a cheat stroke.  This includes the kind of stroke (keyboard, joystick, etc..) ' the value of the stroke (whick key or button) Class SequenceStroke Field strokeType:Int Field strokeValue:Int Method New(thisStrokeType:Int,thisStrokeValue:Int) strokeType=thisStrokeType strokeValue=thisStrokeValue End End ' ------------------------------------------------------------------------------------------------------------------ ' END SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------       Class MyWindow Extends Window Field contraCheat:CheatSequence Field lives:Int Method New() Super.New( "Cheat Code Test",640,480,WindowFlags.Fullscreen ) lives=3 contraCheat= New CheatSequence(1000) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.Enter) End Method OnRender( canvas:Canvas ) Override If contraCheat.Success() ' Check to see if our cheat was successful lives+=30 Endif Local delta:=Millisecs() - contraCheat.lastStrokeTimestamp canvas.Color=Color.Gold canvas.DrawText("Lives: " + lives,App.ActiveWindow.Width/2 ,App.ActiveWindow.Height/2) canvas.Color=Color.White canvas.DrawText("Try the cheat! UUDDLRLRBABA<Enter>",4,App.ActiveWindow.Height-95) canvas.DrawText("Timer: " + delta,4,App.ActiveWindow.Height-55) canvas.DrawText("numStokes:      " + contraCheat.numStrokes,4,App.ActiveWindow.Height-40) canvas.DrawText("strokeCounter : " + contraCheat.strokeCounter,4,App.ActiveWindow.Height-25) App.RequestRender() End Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown If ( event.Key=Key.Escape ) Then App.Terminate() contraCheat.Update(event.Key) ' Update the cheat sequence any time a key is pressed End End End   Function Main() New AppInstance New MyWindow App.Run() End

[nerobotParticipant]

A few notes:

• There is App.KeyEventFilter event you can subscribing to instead of OnKeyEvent – it allow us grab events outside of View class hierarchy
• You can also provide method AddStrokes( strokeType:Int,strokeValues:Int[] ) so that we can add sequences simplier way passing array.

[jondecker76Participant]

Thanks for the tips nerobot

I implemented the AddStrokes method, and you’re right – it’s much cleaner for usage

I’m lost on the App.KeyEventFilter though… There is no real documentation, and looking at the source has me scratching my head. It’s a field, but has a void return type?? And parameters? Wouldn’t that make it a method instead of a field? So confusing! I also looked at event.monkey2 and was left equally confused. There’s so much I have to learn about Monkey 2

[nerobotParticipant]

I’m lost on the App.KeyEventFilter though… There is no real documentation, and looking at the source has me scratching my head. It’s a field, but has a void return type?? And parameters? Wouldn’t that make it a method instead of a field? So confusing!

It is called “First class functions”, it’s a reference to a function/method stored in a variable.

It uses for signals, like KeyEventFilter, and you can to subscribe to it via += operator.

Monkey

App.KeyEventFilter  += YourMethodWithTheSameSignatureAsKeyEventFilter

1	App.KeyEventFilter  += YourMethodWithTheSameSignatureAsKeyEventFilter

or

Monkey

App.KeyEventFilter  += Lambda() ' lambda also with the same signature ' you code here End

1 2 3 4 5

App.KeyEventFilter  += Lambda() ' lambda also with the same signature   ' you code here   End

And there is my variant of your class (with comments):

Monkey

Class CheatSequence Field OnSuccess:Void() 'signal for completing this sequence Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> Enabled=True ' enable by default End ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method Property Enabled:Bool() Return _enabled Setter( value:Bool ) If value=_enabled Return _enabled=value If _enabled App.KeyEventFilter+=KeyFilter ' subscribe to filter Else App.KeyEventFilter-=KeyFilter ' unsubscribe from filter Endif End Private Field _enabled:Bool ' our key filtering function Method KeyFilter( event:KeyEvent ) ' just pass event key into update Update( event.Key ) ' and check does a user finish the sequence Local ok:=Success() If ok OnSuccess() ' and emit event if success Endif End ' The update method should be called any time a key is pressed ' The OnKeyEvent is recommended ' TODO: Add joystick and mouse support Method Update(thisKey:Int) If strokes.Get(strokeCounter).strokeType=Stroke.key And strokes.Get(strokeCounter).strokeValue=thisKey Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif End Method ' Check to see if the cheat is successful ' This should be called each iteration through the game loop Method Success:Bool() ' We can't be successful if we timed out, lets handle that first If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else 'If we've made it this far, lets see if we got it! If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Endif Return False 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

Class CheatSequence Field OnSuccess:Void() 'signal for completing this sequence Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> Enabled=True ' enable by default End ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method Property Enabled:Bool() Return _enabled Setter( value:Bool ) If value=_enabled Return _enabled=value If _enabled App.KeyEventFilter+=KeyFilter ' subscribe to filter Else App.KeyEventFilter-=KeyFilter ' unsubscribe from filter Endif End Private Field _enabled:Bool ' our key filtering function Method KeyFilter( event:KeyEvent ) ' just pass event key into update Update( event.Key ) ' and check does a user finish the sequence Local ok:=Success() If ok OnSuccess() ' and emit event if success Endif End ' The update method should be called any time a key is pressed ' The OnKeyEvent is recommended ' TODO: Add joystick and mouse support Method Update(thisKey:Int) If strokes.Get(strokeCounter).strokeType=Stroke.key And strokes.Get(strokeCounter).strokeValue=thisKey Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif End Method ' Check to see if the cheat is successful ' This should be called each iteration through the game loop Method Success:Bool() ' We can't be successful if we timed out, lets handle that first If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else 'If we've made it this far, lets see if we got it! If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Endif Return False End End

As you can see I added OnSuccess signal that will be emitted right after user press key that finished the sequence.

To use this signal you should to subscribe to it, somewhere you create the sequence – inside of MyWindow::New() in your case:

Monkey

Method New() Super.New( "Cheat Code Test",640,480,WindowFlags.Fullscreen ) lives=3 contraCheat= New CheatSequence(1000) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.Enter) ' subscribe contraCheat.OnSuccess+=Lambda() lives+=30 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

Method New() Super.New( "Cheat Code Test",640,480,WindowFlags.Fullscreen ) lives=3 contraCheat= New CheatSequence(1000) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Up) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Down) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.Left) contraCheat.AddStroke(Stroke.key,Key.Right) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.B) contraCheat.AddStroke(Stroke.key,Key.A) contraCheat.AddStroke(Stroke.key,Key.Enter) ' subscribe contraCheat.OnSuccess+=Lambda() lives+=30 End End

And you should remove all usages of Succes and Update methods of CheatSequence from MyWindow code – they are private now!

So, now CheatSequence became more independant of Window class or any other – you just create sequence and fill it with keys and subscribe to its OnSucces.

[jondecker76Participant]

Thank you!

 

I just learned more from this single exercise than I have in the last week reading everything I could.  Very clean and elegant, now it’s making a lot more sense!

[jondecker76Participant]

I’ve been improving on this today and playing with it more. There’s only one problem so far with using the key event filter.

The App.KeyEventFilter isn’t a one-shot, so each press of the key registers 2-3 hits even on quick strokes. Since Update is only called when the KeyEventFilter is fired, there isn’t an elegant way to hand my own one-shot code. For now I’m hacking my way around it with a timer to ensure at least so much time goes by between keypresses, but it’s definitely not optimal.

It would be nice if A) KeyEventFilter was only sent once at the beginning of each press or B) a certain code was sent on release of the key. But neither of these are present. So for now I will have to either keep using the delta timing method I’m using now, or have an Update that needs run from Main each iteration so that the KeyEventFilter can be one-shotted.

[nerobotParticipant]

Did you try to check event.Type property inside your filter method?

If Not event.Type=EventType.KeyReleased Return

[jondecker76Participant]

Thank you again. I think I’m finally getting a handle on things

Here is the current state of things. I’ll start on joystick stuff soon then look for ways to clean things up a bit

Monkey

Namespace CheatSequence #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. ' ------------------------------------------------------------------------------------------------------------------ ' SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ ' We will define some constants Enum StrokeType Key = 1 Joy = 2 End Class CheatSequence Public Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input Field OnSuccess:Void() ' Signal when sequence is successful (first class function) ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> Enabled=True ' enable by default End ' Create and populate sequence all at once Method New(thisTimeout:Int,strokeType:Int,strokeValues:Int[]) Self.New(thisTimeout) AddStrokes(strokeType,strokeValues) End Method ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method ' Add several strokes of the same stroke type to the sequence Method AddStrokes( strokeType:Int,strokeValues:Int[] ) For Local strokeValue:=Eachin strokeValues AddStroke(strokeType,strokeValue) Next End ' Enable/Disable the cheatSequence Property Enabled:Bool() Return _enabled Setter( value:Bool ) If value=_enabled Return _enabled=value If _enabled App.KeyEventFilter+=ProcessKeys ' subscribe to filter Else App.KeyEventFilter-=ProcessKeys ' unsubscribe from filter Endif End Private Field _enabled:Bool ' Process key strokes as they are fired by the App.KeyEventFilter Method ProcessKeys( event:KeyEvent ) ' A key hit was signaled. Lets update the sequence UpdateSequence( event ) ' and check does a user finish the sequence If Success() OnSuccess() ' and emit event if success Endif End ' The sequence gets updated each keypress Method UpdateSequence(thisEvent:KeyEvent) If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else ' We didn't timeout, so lets update the sequence If thisEvent.Type = EventType.KeyDown If strokes.Get(strokeCounter).strokeType=StrokeType.Key And strokes.Get(strokeCounter).strokeValue=thisEvent.Key Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif Endif Endif End Method ' Check to see if the cheat is successful Method Success:Bool() If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Return False End End ' Store a cheat stroke. This includes the kind of stroke (keyboard, joystick, etc..) ' the value of the stroke (whick key or button) Class SequenceStroke Field strokeType:Int Field strokeValue:Int Method New(thisStrokeType:Int,thisStrokeValue:Int) strokeType=thisStrokeType strokeValue=thisStrokeValue End End ' ------------------------------------------------------------------------------------------------------------------ ' END SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ Class MyWindow Extends Window Field contraCheat:CheatSequence Field lives:Int Method New() Super.New( "Cheat Test!",640,480,WindowFlags.Fullscreen ) lives=3 ' Create our UUDDLRLRBA<Enter> cheat sequence contraCheat = New CheatSequence(1000, StrokeType.Key, New Int[](Key.Up,Key.Up,Key.Down,Key.Down,Key.Left,Key.Right,Key.Left,Key.Right,Key.B,Key.A,Key.Enter)) ' Increase lives by 30 if the cheat sequence is successfully entered contraCheat.OnSuccess=Lambda() lives+=30 End End Method OnRender( canvas:Canvas ) Override ' Debug display of cheat sequence Local delta:=Millisecs() - contraCheat.lastStrokeTimestamp canvas.Color=Color.Gold canvas.DrawText("Lives: " + lives,App.ActiveWindow.Width/2 ,App.ActiveWindow.Height/2) canvas.Color=Color.White canvas.DrawText("Try the cheat! UUDDLRLRBA<Enter>",4,App.ActiveWindow.Height-95) canvas.DrawText("Timer: " + delta,4,App.ActiveWindow.Height-55) canvas.DrawText("numStokes: " + contraCheat.numStrokes,4,App.ActiveWindow.Height-40) canvas.DrawText("strokeCounter : " + contraCheat.strokeCounter,4,App.ActiveWindow.Height-25) App.RequestRender() End Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown ' Exit the app If ( event.Key=Key.Escape ) Then App.Terminate() End End End Function Main() New AppInstance New MyWindow 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 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179

Namespace CheatSequence   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..     ' ------------------------------------------------------------------------------------------------------------------ ' SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ ' We will define some constants Enum StrokeType Key = 1 Joy = 2 End   Class CheatSequence Public Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input Field OnSuccess:Void() ' Signal when sequence is successful (first class function) ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> Enabled=True ' enable by default End ' Create and populate sequence all at once Method New(thisTimeout:Int,strokeType:Int,strokeValues:Int[]) Self.New(thisTimeout) AddStrokes(strokeType,strokeValues) End Method ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method ' Add several strokes of the same stroke type to the sequence Method AddStrokes( strokeType:Int,strokeValues:Int[] ) For Local strokeValue:=Eachin strokeValues AddStroke(strokeType,strokeValue) Next End ' Enable/Disable the cheatSequence Property Enabled:Bool() Return _enabled Setter( value:Bool ) If value=_enabled Return _enabled=value If _enabled App.KeyEventFilter+=ProcessKeys ' subscribe to filter Else App.KeyEventFilter-=ProcessKeys ' unsubscribe from filter Endif End Private Field _enabled:Bool ' Process key strokes as they are fired by the App.KeyEventFilter Method ProcessKeys( event:KeyEvent ) ' A key hit was signaled.  Lets update the sequence UpdateSequence( event ) ' and check does a user finish the sequence If Success() OnSuccess() ' and emit event if success Endif End ' The sequence gets updated each keypress Method UpdateSequence(thisEvent:KeyEvent) If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else ' We didn't timeout, so lets update the sequence If thisEvent.Type = EventType.KeyDown If strokes.Get(strokeCounter).strokeType=StrokeType.Key And strokes.Get(strokeCounter).strokeValue=thisEvent.Key Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif Endif Endif End Method ' Check to see if the cheat is successful Method Success:Bool() If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Return False End End   ' Store a cheat stroke.  This includes the kind of stroke (keyboard, joystick, etc..) ' the value of the stroke (whick key or button) Class SequenceStroke Field strokeType:Int Field strokeValue:Int Method New(thisStrokeType:Int,thisStrokeValue:Int) strokeType=thisStrokeType strokeValue=thisStrokeValue End End ' ------------------------------------------------------------------------------------------------------------------ ' END SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------       Class MyWindow Extends Window Field contraCheat:CheatSequence Field lives:Int Method New() Super.New( "Cheat Test!",640,480,WindowFlags.Fullscreen ) lives=3 ' Create our UUDDLRLRBA<Enter> cheat sequence contraCheat = New CheatSequence(1000,   StrokeType.Key,   New Int[](Key.Up,Key.Up,Key.Down,Key.Down,Key.Left,Key.Right,Key.Left,Key.Right,Key.B,Key.A,Key.Enter)) ' Increase lives by 30 if the cheat sequence is successfully entered contraCheat.OnSuccess=Lambda() lives+=30 End End Method OnRender( canvas:Canvas ) Override ' Debug display of cheat sequence Local delta:=Millisecs() - contraCheat.lastStrokeTimestamp canvas.Color=Color.Gold canvas.DrawText("Lives: " + lives,App.ActiveWindow.Width/2 ,App.ActiveWindow.Height/2) canvas.Color=Color.White canvas.DrawText("Try the cheat! UUDDLRLRBA<Enter>",4,App.ActiveWindow.Height-95) canvas.DrawText("Timer: " + delta,4,App.ActiveWindow.Height-55) canvas.DrawText("numStokes:      " + contraCheat.numStrokes,4,App.ActiveWindow.Height-40) canvas.DrawText("strokeCounter : " + contraCheat.strokeCounter,4,App.ActiveWindow.Height-25) App.RequestRender() End Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown ' Exit the app If ( event.Key=Key.Escape ) Then App.Terminate() End End End   Function Main() New AppInstance New MyWindow App.Run() End

[Author]

Posts