Sorry your browser is not supported!

_load_map: 

// Globals :
GLOBAL player
GLOBAL object_cube


// Map Settings
SYNC ON
SYNC RATE 60
AUTOCAM OFF
phy start `start de physics engine

// load the map file
// LoadMap("content/maps/map01/map01.dbo")
map = B3D LOAD OBJECT ("content/maps/map01/map01.dbo")

// Enviromental Settings
FOG ON
FOG Color RGB(161,208,255)
FOG DISTANCE 8000

// create temporary camera
dev_cam = CMR MAKE CAMERA()
COLOR BACKDROP dev_cam,RGB(161,208,255)
SET CAMERA RANGE dev_cam,0.1,9000
POSITION CAMERA dev_cam,0,200,0


// Find and load all limbs/entities of the map
for Limb = 0 to get limb count( map )
		
	// test_cube / object_cube
	if instr(limb name$(map, Limb), "test_cube") > 0
	
		object_cube = find free object()
		load object "contentmodelstempcubecube.x", object_cube
		position object object_cube, limb position x(map, Limb), limb position y(map, Limb), limb position z(map, Limb)
		rotate object object_cube, limb direction x(map, Limb), limb direction y(map, Limb), limb direction z(map, Limb)
		
		//phy make rigid body static box object_cube
	
	endif
		
	// Info_player_start / player
	if instr(limb name$(map, Limb), "info_player_start") > 0
	
		player = find free object()
		
		// player model
		load object "contentmodelscharactersplayerplayer.x", player
		position object player, limb position x(map, Limb), limb position y(map, Limb), limb position z(map, Limb)
		rotate object player, limb direction x(map, Limb), limb direction y(map, Limb), limb direction z(map, Limb)
		
		//phy make rigid body static box player
	
	endif
		
next

// Main map loop
repeat
	
	LOCK BACKBUFFER `Backbuffer op slot en dan data laden
	
	
	// 3D Stuff
	
	// dev_cam controls
	CONTROL CAMERA USING ARROWKEYS dev_cam,10,5
	
	// Temp. player movement
	IF  KEYSTATE(17)=1
		MOVE OBJECT player,-10
	ENDIF
	
	IF KEYSTATE(31)=1
		MOVE OBJECT player,10
	ENDIF
	
	IF KEYSTATE(30)=1
		TURN OBJECT LEFT player,10
	ENDIF
	
	IF KEYSTATE(32)=1
		TURN OBJECT RIGHT player,10
	ENDIF
	
	// Temp. cube code
	IF OBJECT COLLISION (player, object_cube)
		DELETE OBJECT object_cube
	ENDIF

	
		
	UNLOCK BACKBUFFER `Open de backbuffer en render de data
	// 2D Stuff
	
	// tekst
	Text 3,1,"DevEd 3D v0.1 Alpha"
	Text 3,13,"Use the arrow keys to move the camera."
	
	//PHY UPDATE
	SYNC
		  
until escapekey() = 1

end // Ends the program

// DevEd 3D Game Engine - Load & run map
_load_map: 

// Globals :
//GLOBAL player
//GLOBAL object_cube

// Map Settings
SYNC ON
SYNC RATE 60
AUTOCAM OFF
phy start `start de physics engine

// load the map file
map = B3D LOAD OBJECT ("content/maps/map01/map01.dbo")

// Enviromental Settings
FOG ON
FOG Color RGB(161,208,255)
FOG DISTANCE 8000

// create temporary camera
dev_cam = CMR MAKE CAMERA()
COLOR BACKDROP dev_cam,RGB(161,208,255)
SET CAMERA RANGE dev_cam,0.1,9000
POSITION CAMERA dev_cam,0,200,0


// Find and load all limbs/entities of the map
for Limb = 0 to get limb count( map )
		
	// test_cube / object_cube
	if instr(limb name$(map, Limb), "test_cube") > 0
	
		object_cube = find free object()
		
		load object "contentmodelstempcubecube.x", object_cube
		position object object_cube, limb position x(map, Limb), limb position y(map, Limb), limb position z(map, Limb)
		rotate object object_cube, limb direction x(map, Limb), limb direction y(map, Limb), limb direction z(map, Limb)
	
	endif
	
	// Info_player_start / player
	if instr(limb name$(map, Limb), "info_player_start") > 0
	
		player = find free object()
			
		load object "contentmodelscharactersplayerplayer.x", player
		position object player, limb position x(map, Limb), limb position y(map, Limb), limb position z(map, Limb)
		rotate object player, limb direction x(map, Limb), limb direction y(map, Limb), limb direction z(map, Limb)

	endif
		
next

// Main map loop
repeat
	
	LOCK BACKBUFFER `Backbuffer op slot en dan data laden
	
	
	// 3D Stuff
	
	// dev_cam controls
	CONTROL CAMERA USING ARROWKEYS dev_cam,10,5
	
	// Temp. player movement
	IF  KEYSTATE(17)=1
		MOVE OBJECT player,-10
	ENDIF
	
	IF KEYSTATE(31)=1
		MOVE OBJECT player,10
	ENDIF
	
	IF KEYSTATE(30)=1
		TURN OBJECT LEFT player,10
	ENDIF
	
	IF KEYSTATE(32)=1
		TURN OBJECT RIGHT player,10
	ENDIF
	
	// Temp. cube code
	IF OBJECT EXIST(object_cube)
		IF OBJECT COLLISION (player, object_cube)
			DELETE OBJECT object_cube
		ENDIF
	ENDIF
	
		
	UNLOCK BACKBUFFER `Open de backbuffer en render de data
	// 2D Stuff
	
	// tekst
	Text 3,1,"DevEd 3D v0.1 Alpha"
	Text 3,13,"Use the arrow keys to move the camera."
	
	//PHY UPDATE
	SYNC
		  
until escapekey() = 1

end // Ends the program

IF OBJECT EXIST(object_cube)
ihavehitwhat=object collision (player,0)
		IF OBJECT COLLISION (player, ihavehitwhat)
			DELETE OBJECT ihavehitwhat
		ENDIF
	ENDIF

// DevEd 3D Game Engine - Load & run map
_load_map: 
// SEND VOICE MESSAGE "Use the arrow keys to move the camera. Ust the w, a, s, d, keys to move the player character."

// Globals :
//GLOBAL player
//GLOBAL object_cube

// Map Settings
SYNC ON
SYNC RATE 60
AUTOCAM OFF
phy start `start de physics engine

// load the map file
map = B3D LOAD OBJECT ("content/maps/map01/map01.dbo")

// Enviromental Settings
FOG ON
FOG Color RGB(161,208,255)
FOG DISTANCE 8000

// create temporary camera
dev_cam = CMR MAKE CAMERA()
COLOR BACKDROP dev_cam,RGB(161,208,255)
SET CAMERA RANGE dev_cam,0.1,9000
POSITION CAMERA dev_cam,0,200,0


// Find and load all limbs/entities of the map
for Limb = 0 to get limb count( map )
		
	// test_cube / object_cube
	if instr(limb name$(map, Limb), "test_cube") > 0
		
		object_cube = find free object()
		
		load object "content\models\temp\cube\cube.x", object_cube
		position object object_cube, limb position x(map, Limb), limb position y(map, Limb), limb position z(map, Limb)
		rotate object object_cube, limb direction x(map, Limb), limb direction y(map, Limb), limb direction z(map, Limb)
	
	endif
	
	// Info_player_start / player
	if instr(limb name$(map, Limb), "info_player_start") > 0
	
		player = find free object()
			
		load object "content\models\characters\player\player.x", player
		position object player, limb position x(map, Limb), limb position y(map, Limb), limb position z(map, Limb)
		rotate object player, limb direction x(map, Limb), limb direction y(map, Limb), limb direction z(map, Limb)

	endif
		
next

// Main map loop
repeat
	
	LOCK BACKBUFFER `Backbuffer op slot en dan data laden
	
	
	// 3D Stuff
	
	// dev_cam controls
	CONTROL CAMERA USING ARROWKEYS dev_cam,10,5
	
	// Temp. player movement
	IF  KEYSTATE(17)=1
		MOVE OBJECT player,-10
	ENDIF
	
	IF KEYSTATE(31)=1
		MOVE OBJECT player,10
	ENDIF
	
	IF KEYSTATE(30)=1
		TURN OBJECT LEFT player,10
	ENDIF
	
	IF KEYSTATE(32)=1
		TURN OBJECT RIGHT player,10
	ENDIF
	
	// Temp. cube code
	IF OBJECT EXIST(object_cube)
		
		IF OBJECT COLLISION (object_cube, player)
			
			HIDE OBJECT object_cube
			
		ENDIF
			
	ENDIF

		
	UNLOCK BACKBUFFER `Open de backbuffer en render de data
	// 2D Stuff
	
	// tekst
	Text 3,1,"DevEd 3D v0.1 Alpha"
	Text 3,13,"Use the arrow keys to move the camera and use the W,A,S,D keys to move the character."
	
	//PHY UPDATE
	SYNC
		  
until escapekey() = 1

end // Ends the program

	// Temp. cube code
	IF OBJECT EXIST(object_cube)
		
		IF OBJECT COLLISION (object_cube, player)
			
			HIDE OBJECT object_cube
			
		ENDIF
			
	ENDIF

	// Temp. cube code
	oc=object collision(object_cube,0)
	if oc>0
	   if object visible(oc)=1 then hide object oc
	endif

	// Temp. cube code
	oc=object collision(player, 0)
	if oc>0 and oc<>map
	   if object visible(oc)=1 then hide object oc
	endif

	// Temp. cube code
	oc=object collision(player, 0)
	if oc=>11 
	   if object visible(oc)=1 then hide object oc
	endif

	//Temp. cube code
for player=1 to 10
	oc=object collision(player, 0)
	if oc=>11 
	   if object visible(oc)=1 then hide object oc
	endif
next player

for t=1 to 32
`make players
next t
for t=33 to 63
`make level one cubes
next t
for t=64 to 114
`make level two cubes
next t
playerchecklimit=32
if level=1 then startcheck=33 : finishcheck=63
if level=2 then startcheck=64 : finishcheck=114

for player=1 to playerchecklimit
	oc=object collision(player, 0)
	if oc=>startcheck and oc=<finishcheck
	   if object visible(oc)=1 then hide object oc
	endif
next player

`Basic outline:

`load menu stuff(all images for sprites)
`load default scene(grid and gizmo or whatever)**0**

`main loop
   `menu stuff(draw menu to screen)
   `actions(user input)
`end main loop

`menustuff; (example of relevent options/functions)
   `load/save game
   `import .DEF to scene(add to the scene on each import) - just pass start end end range values through to your current code**1**
   `switch current scene to a different level of this game**1**
   `remove limbs/objects from scene**1**
   `add limbs/objects to scene**1**
   `add/remove player charactor**2**
   `add/remove npc**2**
   `add/remove trigger - placeholder objects**3**
   `add win nodes - placeholder objects**4**
   `switch between edit and play mode

`actions;
   `edit mode controls
   `play mode controls

`---------------------------------------------------------------------------------------------------------------------------------------------------------
`---------------------------------------------------------------------------------------------------------------------------------------------------------
`---------------------------------------------------------------------------------------------------------------------------------------------------------

`*notes*
`each level must have a record of all its data - your own format. If 1 DEF file is one object then a list of data for each DEF file;
   `Total number of DEF objects, DEF object number,number of limbs,objectsforlimbsrangestartnumber,dimensions, position and rotation data for limb 1,
   `then 2 etc, next DEF object number and so on until the total number of DEF objects are completed
   `same goes for charactors and placeholders, use different files for each layer, so the world data in 1 file "lvl1world.dat", charactor data in another "lvl1char.dat" etc

`whenever a level is switched auto save the level;
   `remove all limbs from objects, exclude all objects, load the level to switch between and if an object exists then unexclude it add limbs etc instead of creating a new one

`whenever alterations are made to the current level, the levels record of data must be altered accordingly
`add data when adding stuff to scene but set data to zero value for stuff removed from scene, don`t remove stuff from scene
   `remove any existing limbs and exclude instead

`when the user saves the game or switches level then the level data can be reorganised

`the lines marked with asterisks(*) around a number are different object ranges that may need to be defined(look at them as layer ranges)
`**1** doesn`t need an end value just a start value
`for anything else then just leave a massive gap between the range values eg;(you dont need to start the ranges right next to each other though I have)
   `**0** = 1 to 50 (gizmo,grid,skybox) - you might need to add in stuff here so leave the range large enough
   `**2** = 51 to 100 - player(s) and charactors
   `**3** = 101 to 200
   `**4** = 201 to 300
   `**1** = 301 to infinity

`prior to any of this a list of layers must be defined with thought being put into what the best ranges would be each
`also no frustrum cull used or recycling taken into account here
`does/how will the collision system work in this, has a small simple scene been tested? - assuming there will be scene movement

	// Temp. cube code
	IF OBJECT EXIST(object_cube)
	
		IF OBJECT COLLISION (player, object_cube)
			
			HIDE OBJECT object_cube
			
		ENDIF
		
	ENDIF

 for i = 1 to 10
make object cube i,10
next i

for i = 1 to 10
IF OBJECT EXIST(i) and OBJECT COLLISION (player, i)
DELETE OBJECT i
ENDIF