Sorry your browser is not supported!

Rem Project: DungeonGenerator
Rem Created: Saturday, August 18, 2012

Rem ***** Main Source File *****

//global WallImage as integer = 1
global ArrayXSize as integer = 4
global ArrayYSize as integer = 9

set display mode 1024, 768, 32
//load image "media/wall.jpg", WallImage
//paste image WallImage, 50, 50
//paste image WallImage, 50+56, 50



dim DungeonArray(ArrayXSize, ArrayYSize)

for x = 0 to ArrayXSize 
    for y = 0 to ArrayYSize
        print str$(x) + " " + str$(y)
        wait key
    next y
next x

undim DungeonArray()

wait key
end

//global WallImage as integer = 1
global ArrayXSize as integer = 10
global ArrayYSize as integer = 5

#constant OPEN_TILE 1
#constant WALL_TILE 2



dim DungeonArray(ArrayXSize, ArrayYSize) as integer

for x = 0 to ArrayXSize 
    for y = 0 to ArrayYSize
        dungeonArray(x,y)=OPEN_TILE
    next y
next x
for x=0 to ArrayXSize
	dungeonArray(x,0)=WALL_TILE
	dungeonArray(x,arrayYsize)=WALL_TILE
next x
for y=0 to arrayYSize
	dungeonArray(0,y)=WALL_TILE
	dungeonArray(arrayXSize/2,y)=WALL_TILE
	dungeonArray(arrayXSize,y)=WALL_TILE	
next y


drawTiles()


wait key
end


function drawTiles()
	mult=20
	for x=0 to arrayXSize
		for y=0 to arrayYsize
			select dungeonArray(x,y)
			case OPEN_TILE
				box x*mult,y*mult,(x+1)*mult,(y+1)*mult,rgb(255,255,0),rgb(255,255,0),rgb(255,255,0),rgb(255,255,0)
			endcase
			case WALL_TILE
				box x*mult,y*mult,(x+1)*mult,(y+1)*mult,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
			endcase
			endselect
		next y
	next x
endfunction

Rem Project: DungeonGenerator
Rem Created: Sunday, August 19, 2012

Rem ***** Main Source File *****
set display mode 1280, 960, 32

//load image "media\wall.jpg", 1

global ArrayXSize as integer = 15
global ArrayYSize as integer = 15

dim DungeonGrid(ArrayXSize, ArrayYSize)

for y = 0 to ArrayYSize
    for x = 0 to ArrayXSize
        print "(" + str$(X) + ", " + str$(y) + ")"
        wait key
    next x
next y

wait key
end

type DGMAP_CELL_TYPE
    cell as integer
    room as integer
endtype
dim DGMAP_Map(width-1, height-1) as DGMAP_CELL_TYPE

#constant DGMAP_NOTHING     0x00000000
#constant DGMAP_BLOCKED     0x00000001
#constant DGMAP_ROOM        0x00000002
#constant DGMAP_CORRIDOR    0x00000004
#constant DGMAP_PERIMITER   0x00000010
#constant DGMAP_ENTRANCE    0x00000020

//Type for the gride
type grid
	name as string
	filename as string
	id as integer
	texture as integer
	
endtype
//Make labelling images easier :)
brick = 1
grass = 2
sandstone = 3
cliff = 4
//Load the textures
load image "Media/brick1_t.bmp", brick
load image "media/grass_t.bmp", grass
load image "media/sandstone_t.bmp", sandstone
load image "media/sandstone_cliff_t.bmp", cliff

sync on
sync rate 60

//For laying out the 3D tiles
tX = 8
tY = 7
dim tile(tX,tY) as grid

//Size & gap variables for each of the tiles
size = 10
gap = size
//Size of the gride in the text file
mapsize=10
//Stored into an array
dim map$(10,10)
//Load the map
loadmap("media/map.txt",mapsize)



//Parse X and Y
for y = 1 to tY
	
	

	for x = 1 to tX
		//Get a free object
		tile(x,y).id = FreeObject()
		//store into 'n' for ease
		n = tile(x,y).id
		//Make and position the tile
		make object box n, size, 5, size
		position object n, -gap*x, 0, gap*y
		//Check the texture of the current tile
		//And Apply it
		if map$(x,y) = "." then t = grass
		if map$(x,y) = "#" then t = brick
		if map$(x,y) = ":" then t = sandstone
		if map$(x,y) = "S" then t = cliff
		texture object n, t

	next x
next y


do
	//Show the Map
	for x = 1 to tx
		for y = 1 to ty
			text 10*x,10*y,  map$(x,y)
		next y
		
	next x
	
	//Control
	if upkey() = 1 then move camera  5
	if downkey() = 1 then move camera -5
	
	
	yrotate camera wrapvalue(camera angle y() + mousemovex())
   xrotate camera wrapvalue(camera angle x() + mousemovey())
	
	
	
	sync
loop
//for getting a free object
function FreeObject()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i


//For loading a map file
function loadmap(filename$,size)
	open to read 1,filename$
	for y=1 to size
		for x=1 to size
			read byte 1,tmp
			map$(x,y)=chr$(tmp)
		next x
	next y
	close file 1
endfunction

S.......
S.......
...:::::
...:###:
...:###:
...:::::
.......S