Boundaries of cube

Blitz3D Forums/Blitz3D Programming/Boundaries of cube

RubyEnemy

(Posted 2016) [#1]

I want to set the the edges of a cube to be the boundaries so that the player can't leave them. the cube is 20,20,250. the entity radius just makes a small part in the middle stop the player but the player can go through the walls of the cube. How do i fix this?

Guy Fawkes

(Posted 2016) [#2]

**EDIT** : Yes, I know the cube is a little under the floor. I did that to show you that you are INDEED inside the Cube object WITH your correct, "20.0, 20.0, 250.0" parameters.

;;;;;;;;;;;;;;;;;;;;WRITTEN BY :: Guy Fawkes of the Blitz3D forums;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;----------------------------------------------------------------------------------------------------
;==========PUBLIC DOMAIN AS LONG AS THIS HEADER / COPYRIGHT REMAINS INTACT==========;;;;;;;;;;;;;;;;;
;----------------------------------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Graphics3D ( 800, 600, 0, 2 )

SetBuffer BackBuffer ( )

SeedRnd MilliSecs ( )

Global font = LoadFont ( "Arial Bold", 18, 1, 0, 0 )

Global default_font = LoadFont ( "Blitz", 12, 0, 0, 0 )

Global type_player     =     1
Global type_object     =     2
Global type_land       =     3

Global cam = CreateCamera ( )

CameraRange cam, 0.1, 10000.0

PositionEntity cam, 0.0, 2.0, 0.0

EntityType cam, type_player

Global light = CreateLight ( 2 )

RotateEntity light, 45.0, 90.0, 45.0

PositionEntity light, -10.0, 10.0, 0.0

Global sky = CreateCube ( cam )

ScaleEntity sky, 100.0, 100.0, 100.0

EntityColor sky, 102, 102, 255

EntityFX sky, 1

EntityOrder sky, 1000

FlipMesh sky

Global land = CreatePlane ( )

EntityColor land, 0, 16, 0

EntityFX land, 17

EntityType land, type_land

Collisions type_player, type_land, 2, 3 ; Sliding Polygonal Collision
Collisions type_player, type_object, 2, 3 ; Sliding Polygonal Collision

Global hugecube = CreateCube ( )

ScaleEntity hugecube, 20.0, 20.0, 250.0

PositionEntity hugecube, 0.0, 1.001, 0.0

EntityAlpha hugecube, 0.35

EntityType hugecube, type_object

EntityFX hugecube, 17

FlipMesh hugecube

Global dummy_count = 250

Dim dummy_cubes ( dummy_count )

For x = 1 To dummy_count

	dummy_cubes ( x ) = CreateCube ( )
	
		EntityColor dummy_cubes ( x ), Rnd ( 0, 255 ), Rnd ( 0, 255 ), Rnd ( 0, 255 )
		
			EntityAlpha dummy_cubes ( x ), Rnd ( 0.5, 0.85 )
			
				EntityFX dummy_cubes ( x ), 1
	
			RotateEntity dummy_cubes ( x ), Rnd ( -270.0, 270.0 ), Rnd ( -270.0, 270.0 ), Rnd ( -270.0, 270.0 )
		
		PositionEntity dummy_cubes ( x ), Rnd ( -19.0, 19.0 ), Rnd ( 2.0, 19.0 ), Rnd ( -249.0, 249.0 )
	
	EntityAutoFade dummy_cubes ( x ), 10.0, 249.0

Next

	While Not KeyDown ( 1 )
	
		For x = 1 To dummy_count
		
			TurnEntity dummy_cubes ( x ), 0.5, 0.5, 0.05
		
		Next

		UpdateWorld
		
			RenderWorld
			
				Color 127, 127, 127
				
					Draw_Bordered_Text ( font, GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0 + 10.0, "Control Keys + Arrow Keys / WASD to move up / down & left / right", 0, -1, 68, 207, 252, 0, 0, 0, 1, 1 )

						Draw_Bordered_Text ( font, GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0 + 30.0, "Arrow Keys / WASD to move forward / backwards & turn left / right", 0, -1, 0, 255, 0, 0, 0, 0, 1, 1 )

					Draw_Bordered_Text ( font, GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0 + 50.0, "Shift Keys with above combination(s) to double the speed of moving / turning", 0, -1, 127, 0, 0, 0, 0, 0, 1, 1 )

				Flip 0
		
			Delay 1
		
		Control_Entity ( cam, 0.1, 1.0, 0.3, 3.0 )
	
	Wend

End

Function Control_Entity ( ent, mspd#, dmspd#, tspd#, dtspd# )

	If Not ( KeyDown ( 29 ) Or KeyDown ( 157 ) )
	
		If Not ( KeyDown ( 42 ) Or KeyDown ( 54 ) )
		
			MoveEntity ( ent, 0.0, 0.0, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * mspd# )
			
			TurnEntity ( ent, 0.0, ( KeyDown ( 30 ) - KeyDown ( 32 ) Or KeyDown ( 203 ) - KeyDown ( 205 ) ) * tspd#, 0.0 )

		Else

			MoveEntity ( ent, 0.0, 0.0, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * dmspd# )
			
			TurnEntity ( ent, 0.0, ( KeyDown ( 30 ) - KeyDown ( 32 ) Or KeyDown ( 203 ) - KeyDown ( 205 ) ) * dtspd#, 0.0 )
		
		EndIf

	Else

		If Not ( KeyDown ( 42 ) Or KeyDown ( 54 ) )
		
			MoveEntity ( ent, ( KeyDown ( 32 ) - KeyDown ( 30 ) Or KeyDown ( 205 ) - KeyDown ( 203 ) ) * mspd#, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * mspd#, 0.0 )

		Else

			MoveEntity ( ent, ( KeyDown ( 32 ) - KeyDown ( 30 ) Or KeyDown ( 205 ) - KeyDown ( 203 ) ) * dmspd#, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * dmspd#, 0.0 )
		
		EndIf
	
	EndIf

End Function

Function Draw_Bordered_Text ( fnt, x, y, txt$, offset_x = 0, offset_y = 0, r1 = 0, g1 = 0, b1 = 0, r2 = 255, g2 = 255, b2 = 255, center_x = 0, center_y = 0 )

	;Change the Font
	SetFont fnt

		;Border-Color
		Color r1, g1, b1

			;Border
			Text ( x + offset_x ), ( y + offset_y ), txt$, center_x, center_y
	
				;Text-Color
				Color r1, g1, b1
	
			;Text
			Text x, y, txt$, center_x, center_y

		;Change to the Default Color
		Color 255, 255, 255

	;Change to the Default Font
	SetFont default_font
		
End Function

~GF

Guy Fawkes

(Posted 2016) [#3]

***NEW CODE ADDED*** : Ability to see cube light up & turn red if touched, else turn back to White if NOT touched!!!

;;;;;;;;;;;;;;;;;;;;WRITTEN BY :: Guy Fawkes of the Blitz3D forums;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;----------------------------------------------------------------------------------------------------
;==========PUBLIC DOMAIN AS LONG AS THIS HEADER / COPYRIGHT REMAINS INTACT==========;;;;;;;;;;;;;;;;;
;----------------------------------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Graphics3D ( 800, 600, 0, 2 )

SetBuffer BackBuffer ( )

SeedRnd MilliSecs ( )

Global font = LoadFont ( "Arial Bold", 18, 1, 0, 0 )

Global default_font = LoadFont ( "Blitz", 12, 0, 0, 0 )

Global type_player     =     1
Global type_object     =     2
Global type_land       =     3

Global cam = CreateCamera ( )

CameraRange cam, 0.1, 10000.0

PositionEntity cam, 0.0, 2.0, 0.0

EntityType cam, type_player

Global light = CreateLight ( 2 )

RotateEntity light, 45.0, 90.0, 45.0

PositionEntity light, -10.0, 10.0, 0.0

Global sky = CreateCube ( cam )

ScaleEntity sky, 100.0, 100.0, 100.0

EntityColor sky, 102, 102, 255

EntityFX sky, 1

EntityOrder sky, 1000

FlipMesh sky

Global land = CreatePlane ( )

EntityColor land, 0, 16, 0

EntityFX land, 17

EntityType land, type_land

Collisions type_player, type_land, 2, 3 ; Sliding Polygonal Collision
Collisions type_player, type_object, 2, 3 ; Sliding Polygonal Collision

Global hugecube = CreateCube ( )

ScaleEntity hugecube, 20.0, 20.0, 250.0

PositionEntity hugecube, 0.0, 1.001, 0.0

EntityAlpha hugecube, 0.35

EntityType hugecube, type_object

EntityFX hugecube, 17

FlipMesh hugecube

Global dummy_count = 250

Dim dummy_cubes ( dummy_count )

For x = 1 To dummy_count

	dummy_cubes ( x ) = CreateCube ( )
	
		EntityColor dummy_cubes ( x ), Rnd ( 0, 255 ), Rnd ( 0, 255 ), Rnd ( 0, 255 )
		
			EntityAlpha dummy_cubes ( x ), Rnd ( 0.5, 0.85 )
			
				EntityFX dummy_cubes ( x ), 1
	
			RotateEntity dummy_cubes ( x ), Rnd ( -270.0, 270.0 ), Rnd ( -270.0, 270.0 ), Rnd ( -270.0, 270.0 )
		
		PositionEntity dummy_cubes ( x ), Rnd ( -19.0, 19.0 ), Rnd ( 2.0, 19.0 ), Rnd ( -249.0, 249.0 )
	
	EntityAutoFade dummy_cubes ( x ), 10.0, 249.0

Next

	While Not KeyDown ( 1 )
	
		For x = 1 To dummy_count
		
			TurnEntity dummy_cubes ( x ), 0.5, 0.5, 0.05
		
		Next
		
			If ( EntityCollided ( cam, type_object ) )
			
				EntityColor hugecube, 255, 0, 0
				
			Else
			
				EntityColor hugecube, 255, 255, 255
				
			EndIf

		UpdateWorld
		
			RenderWorld
			
				Color 127, 127, 127
				
					Draw_Bordered_Text ( font, GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0 + 10.0, "Control Keys + Arrow Keys / WASD to move up / down & left / right", 0, -1, 68, 207, 252, 0, 0, 0, 1, 1 )

						Draw_Bordered_Text ( font, GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0 + 30.0, "Arrow Keys / WASD to move forward / backwards & turn left / right", 0, -1, 0, 255, 0, 0, 0, 0, 1, 1 )

					Draw_Bordered_Text ( font, GraphicsWidth ( ) / 2.0, GraphicsHeight ( ) / 2.0 + 50.0, "Shift Keys with above combination(s) to double the speed of moving / turning", 0, -1, 127, 0, 0, 0, 0, 0, 1, 1 )

				Flip 0
		
			Delay 1
		
		Control_Entity ( cam, 0.1, 1.0, 0.3, 3.0 )
	
	Wend

End

Function Control_Entity ( ent, mspd#, dmspd#, tspd#, dtspd# )

	If Not ( KeyDown ( 29 ) Or KeyDown ( 157 ) )
	
		If Not ( KeyDown ( 42 ) Or KeyDown ( 54 ) )
		
			MoveEntity ( ent, 0.0, 0.0, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * mspd# )
			
			TurnEntity ( ent, 0.0, ( KeyDown ( 30 ) - KeyDown ( 32 ) Or KeyDown ( 203 ) - KeyDown ( 205 ) ) * tspd#, 0.0 )

		Else

			MoveEntity ( ent, 0.0, 0.0, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * dmspd# )
			
			TurnEntity ( ent, 0.0, ( KeyDown ( 30 ) - KeyDown ( 32 ) Or KeyDown ( 203 ) - KeyDown ( 205 ) ) * dtspd#, 0.0 )
		
		EndIf

	Else

		If Not ( KeyDown ( 42 ) Or KeyDown ( 54 ) )
		
			MoveEntity ( ent, ( KeyDown ( 32 ) - KeyDown ( 30 ) Or KeyDown ( 205 ) - KeyDown ( 203 ) ) * mspd#, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * mspd#, 0.0 )

		Else

			MoveEntity ( ent, ( KeyDown ( 32 ) - KeyDown ( 30 ) Or KeyDown ( 205 ) - KeyDown ( 203 ) ) * dmspd#, ( KeyDown ( 17 ) - KeyDown ( 31 ) Or KeyDown ( 200 ) - KeyDown ( 208 ) ) * dmspd#, 0.0 )
		
		EndIf
	
	EndIf

End Function

Function Draw_Bordered_Text ( fnt, x, y, txt$, offset_x = 0, offset_y = 0, r1 = 0, g1 = 0, b1 = 0, r2 = 255, g2 = 255, b2 = 255, center_x = 0, center_y = 0 )

	;Change the Font
	SetFont fnt

		;Border-Color
		Color r1, g1, b1

			;Border
			Text ( x + offset_x ), ( y + offset_y ), txt$, center_x, center_y
	
				;Text-Color
				Color r1, g1, b1
	
			;Text
			Text x, y, txt$, center_x, center_y

		;Change to the Default Color
		Color 255, 255, 255

	;Change to the Default Font
	SetFont default_font
		
End Function

Hope this helps!

~GF

Matty

(Posted 2016) [#4]

Use collisions and set the collision type to 'per polygon'.
You may need to flip the mesh of the cube - I cannot remember if both sides of a polygon count for collisions or not.

That should be all that you need to do...

RustyKristi

(Posted 2016) [#5]

Like Matty said it is really easy with collision and you can just flip the mesh so it will be hidden. Make sure you scale it with your preferred size.