Having problems with 3D convex shapes

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Oct 2018 21:51 Edited at: 22nd Oct 2018 22:04

Link

Quote: "I have tried to types of convex shapes and if I place a dynamic object directly above they both fail to work"

1:HOOP TOSS The idea is to be able to throw a hoop over a bottle and it should fall down over the bottle

function hoopTossLoad()
DeleteAllObjects()
DeleteAllImages()
loadObject(taurusObj,"taurus.obj")
//SetObjectScalePermanent(taurusObj,1.2,1.2,1.2)
SetObjectPosition(taurusObj,-200,4,40)
Create3DPhysicsDynamicBody(taurusObj )
SetObjectShapeConvexHull(taurusObj) 
	
LoadObject(playerObj,"cannon3.3ds")
SetObjectPosition(playerObj,0,2,-50)
SetObjectScale(playerObj,.5,.5,.5)
LoadImage(cannonImg,"cannon.png")
SetObjectImage(playerObj,cannonImg,0)
//SetObjectVisible(playerObj,0)

If GetObjectExists(awningObj) then DeleteObject(awningObj)
LoadObject(awningObj,"awning.obj")
SetObjectTransparency(awningobj, 1)
loadImage(awningImg,"awning.png")
SetObjectimage(awningObj,awningImg,0)
SetImageWrapU(awningImg,1) 
SetImageWrapv(awningImg,1)
SetObjectUVScale(awningObj,0,1,1)

LoadObject(fenceObj,"fence.obj")
loadImage(fenceImg,"fence.png")
SetObjectimage(fenceObj,fenceImg,0)
SetImageWrapU(fenceImg,1) 
SetImageWrapv(fenceImg,1)
SetObjectUVScale(fenceObj,0,1,1)

LoadObject(frameObj1,"frame.3ds")
If GetImageExists(frameImg1) then DeleteImage(frameImg1)
loadImage(frameImg1,"frame1.png")
SetObjectPosition(frameObj1,0,0,1)
SetObjectimage(frameObj1,frameImg1,0)

LoadObject(frameObj2,"frame.3ds")
SetObjectPosition(frameObj2,32,0,1)

loadImage(frameImg2,"frame2.png")
SetImageWrapU(frameImg2,1) 
SetImageWrapv(frameImg2,1)
SetObjectimage(frameObj2,frameImg2,0)
SetObjectUVScale(frameObj2,0,1,1)

CreateObjectBox(tableObj,30,4,80)
SetObjectPosition(tableObj,0,-4,10)
SetObjectImage(tableObj,frameImg1,0)
Create3DPhysicsStaticBody(tableObj)
SetObjectShapeBox(tableObj)

CreateObjectBox(floorObj,150,1,150)
SetObjectPosition(floorObj,0,-8,10)
Create3DPhysicsStaticBody(floorObj)
SetObjectShapeBox(floorObj)

sync()
hoopSetThemUp()
endfunction

function hoopTossPlay()
bowlTime#=0:cannonShots=0:bowlScore=0	
do
	//duckshoot()
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			bowlTime#=timer():inc cannonShots
			hoopToss( 300.0, 20.0,4.0)
	endif
	
	ammount=myBullet.length
	for num=ammount to 0 step -1
		//hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() //or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num

KnockedOver=0
	if (timer()-bowlTime#)>	1
		//bowlScore=bowlScore+(KnockedOver*10)
		//hoopSetThemUp() :bowlTime#=0:ResetTimer()
		//digitalScoreBoard(bowlScore)
	endif
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	sync()
	Step3DPhysicsWorld()
loop
endfunction

function hoopToss( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CloneObject(taurusObj)
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(throwBall,GetObjectAngleX(playerObj),GetObjectAngleY(playerObj),GetObjectAngleZ(playerObj))
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeConvexHull( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function hoopSetThemUp()
	If getObjectExists(bottleObj1) then DeleteObject(bottleObj1)	
	LoadObject(bottleObj1,"bottle2.obj")
	SetObjectScalePermanent(bottleObj1,4,4,4)
	SetObjectPosition(bottleObj1,-5,0,40)
	SetObjectColor(bottleObj1,100,100,100,150)
	//RotateObjectLocalZ(bottleObj1,90)
	SetObjectTransparency(bottleObj1,1)
	Create3DPhysicsDynamicBody(bottleObj1) 
	SetObject3DPhysicsMass(bottleObj1, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj1, 1 )

If getObjectExists(bottleObj2) then DeleteObject(bottleObj2)
	CloneObject(bottleObj2,bottleObj1)
	SetObjectPosition(bottleObj2,5,0,40)
	Create3DPhysicsDynamicBody(bottleObj2) 
	SetObject3DPhysicsMass(bottleObj2, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj2, 1)

If getObjectExists(bottleObj3) then DeleteObject(bottleObj3)
	CloneObject(bottleObj3,bottleObj1)
	SetObjectPosition(bottleObj3,-5,0,10)
	Create3DPhysicsDynamicBody(bottleObj3)
	SetObject3DPhysicsMass(bottleObj3, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj3, 1 )

If getObjectExists(bottleObj4) then DeleteObject(bottleObj4)
	CloneObject(bottleObj4,bottleObj1)
	SetObjectPosition(bottleObj4,5,0,10)
	Create3DPhysicsDynamicBody(bottleObj4)
	SetObject3DPhysicsMass(bottleObj4, 100.0 )
	SetObject3DPhysicsFriction(bottleObj4, 1 )

If getObjectExists(bottleObj5) then DeleteObject(bottleObj5)
	CloneObject(bottleObj5,bottleObj1)
	SetObjectPosition(bottleObj5,-5,0,-10)
	Create3DPhysicsDynamicBody(bottleObj5) 
	SetObject3DPhysicsMass(bottleObj5, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj5, 1 )

If getObjectExists(bottleObj6) then DeleteObject(bottleObj6)
	CloneObject(bottleObj6,bottleObj1)
	SetObjectPosition(bottleObj6,5,0,-10)
	Create3DPhysicsDynamicBody(bottleObj6)
	SetObject3DPhysicsMass(bottleObj6, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj6, 1 )

endfunction

+ Code Snippet

function hoopTossLoad()
DeleteAllObjects()
DeleteAllImages()
loadObject(taurusObj,"taurus.obj")
//SetObjectScalePermanent(taurusObj,1.2,1.2,1.2)
SetObjectPosition(taurusObj,-200,4,40)
Create3DPhysicsDynamicBody(taurusObj )
SetObjectShapeConvexHull(taurusObj) 
	
LoadObject(playerObj,"cannon3.3ds")
SetObjectPosition(playerObj,0,2,-50)
SetObjectScale(playerObj,.5,.5,.5)
LoadImage(cannonImg,"cannon.png")
SetObjectImage(playerObj,cannonImg,0)
//SetObjectVisible(playerObj,0)

If GetObjectExists(awningObj) then DeleteObject(awningObj)
LoadObject(awningObj,"awning.obj")
SetObjectTransparency(awningobj, 1)
loadImage(awningImg,"awning.png")
SetObjectimage(awningObj,awningImg,0)
SetImageWrapU(awningImg,1) 
SetImageWrapv(awningImg,1)
SetObjectUVScale(awningObj,0,1,1)

LoadObject(fenceObj,"fence.obj")
loadImage(fenceImg,"fence.png")
SetObjectimage(fenceObj,fenceImg,0)
SetImageWrapU(fenceImg,1) 
SetImageWrapv(fenceImg,1)
SetObjectUVScale(fenceObj,0,1,1)

LoadObject(frameObj1,"frame.3ds")
If GetImageExists(frameImg1) then DeleteImage(frameImg1)
loadImage(frameImg1,"frame1.png")
SetObjectPosition(frameObj1,0,0,1)
SetObjectimage(frameObj1,frameImg1,0)

LoadObject(frameObj2,"frame.3ds")
SetObjectPosition(frameObj2,32,0,1)

loadImage(frameImg2,"frame2.png")
SetImageWrapU(frameImg2,1) 
SetImageWrapv(frameImg2,1)
SetObjectimage(frameObj2,frameImg2,0)
SetObjectUVScale(frameObj2,0,1,1)

CreateObjectBox(tableObj,30,4,80)
SetObjectPosition(tableObj,0,-4,10)
SetObjectImage(tableObj,frameImg1,0)
Create3DPhysicsStaticBody(tableObj)
SetObjectShapeBox(tableObj)

CreateObjectBox(floorObj,150,1,150)
SetObjectPosition(floorObj,0,-8,10)
Create3DPhysicsStaticBody(floorObj)
SetObjectShapeBox(floorObj)

sync()
hoopSetThemUp()
endfunction	


function hoopTossPlay()
bowlTime#=0:cannonShots=0:bowlScore=0	
do
	//duckshoot()
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

		
	SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			bowlTime#=timer():inc cannonShots
			hoopToss( 300.0, 20.0,4.0)
	endif
	
	ammount=myBullet.length
	for num=ammount to 0 step -1
		//hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() //or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num

	KnockedOver=0
	if (timer()-bowlTime#)>	1
		//bowlScore=bowlScore+(KnockedOver*10)
		//hoopSetThemUp() :bowlTime#=0:ResetTimer()
		//digitalScoreBoard(bowlScore)
	endif
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	sync()
	Step3DPhysicsWorld()
loop
endfunction

function hoopToss( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CloneObject(taurusObj)
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(throwBall,GetObjectAngleX(playerObj),GetObjectAngleY(playerObj),GetObjectAngleZ(playerObj))
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeConvexHull( throwBall )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function hoopSetThemUp()
	If getObjectExists(bottleObj1) then DeleteObject(bottleObj1)	
	LoadObject(bottleObj1,"bottle2.obj")
	SetObjectScalePermanent(bottleObj1,4,4,4)
	SetObjectPosition(bottleObj1,-5,0,40)
	SetObjectColor(bottleObj1,100,100,100,150)
	//RotateObjectLocalZ(bottleObj1,90)
	SetObjectTransparency(bottleObj1,1)
	Create3DPhysicsDynamicBody(bottleObj1) 
	SetObject3DPhysicsMass(bottleObj1, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj1, 1 )

	If getObjectExists(bottleObj2) then DeleteObject(bottleObj2)
	CloneObject(bottleObj2,bottleObj1)
	SetObjectPosition(bottleObj2,5,0,40)
	Create3DPhysicsDynamicBody(bottleObj2) 
	SetObject3DPhysicsMass(bottleObj2, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj2, 1)

	If getObjectExists(bottleObj3) then DeleteObject(bottleObj3)
	CloneObject(bottleObj3,bottleObj1)
	SetObjectPosition(bottleObj3,-5,0,10)
	Create3DPhysicsDynamicBody(bottleObj3)
	SetObject3DPhysicsMass(bottleObj3, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj3, 1 )

	If getObjectExists(bottleObj4) then DeleteObject(bottleObj4)
	CloneObject(bottleObj4,bottleObj1)
	SetObjectPosition(bottleObj4,5,0,10)
	Create3DPhysicsDynamicBody(bottleObj4)
	SetObject3DPhysicsMass(bottleObj4, 100.0 )
	SetObject3DPhysicsFriction(bottleObj4, 1 )

	If getObjectExists(bottleObj5) then DeleteObject(bottleObj5)
	CloneObject(bottleObj5,bottleObj1)
	SetObjectPosition(bottleObj5,-5,0,-10)
	Create3DPhysicsDynamicBody(bottleObj5) 
	SetObject3DPhysicsMass(bottleObj5, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj5, 1 )

	If getObjectExists(bottleObj6) then DeleteObject(bottleObj6)
	CloneObject(bottleObj6,bottleObj1)
	SetObjectPosition(bottleObj6,5,0,-10)
	Create3DPhysicsDynamicBody(bottleObj6)
	SetObject3DPhysicsMass(bottleObj6, 1000.0 )
	SetObject3DPhysicsFriction(bottleObj6, 1 )

endfunction

DUNNY TOSS The idea is to be able to throw a ball into the dunny bowl

function toiletTossLoad()
DeleteAllObjects()
DeleteAllImages()
//loadObject(taurusObj,"taurus.obj")
//SetObjectScalePermanent(taurusObj,1.2,1.2,1.2)
//SetObjectPosition(taurusObj,-200,4,40)
//Create3DPhysicsDynamicBody(taurusObj )
//SetObjectShapeConvexHull(taurusObj) 
	
LoadObject(playerObj,"cannon3.3ds")
SetObjectPosition(playerObj,0,2,-50)
SetObjectScale(playerObj,.5,.5,.5)
LoadImage(cannonImg,"cannon.png")
SetObjectImage(playerObj,cannonImg,0)
//SetObjectVisible(playerObj,0)

If GetObjectExists(awningObj) then DeleteObject(awningObj)
LoadObject(awningObj,"awning.obj")
SetObjectTransparency(awningobj, 1)
loadImage(awningImg,"awning.png")
SetObjectimage(awningObj,awningImg,0)
SetImageWrapU(awningImg,1) 
SetImageWrapv(awningImg,1)
SetObjectUVScale(awningObj,0,1,1)

LoadObject(fenceObj,"fence.obj")
loadImage(fenceImg,"fence.png")
SetObjectimage(fenceObj,fenceImg,0)
SetImageWrapU(fenceImg,1) 
SetImageWrapv(fenceImg,1)
SetObjectUVScale(fenceObj,0,1,1)

LoadObject(frameObj1,"frame.3ds")
If GetImageExists(frameImg1) then DeleteImage(frameImg1)
loadImage(frameImg1,"frame1.png")
SetObjectPosition(frameObj1,0,0,1)
SetObjectimage(frameObj1,frameImg1,0)

LoadObject(frameObj2,"frame.3ds")
SetObjectPosition(frameObj2,32,0,1)

loadImage(frameImg2,"frame2.png")
SetImageWrapU(frameImg2,1) 
SetImageWrapv(frameImg2,1)
SetObjectimage(frameObj2,frameImg2,0)
SetObjectUVScale(frameObj2,0,1,1)

CreateObjectBox(tableObj,30,4,80)
SetObjectPosition(tableObj,0,-4,10)
SetObjectImage(tableObj,frameImg1,0)
Create3DPhysicsStaticBody(tableObj)
SetObjectShapeBox(tableObj)

CreateObjectBox(floorObj,150,1,150)
SetObjectPosition(floorObj,0,-8,10)
Create3DPhysicsStaticBody(floorObj)
SetObjectShapeBox(floorObj)

sync()
toiletSetThemUp()
Set3DPhysicsGravity(0,-10,0)
endfunction

function toiletTossPlay()

bowlTime#=0:cannonShots=0:bowlScore=0	
do
	//duckshoot()
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			bowlTime#=timer():inc cannonShots
			toiletToss( 300.0, 20.0,2.0)
	endif
	
	ammount=myBullet.length
	for num=ammount to 0 step -1
		//hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() //or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num

KnockedOver=0
	if (timer()-bowlTime#)>	1
		//bowlScore=bowlScore+(KnockedOver*10)
		//hoopSetThemUp() :bowlTime#=0:ResetTimer()
		//digitalScoreBoard(bowlScore)
	endif
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	sync()
	Step3DPhysicsWorld()
loop
endfunction

function toiletToss( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall =  CreateObjectSphere(size, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(throwBall,GetObjectAngleX(playerObj),GetObjectAngleY(playerObj),GetObjectAngleZ(playerObj))
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere(throwBall)
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function toiletSetThemUp()
	
	If getObjectExists(toiletObj) then DeleteObject(toiletObj)	
	LoadObject(toiletObj,"toilet.obj")
	SetObjectScalePermanent(toiletObj,4,4,4)
	SetObjectPosition(toiletObj,0,7,20)
	SetObjectColor(toiletObj,255,255,255,100)
	SetObjectTransparency(toiletObj,1)
	RotateObjectLocalY(toiletObj,180)
	Create3DPhysicsDynamicBody(toiletObj)
	//SetObjectShapeConvexHull(toiletObj) 
	SetObject3DPhysicsMass(toiletObj, 1000.0 )
	SetObject3DPhysicsFriction(toiletObj, 1 )
endfunction

+ Code Snippet


function toiletTossLoad()
DeleteAllObjects()
DeleteAllImages()
//loadObject(taurusObj,"taurus.obj")
//SetObjectScalePermanent(taurusObj,1.2,1.2,1.2)
//SetObjectPosition(taurusObj,-200,4,40)
//Create3DPhysicsDynamicBody(taurusObj )
//SetObjectShapeConvexHull(taurusObj) 
	
LoadObject(playerObj,"cannon3.3ds")
SetObjectPosition(playerObj,0,2,-50)
SetObjectScale(playerObj,.5,.5,.5)
LoadImage(cannonImg,"cannon.png")
SetObjectImage(playerObj,cannonImg,0)
//SetObjectVisible(playerObj,0)

If GetObjectExists(awningObj) then DeleteObject(awningObj)
LoadObject(awningObj,"awning.obj")
SetObjectTransparency(awningobj, 1)
loadImage(awningImg,"awning.png")
SetObjectimage(awningObj,awningImg,0)
SetImageWrapU(awningImg,1) 
SetImageWrapv(awningImg,1)
SetObjectUVScale(awningObj,0,1,1)

LoadObject(fenceObj,"fence.obj")
loadImage(fenceImg,"fence.png")
SetObjectimage(fenceObj,fenceImg,0)
SetImageWrapU(fenceImg,1) 
SetImageWrapv(fenceImg,1)
SetObjectUVScale(fenceObj,0,1,1)

LoadObject(frameObj1,"frame.3ds")
If GetImageExists(frameImg1) then DeleteImage(frameImg1)
loadImage(frameImg1,"frame1.png")
SetObjectPosition(frameObj1,0,0,1)
SetObjectimage(frameObj1,frameImg1,0)

LoadObject(frameObj2,"frame.3ds")
SetObjectPosition(frameObj2,32,0,1)

loadImage(frameImg2,"frame2.png")
SetImageWrapU(frameImg2,1) 
SetImageWrapv(frameImg2,1)
SetObjectimage(frameObj2,frameImg2,0)
SetObjectUVScale(frameObj2,0,1,1)

CreateObjectBox(tableObj,30,4,80)
SetObjectPosition(tableObj,0,-4,10)
SetObjectImage(tableObj,frameImg1,0)
Create3DPhysicsStaticBody(tableObj)
SetObjectShapeBox(tableObj)

CreateObjectBox(floorObj,150,1,150)
SetObjectPosition(floorObj,0,-8,10)
Create3DPhysicsStaticBody(floorObj)
SetObjectShapeBox(floorObj)

sync()
toiletSetThemUp()
Set3DPhysicsGravity(0,-10,0)
endfunction	


function toiletTossPlay()

bowlTime#=0:cannonShots=0:bowlScore=0	
do
	//duckshoot()
	VectorX# = Get3DVectorXFromScreen( GetPointerX(), GetPointerY() )
	VectorY# = Get3DVectorYFromScreen( GetPointerX(), GetPointerY() )
	VectorZ# = Get3DVectorZFromScreen( GetPointerX(), GetPointerY()*2 )
  
	// get a vector that points in the direction the camera is looking
	VectorX2# = Get3DVectorXFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorY2# = Get3DVectorYFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
	VectorZ2# = Get3DVectorZFromScreen( GetVirtualWidth()/2.0, GetVirtualHeight()/2.0 )
  
	// normalise Vector in the direction of Vector2
	Dot# = VectorX#*VectorX2# + VectorY#*VectorY2# + VectorZ#*VectorZ2#
	if ( Dot# > 0 )
		VectorX# = VectorX# / Dot#
		VectorY# = VectorY# / Dot#
		VectorZ# = VectorZ# / Dot#
	endif
  
	WorldX# = VectorX# * Depth# + GetCameraX(1)
	WorldY# = VectorY# * Depth# + GetCameraY(1)
	WorldZ# = VectorZ# * Depth# + GetCameraZ(1)

		
	SetObjectLookAt(playerObj,WorldX#,WorldY#,WorldZ#,0)
	//SetObjectRotation(playerObj,Angle_x#,Angle_y#,GetObjectAngleZ(playerObj))	
	if GetPointerPressed() 
			bowlTime#=timer():inc cannonShots
			toiletToss( 300.0, 20.0,2.0)
	endif
	
	ammount=myBullet.length
	for num=ammount to 0 step -1
		//hit=checkCollision(myBullet[num].ID)
		if (myBullet[num].time)+bulletLife<timer() //or hit=100 
			DeleteObject(myBullet[num].ID)
			myBullet.remove(num)
			dec bulletCount
		endif
	next num

	KnockedOver=0
	if (timer()-bowlTime#)>	1
		//bowlScore=bowlScore+(KnockedOver*10)
		//hoopSetThemUp() :bowlTime#=0:ResetTimer()
		//digitalScoreBoard(bowlScore)
	endif
	if GetRawKeyState(38)=1 Then MoveCameraLocalZ(1,1)
	if GetRawKeyState(40)=1 Then MoveCameraLocalZ(1,-1)
	if GetRawKeyState(39)=1 Then MoveCameraLocalX(1,1)
	if GetRawKeyState(37)=1 Then MoveCameraLocalX(1,-1)
	
	sync()
	Step3DPhysicsWorld()
loop
endfunction

function toiletToss( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall =  CreateObjectSphere(size, 16, 32 )
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(throwBall,GetObjectAngleX(playerObj),GetObjectAngleY(playerObj),GetObjectAngleZ(playerObj))
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    SetObjectShapeSphere(throwBall)
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction

function toiletSetThemUp()
	
	If getObjectExists(toiletObj) then DeleteObject(toiletObj)	
	LoadObject(toiletObj,"toilet.obj")
	SetObjectScalePermanent(toiletObj,4,4,4)
	SetObjectPosition(toiletObj,0,7,20)
	SetObjectColor(toiletObj,255,255,255,100)
	SetObjectTransparency(toiletObj,1)
	RotateObjectLocalY(toiletObj,180)
	Create3DPhysicsDynamicBody(toiletObj)
	//SetObjectShapeConvexHull(toiletObj) 
	SetObject3DPhysicsMass(toiletObj, 1000.0 )
	SetObject3DPhysicsFriction(toiletObj, 1 )
endfunction

They both fail when I try and place a dynamic object just above

About
With the hoop toss it tries to get a torus object over a cylinder
With the dunny toss I try to get a sphere object into the dunny bowl

Things ive Tried
SetObjectShapeConvexHull(obj) on the torus and the dunny and the balls

Quote: "Really not sure what is wrong any help would be greatly Appreciated

"

The Bottle Object http://users.tpg.com.au/subarpk/bottle2.obj
The Dunny Object http://users.tpg.com.au/subarpk/toilet.obj
The Hoop http://users.tpg.com.au/subarpk/taurus.obj

Quote: "As windows tries to view them in the browser you could copy to notepad and save or save target as should also work"

fubar

Back to top

Profile PM Email Website

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 22nd Oct 2018 22:06

Link

As far as i know....You can only use SetObjectShapeConvexHull() if the object itself is convex

A torus is not convex - its concave

A bucket or basket is not convex either

So these items wont behave properly when simulated

You will most likely have to make these items out of multiple compound shapes. Each compound shape is convex. So the torus would be multiple cylinders making a circle. Then the item simulates properly.

SetObjectShapeCompound()
then
AddObjectShapeCylinder() x 8 times or so....

At least, thats what I think but havent used 3d physics since february so might be wrong.

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Oct 2018 23:07 Edited at: 22nd Oct 2018 23:18

Link

Thanks Bengismo im not sure how I would go about doing that
I may have to use something like AddObjectShapeBox( objID, positionVec3, rotationVec3, sizeVec3 ) and
have several collision shapes for one object just not sure where to start with that

For those that would like to test the above code you will need to make a test project
adding the above
hoopToss.agc
toilet.toss.agc

and these think all the needed media is in my first post
main.agc

+ Code Snippet


// Project: carnivalGames 
// Created: 2018-10-20

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "carnivalGames" )
#include "declarations.agc"
//#include "duckShoot.agc"
//#include "carnivalBowl.agc"
#include "hoopToss.agc"
#include "toiletToss.agc"


SetWindowSize( swidth, sheight, 0 )
SetVirtualResolution( swidth, sheight ) // 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()
SetCameraFOV( 1, 60 ) 

SetCameraPosition(1, 0, 5, -60)
SetCameraLookAt(1, 0, 5, 0, 0)
//duckShootLoad()
//duckShoot()

//carnivalBowlLoad()
//carnivalBowl()

hoopTossLoad()
hoopTossPlay()

toiletTossLoad()
toiletTossPlay()
end

declarations.agc note these are just copied from the project with other files not needed to test so there may be more variables here than needed

type objectType
	ID as integer
	img as integer
	xInc as float
	time as float
endtype

type scoreType
	ID as integer
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   1
#constant    bulletLife   = .4  //time to keep bullets alive
#constant    Depth#       =100

//objects 
#constant    bottleObj1		=100
#constant    bottleObj2		=101
#constant    bottleObj3		=102
#constant    bottleObj4		=103
#constant    bottleObj5		=104
#constant    bottleObj6		=105
#constant    awningObj      =106
#constant    fenceObj       =107
#constant    frameObj1      =108
#constant    frameObj2      =110
#constant    grassObj       =111
#constant    waterObj1      =112
#constant    waterObj2      =113
#constant    waterObj3      =114
#constant    backgroundObj  =115
#constant    dogObj			=116
#constant    tableObj		=117
#constant    taurusObj		=118
#constant	 floorObj		=119

//bowlingObjects
#constant back_wObj			=120
#constant ballObj			=121
#constant floor1Obj			=122
#constant gutter_1Obj		=123
#constant gutter_2Obj		=124
#constant gutter_3Obj		=125
#constant gutter_4Obj		=126
#constant gutter_e1Obj		=127
#constant gutter_e2Obj		=128
#constant gutter_fObj		=129
#constant left_wallObj		=130
#constant right_wallObj		=131
#constant roofObj			=132
#constant shadowObj			=133
#constant pinObj1			=134
#constant pinObj2			=135
#constant pinObj3			=136
#constant pinObj4			=137
#constant pinObj5			=138
#constant pinObj6			=139
#constant pinObj7			=140
#constant pinObj8			=141
#constant pinObj9			=142
#constant pinObj10			=143
#constant controlsObj	    =144

#constant	 toiletObj		=145

//images
#constant    awningImg      =100
#constant    fenceImg       =101
#constant    frameImg1      =102
#constant    frameImg2      =103
#constant    cannonImg      =104
#constant    duckImg1       =105
#constant    duckImg2       =106
#constant    duckImg3       =107
#constant    grassImg       =108
#constant    waterImg1      =109
#constant    waterImg2      =110
#constant    waterImg3      =112
#constant    backgroundImg  =113
#constant    dogImg			=114
#constant    duckImg 		=115
#constant    fontImg        =116

//bowlingImages
#constant back_wImg			=117
#constant ballImg			=118
#constant floor1Img			=119
#constant gutter14Img		=120
#constant gutter_eImg		=121
#constant gutter_fImg		=122
#constant wallImg			=123
#constant pinImg			=124
#constant roofImg			=125
#constant ShadowImg			=126
#constant controlsImg	    =127
#constant ballOutlineImg	=128

global myBullet as bullet[0]
global myDucks as objectType[]
global digitalScore as scoreType[]
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#  
global vidID
global duckScore as integer
global font

+ Code Snippet

type objectType
	ID as integer
	img as integer
	xInc as float
	time as float
endtype

type scoreType
	ID as integer
endtype

// the type used for bullets  
type bullet
    ID as integer
    time as float // a time used because bullets die over time
endtype

#constant 	 swidth	  	  =	  1024
#constant 	 sheight	  =   768
#constant    white        =   MakeColor(0,0,255)
#constant    green        =   MakeColor(0,255,0)
#constant    blue         =   MakeColor(0,0,255)
#constant    yellow       =   MakeColor(255,255,0)
#constant    black        =   MakeColor(0,0,0)
#constant    playerObj    =   500 //object ID of player
#constant 	 camOff_y#    =   1
#constant    bulletLife   = .4  //time to keep bullets alive
#constant    Depth#       =100

//objects 
#constant    bottleObj1		=100
#constant    bottleObj2		=101
#constant    bottleObj3		=102
#constant    bottleObj4		=103
#constant    bottleObj5		=104
#constant    bottleObj6		=105
#constant    awningObj      =106
#constant    fenceObj       =107
#constant    frameObj1      =108
#constant    frameObj2      =110
#constant    grassObj       =111
#constant    waterObj1      =112
#constant    waterObj2      =113
#constant    waterObj3      =114
#constant    backgroundObj  =115
#constant    dogObj			=116
#constant    tableObj		=117
#constant    taurusObj		=118
#constant	 floorObj		=119 

//bowlingObjects
#constant back_wObj			=120
#constant ballObj			=121
#constant floor1Obj			=122
#constant gutter_1Obj		=123
#constant gutter_2Obj		=124
#constant gutter_3Obj		=125
#constant gutter_4Obj		=126
#constant gutter_e1Obj		=127
#constant gutter_e2Obj		=128
#constant gutter_fObj		=129
#constant left_wallObj		=130
#constant right_wallObj		=131
#constant roofObj			=132
#constant shadowObj			=133
#constant pinObj1			=134
#constant pinObj2			=135
#constant pinObj3			=136
#constant pinObj4			=137
#constant pinObj5			=138
#constant pinObj6			=139
#constant pinObj7			=140
#constant pinObj8			=141
#constant pinObj9			=142
#constant pinObj10			=143
#constant controlsObj	    =144



#constant	 toiletObj		=145


//images
#constant    awningImg      =100
#constant    fenceImg       =101
#constant    frameImg1      =102
#constant    frameImg2      =103
#constant    cannonImg      =104
#constant    duckImg1       =105
#constant    duckImg2       =106
#constant    duckImg3       =107
#constant    grassImg       =108
#constant    waterImg1      =109
#constant    waterImg2      =110
#constant    waterImg3      =112
#constant    backgroundImg  =113
#constant    dogImg			=114
#constant    duckImg 		=115
#constant    fontImg        =116  

//bowlingImages
#constant back_wImg			=117
#constant ballImg			=118
#constant floor1Img			=119
#constant gutter14Img		=120
#constant gutter_eImg		=121
#constant gutter_fImg		=122
#constant wallImg			=123
#constant pinImg			=124
#constant roofImg			=125
#constant ShadowImg			=126
#constant controlsImg	    =127
#constant ballOutlineImg	=128

 
global myBullet as bullet[0]
global myDucks as objectType[]
global digitalScore as scoreType[]
global bulletCount=0 //keeps track of the ammount of bullets currently alive used for processing
global Angle_x#   
global Angle_y#  
global vidID
global duckScore as integer
global font

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: 23rd Oct 2018 00:13 Edited at: 23rd Oct 2018 00:14

Link

Ok so I changed HoopToss function to

function hoopToss( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CloneObject(taurusObj)
    
    
        
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(throwBall,GetObjectAngleX(playerObj),GetObjectAngleY(playerObj),GetObjectAngleZ(playerObj))
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    positionVec3a=CreateVector3(GetObjectWorldX(throwBall)+1,GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)) 
	positionVec3b=CreateVector3(GetObjectWorldX(throwBall)-1,GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)) 
	positionVec3c=CreateVector3(GetObjectWorldX(throwBall),GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)+1) 
	positionVec3d=CreateVector3(GetObjectWorldX(throwBall),GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)-1) 
	rotationVec3=CreateVector3(GetObjectWorldAngleX(throwBall),GetObjectWorldAngleY(throwBall),GetObjectWorldAngleZ(throwBall)) 
	sizeVec3a=CreateVector3(1,1,4)
	sizeVec3b=CreateVector3(4,1,1)
    SetObjectShapeCompound(throwBall) 
	AddObjectShapeBox(throwBall , positionVec3a, rotationVec3, sizeVec3a )
	AddObjectShapeBox(throwBall , positionVec3b, rotationVec3, sizeVec3a )
	AddObjectShapeBox(throwBall , positionVec3c, rotationVec3, sizeVec3b)
	AddObjectShapeBox(throwBall , positionVec3d, rotationVec3, sizeVec3b )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
    deletevector3(positionVec3a) 
	deletevector3(positionVec3b) 
	deletevector3(positionVec3c) 
	deletevector3(positionVec3d) 
	deletevector3(rotationVec3) 
	deletevector3(sizeVec3a)
	deletevector3(sizeVec3b)
    
endfunction

+ Code Snippet


function hoopToss( initialSpeed as float, mass as float, size as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(playerObj),GetObjectWorldY(playerObj)+camOff_y#,GetObjectWorldZ(playerObj)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    setobjectrotation(projectiledirbox,GetObjectWorldAngleX(playerObj),GetObjectWorldAngleY(playerObj),GetObjectWorldAngleZ(playerObj))
        
    MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    DeleteObject( projectileDirBox )
    throwBall as integer    
    throwBall = CloneObject(taurusObj)
    
    
        
    SetObjectColor( throwBall, 255, 0,0,255 )
    SetObjectPosition( throwBall, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(throwBall,GetObjectAngleX(playerObj),GetObjectAngleY(playerObj),GetObjectAngleZ(playerObj))
    //3D Physics code
    Create3DPhysicsDynamicBody( throwBall )
    positionVec3a=CreateVector3(GetObjectWorldX(throwBall)+1,GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)) 
	positionVec3b=CreateVector3(GetObjectWorldX(throwBall)-1,GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)) 
	positionVec3c=CreateVector3(GetObjectWorldX(throwBall),GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)+1) 
	positionVec3d=CreateVector3(GetObjectWorldX(throwBall),GetObjectWorldY(throwBall),GetObjectWorldZ(throwBall)-1) 
	rotationVec3=CreateVector3(GetObjectWorldAngleX(throwBall),GetObjectWorldAngleY(throwBall),GetObjectWorldAngleZ(throwBall)) 
	sizeVec3a=CreateVector3(1,1,4)
	sizeVec3b=CreateVector3(4,1,1)
    SetObjectShapeCompound(throwBall) 
	AddObjectShapeBox(throwBall , positionVec3a, rotationVec3, sizeVec3a )
	AddObjectShapeBox(throwBall , positionVec3b, rotationVec3, sizeVec3a )
	AddObjectShapeBox(throwBall , positionVec3c, rotationVec3, sizeVec3b)
	AddObjectShapeBox(throwBall , positionVec3d, rotationVec3, sizeVec3b )
    SetObject3DPhysicsMass( throwBall, mass )
    SetObject3DPhysicsLinearVelocity( throwBall, projectileDirVec, initialSpeed )
    
    //SetObject3DPhysicsFriction( throwBall, 0.8 )
    //SetObject3DPhysicsRollingFriction( throwBall, 0.7 )
    //SetObject3DPhysicsCanSleep(throwBall,0)
    myItem as bullet
    myItem.ID = throwBall //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	myBullet.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc bulletCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
    deletevector3(positionVec3a) 
	deletevector3(positionVec3b) 
	deletevector3(positionVec3c) 
	deletevector3(positionVec3d) 
	deletevector3(rotationVec3) 
	deletevector3(sizeVec3a)
	deletevector3(sizeVec3b)
    
endfunction

and hoping that should work
but when I use world coordinates on my test like below It doesn't seem to work with the positioning as when I set the position beforehand
and setting the vectors with world coords it dont seem to work there prob some math im missing. If I comment out the setobjectposition
command the box addons may work

DeleteAllObjects()
DeleteAllImages()
loadObject(taurusObj,"taurus.obj")
SetObjectPosition(taurusObj,-5,4,40)
Create3DPhysicsDynamicBody(taurusObj )
positionVec3a=CreateVector3(GetObjectWorldX(taurusObj)+1,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3b=CreateVector3(GetObjectWorldX(taurusObj)-1,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3c=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)+1) 
positionVec3d=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)-1) 
rotationVec3=CreateVector3(GetObjectWorldAngleX(taurusObj),GetObjectWorldAngleY(taurusObj),GetObjectWorldAngleZ(taurusObj)) 
sizeVec3a=CreateVector3(1,1,4)
sizeVec3b=CreateVector3(4,1,1)
SetObjectShapeCompound(taurusObj ) 
AddObjectShapeBox(taurusObj , positionVec3a, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3b, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3c, rotationVec3, sizeVec3b)
AddObjectShapeBox(taurusObj , positionVec3d, rotationVec3, sizeVec3b )

+ Code Snippet


DeleteAllObjects()
DeleteAllImages()
loadObject(taurusObj,"taurus.obj")
SetObjectPosition(taurusObj,-5,4,40)
Create3DPhysicsDynamicBody(taurusObj )
positionVec3a=CreateVector3(GetObjectWorldX(taurusObj)+1,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3b=CreateVector3(GetObjectWorldX(taurusObj)-1,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3c=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)+1) 
positionVec3d=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)-1) 
rotationVec3=CreateVector3(GetObjectWorldAngleX(taurusObj),GetObjectWorldAngleY(taurusObj),GetObjectWorldAngleZ(taurusObj)) 
sizeVec3a=CreateVector3(1,1,4)
sizeVec3b=CreateVector3(4,1,1)
SetObjectShapeCompound(taurusObj ) 
AddObjectShapeBox(taurusObj , positionVec3a, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3b, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3c, rotationVec3, sizeVec3b)
AddObjectShapeBox(taurusObj , positionVec3d, rotationVec3, sizeVec3b )

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 23rd Oct 2018 15:01

Link

Well done fubarpk - keep all your ideas and inspirations active - they look really good.

Just a pointer though - the torus object is memory expensive ive found on the FPS. unless you made a simpler polygon one.

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 23rd Oct 2018 15:33 Edited at: 23rd Oct 2018 16:03

Link

Thanks puzzler still trying to work out how to get the collisions to work
with the test code below the setobjectposition messes it up

loadObject(taurusObj,"taurus.obj")
//SetObjectPosition(taurusObj,-5,4,40)
Create3DPhysicsDynamicBody(taurusObj )
positionVec3a=CreateVector3(GetObjectWorldX(taurusObj)+4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3b=CreateVector3(GetObjectWorldX(taurusObj)-4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3c=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)+4) 
positionVec3d=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)-4) 
rotationVec3=CreateVector3(GetObjectWorldAngleX(taurusObj),GetObjectWorldAngleY(taurusObj),GetObjectWorldAngleZ(taurusObj)) 
sizeVec3a=CreateVector3(1,1,6)
sizeVec3b=CreateVector3(6,1,1)
SetObjectShapeCompound(taurusObj ) 
AddObjectShapeBox(taurusObj , positionVec3a, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3b, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3c, rotationVec3, sizeVec3b)
AddObjectShapeBox(taurusObj , positionVec3d, rotationVec3, sizeVec3b )
deletevector3(positionVec3a) 
deletevector3(positionVec3b) 
deletevector3(positionVec3c) 
deletevector3(positionVec3d) 
deletevector3(rotationVec3) 
deletevector3(sizeVec3a)
deletevector3(sizeVec3b)
bottle=LoadObject("bottle2.obj")
SetObjectScalePermanent(bottle,4,4,4)
SetObjectColor(bottle,100,100,100,150)
SetObjectTransparency(bottle,1)
Create3DPhysicsDynamicBody(bottle) 
SetObject3DPhysicsMass(bottle, 1000.0 )
SetObject3DPhysicsFriction(bottle, 1 )

+ Code Snippet

loadObject(taurusObj,"taurus.obj")
//SetObjectPosition(taurusObj,-5,4,40)
Create3DPhysicsDynamicBody(taurusObj )
positionVec3a=CreateVector3(GetObjectWorldX(taurusObj)+4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3b=CreateVector3(GetObjectWorldX(taurusObj)-4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3c=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)+4) 
positionVec3d=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)-4) 
rotationVec3=CreateVector3(GetObjectWorldAngleX(taurusObj),GetObjectWorldAngleY(taurusObj),GetObjectWorldAngleZ(taurusObj)) 
sizeVec3a=CreateVector3(1,1,6)
sizeVec3b=CreateVector3(6,1,1)
SetObjectShapeCompound(taurusObj ) 
AddObjectShapeBox(taurusObj , positionVec3a, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3b, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3c, rotationVec3, sizeVec3b)
AddObjectShapeBox(taurusObj , positionVec3d, rotationVec3, sizeVec3b )
deletevector3(positionVec3a) 
deletevector3(positionVec3b) 
deletevector3(positionVec3c) 
deletevector3(positionVec3d) 
deletevector3(rotationVec3) 
deletevector3(sizeVec3a)
deletevector3(sizeVec3b)
bottle=LoadObject("bottle2.obj")
SetObjectScalePermanent(bottle,4,4,4)
SetObjectColor(bottle,100,100,100,150)
SetObjectTransparency(bottle,1)
Create3DPhysicsDynamicBody(bottle) 
SetObject3DPhysicsMass(bottle, 1000.0 )
SetObject3DPhysicsFriction(bottle, 1 )

anyone have any ideas ?

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 23rd Oct 2018 15:49

Link

Ill have a few tests with it tonight too to see whats happening with collisions on that object - when I was shattering it and using the 3D Physics - I found that ConvexHull shape worked best for that!!

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 23rd Oct 2018 16:07 Edited at: 23rd Oct 2018 17:57

Link

Thanks puzzler I just edited the above snippet and got it close if I don't use getObjectposition
so the problem must be with the positioning it says in the helpfile to use world coordinates
ie getObjectWorldX and getObjectWorldAngleX but that throws the collisions right off there
must be some calculation needed there in the vectors

Im thinking I need to do something like

+ Code Snippet

posVector=CreateVector3(getObjectX(taurusObj),getObjectY(taurusObj),getObjectZ(taurusObj))
GetVector3Add(positionVec3a,posVector)
GetVector3Add(positionVec3b,posVector)
GetVector3Add(positionVec3c,posVector)
GetVector3Add(positionVec3d,posVector)

But that still aint quite right

Perhaps theres a bug with compound shapes as its not getting the coordinates passed proper

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: 23rd Oct 2018 18:48

Link

fixed it had to calculate the vectors before set position

loadObject(taurusObj,"taurus.obj")
positionVec3a=CreateVector3(GetObjectWorldX(taurusObj)+4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3b=CreateVector3(GetObjectWorldX(taurusObj)-4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3c=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)+4) 
positionVec3d=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)-4) 
rotationVec3=CreateVector3(GetObjectWorldAngleX(taurusObj),GetObjectWorldAngleY(taurusObj),GetObjectWorldAngleZ(taurusObj)) 
sizeVec3a=CreateVector3(1,1,6)
sizeVec3b=CreateVector3(6,1,1)
SetObjectPosition(taurusObj,-5,4,40)
Create3DPhysicsDynamicBody(taurusObj )  
SetObjectShapeCapsule(taurusObj,1,8,1,1 ) 
SetObjectShapeCompound(taurusObj ) 
AddObjectShapeBox(taurusObj , positionVec3a, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3b, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3c, rotationVec3, sizeVec3b)
AddObjectShapeBox(taurusObj , positionVec3d, rotationVec3, sizeVec3b )
deletevector3(positionVec3a) 
deletevector3(positionVec3b) 
deletevector3(positionVec3c) 
deletevector3(positionVec3d) 
deletevector3(rotationVec3) 
deletevector3(sizeVec3a)
deletevector3(sizeVec3b)

+ Code Snippet

loadObject(taurusObj,"taurus.obj")
positionVec3a=CreateVector3(GetObjectWorldX(taurusObj)+4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3b=CreateVector3(GetObjectWorldX(taurusObj)-4,GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)) 
positionVec3c=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)+4) 
positionVec3d=CreateVector3(GetObjectWorldX(taurusObj),GetObjectWorldY(taurusObj),GetObjectWorldZ(taurusObj)-4) 
rotationVec3=CreateVector3(GetObjectWorldAngleX(taurusObj),GetObjectWorldAngleY(taurusObj),GetObjectWorldAngleZ(taurusObj)) 
sizeVec3a=CreateVector3(1,1,6)
sizeVec3b=CreateVector3(6,1,1)
SetObjectPosition(taurusObj,-5,4,40)
Create3DPhysicsDynamicBody(taurusObj )  
SetObjectShapeCapsule(taurusObj,1,8,1,1 ) 
SetObjectShapeCompound(taurusObj ) 
AddObjectShapeBox(taurusObj , positionVec3a, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3b, rotationVec3, sizeVec3a )
AddObjectShapeBox(taurusObj , positionVec3c, rotationVec3, sizeVec3b)
AddObjectShapeBox(taurusObj , positionVec3d, rotationVec3, sizeVec3b )
deletevector3(positionVec3a) 
deletevector3(positionVec3b) 
deletevector3(positionVec3c) 
deletevector3(positionVec3d) 
deletevector3(rotationVec3) 
deletevector3(sizeVec3a)
deletevector3(sizeVec3b)

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 23rd Oct 2018 19:24

Link

Nice one!!

Back to top

Profile

Sorry your browser is not supported!

AppGameKit Classic Chat / Having problems with 3D convex shapes