Help with raycasting and arrays!

Author

Message

BowserYo

16

Years of Service

User Offline

Joined: 4th Jan 2008

Location:

Posted: 18th Sep 2009 21:24 Edited at: 18th Sep 2009 21:25

Link

Hi, I am attempting to use the "SC_Raycast" command as a sub for shooting an actual object.

Here is my problem: I can return an object number for a cube I create, but, when I setup my enemy objects (which I use arrays for) raycast will not return on object number other than a really large number starting with 7. EDIT: The number that starts with 7 seems to return if nothing is intersected.

Here's my code for setting up my enemy objects:

+ Code Snippet

Create_Enemies:
Rem <Creates Enemies>
   For e = 1 to enemies
      `Loads object and textures
      Load image "Mediaimagemetal.jpg", 10+e
      Load object "MediaobjEnemy.3DS", 10+e
      `Setup Collisions for enemie
      SC_SetupObject 10+e,1,0
      `Texture enemies
      Texture object 10+e,10+e
      Set object speed 10+e,40
   next e
Rem </Creates Enemies>
Goto _Loop

This code sets up a basic cube:

+ Code Snippet

`Raycast media
Make object cube 110,100 : position object 110, 500,50,500
Sc_SetupObject 110,1,0

When I "shoot" or create a ray that intersects the above cube it returns the number "110" But I cannot return a number for the enemies when I "shoot" them. Here's my raycast code:

+ Code Snippet

Raycast:
If mouseclick()
      x1# = Object Position X( player )
      y1# = Object Position Y( player )
      z1# = Object Position Z( player )

      Position Object 45, Object Position X( player ), Object Position Y( player ), Object Position Z( player )
      Rotate Object 45, Object Angle X( player ), Object Angle Y( player ), Object Angle Z( player )
      Move Object 45, 10000

      x2# = Object Position X( 45 )
      y2# = Object Position Y( 45 )
      z2# = Object Position Z( 45 )
      raycast = sc_RayCast( 0, x1#, y1#, z1#, x2#, y2#, z2#, 0 )
   For i = 0 To raycast
      ObjectHit = sc_GetObjectHit( hObj )
   Next i
endif
Return

Does anyone have any ideas?? I'm guessing that the problem is because my enemies are created as arrays, but I don't have any clue how to fix this. I will post all my code if you guys want.

Thanks a lot!

ßõw§€r¥¤

Back to top

Profile PM

BowserYo

16

Years of Service

User Offline

Joined: 4th Jan 2008

Location:

Posted: 18th Sep 2009 23:50

Link

Okay, I've figured out that the reason the ray_cast isn't working is because I am positioning them through arrays like this:

+ Code Snippet

Dim enemy_position(enemies) as enemy

Type enemy `Sets the x,y and z positions as floats
   x as float
   y as float
   z as float
endtype

For e = 1 to enemies `Randomizes positions
   enemy_position(e).x=rnd(7000)
   enemy_position(e).z=rnd(7000)
next e

I also have them moving around using the "e...next e" similarly to the way I randomize there positions. But for some reason, Sparkys collisions isn't recognizing that they are moving. I've found that if I aim at position 0,0,0 and shoot, it will return the number of my last created enemy (object 20). But that actual enemy is moving around somewhere else.
>>>>>
So my question is, how do I get Sparkys collisions to recognize my enemies position through arrays? Or is it not possible?

ßõw§€r¥¤

Back to top

Profile PM

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 19th Sep 2009 03:24 Edited at: 19th Sep 2009 03:26

Link

After repositioning/rotating an object, you need to use "SC_UpdateObject" to update the collision representation of the object.

EDIT: Also, in the code above, I'm assuming obj 45 is the player object?

-Z

Back to top

Profile PM

BowserYo

16

Years of Service

User Offline

Joined: 4th Jan 2008

Location:

Posted: 19th Sep 2009 07:05 Edited at: 19th Sep 2009 07:07

Link

Okay, I will give that a shot!

I use two objects to cast the ray, the player object, and a reference object (object 45) that is placed 10,000 units away from the camera, in the direction your looking. I then cast a ray between the two positions. For some reason, it's still not picking up the enemies

It does seemed to have moved the collisions somewhere else though, as when I aim at point 0,0; it doesnt return a collision with object 20. I'm stumped!!

Please can you help me fix this? Thanks!

EDIT: (Note: As I stated above, it does with work a stationary cube that I made if I setup the cube. But it won't see the enemy objects...

ßõw§€r¥¤

Back to top

Profile PM

Dream And Death

18

Years of Service

User Offline

Joined: 21st Feb 2006

Location: The circus! Juggling job, kids and DBPro

Posted: 19th Sep 2009 14:47 Edited at: 19th Sep 2009 14:47

Link

+ Code Snippet

For e = 1 to enemies `Randomizes positions
   enemy_position(e).x=rnd(7000)
   enemy_position(e).z=rnd(7000)
next e

is all very well, but where are you setting

+ Code Snippet

For e = 1 to enemies `Updates positions
   position object(e+enemyoffset) enemy_position(e).x, 0, enemy_position(e).z
next e

Raycasting works to the actual position, not some numbers you have stored in an array that you haven't used yet.

"You get what everyone gets, you get a lifetime!" - Death, The Sandman Library

First you Dream, then you ... - Neil Gaiman, 2001

Back to top

Profile PM

BowserYo

16

Years of Service

User Offline

Joined: 4th Jan 2008

Location:

Posted: 19th Sep 2009 19:06

Link

Okay, are you asking where I am actually moving the enemies? If so:

AI:
`**********<AI>**********
      `Select all enemies
      for e=1 to enemies
      collision# = object collision (player,10+e)
      `Check the distance between you and the enmies
      enemy_dist#(e)=sqrt((x#-enemy_position(e).x)^2+(y#-enemy_position(e).y)^2+(z#-enemy_position(e).z)^2)
      `If enemy state is 1 then make the angle change (so the enemy can wander)
      if enemy_state(e)=1
         enemy_angle(e)=wrapvalue(enemy_angle(e)+rnd(3))
            If enemyspeed# <= 7.5 then inc enemyspeed#, .5
            enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),8)
            enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),8)
         stop object 10+e : set object frame 10+e,0
      endif
      `If the enemy state is 2 then point to player
      if enemy_state(e)=2
         enemy_angle(e)=atanfull(x#-enemy_position(e).x,z#-enemy_position(e).z)
         `Move enemy
         enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),8)
         enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),8)
         stop object 10+e : set object frame 10+e,0
      endif

if enemy_state(e)=3 `If enemy is within striking distance
         `Move enemy
         enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),0)
         enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),0)
         Loop object 10+e,0,15
      endif

`Change state depending on distance
      if enemy_dist#(e) < 500 then enemy_state(e)=2
      If enemy_dist#(e)>=500 then enemy_state(e)=1
      `Update enemies
      enemy_position(e).y=get ground height(1,enemy_position(e).x,enemy_position(e).z)+50
      `Positions enemy objects according to floats
      position object 10+e,enemy_position(e).x,enemy_position(e).y,enemy_position(e).z
      yrotate object 10+e,enemy_angle(e)
      `If you get hit then respawn
      if object collision (player,10+e)=1
         enemy_state(e)=3
         health = health-rnd(2)
      endif
   `Update the enemies collision positions
   SC_updateObject 10+e
   `deselect enemies
   next e
`**********</AI>**********
Return

+ Code Snippet

AI:
`**********<AI>**********
      `Select all enemies
      for e=1 to enemies
      collision# = object collision (player,10+e)
      `Check the distance between you and the enmies
      enemy_dist#(e)=sqrt((x#-enemy_position(e).x)^2+(y#-enemy_position(e).y)^2+(z#-enemy_position(e).z)^2)
      `If enemy state is 1 then make the angle change (so the enemy can wander)
      if enemy_state(e)=1
         enemy_angle(e)=wrapvalue(enemy_angle(e)+rnd(3))
            If enemyspeed# <= 7.5 then inc enemyspeed#, .5
            enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),8)
            enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),8)
         stop object 10+e : set object frame 10+e,0
      endif
      `If the enemy state is 2 then point to player
      if enemy_state(e)=2
         enemy_angle(e)=atanfull(x#-enemy_position(e).x,z#-enemy_position(e).z)
         `Move enemy
         enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),8)
         enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),8)
         stop object 10+e : set object frame 10+e,0
      endif

      if enemy_state(e)=3 `If enemy is within striking distance
         `Move enemy
         enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),0)
         enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),0)
         Loop object 10+e,0,15
      endif

      `Change state depending on distance
      if enemy_dist#(e) < 500 then enemy_state(e)=2
      If enemy_dist#(e)>=500 then enemy_state(e)=1
      `Update enemies
      enemy_position(e).y=get ground height(1,enemy_position(e).x,enemy_position(e).z)+50
      `Positions enemy objects according to floats
      position object 10+e,enemy_position(e).x,enemy_position(e).y,enemy_position(e).z
      yrotate object 10+e,enemy_angle(e)
      `If you get hit then respawn
      if object collision (player,10+e)=1
         enemy_state(e)=3
         health = health-rnd(2)
      endif
   `Update the enemies collision positions
   SC_updateObject 10+e
   `deselect enemies
   next e
`**********</AI>**********
Return

Near the end of that code, I update all my enemy objects, but that doesn't seem to work. I'm not quite understanding what you are saying though

ßõw§€r¥¤

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with raycasting and arrays!