Tile Up/Showcase (SoCoder)

Showcase > Apps and Utilities (

Created 25 September 2006 | Last Edited 15 June 2008)

Tile Up - Created by mike_g (No Votes)

2d Tile editor With lots of features

Created using Blitz >

View Worklog (0 entries)

http://grundez.googlepages.com/Applications.html

I wanted a level editor that I could use for more or less any 2d game. This is what I got so far. Has some nice features such as, a config setup that makes it easy to configure any tileset for use within the program. Features random map generation tool. Draw selected areas of tiles. Draw tools like flood fill and rect draw. Saves and loads maps. up to 5 draw levels each with up to 5 placeable levels. Auto generates minimaps for your levels. Nice GUI.

Recent Updates

Very soon I'll put a draw tile function with this to use as an include file in blitzs progs. Then hopefully it should be quicker and easier to make 2d games

Latest Comments

Posted : Monday, 25 September 2006, 03:38

Jayenkai

I like the Random Generation feature. If you incorporated something like that into an RPG, so that every game was different, then you'd have a pretty fun engine going on.

Posted : Thursday, 12 April 2007, 13:35

mike_g

Well its been almost a year now and I have finally got round to making the two functions to load and draw the maps so you can finally use it to make maps for your Blitz progs. Heres the code:

Dim tile(10000)
Global mapname$
Global tilesetname$ 
Global placeablesname$
Global x_cells, y_cells
Global tilesize
Global placeable_height
Global levels
Global placeable_layers
Global isometric
Global placeables_per_tile

Global tile_pic
Global tilesetwidth
Global tilesetheight
Global num_tiles
Global tiles

Global place_pic
Global psetwidth
Global num_placeables
Global placeables


Global current_level
Global number_of_tiles
;-------------------------------------------------;
;DEMO
LOAD_MAP("Map.dat")
SetBuffer BackBuffer()
While Not KeyHit(1)
	Cls
	DRAW_MAP(x_offset, y_offset)
	Flip 
Wend
;-----------------------------------------------------------------------------------------------------;
;*****************************************************************************************************;
;-----------------------------------------------------------------------------------------------------;
Function LOAD_MAP(m$)
	
	;LOAD DATA
	load_file = ReadFile(m$)
	mapname$ = ReadLine(load_file)
	tilesetname$ = ReadLine(load_file)
	placeablesname$ = ReadLine(load_file)
	x_cells = ReadLine(load_file)
	y_cells = ReadLine(load_file)
	tilesize = ReadLine(load_file)
	placeable_height = ReadLine(load_file)
	levels = ReadLine(load_file)
	placeable_layers = ReadLine(load_file)
	isometric = ReadLine(load_file)
	placeables_per_tile = ReadLine(load_file)
		
	number_of_tiles =(((x_cells * y_cells)*(placeable_layers+1))*levels)
	For i = 0 To number_of_tiles
	 	tile(i) = ReadInt(load_file) 
	Next
	CloseFile(load_file) 

	;LOAD NEW TILESETS
	tile_pic = LoadImage(tilesetname$)
	tilesetwidth = ImageWidth(tile_pic):	tilesetheight =  ImageHeight(tile_pic) 
	num_tiles = (tilesetwidth/tilesize) * (tilesetheight/tilesize)
	tiles = LoadAnimImage(tilesetname$, tilesize, tilesize, 0, num_tiles)
	MaskImage tiles, 255, 0, 255:		MaskImage tile_pic, 255, 0, 255
		
	If placeablesname$ <> ""			;only load placeables if they exist 
		place_pic = LoadImage(placeablesname$)
		psetwidth = ImageWidth(place_pic):		psetheight =  ImageHeight(place_pic) 
		num_placeables = (psetwidth/tilesize) * (psetheight/placeable_height)
		placeables = LoadAnimImage(placeablesname$, tilesize, placeable_height, 0, num_placeables)
		MaskImage placeables, 255, 0, 255:		MaskImage place_pic, 255, 0, 255		
	EndIf

End Function

;-----------------------------------------------------------------------------------------------------;
;*****************************************************************************************************;
;-----------------------------------------------------------------------------------------------------;

Function DRAW_MAP(x_offset, y_offset)
bit= Sqr#(placeables_per_tile)
placeable_y_cells = (y_cells * bit)-1
placeable_x_cells = (x_cells * bit)-1
place_offset = (placeable_height - placeable_width)
tilenum=0
For l = 1 To 6	
	If l > levels Then Exit
	;DRAW EACH LEVEL
	For t_y = 0 To 1000
		If t_y > (y_cells-1) Then Exit	
		For t_x = 0 To 1000
			If t_x > (x_cells-1) Then Exit
			If tile(tilenum) > -1	;if not blank 
				If view_l = 0 And l < current_level 
				Else
					DrawImage tiles, ((t_x*tilesize)-x_offset), ((t_y*tilesize)-y_offset), tile(tilenum)   
				EndIf 
			EndIf 
			tilenum = tilenum +1
		Next
	Next
	;Then DRAW PLACEABLES ON Each LEVEL
	If placeable_layers > 0 And view_p=1
		For p = 1 To 6
			If p > placeable_layers Then Exit
			For p_y = 0 To 50000
				If p_y > placeable_y_cells Then Exit
				For p_x = 0 To 50000						
					If p_x > placeable_x_cells Then Exit
					If tile(tilenum) > -1	
						DrawImage placeables, ((p_x * placeable_width)-scroll_h+20), ((p_y*placeable_width)-place_offset-scroll_v+20), tile(tilenum)  						
					EndIf 	
					tilenum = tilenum +1
				Next 
			Next
		Next
	EndIf  
Next
End Function

-->
Its only a quick hash up. I will work on optimizing it. If you use it then you will need to have both the tile and placeable set in the same directory.

Posted : Thursday, 12 April 2007, 14:51

Blitz3Dman

Once I learn a bit of C++ maybe I'll make a real nice level editor - that's what I'm going to do once I finish The Running Man, except I'm going to start off in blitz.

By the way, would you mind letting me have a peek at your source?

And I didn't look to see whose showcase this was but the file menu in the screenshot was a dead giveaway

Posted : Thursday, 12 April 2007, 17:24

mike_g

Err. I dont know how useful the code would be to you. Theres a lot of it and its a bit of a mess. To start off you might be best off looking at something simple that just shows how to do the basic stuff. Draw tiles, save maps, that sort of stuff. I have an smaller old tile editor that I made ages ago but tbh it sux.

Posted : Thursday, 12 April 2007, 17:47

Blitz3Dman

No, not because I don't know how to do it (see my level editor for The Running Man at least I don't think it sucks) but because I want to see how you did it to find out if you are using any better techniques than I so that I can improve my code.

Posted : Tuesday, 17 April 2007, 05:36

Blitz3Dman

Is there any chance I will get a peek at the code?

If not, okay but I am curious how you did your floodfill and all.

Posted : Tuesday, 17 April 2007, 08:37

mike_g

But if you want to know how I did the floodfill I used this
algo replacing drawpixel with the tile to draw. Its pretty crude and slow so no good for realtime drawing, but for something like a tile editor its simple and works fine.