[AdamStrangeParticipant]

just remember that by using
Controls[KEY_LEFT] = Key.Left

you can redefine a key at any time with:
Controls[KEY_LEFT] = Key.Right
Controls[KEY_LEFT] = Key.A
Controls[KEY_LEFT] = a key picked by the user, etc

You always reference Controls[KEY_LEFT], so what it is mapped to becomes irrelevant….

and you can also use:

If Keyboard.KeyDown( Controls[KEY_LEFT] ) Then do something

to trap and minitor if the key is being pressed

[AdamStrangeParticipant]

Couldn’t you just do something like this:

Monkey

[crayon-5cba9d80d62d7021269437 inline="true" ] const KEY_LEFT:int = 0 field Controls:Key[] = New Key[6] method New() Controls[KEY_LEFT] = Key.Left etc...

1 2 3 4 5 6 7 8

[crayon-5cba9d80d62d7021269437 inline="true" ] const KEY_LEFT:int = 0 field Controls:Key[] = New Key[6] method New() Controls[KEY_LEFT] = Key.Left etc...

[/crayon]

That way you can change the controls to any key at any time. none of the ‘map’ stuff getting in the way?

[AdamStrangeParticipant]

Here’s something to really consider:
where are the examples, the demos and the tutorials?

You want to be taken seriously, WTF is “Bananas”?

Maybe the tutorials can be kept in “trees”?
Possible the demos in “sharks bottom”?

How about documentation in “flubber” <- this won’t be complete, or actually have any working code, or be able to have functional copy, paste of code.

While we are at it, why not keep changing stuff so that it breaks other stuff further down the line, either intentionally or just for fun

How about a great website that allows cod to be posted, plaice to be eaten and lobsters to be praised? But messes up the output and adds crayons, pens, paint, and fingers along the way?

Maybe even have cut/copy of code that pastes garbage?

Branding – in this case, might be pushing it a bit.

Oh. And I’m really looking forward to be finally seeing the individual hamd-carved, one-of-a-kind, all leather bound set of 600 individually bound manuals that someone promised and bound in reverse font-mangled gilt-lined goodness, and bound – sometime, somewhere, possibly in another dimension!

Seriously, get over it. move on, nothing to see here…

Too much sherry methinks!

[AdamStrangeParticipant]

AGREES.

[AdamStrangeParticipant]

It would be great if there was an “#include” or similar to copy an app icon (and maybe other stuff?) to the MacOS bundle. The way it is now, we have to manually add afterwards. For most apps it’s ok, but for frequent compiles (like Ted2Go) it would make life simpler.

+10000 for this and the same for win as well.
TBH this sort of omission makes Monkey2 not look as professional as it should be. and certainly not at the standard of the competition ;/

[AdamStrangeParticipant]

Thanks Richard

[AdamStrangeParticipant]

convenience features

What have you in mind?

Easily keep reusable things between multiple level files

Again, what are your suggestions on this?

non-tiled map features?

Such as?

[AdamStrangeParticipant]

Sounds interesting. I’m on Windows.

Hi, just released the editor on itch:
FontMap

This is for both MacOS and Windows

[AdamStrangeParticipant]

Here is the FileFormat details:
– header –
(4 bytes) int = -9999

(4 bytes) int = number of layers

– layer data –
(4 bytes) int = width of layer (0 aligned)

(4 bytes) int = height of layer (0 aligned)

starting from top left, data is read down the height, then across to the next x cell and continues down until all data is read

– cell data –
(2 bytes) short = map character (referencing the character font)

(2 bytes) short = color reference (referencing the color palette)

and here is the monkey2 code to read in the data

Monkey

[crayon-5cba9d80e821c524529398 inline="true" ] 'a map file can contain up to 32 maps with a resolution of 128x128 field _tileMap:short[, , ] = New short[32, 128, 128] field _colorMap:short[, , ] = New short[32, 128, 128] method Load( filePath:string ) Print "loading..." Local fStream:Stream = Stream.Open( filePath, "r" ) If not fStream Then Print filePath + " not opened" Return End If local id:int = fStream.ReadInt() If id <> -9999 Then Print filePath + " ID error" fStream.Close() Return End If local layers:int = fStream.ReadInt() Local k:int For k = _mapLayer To _mapLayer+layers-1 If k < 32 Then LoadLayer( fStream, k ) End If Next fStream.Close() End method method LoadLayer( Stream:Stream, layer:int ) _loadX = Stream.ReadInt() _loadY = Stream.ReadInt() Print "layer "+layer+" size is "+(_loadX+1)+" "+(_loadY+1) Local rt:short Local cl:short Local x:int Local y:int For x = 0 To _loadX For y = 0 To _loadY cl = Stream.ReadShort() rt = Stream.ReadShort() If x < 128 And y < 128 Then _tileMap[ layer, x, y] = Clamp( int(cl), 0, 255 ) _colorMap[ layer, x, y] = Clamp( int(rt), 0, 255 ) End if Next Next end method

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

[crayon-5cba9d80e821c524529398 inline="true" ] 'a map file can contain up to 32 maps with a resolution of 128x128 field _tileMap:short[, , ] = New short[32, 128, 128] field _colorMap:short[, , ] = New short[32, 128, 128]   method Load( filePath:string ) Print "loading..."   Local fStream:Stream = Stream.Open( filePath, "r" ) If not fStream Then Print filePath + " not opened" Return End If local id:int = fStream.ReadInt() If id <> -9999 Then Print filePath + " ID error" fStream.Close() Return End If   local layers:int = fStream.ReadInt() Local k:int For k = _mapLayer To _mapLayer+layers-1 If k < 32 Then LoadLayer( fStream, k ) End If Next fStream.Close() End method   method LoadLayer( Stream:Stream, layer:int ) _loadX = Stream.ReadInt() _loadY = Stream.ReadInt() Print "layer "+layer+" size is "+(_loadX+1)+" "+(_loadY+1) Local rt:short Local cl:short Local x:int Local y:int For x = 0 To _loadX For y = 0 To _loadY cl = Stream.ReadShort() rt = Stream.ReadShort() If x < 128 And y < 128 Then _tileMap[ layer, x, y] = Clamp( int(cl), 0, 255 ) _colorMap[ layer, x, y] = Clamp( int(rt), 0, 255 ) End if Next Next end method

[/crayon]

[AdamStrangeParticipant]

mmmm.
The first example, nice simple readable code
The second ‘extension’ code is really (sorry to say it) horrible. much more complex, going into the ‘information hiding’ territory.

I would have thought that code should be simple (for those) to understand?

[AdamStrangeParticipant]

Here you go…

Monkey

[crayon-5cba9d80f0eff573316112 inline="true" ]Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Const FPS:Int = 60 Field player:Player Field timer:Timer Method New() Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable ) ClearColor = Color.Black Layout="letterbox" player = New Player(100, 100) timer = New Timer(FPS, OnUpdate) End Method OnRender( canvas:Canvas ) Override player.Render(canvas) Bullet.RenderAll(canvas) End Method OnUpdate() RequestRender() player.Update() Bullet.UpdateAll() End Method OnMeasure:Vec2i() Override Return Size End End Class Sprite Field x:Float Field y:Float Field r:Float = Pi / 2 Field sizeW:Float Field sizeH:Float Field colour:Color Field velocity:Vec2f = New Vec2f(0, 0) Property RotationDisplay:Float() Return r - Pi / 2 End End Class Player Extends Sprite Method New(x:Float ,y:Float) Self.x = x Self.y = y Self.sizeW = 100 Self.sizeH = 50 Self.colour = Color.Green End Method Render(canvas:Canvas ) canvas.Color = Self.colour Local xr:float = x + (Sin(r) * 100) Local yr:float = y + (Cos(r) * 100) canvas.DrawLine( x, y, xr, yr ) canvas.Color = Color.Blue canvas.DrawRect(x-5, y-5, 10, 10) ' Local matrix:=canvas.Matrix ' canvas.Matrix=matrix.Translate( x ,y ).Rotate( RotationDisplay ) ' canvas.DrawRect(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) ' canvas.Color = Color.Blue ' canvas.DrawRect(-5, -5, 10, 10) ' canvas.Color = Color.Red ' canvas.DrawRect((sizeW/2)-10, (sizeH/2)-10, 10, 10) ' canvas.Matrix=matrix canvas.DrawText("r = " +r, 0, 0) End Method Update() Local s:Float = 2 Local am:Float = 0.08 Local factor:Float = 1.5 If Keyboard.KeyDown(Key.Up) velocity.x += (Sin(r) * factor - velocity.x) * am velocity.y += (Cos(r) * factor - velocity.y) * am Elseif Keyboard.KeyDown(Key.Down) velocity.x += (-Sin(r) * factor - velocity.x) * am velocity.y += (-Cos(r) * factor - velocity.y) * am Else velocity.x *= .99 velocity.y *= .99 End If Keyboard.KeyDown(Key.Left) r += .1 End If Keyboard.KeyDown(Key.Right) r -= .1 End x += velocity.x y += velocity.y If Keyboard.KeyDown(Key.Space)then New Bullet(x, y, r) End End End Class Bullet Extends Sprite Global list := New List<Bullet> Field timeToLive:Int Field speed:Float = 5 Method New(x:Float, y: Float, r:Float) Self.x = x Self.y = y Self.r = r ' Print x+" "+y+" "+r Local gunPosX:Float = x + (Sin(r) * 100) Local gunPosY:Float = y + (Cos(r) * 100) Self.x = gunPosX Self.y = gunPosY Self.timeToLive = 40 Self.sizeW = 10 Self.sizeH = 10 Self.colour = Color.Red Self.list.AddLast(Self) End Function UpdateAll() If Not list Return Local it := list.All() While Not it.AtEnd Local b:Bullet = it.Current b.Update() If b.timeToLive <= 0 it.Erase() Else it.Bump() End End End Method Update() Local dx:Float = Sin(r) * speed Local dy:Float = Cos(r) * speed x += dx y += dy timeToLive -= 1 End Function RenderAll:Void(canvas:Canvas) If Not list Return For Local c:Bullet = Eachin list c.Render(canvas) Next End Method Render(canvas:Canvas) canvas.Color = Self.colour canvas.DrawRect(x-5, y-5, 10, 10) ' Local matrix:=canvas.Matrix ' canvas.Matrix=matrix.Translate( x,y ).Rotate( RotationDisplay ) ' canvas.DrawOval(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) ' canvas.Color = Color.Blue ' canvas.DrawRect(-5, -5, 10, 10) ' canvas.Matrix=matrix 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 180 181 182 183 184 185 186 187 188 189 190 191 192 193

[crayon-5cba9d80f0eff573316112 inline="true" ]Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Const FPS:Int = 60 Field player:Player Field timer:Timer Method New() Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable ) ClearColor = Color.Black Layout="letterbox" player = New Player(100, 100) timer = New Timer(FPS, OnUpdate) End Method OnRender( canvas:Canvas ) Override player.Render(canvas) Bullet.RenderAll(canvas) End Method OnUpdate() RequestRender() player.Update() Bullet.UpdateAll() End Method OnMeasure:Vec2i() Override Return Size End End Class Sprite Field x:Float Field y:Float Field r:Float = Pi / 2 Field sizeW:Float Field sizeH:Float Field colour:Color Field velocity:Vec2f = New Vec2f(0, 0) Property RotationDisplay:Float() Return r - Pi / 2 End End Class Player Extends Sprite Method New(x:Float ,y:Float) Self.x = x Self.y = y Self.sizeW = 100 Self.sizeH = 50 Self.colour = Color.Green End Method Render(canvas:Canvas ) canvas.Color = Self.colour Local xr:float = x + (Sin(r) * 100) Local yr:float = y + (Cos(r) * 100) canvas.DrawLine( x, y, xr, yr )   canvas.Color = Color.Blue canvas.DrawRect(x-5, y-5, 10, 10) ' Local matrix:=canvas.Matrix ' canvas.Matrix=matrix.Translate( x ,y ).Rotate( RotationDisplay ) ' canvas.DrawRect(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) ' canvas.Color = Color.Blue ' canvas.DrawRect(-5, -5, 10, 10) ' canvas.Color = Color.Red ' canvas.DrawRect((sizeW/2)-10, (sizeH/2)-10, 10, 10) ' canvas.Matrix=matrix   canvas.DrawText("r = "  +r, 0, 0) End Method Update() Local s:Float = 2 Local am:Float = 0.08 Local factor:Float = 1.5 If Keyboard.KeyDown(Key.Up) velocity.x += (Sin(r) * factor - velocity.x) * am velocity.y += (Cos(r) * factor - velocity.y) * am Elseif Keyboard.KeyDown(Key.Down) velocity.x += (-Sin(r) * factor - velocity.x) * am velocity.y += (-Cos(r) * factor - velocity.y) * am Else velocity.x *= .99 velocity.y *= .99 End If Keyboard.KeyDown(Key.Left) r += .1 End If Keyboard.KeyDown(Key.Right) r -= .1 End x += velocity.x y += velocity.y If Keyboard.KeyDown(Key.Space)then New Bullet(x, y, r) End End   End   Class Bullet Extends Sprite Global list := New List<Bullet> Field timeToLive:Int Field speed:Float = 5 Method New(x:Float, y: Float, r:Float) Self.x = x Self.y = y Self.r = r ' Print x+" "+y+" "+r    Local gunPosX:Float = x + (Sin(r) * 100) Local gunPosY:Float = y + (Cos(r) * 100) Self.x = gunPosX Self.y = gunPosY Self.timeToLive = 40 Self.sizeW = 10 Self.sizeH = 10 Self.colour = Color.Red Self.list.AddLast(Self) End Function UpdateAll() If Not list Return Local it := list.All() While Not it.AtEnd Local b:Bullet = it.Current b.Update() If b.timeToLive <= 0 it.Erase() Else it.Bump() End End End Method Update() Local dx:Float = Sin(r) * speed Local dy:Float = Cos(r) * speed x += dx y += dy timeToLive -= 1 End Function RenderAll:Void(canvas:Canvas) If Not list Return For Local c:Bullet = Eachin list c.Render(canvas) Next End Method Render(canvas:Canvas) canvas.Color = Self.colour   canvas.DrawRect(x-5, y-5, 10, 10)   ' Local matrix:=canvas.Matrix ' canvas.Matrix=matrix.Translate( x,y ).Rotate( RotationDisplay ) ' canvas.DrawOval(- sizeW / 2.0, - sizeH / 2.0, sizeW, sizeH) ' canvas.Color = Color.Blue ' canvas.DrawRect(-5, -5, 10, 10) ' canvas.Matrix=matrix End End Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

The matrix stuff was making things hard for you, so I took it out so you can see the trig in operation. You can add the matrix stuff back once you get familiar with it

[AdamStrangeParticipant]

MacOS Confirmed!

[AdamStrangeParticipant]

use clearcolor for the entire window color

with your ‘own’ window you will need to clear the color to black first
canvas.Color = Color.Black
canvas.DrawRect( 0, 0, Width, Height )

then the alpha stuff will fade to black as you wanted

[AdamStrangeParticipant]

If I remove an Image that 50 sprites reference, then undo that deletion, how do I reconnect those broken references?

seems like two initial options
A. Keep the image, so the references don’t go
B. update the references to the new image

there is a third (more destructive way):
Code the UI and the backend so as to try and keep what is happening as separate as possible.
it sort of means that the ‘code’ you are showing has all the dependancies with it.

or…

you code each UI control for one purpose – possible using a cascade method development (each ‘thing’ depends on another ‘thing’).

Here’s my approach to UI design
– core control – this does most of the housework like the base mouse and keyboard, initial drawing stuff and has all the placeholders
– button extends core – this is the basic button. it really is just the core control but with the mouse over, mouse press, and base drawing. ANY other buttons can just be extended from this with the needed bits added for drawing. the mouse and key code is already fully operational.
– check button extends button. just add a boolean toggle Selected to the core. now you can toggle and draw as needed.
– text extends core. text is the same as button but there is no actual UI interaction
– edittext extends core. much more code to deal with user interaction on editing text
As you progress, some functions like drawing of text will be removed and put in the core so all controls can have access.

Here’s part of the import for my core:

Monkey

[crayon-5cba9d810bf10261975093 inline="true" ]#import "ux-button" #Import "ux-bitmapfontbutton" #import "ux-imagebutton" #import "ux-imageiconbutton" #import "ux-imageiconduobutton" #import "ux-colorbutton"

1 2 3 4 5 6 7

[crayon-5cba9d810bf10261975093 inline="true" ]#import "ux-button" #Import "ux-bitmapfontbutton" #import "ux-imagebutton" #import "ux-imageiconbutton" #import "ux-imageiconduobutton" #import "ux-colorbutton"

[/crayon]

You can see I decided to have separate controls for each specific task
Here’s a pic of this in operation:

Unify is a normal button
Smooth and Reverse are extensions that have a different drawing method that allows for the orange ‘hot key’ to be added

The main thing is you are triumphing over one of the nastiest bits of codeing. UI stuff is always difficult and always needs rewriting half way through doing a task…

[AdamStrangeParticipant]

there is also another way to think about things:

Maybe a list control, or drop down box, or whatever control is NOT the best way to show the inner working of some things.
If that is the case it is VERY reasonable to come up with another type of control that does the job better.

An example of this could be shown in iphone and other phone guis that completely took a different approach to what and how a UI should work.

In your example of demeaning a guy in class for designing something over complicated. Was this actually tested? Usually it is the end result that matters not the getting there?

Looking at the last image. it seems that there is a project. is there only one open at a time? if yes, then you can start to simplify:
E.G.
the scene box contains a project. but why not remove the project entirely and just leave the bits that are in the project

Here’s a thought about lists for you:
They inherently grow (usually down), the moment the go below the container box you need scroll bars or some other way of seeing the rest of the list. long lists get messy and humans are not good with long lists of things – they tend to forget what the list is about.

If your lists are going to be filled with lots of stuff maybe look at a different approach.

An example of this would be the file list of assets. Lets say 3d objects. Here is a visual and instantly usable way to show assets in a folder:

there are no names, just the assets

[Author]

Posts