9
Posts
5
Followers
A member registered Mar 15, 2017 · View creator page →

### Recent community posts

really impressive on the graphics. Would love to see this when its finished.

Fun little game.  Found all 5 :)

Once I figured out how to solve the puzzles, I really enjoyed this game.  Got up to level 12.

Really liked this one.  You might want to check on the collision with the spiky monsters.  If I get close enough without actually touching them, I end up dying.

the portal level was to introduce you to portals :) I tried to make it a bit challenging without distracting you with a bunch of other mechanics. I tried to keep it from becoming too frustrating, at least in the first few levels (I did get a bit devious later on), but I didn't spend enough time fine tuning them. Probably, after voting is done,I will redo the levels a bit. BTW, if you take a systematic approach at the portals, you will reach the exit in a maximum of 43 jumps, as little as 3 jumps once you know the correct portals.

Don't know what you're trying to achieve.  Better to ask questions at SyntaxBomb as that is where most of the BlitzMax users have gone.

Anyway, I gave it a go here.

SuperStrict' drawline.bmx
' draws a hair at the mouse position using Drawline.
'A type for a single polygon
Type TPolygon
Field Points:Float[]
End Type
'A polygon must be convex so we create a Shape type to
'  hold several polygons to make more complex shapes
Type TShape
Field Polygons:TList = CreateList()

'Adds a single polygon to the shape
Local Polygon:TPolygon = New TPolygon
Polygon.Points = Points
End Method

'draws all the polygons
Method Draw(x:Float, y:Float)
Local OriginX:Float, OriginY:Float
GetOrigin(OriginX, OriginY) 'store the origin
SetOrigin x,y 'set the origin to the polygon's location
For Local Polygon:TPolygon = EachIn Polygons 'draw the polygons
DrawPoly Polygon.Points
Next
SetOrigin OriginX,OriginY 'restore the origin
End Method
End Type
Local Star:TShape = New TShape 'create the star shape
Local Point:Float[] 'an array to hold each point of the star
For Local i:Int = 0 Until 5 '5 points
Local Angle:Float = i * 72 - 90
Point = New Float[6] 'create a new array to hold the points
Point[0] = Cos(Angle) * 30
Point[1] = Sin(Angle) * 30
Point[2] = Cos(Angle+36) * 11.459
Point[3] = Sin(ANgle+36) * 11.459
Point[4] = Cos(Angle-36) * 11.459
Point[5] = Sin(Angle-36) * 11.459
Next

Graphics 640,480
HideMouse
While Not KeyHit(KEY_ESCAPE)
Cls
Local x:Int=MouseX()
Local y:Int=MouseY()
DrawLine 32,24,x,y
Star.Draw(x,y)
Flip
Wend

What are your laptop's specifications? CPU, OS, video?  What happens when you try and execute the game?  What errors do you get?

New version adds more math functions and a stack.