[therevillsParticipant]

For 2D I just use Bresenham Line on an array.

This is MX1 code but you should be able to convert it, it will return an int of a map array (eg the tile):

Monkey

Method CheckCollision:Int(startX:Float, startY:Float, endX:Float, endY:Float) ' use Bresenham Line Local x1:Int = startX Local y1:Int = startY Local x2:Int = endX Local y2:Int = endY Local deltax:Int = Abs(x2 - x1) Local deltay:Int = Abs(y2 - y1) Local numpixels:Int, d:Int, dinc1:Int, dinc2:Int, xinc1:Int, xinc2:Int, yinc1:Int, yinc2:Int, x:Int, y:Int, i:Int Local xx:Int, cx:Int Local yy:Int, cy:Int Local tile:Int If deltax >= deltay numpixels = deltax + 1 d = (2 * deltay) - deltax dinc1 = deltay Shl 1 dinc2 = (deltay - deltax) Shl 1 xinc1 = 1 xinc2 = 1 yinc1 = 0 yinc2 = 1 Else numpixels = deltay + 1 d = (2 * deltax) - deltay dinc1 = deltax Shl 1 dinc2 = (deltax - deltay) Shl 1 xinc1 = 0 xinc2 = 1 yinc1 = 1 yinc2 = 1 End If x1 > x2 xinc1 = -xinc1 xinc2 = -xinc2 End If y1 > y2 yinc1 = -yinc1 yinc2 = -yinc2 End x = x1 y = y1 For i = 1 To numpixels xx = Floor(x / TILE_WIDTH) yy = Floor(y / TILE_HEIGHT) tile = map[yy][xx] ' exit when we have a collision If tile <> 0 Then cx = x cy = y Exit End If d < 0 d = d + dinc1 x = x + xinc1 y = y + yinc1 Else d = d + dinc2 x = x + xinc2 y = y + yinc2 End Next Return tile 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

Method CheckCollision:Int(startX:Float, startY:Float, endX:Float, endY:Float) ' use Bresenham Line Local x1:Int = startX Local y1:Int = startY Local x2:Int = endX Local y2:Int = endY   Local deltax:Int = Abs(x2 - x1) Local deltay:Int = Abs(y2 - y1) Local numpixels:Int, d:Int, dinc1:Int, dinc2:Int, xinc1:Int, xinc2:Int, yinc1:Int, yinc2:Int, x:Int, y:Int, i:Int Local xx:Int, cx:Int Local yy:Int, cy:Int Local tile:Int If deltax >= deltay numpixels = deltax + 1 d = (2 * deltay) - deltax dinc1 = deltay Shl 1 dinc2 = (deltay - deltax) Shl 1 xinc1 = 1 xinc2 = 1 yinc1 = 0 yinc2 = 1 Else numpixels = deltay + 1 d = (2 * deltax) - deltay dinc1 = deltax Shl 1 dinc2 = (deltax - deltay) Shl 1 xinc1 = 0 xinc2 = 1 yinc1 = 1 yinc2 = 1 End If x1 > x2 xinc1 = -xinc1 xinc2 = -xinc2 End If y1 > y2 yinc1 = -yinc1 yinc2 = -yinc2 End x = x1 y = y1   For i = 1 To numpixels xx = Floor(x / TILE_WIDTH) yy = Floor(y / TILE_HEIGHT) tile = map[yy][xx] ' exit when we have a collision If tile <> 0 Then cx = x cy = y Exit End If d < 0 d = d + dinc1 x = x + xinc1 y = y + yinc1 Else d = d + dinc2 x = x + xinc2 y = y + yinc2 End Next Return tile End

[therevillsParticipant]

G’day! Welcome aboard!

[therevillsParticipant]

Nice game Adam!

How do you kill the monsters?

[therevillsParticipant]

I’ve compiled a Windows exe if you want to try it:

Plane-Demo.zip

[therevillsParticipant]

Great little demo! I said to Mark (via Twitter) that the little monkey should become Monkey2’s mascot!

[therevillsParticipant]

Looking on the wiki and checking supported lifespans the iPhone6S would be the minimum you would want to get:

https://en.wikipedia.org/wiki/IPhone#History_and_availability

An iPhone SE or a iPhone 7 would last a bit longer…

[therevillsParticipant]

Congrats Adam for winning the FFSJam!

https://itch.io/jam/finally-finish-something-2018/results

GTDC came 12th

[therevillsParticipant]

Either rewrite or step back for a day and relax…

[therevillsParticipant]

I’ve been eating better too since November, lost around 10kg but not really tracking it. Just eating less junk and overall eating less, also doing a bit more exercise… but still enjoying food now and again (eg the curry last night, KFC zinger burger last Saturday).

[therevillsParticipant]

I did something like this when I was trying Pyro:

Monkey

Class MyScreen Extends Screen Const NOT_FADING:Int = 0 Const FADE_IN:Int = 1 Const FADE_OUT:Int = 2 Const FADE_SPEED:Float = 0.05 Field fadeValue:Float = 0 Field fading:Int = NOT_FADING Field nextScreen:MyScreen Method SetScreen() self.Set() Self.fading = MyScreen.FADE_IN Self.fadeValue = 0 End Method OnPostRender( canvas:Canvas ) Override If fading > NOT_FADING DrawFader( canvas, fadeValue ) End End Method FadeToScreen(screen:MyScreen) nextScreen = screen fading = FADE_OUT End Method UpdateScreenFade() If fading > NOT_FADING If fading = FADE_IN If fadeValue < 1 fadeValue += FADE_SPEED Else fadeValue = 1.0 fading = NOT_FADING Endif Else If fadeValue > 0 fadeValue -= FADE_SPEED Else fadeValue = 0 nextScreen.SetScreen() fading = NOT_FADING End End End End Method OnUpdate() Override UpdateScreenFade() 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

Class MyScreen Extends Screen Const NOT_FADING:Int = 0 Const FADE_IN:Int = 1 Const FADE_OUT:Int = 2 Const FADE_SPEED:Float = 0.05 Field fadeValue:Float = 0 Field fading:Int = NOT_FADING Field nextScreen:MyScreen Method SetScreen() self.Set() Self.fading = MyScreen.FADE_IN Self.fadeValue = 0 End Method OnPostRender( canvas:Canvas ) Override If fading > NOT_FADING DrawFader( canvas, fadeValue ) End End Method FadeToScreen(screen:MyScreen) nextScreen = screen fading = FADE_OUT End Method UpdateScreenFade() If fading > NOT_FADING If fading = FADE_IN If fadeValue < 1 fadeValue += FADE_SPEED Else fadeValue = 1.0 fading = NOT_FADING Endif Else If fadeValue > 0 fadeValue -= FADE_SPEED Else fadeValue = 0 nextScreen.SetScreen() fading = NOT_FADING End End End End Method OnUpdate() Override UpdateScreenFade() End End

The using Pyro’s screenmanager:

Monkey

Class NightOfTheUnfed Extends ScreenManager Method New(title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Resizable) Super.New(title, width, height, flags) ClearColor=Color.Black Layout = "letterbox" gameScreen = New GameScreen titleScreen = New TitleScreen ' titleScreen.SetScreen() loader=New Loader loader.Set() loader.FollowUpScreen=titleScreen End Method OnMeasure:Vec2i() Override Return virtualResolution End End

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

Class NightOfTheUnfed Extends ScreenManager Method New(title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Resizable) Super.New(title, width, height, flags) ClearColor=Color.Black Layout = "letterbox" gameScreen = New GameScreen titleScreen = New TitleScreen ' titleScreen.SetScreen() loader=New Loader loader.Set() loader.FollowUpScreen=titleScreen End   Method OnMeasure:Vec2i() Override Return virtualResolution End End

Monkey

Class GameScreen Extends MyScreen Field camera:Camera Field scene:Scene Field light:LayerSprite Field atlas:Image Field player:Player Field layer:Layer 'Field maze:Maze Field mymap:themap Method New() End Method OnStart() Override scene = New Scene(ScreenManager) ... Method OnUpdate() Override Super.OnUpdate() If Keyboard.KeyHit(Key.Escape) FadeToScreen(titleScreen) 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

Class GameScreen Extends MyScreen Field camera:Camera Field scene:Scene Field light:LayerSprite Field atlas:Image     Field player:Player     Field layer:Layer     'Field maze:Maze          Field mymap:themap      Method New()   End Method OnStart() Override scene = New Scene(ScreenManager)   ...   Method OnUpdate() Override Super.OnUpdate() If Keyboard.KeyHit(Key.Escape) FadeToScreen(titleScreen) End

[therevillsParticipant]

Thats nice of him (or her).. but it would be more professional to have them hosted under monkeycoder.co.nz (or monkeycoder.com in the future, maybe hint hint)…

[therevillsParticipant]

What about trying AssetDir?

http://turdus.be/monkey2docs/docs/modules/std/module/std-filesystem-AssetsDir.html

Monkey

std:std.filesystem.AssetsDir Function AssetsDir:String( ) Gets the filesystem directory of the app's assets directory. Note that only the desktop and web targets have an assets directory. Other targets will return an empty string.

1 2 3 4 5

std:std.filesystem.AssetsDir Function AssetsDir:String( ) Gets the filesystem directory of the app's assets directory. Note that only the desktop and web targets have an assets directory. Other targets will return an empty string.

[therevillsParticipant]

Our Mac Mini is still running OS X Mavericks (10.9.5)… as for some game portals I needed to compile for that platform!!

[therevillsParticipant]

I do the following in Diddy2:

Monkey

Local image:Image = Image.Load(path) If Not image Print("Error: Can not load image: " + path) App.Terminate() End

1 2 3 4 5 6 7

Local image:Image = Image.Load(path) If Not image Print("Error: Can not load image: " + path) App.Terminate() End

[therevillsParticipant]

@pakz I cheat, put everything in an assests folder and just use:

Monkey

#Import "assets/"

1	#Import "assets/"

Which will copy over all the assets

[Author]

Posts