Sorry your browser is not supported!

DYN SET TIMING (1.0 / 5.0), 5, 0
DYN SET TIMING 0.2, 5, 0
DYN SET TIMING (1.0 / 5.0), 4, 0
DYN SET TIMING (1.0 / 60.0) / 10, 4, 0

dyn simulate(fltElapsedLoopTime/3)

DYN SIMULATE 1.0 / 5.0

Do

    DYN FETCH RESULTS : DYN UPDATE : DYN SIMULATE 1.0 / 5.0
    Sync 
Loop

If File Exist(Name$ + ".TMESH") = 0 Then DYN COOK CONVEX MESH TempObject, Name$ + ".TMESH"
		DYN LOAD CONVEX MESH Name$ + ".TMESH", Object	
		DYN MAKE CONVEX MESH Object, Object, Object Size(Object, 1)

DYN START
DYN SET GRAVITY 0.0, -9.8, 0.0

TempObject = NextObject() 
        TempMesh = NextObject()       
        Make Mesh From Object TempMesh, Object
		Make Object TempObject, TempMesh, 0
		DeleteMesh(TempMesh)

` Object is the object I am copying
Load Object Path$, Object

TempObject = NextObject() 
TempMesh = NextObject()       
Make Mesh From Object TempMesh, Object
Make Object TempObject, TempMesh, 0
DeleteMesh(TempMesh)

` If you notice here I'm using Object which is the loaded object as the triangle mesh ID        
If File Exist(Name$ + ".TMESH") = 0 Then DYN COOK TRIANGLE MESH TempObject, Name$ + ".TMESH"
DYN LOAD TRIANGLE MESH Name$ + ".TMESH", Object	
DYN MAKE TRIANGLE MESH Object, Object 

  meshID = 1
	tempObjectID = 2
	Make Mesh From Object meshID, gameLevelID
	Make Object tempObjectID, meshID, 0
	Delete Mesh meshID
	//-- Now we have all our mesh data wrapped up in one place(tempObjectID),
	//-- we can cook a physics mesh to represent our game level. We no
	//-- longer need our tempObject as all the information we need is now
	//-- saved to file.
	DYN COOK TRIANGLE MESH tempObjectID, "../../Media/TestLevel/TestLevel.TMESH"
	Delete Object tempObjectID
//-- DO ONCE END

//-- Load our physics mesh from file.
tMeshID = 1
DYN LOAD TRIANGLE MESH "../../Media/TestLevel/TestLevel.TMESH", tMeshID
//-- Create an actor to represent our game level
DYN MAKE TRIANGLE MESH gameLevelID, tMeshID

XScale# = 100 * Val(SX$) / Object Size X(TempObject)                        
YScale# = 100 * Val(SY$) / Object Size Y(TempObject)
ZScale# = 100 * Val(SZ$) / Object Size Z(TempObject)
               
Scale Object TempObject, XScale#, YScale#, ZScale#
        
Position Object TempObject, Val(X$), Val(Y$), Val(Z$)
Rotate Object TempObject, Val(RX$), Val(RY$), Val(RZ$)

	int object = 1;
	dbLoadObject("barrieracement.dbo", object);
	int limbs = dbLimbCount(object);
	int limbWithMesh = 2;  // Trial and error, you can probably check for mesh data, perhaps the 'get vertex' commands, no vertices = no mesh.
	dynCookTriangleMesh(object, limbWithMesh, 1);
	  //dynMakeTriangleMesh(object, limbWithmesh, 1); // sometimes it needs to be positioned to limb, does not seem to matter with this model.
	dynMakeTriangleMesh(object, 1);

DYN FLUID SET SIMULATION METHOD 1, 1 `NX_F_SPH // 1"
DYN FLUID SET SIMULATION METHOD 1, NX_FF_HARDWARE

DYN EMITTER SET RATE 2, 0, 1000
DYN EMITTER SET RATE 2, 0, 0.1
DYN EMITTER SET RATE 2, 0, 100

DYN EMITTER SET RATE 2, 0, 1000
DYN EMITTER SET RATE 2, 0, 0.1
DYN EMITTER SET RATE 2, 0, 100

Rem Project: Fluids-Particles
Rem Created: Tuesday, February 28, 2012

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

// FLUIDS & PARTICLES
// Fluids and particles are created using the same process, they 
// will behave more like one or the other depending on the properties
// you give them.

// RENDERING
// There are many ways you could render your particles depending on what effect you 
// are after. How you setup your particles is seperated to how they are rendered to
// screen, at the moment there are commands to render your particles as objects.
// This may be the easiest way to render particles but perhaps not too efficient,
// more advanced rendering techniques may be added in the near future.
// If you have a particular shader you wish to use then get in touch and I will
// do my best to provide any functions you need to achieve this. 

//-- Be sure to add "PhysX Constants.dba" to your solution.

sync on
sync rate 60
autocam off
position camera 0, 50, -300
point camera 0, 0, 0
hide light 0
set ambient light 50
`load image "Media/Smoke.jpg", 1
load image "C:\Program Files (x86)\The Game Creators\Dark Basic Pro Free\Dark Basic Pro\Projects\Get Out Alive\Media\Blood\Blood Particle\Blood Particle 3.png", 1

particleCount = 1500

// We will create some objects and sync them to our
// particles later, in the game loop.
for i = 1 to particleCount
    make object plain i, 5, 5
    set object light i, 1
    texture object i, 1
    `ghost object on i
    disable object zwrite i
    set object transparency i, 4
    set object light i, 0
    `hide object i  // Need to hide if particle objects are first introduced using an emitter.    
next i

DYN START
DYN SET GRAVITY 0, -19.8, 0

// If we want to pre-position our particles we can do the following,
// not needed if using emitters
remstart
v = make vector3(1)
DYN UTIL ARRAY VEC3 INIT particleCount
x = 0
z = 0
for i = 0 to particleCount - 1
    x = rnd(100) - 50
    y = rnd(50) 
    z = rnd(100) - 50
    set vector3 1, x, y, z
    DYN UTIL ARRAY VEC3 SET i, 1
next i 
v = delete vector3(1)
remend 

// Set to 0 if the particles should be persistant.
pLife# = 5
// Setting the last parameter to 1 will pre-position the particles using
// the random values we set above, set to 0 if not needed. 
DYN MAKE FLUID 1, particleCount, pLife#, 5.0, NX_FF_ENABLED || NX_FF_VISUALIZATION, 1

`DYN MAKE FLUID 2, particleCount, pLife#, 5.0, NX_FF_ENABLED || NX_FF_VISUALIZATION, 1

// Create an emitter which will become responsible for creating particles
// once they become available.
v = Make Vector3(1)
v = Make Vector3 (2)
Set Vector3 1, 0, 0, 0
Set Vector3 2, -90, 0, 0
DYN FLUID MAKE EMITTER 1, 1, 1, pLife#, 1, 1, 2

` Set emitter rate here
`DYN EMITTER SET RATE 1, 0, 1000

DYN FLUID SET SIMULATION METHOD 1, 1 `NX_F_SPH // 1"
DYN FLUID SET SIMULATION METHOD 1, NX_FF_HARDWARE

DYN FLUID SET VISCOSITY 1, 150.0
DYN EMITTER SET RANDOM ANGLE 1, 0, 1.5 //radians

DYN SIMULATE
do
    DYN FETCH RESULTS
        DYN UPDATE    
        // So far, our particles are not coupled to
        // any rendering technique. The following
        // three commands will sync the particles
        // to the objects we created earlier. 
        DYN FLUID SYNC OBJECTS 1, 1
        `DYN FLUID SET EXTERNAL ACCELERATION 1, RND(10), RND(10), RND(10)
        // Ghosted plains work best when kept facing the camera. 
        DYN FLUID SET OBJECTS TO CAMERA 1, 1, 0
        // We also have the option to fade objects in/out.
        DYN FLUID FADE OBJECTS 1, 1, pLife#, 1, 4
        // We can scale the objects to add the effect of the smoke dispersing.
     
    DYN SIMULATE
       
    control camera using arrowkeys 0, 1, 1
    sync
loop
DYN DELETE FLUID 1
DYN FETCH RESULTS
DYN STOP

DYN FLUID MAKE EMITTER 1, 1, 1, pLife#, 2, 1, 2