Help ...with sparky collision......

Author

Message

technotdc

13

Years of Service

User Offline

Joined: 13th Apr 2011

Location:

Posted: 1st Sep 2011 17:22

Link

Hi..

I'm trying this collide (enemy /level) with Sparky's collision (¿faster collision ??? )

I'm noob.

+ Code Snippet

REM LEVEL
load object "levelbank\testlevel\universe.dbo",99
load image "media\t.dds",99
SC_SetupObject 99,0,2       -----colision Box???
texture object 99,99
set object transparency 99,1



load object "media/zombie1/zomes.x",5
position object 5,65,50,-100
loop object 5,43,89
 SC_SetupObject 5,0,2

and this function of enemy :

+ Code Snippet


function zombie1()

point object 5,camera position x(),camera position y(),camera position z()

move object 5,0.6

zomx#=object position x(5)
zomy#=object position y(5)
zomz#=object position z(5)



if SC_ObjectCollision(5,99)=1
position object 5, zomx#-1, zomy#, zomz#-1
 position object 5, zomx#-SC_getCollisionNormalX(), 0, zomz#-SC_getCollisionNormalz()
ENDIF
endfunction

the enemy follow player (camera) but cross the wall....

can you help me ,please?????

(sorry bad english)

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 2nd Sep 2011 17:28

Link

First, I would set up your level as a complex object (i.e. SC_setupComplexObject objNum , GroupNum , FacesPerNode). Set it as group 1.

Second, I would use sc_SphereSlideGroup:
collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,radius#,0)

I revised the old demo code for Sparky's and made it so you can see how it can work by example:

// modified version of the slide demo for Sparky's 
// LBFN 2/9/2011

sync on : sync rate 60
autocam off : hide mouse : randomize timer()
global NextObject, player : NextObject = 99
global radius# as float : radius# = 6.0

makeLevel()
makePlayer()

repeat
	MovePlayer()
	positionCameraToObject(2,view)
	text 0,0,"Use W/A/S/D to move, and [spacekey] to quit"
	sync
until spacekey() = 1
for obj = 100 to (NextObject - 1)
    if object exist(obj) = 1 then delete object obj
next obj
end

function makeLevel()
    // ground
    temp = GetNextObject()
    make object box temp,1000,20,1000
    color object temp,rgb(0,255,0)
	position object temp,0,0,0
	sc_setupObject temp,1,2
	TotalDebris = rnd(20) + 20
	for m = 1 to TotalDebris
	   // get an object #
	   obj = GetNextObject()
	   // pick a random object shape
	   shape = rnd(4)
	   select shape
	       case 0
	           osize = rnd(20) + 10 : // get random spere size from 10 to 30
	           make object sphere obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
	           sc_setupObject obj,1,1 : // set it to sphere collision
	       endcase
	       case 1
	           osize = rnd(20) + 10
	           make object cone obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,0 : // set it to polygon collision
	       endcase
	       case 2
               osize = rnd(20) + 10
	           make object cylinder obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,0 : // set it to polygon collision
	       endcase
	       case 3
	           osize = rnd(20) + 10
	           make object cube obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,2 : // set it to box collision
	       endcase
	       case 4
	           length = rnd(30) + 20 : width = rnd(30) + 20 : height = rnd(20) + 10
	           make object box obj,length,height,width
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = height / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,2 : // set it to box collision
	       endcase
        endselect
    next m
	rem all level objects are group 1
endfunction

function makePlayer()
    player = GetNextObject()
	make object sphere player,radius# * 2.0
	position object player,-80,radius# * 3.0,-20
	sc_setupObject player,0,1
	set alpha mapping on player,50
	disable object zwrite player
	
	rem player has no group
endfunction

function movePlayer()
	
	rem rotate player with mouse
	yrotate object player,object angle y(player) + mousemovex()/3.0
	xrotate object player,object angle x(player) + mousemovey()/3.0

oldx# = object position x(player)
	oldy# = object position y(player)
	oldz# = object position z(player)
	
	if keystate(17)=1 then move object player,1
	if keystate(31)=1 then move object player,-1
	if keystate(30)=1 then move object left player,1
	if keystate(32)=1 then move object right player,1	
	
	x# = object position x(player)
	y# = object position y(player)
	z# = object position z(player)
	
	rem player only collides with group 1 (level) objs and moves freely through others
	collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,radius#,0)
	
	if collide>0
		rem if hit, reposition player, halt movement vector
		x# = sc_getCollisionSlideX()
		y# = sc_getCollisionSlideY()
		z# = sc_getCollisionSlideZ()
		
		rem re-position the player
	   position object player,x#,y#,z#
	   
	endif
	
	sc_updateObject player
endfunction

function positionCameraToObject(obj,thirdPerson)
	position camera object position x(player),object position y(player),object position z(player)
	rotate camera object angle x(player),object angle y(player),object angle z(player)
endfunction

function GetNextObject()
    repeat
        inc NextObject
    until object exist(NextObject) = 0
endfunction NextObject

+ Code Snippet

// modified version of the slide demo for Sparky's 
// LBFN 2/9/2011

sync on : sync rate 60
autocam off : hide mouse : randomize timer()
global NextObject, player : NextObject = 99
global radius# as float : radius# = 6.0

makeLevel()
makePlayer()

repeat
	MovePlayer()
	positionCameraToObject(2,view)
	text 0,0,"Use W/A/S/D to move, and [spacekey] to quit"
	sync
until spacekey() = 1
for obj = 100 to (NextObject - 1)
    if object exist(obj) = 1 then delete object obj
next obj
end

function makeLevel()
    // ground
    temp = GetNextObject()
    make object box temp,1000,20,1000
    color object temp,rgb(0,255,0)
	position object temp,0,0,0
	sc_setupObject temp,1,2
	TotalDebris = rnd(20) + 20
	for m = 1 to TotalDebris
	   // get an object #
	   obj = GetNextObject()
	   // pick a random object shape
	   shape = rnd(4)
	   select shape
	       case 0
	           osize = rnd(20) + 10 : // get random spere size from 10 to 30
	           make object sphere obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
	           sc_setupObject obj,1,1 : // set it to sphere collision
	       endcase
	       case 1
	           osize = rnd(20) + 10
	           make object cone obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,0 : // set it to polygon collision
	       endcase
	       case 2
               osize = rnd(20) + 10
	           make object cylinder obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,0 : // set it to polygon collision
	       endcase
	       case 3
	           osize = rnd(20) + 10
	           make object cube obj,osize
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = osize / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,2 : // set it to box collision
	       endcase
	       case 4
	           length = rnd(30) + 20 : width = rnd(30) + 20 : height = rnd(20) + 10
	           make object box obj,length,height,width
	           x# = rnd(450) : if rnd(100) > 50 then x# = x# * -1
	           z# = rnd(450) : if rnd(100) > 50 then z# = z# * -1
	           y# = height / 2
	           position object obj,x#,y#,z#
	           rotate object obj,rnd(360),rnd(360),rnd(360)
		       sc_setupObject obj,1,2 : // set it to box collision
	       endcase
        endselect
    next m
	rem all level objects are group 1
endfunction

function makePlayer()
    player = GetNextObject()
	make object sphere player,radius# * 2.0
	position object player,-80,radius# * 3.0,-20
	sc_setupObject player,0,1
	set alpha mapping on player,50
	disable object zwrite player
	
	rem player has no group
endfunction

function movePlayer()
	
	rem rotate player with mouse
	yrotate object player,object angle y(player) + mousemovex()/3.0
	xrotate object player,object angle x(player) + mousemovey()/3.0

	oldx# = object position x(player)
	oldy# = object position y(player)
	oldz# = object position z(player)
	
	if keystate(17)=1 then move object player,1
	if keystate(31)=1 then move object player,-1
	if keystate(30)=1 then move object left player,1
	if keystate(32)=1 then move object right player,1	
	
	x# = object position x(player)
	y# = object position y(player)
	z# = object position z(player)
	
	rem player only collides with group 1 (level) objs and moves freely through others
	collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,y#,z#,radius#,0)
	
	if collide>0
		rem if hit, reposition player, halt movement vector
		x# = sc_getCollisionSlideX()
		y# = sc_getCollisionSlideY()
		z# = sc_getCollisionSlideZ()
		
		rem re-position the player
	   position object player,x#,y#,z#
	   
	endif
	
	sc_updateObject player
endfunction

function positionCameraToObject(obj,thirdPerson)
	position camera object position x(player),object position y(player),object position z(player)
	rotate camera object angle x(player),object angle y(player),object angle z(player)
endfunction

function GetNextObject()
    repeat
        inc NextObject
    until object exist(NextObject) = 0
endfunction NextObject

Hope this is helpful.

Back to top

Profile PM Email

technotdc

13

Years of Service

User Offline

Joined: 13th Apr 2011

Location:

Posted: 3rd Sep 2011 06:07

Link

Hi....

Thanks for you code LBFN....

well...I'm trying this now..

+ Code Snippet

function zombie1()
    



oldzomx# = object position x(5)
oldzomy# = object position y(5)
oldzomz# = object position z(5)

point object 5,camera position x(),camera position y(),camera position z()  

 zomx# = object position x(5)
 zomy# = object position y(5)
 zomz# = object position z(5)
  
      
  if SC_ObjectCollision(5,99)=0
        move object 5,0.7
        zomx# = sc_getCollisionSlideX()
        zomy# = sc_getCollisionSlidey(
        zomz# = sc_getCollisionSlideZ()
        
        rem re-position the player
       position object 5,zomx#,zomy#,zomz#
       
    endif 
    
 endfunction

and the enemy don't move now (then , it collide with level ,true???)

I put line this to verify the collsision :

if SC_ObjectCollision(5,99)=1 then end

and the program end after compile (because the enemy collide with the floor of level...)

too much problems with my room created if FPS Creator......

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 3rd Sep 2011 16:37

Link

You need to move the

+ Code Snippet

move object 5,0.7

code to where it is right after the point object command.

The sc_ObjectCollision command will not return sliding x, y and z values. Use sc_SphereSlideGroup instead.

+ Code Snippet

collide = sc_SphereSlideGroup(1,oldzomx#,oldzomy#,oldzomz#,zomx#,zomy#,zomz#,radius#,0)
  if collide > 0
        zomx# = sc_getCollisionSlideX()
        zomy# = sc_getCollisionSlidey()
        zomz# = sc_getCollisionSlideZ()
        rem re-position the player
       position object 5,zomx#,zomy#,zomz#
       
  endif

Please note: You need to define object 99 (your level) as group 1 when you set it up (you need to set it up as a complex object, if you haven't already). You also need to make the float variable, radius#, a global variable at the start of your program and assign a value to it that is half the Y size of the zombie. i.e.:

+ Code Snippet

// early in the code:
global radius# as float 
// after this line: load object "media/zombie1/zomes.x",5
// put the following
radius# = object size y(5) / 2

Since I do not have your models, I cannot test this, but it seems like it should work.

Back to top

Profile PM Email

technotdc

13

Years of Service

User Offline

Joined: 13th Apr 2011

Location:

Posted: 4th Sep 2011 04:24 Edited at: 5th Sep 2011 15:11

Link

hi......

I can't do

???????

here the code:

+ Code Snippet


global radius# as float

load object "levelbank\testlevel\universe.dbo",99
load image "media\falso.png",99
texture object 99,99
SC_setupComplexObject 99 ,1,2

load object "media/zombie1/zomes.x",5
position object 5,200,10,-170
radius# = object size y(5) / 2
loop object 5,1,43
sc_setupObject 5,1,1

And here the enemy function :

+ Code Snippet

function zombie1()
    
    

point object 5, position x(),camera position y(),camera position z()
move object 5,0.7



oldzomx# = object position x(5)
oldzomy# = object position y(5)
oldzomz# = object position z(5)

  

    zomx# = object position x(5)
    zomy# = object position y(5)
    zomz# = object position z(5)
  
      
    

collide = sc_SphereSlideGroup(1,oldzomx#,oldzomy#,oldzomz#,zomx#,zomy#,zomz#,radius#,0)
  if collide > 0
        zomx# = sc_getCollisionSlideX()
        zomy# = sc_getCollisionSlidey()
        zomz# = sc_getCollisionSlideZ()
        rem re-position the player
       position object 5,zomx#,zomy#,zomz#
       
  endif
sc_updateObject 5
endfunction

Of course..thank for your help ...(sorry for your loser time)

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 4th Sep 2011 04:38 Edited at: 4th Sep 2011 22:14

Link

okay, I won't be at my comp until tomorrow, but looking at the code I see a glaring error that might be the problem.

In the zombie1() function, you point and move object 5 before you store the old x,y and z coordinates. You have to store oldzomx#, etc. before you point and move object #5.

If that doesn't work, I plan to look at it tomorrow and test it to figure it out. Don't despair, we'll figure this out.

EDIT:

There is a handy tool you can use with Sparky's called sc_drawobjectbounds. Use this command right after the zombie (object 5) is created to show you what Sparky's sees as the bounds for your object. It would show you this:

You can see the collision sphere is way low for what it should be. There is a problem with the zombie model itself. It needs to be moved inside a 3D modeling program so that it is centered on the Y axis.

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 5th Sep 2011 04:43 Edited at: 5th Sep 2011 04:46

Link

technotdc:

I just got to thinking, do you have permission to post these models? They are very professional-looking and I don't want you to get into trouble if you do not have permission to share them. If you don't, you should remove the link immediately.

Anyway, I took the zombie model and altered it so that it is correctly centered on the Y axis (I didn't rig and re-animate it) and here is what I see:

One other change I needed to make was the zombie's initial Y position. You had it at 10 on the Y, I moved it to 15.

Attachments

Login to view attachments

Back to top

Profile PM Email

technotdc

13

Years of Service

User Offline

Joined: 13th Apr 2011

Location:

Posted: 5th Sep 2011 16:26 Edited at: 6th Sep 2011 16:52

Link

ahhhhhh.......

ok LBFN.....thanks.....

Yes ,I edited the animation of model ,true.....I fix now ,and collide with wall good

Thanks for your great help

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Help ...with sparky collision......

Attachments

Attachments