Mav Out APP

BlitzMax Forums/BlitzMax Programming/Mav Out APP

Yue	(Posted 2016) [#1]

' ##############################################################
' Proyecto 			: BTL
' Programador 		: John Caicedo.
' URL				: <a href="http://www.iris3dgames.ml" target="_blank">http://www.iris3dgames.ml</a>
' Nombre Fichero	: TMCarga.mbx
' ##############################################################
' Notas 			: Definición Tipo TMCarga - Vehiculo
'					  Jugador.
' ##############################################################

' Variables a Objetos.
Local montacarga:TMCarga 	= Null 

' Tipo TMCarga
Type TMCarga

	Field chassis:TMalla
	Field pxChassis:TMalla    

	Field baseElevador:TMalla

	Field llanta:TMalla

	
	
	Function Init:TMCarga()
		
		Local MCarga:TMCarga = New TMCarga
		
		
			MCarga.CargarMallas()
		    MCarga.InitPxChassis()
			MCarga.EngancharPartes()
		
		Return MCarga:TMCarga 
	
	End Function 
	
	
	Method CargarMallas()
	
	
		Self.chassis:TMalla 		= TMalla.Init( "Modelos.zip","chassis.b3d" )
		Self.pxChassis:TMalla 		= TMalla.Init( "Modelos.zip","pxChassis.b3d" )
		
		Self.baseElevador:TMalla 	= TMalla.Init( "Modelos.zip","BaseElevador.b3d" ) 
		
		Self.llanta:TMalla  = TMalla.Init( "Modelos.zip","llanta.b3d" )
		
		
	
	
	
	End Method 
	
	Method InitPxChassis()
	
		
		xEntityAddConvexShapeProxy(Self.chassis.malla, Self.pxChassis.malla, 50)

		xFreeEntity ( Self.pxChassis.malla )
		Self.pxChassis.malla = 0 

	
	End Method 
	
	
	Method EngancharPartes()
	
		xPositionEntity Self.baseElevador.malla, -10, 0, 0  
		xAddMesh( Self.baseElevador.malla, Self.chassis.malla ) 
	    
	    xFreeEntity ( Self.baseElevador.malla ) 
	    Self.baseElevador.malla = 0
	    
	
	End Method
	
	
	
	
	
	
End Type

' ##############################################################
' Proyecto 			: BTL
' Programador 		: John Caicedo.
' URL				: <a href="http://www.iris3dgames.ml" target="_blank">http://www.iris3dgames.ml</a>
' Nombre Fichero	: Inicio.mbx
' ##############################################################
' Notas 			: Fichero de entrada al programa.
'
' ##############################################################

' Importación de módulo Engine.
Import xorsteam.xors3d

' Inludes Tipos / Objetos.
Include "../Tipos/TConfig.bmx"
Include "../Tipos/TG3D.bmx"
Include "../Tipos/TCamara.bmx"
Include "../Tipos/TMalla.bmx"
Include "../Tipos/TLuz.bmx"
Include "../Tipos/TPtva.bmx"
Include "../Tipos/TMCarga.bmx"

config:TConfig = TConfig.Init( False, True )
xAppTitle ( config.tituloApp:String )
TG3D.Init() ' Se inicia modo Gráfico.
xCreateDSS 1024, 1024
xAntiAlias  ( True )


camaraPrincipal:TCamara = TCamara.Init()
montacarga:TMCarga		= TMCarga.Init()
luzSol:TLuz				= TLuz.Init()
suelo:TPtva				= TPtva.Init(CUBO:Byte)



xCameraEnableShadows ( camaraPrincipal.camara:Int )
xCameraClsColor ( camaraPrincipal.camara, 12, 183, 242 ) 
xRotateEntity 	( luzSol.luz:Int, 45, 45, 0 )
xPositionEntity ( montacarga.chassis.malla, 0, 4, 0 )
xpositionEntity ( suelo.figura:Int, 0, 0, 0 )
xScaleEntity 	( suelo.figura:Int, 20, 1, 20 )
xPositionEntity ( camaraPrincipal.camara:Int, 0, 2, -5 ) 
xEntityAddBoxShape ( suelo.figura:Int, 0 )

textura:Int = xLoadTexture("Data\Texturas\Concreto.jpg")
xScaleTexture ( textura:Int, 0.05, 0.05) 
xEntityTexture ( suelo.figura:Int, textura:Int )

' Sombras.
xInitShadows(512, 0, 0)
xSetShadowsBlur(2.5)
xLightEnableShadows luzSol.luz:Int, 1
xSetShadowParams 9, 10, True, 300
xLightShadowEpsilons luzSol.luz:Int, 0.0001, 0.16



xEntityReleaseForces(montacarga.chassis.malla)


xPhysicsDebugRender(1)

While Not xKeyHit( xKEY_ESCAPE:Int )
xEntityWakeUp(montacarga.chassis.malla)
  
	If xKeyDown(xKEY_W:Int) xMoveEntity montacarga.chassis.malla, 0, 1, 0
   
	xCls()
	'xTurnEntity montacarga.chassis.malla, 0, 1, 0
	xUpdateWorld()
	xRenderWorld(1.0,True)
		
		config.InfoDebug()
	
	xFlip()
	
Wend 

' Liberar Objetos de Listas.
xDeleteDSS()
TCamara.DeInit()
TMalla.DeInit()
TLuz.DeInit()
TPtva.Deinit()

'xClearWorld ( True,True,True) 

' Finalizar Programa.
xReleaseGraphics()
xDestroyRenderWindow()
xDeInit()

It happens to come out with the escape key , and when using a xAddMesh began to join two meshes.

I can not understand what happens.

Any suggestions ?