Zelaron Gaming Forum - View Single Post

Goodlookinguy

Goodlookinguy said: [Goto]

Make games. I've written a social networking script with all of the shit. Then guess what, I did nothing with it and it's sitting on my hard drive. Making games is a lot more fun, that is unless you aren't programming the site. But with that post I got the impression you were. And game making isn't terribly difficult, just creative and a bit time consuming.

If you want me to go into details, PM me or something. (Edit: I guess I should specify, I mean literal game programming, not like RPG Maker game making)

----

Fuck yeah, my map system and its multidimensional array map tile IDs.

Code

Code:

Local MainMap:TMap = New TMap
MainMap.LoadTileset("./imgs/ground.png")
MainMap.MakeMap(1, ..
[ ..
 [  2,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  6,  4], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  9,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  7], ..
 [  5,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  3]  ..
] ..
)

Local preLogicMilliSecs% = 0
Local drawMilliSecs% = 0
Local postLogicMilliSecs% = 0

Local GameOver:Int = False

While (Not GameOver)
	If (KeyDown(KEY_ESCAPE)) GameOver = True

	'FPS Calculation
	glbFPS.Calc()
	
	' Pre Logic (60 / sec)
	If (MilliSecs() - preLogicMilliSecs > 16)
		preLogicMilliSecs = MilliSecs()
	End If
	
	' Draw (30 / sec)
	If (MilliSecs() - drawMilliSecs > 33)
		Cls
		
		MainMap.Draw()
		
		'FPS Displayer
		glbFPS.Display()
		
		Flip
		drawMilliSecs = MilliSecs()
	End If
	
	' Post Logic (60 / sec)
	If (MilliSecs() - postLogicMilliSecs > 16)
		postLogicMilliSecs = MilliSecs()
	End If
	
	Delay 1
Wend

End

Thanks for the tips. I will do so, or at least look into it.