[coconParticipant]

Yeah, these are great stuff he’s making.

[coconParticipant]

Wow, I didn’t know that such a book exists, I would definitely look at it.

 

It’s about since a few months I started paying attention to Romero’s speeches and writings, in hope that I would learn some “old school” techniques. For example one such recommendation of Romero (search it on Gamasutra) was not to write reusable code…

(considering that in order to write reusable code, you will have to predict unplanned features, make abstractions, add features that are not needed)

… but to write mission specific goal that does the job, and when if you consider re usability you just modify the existing foundation and improve it. From my understanding these are practical “agile techniques” as done in 1994.

[coconParticipant]

Have you found the portal system of Doom any useful?

My personal note on this is that it has some good parts, it’s minimal so it doesn’t pump the engine with lots of concepts, also the ease of level design is phenomenal.

The downsides is that because there are no reusable assets, is somehow like painting the level, changes would be costly. An typical example is when making sliding it involves too much steps, where a simple asset would be much better.

I would be 50-50 on this for going into a hybrid approach and mixing classic portals with 3D assets, but I am not sure yet.

[coconParticipant]

Amazing stuff!

[coconParticipant]

Emscripten works perfectly!

[coconParticipant]

Without getting too deep into the AI algorithms the most easy and thin approach would be to get inspired by Shiffman’s work: http://natureofcode.com/book/chapter-6-autonomous-agents/ . It’s true that here are more advanced algorithms and dedicated libraries, perhaps in more advanced and specific needs, it would make sense to link to an AI library if it is needed, this approach however has a good balance between ease of implementation and results.

The agents would have two states, 1: random walk (example 6.11), 2: attack (example 6.12), and then there could be some clever state management to define the AI tactic.

[coconParticipant]

This means that you can create any tool needed to generate content in the most fast and productive way right?

[coconParticipant]

A year ago I played “Brutal Doom” and I was hooked for weeks. I have put also attempts to study the source code, however mostly at this time I am interested in the system design generally, not touched the graphics at all.

[coconParticipant]

Oh, I see!

By looking at Monkey’s List source code, my guessing is I see that the All() method might cooperate with the Eachin statement in the background. The All method however returns a new Iterator, not the existing (the essense of the elements) one.

I did this experiment and I see that I can’t mutate the element of the list directly, however I can mutate the local copy. Is this behavior valid or not?

Monkey

#Import "<std>" Using std.. Struct MyStruct Field StructValue := 0 Method To:String() Return "MyStruct: " + StructValue End End Function Main() Local list := New List<MyStruct> For Local n := 0 Until 5 Local s := New MyStruct list.Add(s) Next Local item := list.FirstNode().Value item.StructValue = 1000 Print(list.FirstNode().Value) Print(item) 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

#Import "<std>" Using std..   Struct MyStruct Field StructValue := 0 Method To:String() Return "MyStruct: " + StructValue End End   Function Main() Local list := New List<MyStruct> For Local n := 0 Until 5 Local s := New MyStruct list.Add(s) Next Local item := list.FirstNode().Value item.StructValue = 1000 Print(list.FirstNode().Value) Print(item) End

[coconParticipant]

Here is how it would work.

View post on imgur.com

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field items := New Vec2f[1000] Field TeleportDistance:Float = 200 Field VisibleDistance:Float = 100 Field VisibleDistanceFade:Float = 80 Field speed:Vec2f Method New() ' create all of the items For Local i := 0 Until items.Length Local item := New Vec2f item.X = Rnd(-TeleportDistance, TeleportDistance) item.Y = Rnd(-TeleportDistance, TeleportDistance) items[i] = item Next End Method OnRender(canvas:Canvas) Override ' change position of the items and teleport them speed *= 0.9 If (Keyboard.KeyDown(Key.W)) Then speed.Y += 5 If (Keyboard.KeyDown(Key.S)) Then speed.Y -= 5 If (Keyboard.KeyDown(Key.A)) Then speed.X += 5 If (Keyboard.KeyDown(Key.D)) Then speed.X -= 5 For Local index := 0 Until items.Length Local item := items[index] item.X += speed.X * 0.05 item.Y += speed.Y * 0.05 If (item.X < -TeleportDistance) Then item.X = TeleportDistance If (item.X > TeleportDistance) Then item.X = -TeleportDistance If (item.Y < -TeleportDistance) Then item.Y = TeleportDistance If (item.Y > TeleportDistance) Then item.Y = -TeleportDistance items[index] = item Next ' start drawing stuff App.RequestRender() canvas.Clear(Color.Black) ' draw the visibility distance canvas.PushMatrix() canvas.Translate(Width/2, Height/2) canvas.Color = New Color(0.1, 0, 0) canvas.DrawCircle(0, 0, VisibleDistance) canvas.PopMatrix() ' draw all of the items ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' canvas.Color = Color.White ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix() ' draw all of the items within the visibility distance ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' If Distance(0, 0, i.X, i.Y) < VisibleDistance ' canvas.Color = Color.White ' Else ' canvas.Color = Color.Grey ' End ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix() ' draw all of the items but this time apply the visibility fade canvas.PushMatrix() canvas.Translate(Width/2, Height/2) For Local i := Eachin items Local distance := Distance(0, 0, i.X, i.Y) If distance < VisibleDistance Local visibility := Remap(distance, VisibleDistance, VisibleDistanceFade, 0.0, 1.0) If distance < VisibleDistanceFade visibility = 1 End canvas.Color = New Color(visibility, visibility, visibility) canvas.DrawRect(i.X, i.Y, 2, 2) End Next canvas.PopMatrix() End End Function Distance:Float(x:Float, y:Float, x2:Float, y2:Float) Local dx := x2 - x Local dy := y2 - y Return Sqrt(dx * dx + dy * dy) End Function Remap:Float(value:Float, firstStart:Float, firstStop:Float, secondStart:Float, secondStop:Float) ' For more information: http://monkeycoder.co.nz/forums/topic/math-remapvalue/ Return secondStart + (secondStop - secondStart) * ((value - firstStart) / (firstStop - firstStart)) End Function Main() New AppInstance New MyWindow App.Run() End ' Notes ' ... canvas.Translate(Width/2, Height/2) ' For presentation reasons I want to draw things to the centered of the screen ' this is only a rendering matter, it does not affect how the coordinates of the system ' work, which are within the limits of -TeleportDistance..TeleportDistance ' ... If Distance(0, 0, i.X, i.Y) < VisibleDistance ' Assuming that at position 0,0 is the player, and the i.X/Y is the item.

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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field items := New Vec2f[1000] Field TeleportDistance:Float = 200 Field VisibleDistance:Float = 100 Field VisibleDistanceFade:Float = 80 Field speed:Vec2f Method New() ' create all of the items For Local i := 0 Until items.Length Local item := New Vec2f item.X = Rnd(-TeleportDistance, TeleportDistance) item.Y = Rnd(-TeleportDistance, TeleportDistance) items[i] = item Next End   Method OnRender(canvas:Canvas) Override ' change position of the items and teleport them speed *= 0.9 If (Keyboard.KeyDown(Key.W)) Then speed.Y += 5 If (Keyboard.KeyDown(Key.S)) Then speed.Y -= 5 If (Keyboard.KeyDown(Key.A)) Then speed.X += 5 If (Keyboard.KeyDown(Key.D)) Then speed.X -= 5 For Local index := 0 Until items.Length Local item := items[index] item.X += speed.X * 0.05 item.Y += speed.Y * 0.05 If (item.X < -TeleportDistance) Then item.X =  TeleportDistance If (item.X >  TeleportDistance) Then item.X = -TeleportDistance If (item.Y < -TeleportDistance) Then item.Y =  TeleportDistance If (item.Y >  TeleportDistance) Then item.Y = -TeleportDistance items[index] = item Next ' start drawing stuff App.RequestRender() canvas.Clear(Color.Black)     ' draw the visibility distance canvas.PushMatrix() canvas.Translate(Width/2, Height/2) canvas.Color = New Color(0.1, 0, 0) canvas.DrawCircle(0, 0, VisibleDistance) canvas.PopMatrix()   ' draw all of the items ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' canvas.Color = Color.White ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix() ' draw all of the items within the visibility distance ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' If Distance(0, 0, i.X, i.Y) < VisibleDistance ' canvas.Color = Color.White ' Else ' canvas.Color = Color.Grey ' End ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix()         ' draw all of the items but this time apply the visibility fade canvas.PushMatrix() canvas.Translate(Width/2, Height/2) For Local i := Eachin items Local distance := Distance(0, 0, i.X, i.Y) If distance < VisibleDistance Local visibility := Remap(distance, VisibleDistance, VisibleDistanceFade, 0.0, 1.0) If distance < VisibleDistanceFade visibility = 1 End canvas.Color = New Color(visibility, visibility, visibility) canvas.DrawRect(i.X, i.Y, 2, 2) End Next canvas.PopMatrix() End End   Function Distance:Float(x:Float, y:Float, x2:Float, y2:Float) Local dx := x2 - x Local dy := y2 - y Return Sqrt(dx * dx + dy * dy) End     Function Remap:Float(value:Float, firstStart:Float, firstStop:Float, secondStart:Float, secondStop:Float) ' For more information: http://monkeycoder.co.nz/forums/topic/math-remapvalue/ Return secondStart + (secondStop - secondStart) * ((value - firstStart) / (firstStop - firstStart)) End     Function Main() New AppInstance New MyWindow App.Run() End     ' Notes   ' ... canvas.Translate(Width/2, Height/2) ' For presentation reasons I want to draw things to the centered of the screen ' this is only a rendering matter, it does not affect how the coordinates of the system ' work, which are within the limits of -TeleportDistance..TeleportDistance   ' ... If Distance(0, 0, i.X, i.Y) < VisibleDistance ' Assuming that at position 0,0 is the player, and the i.X/Y is the item.

[coconParticipant]

Is there any secret to produce games fast? Refactoring and fixing bad code design sucks too much time.

[coconParticipant]

As a sidenote you could do something like this to make the codebase a bit more modular.

Monkey

Class Unit Method Do() End End Class UnitCollection Abstract Global Units:List<Unit> = New List<Unit> Function Init() '...' End Function Update() For Local unit := Eachin Units unit.Do Next End End ' usage: UnitCollection.Init() UnitCollection.Update()

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Class Unit Method Do() End End   Class UnitCollection Abstract Global Units:List<Unit> = New List<Unit> Function Init() '...' End Function Update() For Local unit := Eachin Units unit.Do Next End End   ' usage: UnitCollection.Init() UnitCollection.Update()

[coconParticipant]

You did something like, sudo apt-get g++?

[coconParticipant]

Don’t worry, knowledge is easy to acquire, you only need to take notes on what you want to do and then at some point you might find it somewhere in the internet. Asking at forums helps also because you can get direction on where to look.

For example the problem of the distance is solved like this.
http://www.blitzbasic.com/codearcs/codearcs.php?code=2739
If you are interested to use 3D distance, you can do this:
dx = x2 – x1
dy = y2 – y1
dz = z2 – z1
sqr(dx*dx + dy*dy + dz*dz)

Keep up the good work!

[coconParticipant]

 

mixing 2d with 3d in separate layers

Is this some type of masking? It might be interested technique.

[Author]

Posts