[impixiParticipant]

There are named constants for some colors. You can also create create your own colors. eg

Monkey

[crayon-5cb9d7c65670c208670587 inline="true" ]Local myColor1 := New Color(0.2, 0.1, 0.6, 1.0) Local myColor2 := Color.FromARGB($FFA06620)

1 2	[crayon-5cb9d7c65670c208670587 inline="true" ]Local myColor1 := New Color(0.2, 0.1, 0.6, 1.0) Local myColor2 := Color.FromARGB($FFA06620)

[/crayon]

The docs have more information…

[impixiParticipant]

Bugs, I’d say. I’m seeing similar results from my own terrain generator (quite different than yours).

But remember Mojo3d is still a WIP Alpha, so much of it is not “production” ready yet.

[impixiParticipant]

@peteswansen:

The mazes it makes are not quite complete- they have numerous “dead” ends and there is no single complete path from one side to the other- in other words, there is not one entrance and one exit.

The code generates “perfect” mazes, meaning every coordinate is reachable from every other coordinate within the maze. There are many types of mazes. See here:

http://www.astrolog.org/labyrnth/algrithm.htm

A shame there is only 10 examples of code and over 1800 posts looking for help with Monkey 2.

The “Monkey 2 Code Library” forum is only a week old. More examples will be posted over time. Personally I have more examples to post when I tidy up my code, but at the moment I’m too busy working on other projects.

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

[impixiParticipant]

This is the way I’m currently doing it:

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

Monkey

[crayon-5cb9d7c65f8ff102783222 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-5cb9d7c65f8ff102783222 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-5cb9d7c65f904498806274 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-5cb9d7c65f904498806274 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-5cb9d7c65f909464053825 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-5cb9d7c65f909464053825 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…

[impixiParticipant]

Good idea, @peterigz.

And if the Blitzbasic.com archives are inaccessible you might be able to find them through the “Wayback Machine”

https://web.archive.org/

[impixiParticipant]

There are many language similarities but also some differences that could cause confusion.

Most of BlitzMax’s language concepts have direct Monkey2 equivalents (eg Functions, Objects, Methods, Globals, Locals, Interfaces, Pointers, Modules, Public, Private, etc) but Monkey2 also has additional concepts (eg Interfaces, Virtual Methods, Abstract Classes, Enumerated types, Operator Overloading, Fibres, Structures, Lambda Functions, etc).

You can structure your own code to not use those additional language features, and therefore convert standard object-oriented BlitzMax code quite easily to equivalent Monkey2 code. However, some of Monkey2’s modules make extensive use of the additional language features and require at least a passing understanding of how they work.

A good example is MojoX, Monkey 2’s GUI module. It is quite different than MaxGUI.

So, yes, you can use much of what you learned in BlitzMax – you won’t have to start again. But you will need to build upon that knowledge…

[impixiParticipant]

@Mark Sibly:

…code library forum added

Thanks. I just added a first snippet.

Adjusting the “height” and “width” properties of “crayon” seems to work to simulate a “code box”. (Thanks @nerobot for the suggestion: http://monkeycoder.co.nz/forums/topic/perlin-noise/page/2/)

[impixiParticipant]

“Let’s get this party started…”

PS: Any chance of a “Monkey 2 Code” forum that we can post our code snippets into?

[impixiParticipant]

You could maybe do something like this:

Monkey

[crayon-5cb9d7c66e27c918778409 inline="true" ]#Import "<std>" Using std.. Function Main() Local recList := New RecordList() recList.Add(New Record("Dude")) recList.Add(New Record("Jane Doe")) recList.Add(New Record("@Dude")) recList.Add(New Record("+Jane Doe")) recList.Add(New Record("+Dude")) recList.Add(New Record("@Jane Doe")) Print "~nUnsorted~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByName) Print "~nSorted (First pass) ~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByCharTweak) Print "~nSorted (Second pass) ~n-----------" recList.PrintAll() End Class RecordList Extends List<Record> Public Method New() Super.New() End Method PrintAll() For Local rec := Eachin Self Print rec.ToString() Next End Function SortByName:Int(lhs:Record, rhs:Record) Return lhs.Name <=> rhs.Name End Function SortByCharTweak:Int(lhs:Record, rhs:Record) If (lhs.Name.Length <= 0) Or (rhs.Name.Length <= 0) Then Return 0 If lhs.Name[0] = "@"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "@"[0] Then Return rhs.Name>lhs.Name If lhs.Name[0] = "+"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "+"[0] Then Return rhs.Name>lhs.Name Return 0 End End Class Record Public Method New(name:String) Name = name End Property Name:String() Return _name Setter (value:String) _name = value End Method ToString:String() Return Name End Private Field _name:String 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

[crayon-5cb9d7c66e27c918778409 inline="true" ]#Import "<std>"   Using std..   Function Main()   Local recList := New RecordList()   recList.Add(New Record("Dude")) recList.Add(New Record("Jane Doe")) recList.Add(New Record("@Dude")) recList.Add(New Record("+Jane Doe")) recList.Add(New Record("+Dude")) recList.Add(New Record("@Jane Doe")) Print "~nUnsorted~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByName) Print "~nSorted (First pass) ~n-----------" recList.PrintAll() recList.Sort(RecordList.SortByCharTweak) Print "~nSorted (Second pass) ~n-----------" recList.PrintAll() End   Class RecordList Extends List<Record>   Public   Method New() Super.New() End Method PrintAll() For Local rec := Eachin Self Print rec.ToString() Next End Function SortByName:Int(lhs:Record, rhs:Record) Return lhs.Name <=> rhs.Name End   Function SortByCharTweak:Int(lhs:Record, rhs:Record)   If (lhs.Name.Length <= 0) Or (rhs.Name.Length <= 0) Then Return 0   If lhs.Name[0] = "@"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "@"[0] Then Return rhs.Name>lhs.Name If lhs.Name[0] = "+"[0] Then Return lhs.Name>rhs.Name If rhs.Name[0] = "+"[0] Then Return rhs.Name>lhs.Name Return 0   End   End   Class Record   Public Method New(name:String) Name = name End   Property Name:String() Return _name Setter (value:String) _name = value End   Method ToString:String() Return Name End Private   Field _name:String   End

[/crayon]

[impixiParticipant]

@pakz: We have very similar objectives / plans!

In addition to procedurally generating level layout, I’m trying to decide if it’s worth generating models and materials in code too. Probably not…

[impixiParticipant]

What did it cost before?

TBH, from a consumer’s perspective I can only see negatives: Steam is already flooded with “crap”; if the entry barrier is even lower it’s going to get worse.

[impixiParticipant]

I was going to ask the same question…

Functional: https://en.wikipedia.org/wiki/Functional_programming
Procedural: https://en.wikipedia.org/wiki/Procedural_programming

Functional programming, as in lisp, clojure, etc
Procedural programming, as in old style basic, pascal, c, etc.

There are different GUI implementation strategies for both styles, though IIRC it’s rather difficult to do in a purely functional manner.

[impixiParticipant]

Ah, I see. Then yes, you’ll need something lower level, probably coded in C/C++. Good luck.

[impixiParticipant]

* Hide the “actual” mouse cursor. Draw a “sprite” mouse cursor instead.
* Read your gamepad input coordinates.
* Translate the coordinates to a screen location vector.
* Draw the mouse cursor sprite at the vector.
* Trigger an EventType.MouseMove event, including the vector.
* Handle the event in the OnMouseEvent method.

Easy peasy?!

Or I still misunderstand your objectives… Forgive me if that’s the case.

[Author]

Posts