[nerobotParticipant]

Enjoy coding and bla bla bla.

Forgot to say – I also removed IRC chat stuff to cooperate all community in a single place – Discord.

[nerobotParticipant]

Hi guys.

There are some recent improvements in develop branch:

1. New feature – using spaced indentation! Now, you can
   • use spaces instead of tabs;
   • set desired tab size (works with tabs and spaces);
   • and even automatically fix “wrong” indentation.
2. New feature – duplicate line or selected area with shortcut Ctrl+Shift+D (or just Ctrl+D on windows).
3. Improved support of array type in code completion and code tree view.
4. Completion list – some colors added into theme file:
   • completion-list-selected – color of selected line
   • completion-list-marked-bg– background color of highlighted chars
   • completion-list-marked-text – foreground color of highlighted chars
5. Added some preprocessor directives into completion list:
   • __WEB_TARGET__ , __DEBUG__ , __RELEASE__ , __CONFIG__ , __MAKEDOCS__
6. Added option “Rename folder” into Project browser context menu; and now open a *containing folder* by option “open on desktop” for files (don’t try to open file itself).
7. Now storing latest opened tab in prefs dialog.

Attachments:

1. 

   ted2go-customize-completion.png
   

2. 

   ted2go-fix-indentation.png
   

3. 

   ted2go-arrays-completion.png
   

4. 

   ted2go-indent-option.png
   

[nerobotParticipant]

If we declare new sub-class JsonNull extends JsonValue and replace current NullValue with them – will it helps us to check if x is null-value w/o any stack-ish problems?

[nerobotParticipant]

There may be a virtual method CompareTo:Int( value:JsonValue ) of JsonValue.

By default it will return -1.

And any sub-classes will override it.

Technically it will be the same as your functions above.

The difference is a way of call: json1.CompareTo( json2 ) in this case.

If we aware of nullability of json1, then we can use ?. operator.

Also in your code you check y=NullValue and return 1 if true, but x can be null itself and then we should get zero in result.

Sorry, I did’n understand about stack exploding reason.

If we use just functions like ones above – do we avoid stack exploding when using if Self.IsNull?

(JsonValue has a property IsNull.)

[nerobotParticipant]

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

If Not event.Type=EventType.KeyReleased Return

[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.

[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.

[nerobotParticipant]

I have dk2 (probably) I never used yet.

I have the idea for demo, maybe try to playing with it!

[nerobotParticipant]

Look at Window::SwapInterval property.

Try to set it to 1.

[nerobotParticipant]

Wow, good news!

When you omit key it passes as Null ?

[nerobotParticipant]

You refer to this one right?

Yes. Your example is not good enough because I want to omit the key at all.

Also, if you pass False as a string parameter, you’ll get the string “False”, not an empty string,

and expression If key then... always be true.

I think you mean to pass Null here.

 

How about ‘+=’ instead? This looks much more logical to me.

It seems to be the only way here.

Brackets show us we deal with array, but += don’t.

But I don’t expect to break parser and our minds just because the PHP syntax.

[nerobotParticipant]

Great!

[nerobotParticipant]

Formatting? Processing!

[nerobotParticipant]

[nerobotParticipant]

I saw link to example of one side platform on Chipmunk homepage…

[Author]

Posts