Code archives/3D Graphics - Maths/Crude Little coding Object Pushing!

This code has been declared by its author to be Public Domain code.

Download source code

Crude Little coding Object Pushing! by Neochrome
(Posted 23 years ago)
I came up with this after playing with the collisions and to understand them! whoohoo

[this is free code] 
Graphics3D 800,600,16,2

Const coll_world = 1
Const coll_object = 2
Const coll_player = 3

Global camera	= CreateCamera()
Global player 	= CreateCube()	: EntityColor player,255,0,0
Global level 	= CreateCube():ScaleEntity level, 170,10,170: FlipMesh level
Global light	= CreateLight(2)
Global blob		= CreateCube()	: EntityColor blob,255,255,0

Global boxed	= CreateCube()	: EntityColor boxed,0,0,255



Collisions coll_player, coll_object, 2, 2
Collisions coll_player, coll_world, 2,2
Collisions coll_object, coll_world, 2, 2

EntityType level, 	coll_world
EntityType player, 	coll_player
EntityType blob,	coll_object

PositionEntity boxed,22,-9,0
EntityType boxed, coll_world



While Not KeyHit(1)
	Cls


	
	If KeyDown(200) Then MoveEntity player,0,0,.2
	If KeyDown(208) Then MoveEntity player,0,0,-.2
	
	If KeyDown(203) Then TurnEntity player,0,4,0
	If KeyDown(205) Then TurnEntity player,0,-4,0

	PointEntity camera, player
	TranslateEntity player,0,-.1,0
	TranslateEntity blob,0,-.1,0



	z = EntityCollided(player, coll_object) 
	If z = blob
		i=1
		Nx# = CollisionNX(player%, i)
		Ny# = CollisionNY(player%, i)
		Nz# = CollisionNZ(player%, i)
					
		vy# = VectorYaw(-nx, -ny, -nz)

		tfm_z# = Cos(vy#)/5
		tfm_x# = -Sin(vy#)/5
		tfm_y# = VectorPitch(-nx, -ny, -nz)
		If Abs(tfm_y)<60 Then TranslateEntity blob,tfm_x,0,tfm_z
	End If
	
	UpdateWorld()
	RenderWorld()

	Flip
Wend
End