help with physics? Rocks tumbling on each other.

Author

Message

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 26th Dec 2018 21:11

Link

Appreciate any help with this. I am just trying to get this rock to crumble. The results are ugly to downright bizarre.

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld()
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, .75, 0 )
Create3DPhysicsDynamicBody( obj )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 2.0, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i

grd = CreateObjectBox( 10, .5, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to meshes-1
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .75, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		//SetObjectShapeBox( crumble_rock_objects[i] )
		SetObject3DPhysicsFriction( crumble_rock_objects[i], 1.15 )
		SetObject3DPhysicsRollingFriction( crumble_rock_objects[i], 3.0 )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, .75, 0 )
	Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

+ Code Snippet

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld()
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, .75, 0 )
Create3DPhysicsDynamicBody( obj )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 2.0, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i 

grd = CreateObjectBox( 10, .5, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to meshes-1
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .75, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		//SetObjectShapeBox( crumble_rock_objects[i] )
		SetObject3DPhysicsFriction( crumble_rock_objects[i], 1.15 )
		SetObject3DPhysicsRollingFriction( crumble_rock_objects[i], 3.0 )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, .75, 0 )
	Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

Attachments

Login to view attachments

Back to top

Profile PM

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 26th Dec 2018 22:06

Link

Added a video.

How can I keep the pieces closer together? Also, one of the smaller pieces seems to bounce and roll around too spasmodically.

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 26th Dec 2018 22:31 Edited at: 26th Dec 2018 22:32

Link

They will behave that way because dynamic physics bodies will push themselves away from each other
in all/any directions

ie an exploding block without physics can be acheived

SetWindowTitle( "Explosion" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_SPACE	  = 32  //the space bar
#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
SetGenerateMipmaps( 1 )

type face
	ID as integer
	x as float
	y as float
	z as float
	xOld as float
	yOld as float
	zOld as float
	xAng as float
	yAng as float
	zAng as float
	xAngOld as float
	yAngOld as float
	zAngOld as float
	time as float //to be implimented
endtype

global faces as face[]

CreateObjectBox(10,2,2,2)
SetObjectColor(10,0,255,0,255)

// main loop
do
		if GetRawKeyState(KEY_LEFT) then MoveObjectLocalX(10,-1)
		if GetRawKeyState(KEY_RIGHT) then MoveObjectLocalX(10,1)
		if GetRawKeyState(KEY_UP) then MoveObjectLocalY(10,1)
		if GetRawKeyState(KEY_DOWN) then MoveObjectLocalY(10,-1)
		if GetRawKeyPressed(KEY_SPACE) then explosionSetup(10)
			
			
		if faces.length+1 >0 then updateExplosion()
		//if faces.length <=1 then explosionSetup(10) 
		if faces.length <=1  then SetObjectVisible(10,1) 
		
		Print ("Move green block with arrow keys")
		Print ("Press space to self destruct")
		
        sync()
loop

function updateExplosion()
	SetObjectVisible(10,0)
	for num =0 to faces.length-1
		SetObjectVisible(faces[num].ID,1)
		if faces[num].x > faces[num].xOld 
			offsetX=random(0,1)
		else 
			offsetX=-random(0,1)
		endif	
		if faces[num].y > faces[num].yOld 
			offsetY=random(0,1)
		else 
			offsetY=-random(0,1)
		endif	
		if faces[num].z > faces[num].zOld 
			offsetZ=random(0,1)
		else 
			offsetZ=-random(0,1)
		endif	
		SetObjectPosition(faces[num].ID,faces[num].x+offsetX,faces[num].y+offsetY,faces[num].z+offsetZ)
		faces[num].x=GetObjectX(faces[num].ID)
		faces[num].y=GetObjectY(faces[num].ID)
		faces[num].z=GetObjectZ(faces[num].ID)
		if faces[num].xAng > faces[num].xAngOld 
			offsetAngX=random(0,10)
		else 
			offsetAngX=-random(0,10)
		endif	
		if faces[num].yAng > faces[num].yAngOld 
			offsetAngY=random(0,10)
		else 
			offsetAngY=-random(0,10)
		endif	
		if faces[num].zAng > faces[num].zAngOld 
			offsetAngZ=random(0,10)
		else 
			offsetAngZ=-random(0,10)
		endif	
		SetObjectRotation(faces[num].ID,faces[num].xAng+offsetAngX,faces[num].yAng+offsetAngY,faces[num].zAng+offsetAngZ)
		faces[num].xAng=GetObjectAngleX(faces[num].ID)
		faces[num].yAng=GetObjectAngleY(faces[num].ID)
		faces[num].zAng=GetObjectAngleZ(faces[num].ID)
		if timer()>faces[num].time+1
			deleteObject(faces[num].ID)
			faces.remove(num)
		endif
	next num	
endfunction

function explosionSetup(id as integer)
myFace as face
myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id),getObjectZ(id)+1)
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id),getObjectZ(id)-1)
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(.25,2,2)
SetObJectPosition(myFace.ID,getObjectX(id)-1,getObjectY(id),getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(.5,2,2)
SetObJectPosition(myFace.ID,getObjectX(id)+1,getObjectY(id),getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id)+1,getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id)+90,GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id)-1,getObjectZ(id))
SetObjectRotation(myFace.ID,GetObjectAngleX(id)+90,getObjectY(id),getObjectZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

for num =0 to faces.length-1
	faces[num].x=faces[num].x+Random2(-2,2)
	faces[num].y=faces[num].y+Random2(-2,2)
	faces[num].z=faces[num].z+Random2(-2,2)
	faces[num].xAng=faces[num].xAng+Random2(-2,2)
	faces[num].yAng=faces[num].yAng+Random2(-2,2)
	faces[num].zAng=faces[num].zAng+Random2(-2,2)
next num
	
endfunction

+ Code Snippet


SetWindowTitle( "Explosion" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_SPACE	  = 32  //the space bar
#constant KEY_LEFT    = 37  //the left arrow key scancode
#constant KEY_UP      = 38  //the up arrow key scancode
#constant KEY_RIGHT   = 39  //the right arrow key scancode
#constant KEY_DOWN    = 40  //the down arrow key scancode
SetGenerateMipmaps( 1 )

type face
	ID as integer
	x as float
	y as float
	z as float
	xOld as float
	yOld as float
	zOld as float
	xAng as float
	yAng as float
	zAng as float
	xAngOld as float
	yAngOld as float
	zAngOld as float
	time as float //to be implimented
endtype

global faces as face[]

CreateObjectBox(10,2,2,2)
SetObjectColor(10,0,255,0,255)

// main loop
do
		if GetRawKeyState(KEY_LEFT) then MoveObjectLocalX(10,-1)
		if GetRawKeyState(KEY_RIGHT) then MoveObjectLocalX(10,1)
		if GetRawKeyState(KEY_UP) then MoveObjectLocalY(10,1)
		if GetRawKeyState(KEY_DOWN) then MoveObjectLocalY(10,-1)
		if GetRawKeyPressed(KEY_SPACE) then explosionSetup(10)
			
			
		if faces.length+1 >0 then updateExplosion()
		//if faces.length <=1 then explosionSetup(10) 
		if faces.length <=1  then SetObjectVisible(10,1) 
		
		Print ("Move green block with arrow keys")
		Print ("Press space to self destruct")
		
        sync()
loop

function updateExplosion()
	SetObjectVisible(10,0)
	for num =0 to faces.length-1
		SetObjectVisible(faces[num].ID,1)
		if faces[num].x > faces[num].xOld 
			offsetX=random(0,1)
		else 
			offsetX=-random(0,1)
		endif	
		if faces[num].y > faces[num].yOld 
			offsetY=random(0,1)
		else 
			offsetY=-random(0,1)
		endif	
		if faces[num].z > faces[num].zOld 
			offsetZ=random(0,1)
		else 
			offsetZ=-random(0,1)
		endif	
		SetObjectPosition(faces[num].ID,faces[num].x+offsetX,faces[num].y+offsetY,faces[num].z+offsetZ)
		faces[num].x=GetObjectX(faces[num].ID)
		faces[num].y=GetObjectY(faces[num].ID)
		faces[num].z=GetObjectZ(faces[num].ID)
		if faces[num].xAng > faces[num].xAngOld 
			offsetAngX=random(0,10)
		else 
			offsetAngX=-random(0,10)
		endif	
		if faces[num].yAng > faces[num].yAngOld 
			offsetAngY=random(0,10)
		else 
			offsetAngY=-random(0,10)
		endif	
		if faces[num].zAng > faces[num].zAngOld 
			offsetAngZ=random(0,10)
		else 
			offsetAngZ=-random(0,10)
		endif	
		SetObjectRotation(faces[num].ID,faces[num].xAng+offsetAngX,faces[num].yAng+offsetAngY,faces[num].zAng+offsetAngZ)
		faces[num].xAng=GetObjectAngleX(faces[num].ID)
		faces[num].yAng=GetObjectAngleY(faces[num].ID)
		faces[num].zAng=GetObjectAngleZ(faces[num].ID)
		if timer()>faces[num].time+1
			deleteObject(faces[num].ID)
			faces.remove(num)
		endif
	next num	
endfunction

function explosionSetup(id as integer)
myFace as face
myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id),getObjectZ(id)+1)
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id),getObjectZ(id)-1)
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(.25,2,2)
SetObJectPosition(myFace.ID,getObjectX(id)-1,getObjectY(id),getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(.5,2,2)
SetObJectPosition(myFace.ID,getObjectX(id)+1,getObjectY(id),getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id),GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id)+1,getObjectZ(id))
SetObjectRotation(myFace.ID,getObjectAngleX(id)+90,GetObjectAngleY(id),GetObjectAngleZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

myFace.ID=CreateObjectBox(2,2,.25)
SetObJectPosition(myFace.ID,getObjectX(id),getObjectY(id)-1,getObjectZ(id))
SetObjectRotation(myFace.ID,GetObjectAngleX(id)+90,getObjectY(id),getObjectZ(id))
SetObjectVisible(myFace.ID,0)
SetObjectcolor(myFace.ID,255,0,0,255)
MyFace.x=GetObjectX(myFace.ID)
MyFace.y=GetObjectY(myFace.ID)
MyFace.z=GetObjectZ(myFace.ID)
MyFace.xAng=GetObjectAngleX(myFace.ID)
MyFace.yAng=GetObjectAngleY(myFace.ID)
MyFace.zAng=GetObjectAngleZ(myFace.ID)
myFace.xOld=myFace.x
myFace.yOld=myFace.y
myFace.zOld=myFace.z
MyFace.xAngOld=myFace.xAng
MyFace.yAngOld=myFace.yAng
MyFace.zAngOld=myFace.zAng
MyFace.time=timer()
faces.insert(myFace)

for num =0 to faces.length-1
	faces[num].x=faces[num].x+Random2(-2,2)
	faces[num].y=faces[num].y+Random2(-2,2)
	faces[num].z=faces[num].z+Random2(-2,2)
	faces[num].xAng=faces[num].xAng+Random2(-2,2)
	faces[num].yAng=faces[num].yAng+Random2(-2,2)
	faces[num].zAng=faces[num].zAng+Random2(-2,2)
next num
	
endfunction

to do a crumble effect I personally think if you moved the pieces until the collided inward you would get a crumble effect
I cant see it will work properly with dynamic objects but i could be wrong

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 26th Dec 2018 22:44

Link

you may find these commands help

+ Code Snippet

SetObject3DPhysicsRestitution(crumble_rock_objects[i],0.0) 
SetObject3DPhysicsCanSleep( crumble_rock_objects[i],1)

but it still kinda a bit bouncy due to their positioning

fubar

Back to top

Profile PM Email Website

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 27th Dec 2018 00:37

Link

Yeah, I can't get anything to look remotely natural. I think I will need to animate it, unfortunately.

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 27th Dec 2018 00:46

Link

Have you tried Kinematic objects? that way you could place them yourself
and still have some physics properties

fubar

Back to top

Profile PM Email Website

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 27th Dec 2018 00:56 Edited at: 27th Dec 2018 00:56

Link

1) it looks like the size of the ground matters.
2) the gravity matters
3) the mass of the objects matter

How these all relate to each other is a mystery, since the documentation is poor and there are no demos.

Janbo has a shadow shader on the forums that utilizes physics. Its really well done, but I don't see what I am doing different from his project. He has boxes stacked on top of one other, and when its hit by a ball, they don't go flying out into outer space like the hulk hit them.

edit: I set the rock to a kinematic, but it just stayed there.

Back to top

Profile PM

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 27th Dec 2018 01:21 Edited at: 27th Dec 2018 01:24

Link

With this I get a fun looking break. But, I really think its only applicable to this ground size. A little frustrating.

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld()
Set3DPhysicsGravity(0,-2.5,0)
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, 0, 0 )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 8.5, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i

grd = CreateObjectBox( 10, .1, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	print( meshes )
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to crumble_rock_mesh.length
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .055, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		SetObject3DPhysicsMass( crumble_rock_objects[i], 100.0 )
		//SetObjectShapeBox( crumble_rock_objects[i] )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, 0, 0 )
	//Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

+ Code Snippet

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld()
Set3DPhysicsGravity(0,-2.5,0)
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, 0, 0 )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 8.5, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i 


grd = CreateObjectBox( 10, .1, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	print( meshes )
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to crumble_rock_mesh.length
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .055, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		SetObject3DPhysicsMass( crumble_rock_objects[i], 100.0 )
		//SetObjectShapeBox( crumble_rock_objects[i] )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, 0, 0 )
	//Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 27th Dec 2018 05:12 Edited at: 27th Dec 2018 05:15

Link

you could try changing the physics scale factor

Create3DPhysicsWorld( scaleFactor )

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld(100)
Set3DPhysicsGravity(0,-2.5,0)
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, 0, 0 )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 8.5, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i

grd = CreateObjectBox( 10, .1, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	print( meshes )
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to crumble_rock_mesh.length
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .055, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		SetObject3DPhysicsMass( crumble_rock_objects[i], 100.0 )
		SetObject3DPhysicsRestitution(crumble_rock_objects[i],0.0) 
		SetObject3DPhysicsCanSleep( crumble_rock_objects[i],1) 
		//SetObjectShapeBox( crumble_rock_objects[i] )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, 0, 0 )
	//Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

+ Code Snippet


SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld(100)
Set3DPhysicsGravity(0,-2.5,0)
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, 0, 0 )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 8.5, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i 


grd = CreateObjectBox( 10, .1, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	print( meshes )
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to crumble_rock_mesh.length
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .055, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		SetObject3DPhysicsMass( crumble_rock_objects[i], 100.0 )
		SetObject3DPhysicsRestitution(crumble_rock_objects[i],0.0) 
		SetObject3DPhysicsCanSleep( crumble_rock_objects[i],1) 
		//SetObjectShapeBox( crumble_rock_objects[i] )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, 0, 0 )
	//Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

fubar

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 27th Dec 2018 05:15

Link

Try;
Create3DPhysicsWorld(2)
SetObjectShapeConvexHull( crumble_rock_objects[i] )

Create3DPhysicsWorld(2) will scale the 3D world right down to match the size of your models. Alternatively you could make them huge in size
Convex hull will work the best i think. If your shapes are indented then it will fill that in with the hit shape and cause the pieces to push away from each other

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 27th Dec 2018 05:18

Link

That's it blink solved it

heres the snippet

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld(2)
Set3DPhysicsGravity(0,-2.5,0)
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, 0, 0 )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 8.5, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i

grd = CreateObjectBox( 10, .1, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	print( meshes )
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to crumble_rock_mesh.length
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .055, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		SetObject3DPhysicsMass( crumble_rock_objects[i], 100.0 )
		SetObject3DPhysicsRestitution(crumble_rock_objects[i],0.0) 
		SetObject3DPhysicsCanSleep( crumble_rock_objects[i],1) 
		SetObjectShapeConvexHull( crumble_rock_objects[i] )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, 0, 0 )
	//Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

+ Code Snippet

SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Crumble" )
SetDisplayAspect( 1366.0/768.0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Create3DPhysicsWorld(2)
Set3DPhysicsGravity(0,-2.5,0)
SetGenerateMipmaps(1)

global obj
global img
global meshes

obj = LoadObject( "rockcrumble.fbx" )
SetObjectPosition( obj, 0, 0, 0 )
img = LoadImage( "texstone_grain.png" ) 
SetObjectImage( obj, img, 0 )
meshes = GetObjectNumMeshes( obj )
setobjectscale( obj, 3,3,3 )
SetCameraPosition( 1, 0, 8.5, -4.0 )
SetCameraLookAt( 1, 0, 0, 0, 0 )
dim crumble_rock_mesh[]
dim crumble_rock_objects[]

for i = 1 to meshes
	crumble_rock_mesh.insert( CreateMemblockFromObjectMesh( obj, i ) )
next i 


grd = CreateObjectBox( 10, .1, 10 )
Create3DPhysicsStaticBody(grd)
SetObjectShapeBox(grd)
img_ground = LoadImage( "sand2.png" ) 
SetImageWrapU( img_ground, 1 )
SetImageWrapV( img_ground, 1 )
SetObjectImage( grd, img_ground, 0 )

do 
	print( meshes )
	if GetRawKeyPressed( 32 ) then rock_crumble()
	if GetRawKeyPressed( 65 ) then reset_rock()
	Step3DPhysicsWorld()
	Sync()	
loop

function rock_crumble()
	if GetObjectExists( obj )
		Delete3DPhysicsBody( obj )
		DeleteObject( obj )
	endif
	for i = 0 to crumble_rock_mesh.length
		crumble_rock_objects.insert(CreateObjectFromMeshMemblock( crumble_rock_mesh[i] ))
		setobjectscale( crumble_rock_objects[i], 3,3,3 )
		SetObjectPosition( crumble_rock_objects[i], 0, .055, 0 )
		SetObjectImage( crumble_rock_objects[i], img, 0 )
		Create3DPhysicsDynamicBody( crumble_rock_objects[i] )
		SetObject3DPhysicsMass( crumble_rock_objects[i], 100.0 )
		SetObject3DPhysicsRestitution(crumble_rock_objects[i],0.0) 
		SetObject3DPhysicsCanSleep( crumble_rock_objects[i],1) 
		SetObjectShapeConvexHull( crumble_rock_objects[i] )
	next i

endfunction

function reset_rock()
	for i = 0 to crumble_rock_objects.length
		Delete3DPhysicsBody( crumble_rock_objects[i] )
		DeleteObject( crumble_rock_objects[i] )
	next i
	crumble_rock_objects.length = -1
	obj = LoadObject( "rockcrumble.fbx" )
	SetObjectPosition( obj, 0, 0, 0 )
	//Create3DPhysicsDynamicBody( obj )
	SetObjectImage( obj, img, 0 )
	setobjectscale( obj, 3,3,3 )
endfunction

fubar

Back to top

Profile PM Email Website

Golelorn

8

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 27th Dec 2018 20:58

Link

Nice, thank you.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / help with physics? Rocks tumbling on each other.

Attachments