EZRotate Orbit Rotations - GameCreators Forum

Author

Message

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 6th May 2007 14:44 Edited at: 6th May 2007 14:50

Link

Hi!

I just purchased EZRotate and it seems very powerful. I modified the code for the orbit rotation example so that the door could be placed anywhere and the rotation would still work. I changed the "Orbiting Door from Left Side" portion to this:

`Mode 1 - Orbiting Door from Left Side
`-------------------------------------------------------
IF mode = 1
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

`Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1),OBJECT POSITION Z(1),OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1),1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1),OBJECT POSITION Z(1),OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1),-1
      DoorAngle = DoorAngle - 1
   ENDIF

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

+ Code Snippet

`Mode 1 - Orbiting Door from Left Side
`-------------------------------------------------------
IF mode = 1
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   `Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1),OBJECT POSITION Z(1),OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1),1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1),OBJECT POSITION Z(1),OBJECT POSITION X(1)-2.5,OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1),-1
      DoorAngle = DoorAngle - 1
   ENDIF

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

The door acts strangely and not how I expected. Could anyone explain why this happens?

I am doing something simmilar to this in my own game, to rotate a laser beam in the direction the gun is facing.

EDIT: Here is the code for the laser in my own game. I get a simmilar problem:

+ Code Snippet

rem FUNCTION: step_laser ()
`Must be called each step to update laser positions
FUNCTION step_laser()
 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
   EZro_SetEuler 0,0,0
   EZro_SetPos OBJECT POSITION X(Laser(i).ObjNum),OBJECT POSITION Y(Laser(i).ObjNum),OBJECT POSITION Z(Laser(i).ObjNum)
   EZro_Orbit 1,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xFrom,Laser(i).yFrom-20,Laser(i).zFrom,Laser(i).Angle
   EZro_LZ 90
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   POSITION OBJECT Laser(i).ObjNum,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
  ENDIF
 NEXT i
ENDFUNCTION

Thanks in advance!

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 7th May 2007 19:53

Link

z_man,

To perform an "orbit", EZrotate must alter the rotation and position of your object. In your code, you are using current position as part of the orbit axis. So, as the object moves and rotates, you are alos moving the orbit axis that you are setting up EZroate with!

Back to top

Profile PM Email

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 8th May 2007 09:40

Link

Thanks! Now I get why this is happening, could you maybe explain how I could make it rotate relative to it's position?

Thanks in advance!

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 8th May 2007 13:06

Link

Well, it needs to be anchored to something.

I think I understand what you are trying to do. You are just approaching it from the wrong perspective. The orbit command is going to mosify your object's position. I assume that your object is also movable, so it's position can be moved by other things too.
What you need to do is store a theoretical position for your object.

So, as you move your object around, you should modify some variable like this:

+ Code Snippet

If UPKEY() = 1 then ObjZ# = ObjZ# + 1
If DOWNKEY() = 1 then ObjZ# = ObjZ# - 1
If RIGHTKEY() = 1 then ObjX# = ObjX# + 1
If LEFTKEY() = 1 then ObjX# = ObjX# - 1

Now, as you press the arrow keys, variables that would store the object's theoretical poition would be modified.

Now, you would set up EZrotate like this, using the theoretical position as the orbiting axis.

+ Code Snippet

`Setup EZrotate with object's current rotation
EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
`Setup EZrotate with object's current position
EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

EZro_Orbit 1,ObjX#,ObjY#,ObjZ#,ObjX#,ObjY#+1,ObjZ#,1

`CALCULATE new Euler angles for object
EZro_FindEuler

`Apply new Rotation to Object
ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
`Apply new Position to Object
POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()

It should work something like that. I haven't tested it (and my brain doesn't seem to be working correctly today) so I don't know for sure. Try something like this and let me know how you make out. If it doesn't work, I'll try to write a real example for you!

-Ron

Back to top

Profile PM Email

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 9th May 2007 11:30

Link

Hi!

I did as you said but there still seems to be a problem - here is the example modified to what you said:

`EZroate Enhanced
`Features Demo 3: Orbiting
`---------------------------------------------
`by: Ron Erickson 1-Jul-04
`**********************
`Setup
`**********************
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,16
AUTOCAM OFF
RANDOMIZE TIMER()
COLOR BACKDROP rgb(0,0,0)

`**********************
`Load Objects:
`**********************
`Create Door
MAKE OBJECT BOX 1,5,10,.5
POSITION OBJECT 1,0,5,0
LOAD IMAGE "media/oak_door.jpg",1
TEXTURE OBJECT 1,1

`Create Path
MAKE OBJECT PLAIN 2,5,50
XROTATE OBJECT 2,90
LOAD IMAGE "media/grass_T.jpg",2
TEXTURE OBJECT 2,2
SCALE OBJECT TEXTURE 2,1,10

`Camera
POSITION CAMERA -5,10,-20
POINT CAMERA 0,5,0

mode = 0
direction = 0
`**********************
`Main Loop:
`**********************
DO

`Advance Demo with SpaceBar
`---------------------------
IF SPACEKEY() = 1
   changemode = 1
ENDIF
IF changemode = 1 AND SPACEKEY() = 0
   changemode = 0
   mode = mode + 1
   ROTATE OBJECT 1,0,0,0
   POSITION OBJECT 1,5,5,0
   direction = 0
   DoorAngle = 0
ENDIF

If UPKEY() = 1 then ObjZ# = ObjZ# + 1
If DOWNKEY() = 1 then ObjZ# = ObjZ# - 1
If RIGHTKEY() = 1 then ObjX# = ObjX# + 1
If LEFTKEY() = 1 then ObjX# = ObjX# - 1

`Check Limits of the Door's Rotation
`-------------------------------------------------------
IF direction = 0 AND DoorAngle > 90 THEN direction = 1
IF direction = 1 AND DoorAngle < 0 THEN direction = 0

`Mode 0 - Not using orbiting
`-------------------------------------------------------
IF mode = 0
   IF direction = 0
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      DoorAngle = DoorAngle - 1
   ENDIF
   YROTATE OBJECT 1,DoorAngle
ENDIF

`Mode 1 - Orbiting Door from Left Side
`-------------------------------------------------------
IF mode = 1
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

EZro_Orbit 1,ObjX#,ObjY#,ObjZ#,ObjX#,ObjY#+1,ObjZ#,1

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 2 - Orbiting Door from Right Side
`-------------------------------------------------------
IF mode = 2
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

`Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,2.5,0,0,2.5,10,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,2.5,0,0,2.5,10,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 3 - Orbiting Door from Bottom
`-------------------------------------------------------
IF mode = 3
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

`Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Orbit Command Reference:
`EZro_Orbit RotateFlag,P1x#,P1y#,P1z#,P2x#,P2y#,P2z#,angle#
`--------------------------------------------------------------------------------------
`RotateFlag:    If set to 0 then Object will not rotate as it moves around the orbit axis
`               If set to 1 then Object will rotate as it moves around the orbit axis
`P1x#,P1y#,P1z#:    The XYZ coordinates of the first point in the orbit axis
`P2x#,P2y#,P2z#:    The XYZ coordinates of the second point in the orbit axis
`angle#:      The amount (in degrees) that you want your object to orbit

SET CURSOR 0,0
   PRINT "EZ-Rotate Enhanced"
   PRINT "Features Demo 3: Orbiting"
   PRINT "By: Ron Erickson"
   PRINT "visit: www.ericksonline.com"
   PRINT "-------------------------------------------------------------------"
   PRINT "This Demo illustrates how you can use the ORBITING feature of"
   PRINT "EZrotate to rotate an object around any base. You are no longer"
   PRINT "limited to only rotating objects around it's origin."
   PRINT "-------------------------------------------------------------------"
   IF mode = 0
      PRINT "By default, the origin of this door object is at it's center."
      PRINT "When the door is rotated, it will rotate around that point."
   ENDIF
   IF mode <> 0
      PRINT "Using the ORBIT feature of EZrotate allows you to easily rotate"
      PRINT "your object around any point!"
   ENDIF
   IF mode < 3
      PRINT "Press SPACEBAR to continue ->"
   ENDIF
   IF mode = 3
      PRINT "Press ESCAPE to Quit"
   ENDIF

SYNC
LOOP

+ Code Snippet

`EZroate Enhanced
`Features Demo 3: Orbiting
`---------------------------------------------
`by: Ron Erickson 1-Jul-04
`**********************
`Setup
`**********************
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,16
AUTOCAM OFF
RANDOMIZE TIMER()
COLOR BACKDROP rgb(0,0,0)


`**********************
`Load Objects:
`**********************
`Create Door
MAKE OBJECT BOX 1,5,10,.5
POSITION OBJECT 1,0,5,0
LOAD IMAGE "media/oak_door.jpg",1
TEXTURE OBJECT 1,1

`Create Path
MAKE OBJECT PLAIN 2,5,50
XROTATE OBJECT 2,90
LOAD IMAGE "media/grass_T.jpg",2
TEXTURE OBJECT 2,2
SCALE OBJECT TEXTURE 2,1,10

`Camera
POSITION CAMERA -5,10,-20
POINT CAMERA 0,5,0

mode = 0
direction = 0
`**********************
`Main Loop:
`**********************
DO

`Advance Demo with SpaceBar
`---------------------------
IF SPACEKEY() = 1
   changemode = 1
ENDIF
IF changemode = 1 AND SPACEKEY() = 0
   changemode = 0
   mode = mode + 1
   ROTATE OBJECT 1,0,0,0
   POSITION OBJECT 1,5,5,0
   direction = 0
   DoorAngle = 0
ENDIF

If UPKEY() = 1 then ObjZ# = ObjZ# + 1
If DOWNKEY() = 1 then ObjZ# = ObjZ# - 1
If RIGHTKEY() = 1 then ObjX# = ObjX# + 1
If LEFTKEY() = 1 then ObjX# = ObjX# - 1

`Check Limits of the Door's Rotation
`-------------------------------------------------------
IF direction = 0 AND DoorAngle > 90 THEN direction = 1
IF direction = 1 AND DoorAngle < 0 THEN direction = 0


`Mode 0 - Not using orbiting
`-------------------------------------------------------
IF mode = 0
   IF direction = 0
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      DoorAngle = DoorAngle - 1
   ENDIF
   YROTATE OBJECT 1,DoorAngle
ENDIF

`Mode 1 - Orbiting Door from Left Side
`-------------------------------------------------------
IF mode = 1
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   EZro_Orbit 1,ObjX#,ObjY#,ObjZ#,ObjX#,ObjY#+1,ObjZ#,1

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 2 - Orbiting Door from Right Side
`-------------------------------------------------------
IF mode = 2
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   `Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,2.5,0,0,2.5,10,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,2.5,0,0,2.5,10,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 3 - Orbiting Door from Bottom
`-------------------------------------------------------
IF mode = 3
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   `Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Orbit Command Reference:
`EZro_Orbit RotateFlag,P1x#,P1y#,P1z#,P2x#,P2y#,P2z#,angle#
`--------------------------------------------------------------------------------------
`RotateFlag:    If set to 0 then Object will not rotate as it moves around the orbit axis
`               If set to 1 then Object will rotate as it moves around the orbit axis
`P1x#,P1y#,P1z#:    The XYZ coordinates of the first point in the orbit axis
`P2x#,P2y#,P2z#:    The XYZ coordinates of the second point in the orbit axis
`angle#:      The amount (in degrees) that you want your object to orbit


   SET CURSOR 0,0
   PRINT "EZ-Rotate Enhanced"
   PRINT "Features Demo 3: Orbiting"
   PRINT "By: Ron Erickson"
   PRINT "visit: www.ericksonline.com"
   PRINT "-------------------------------------------------------------------"
   PRINT "This Demo illustrates how you can use the ORBITING feature of"
   PRINT "EZrotate to rotate an object around any base. You are no longer"
   PRINT "limited to only rotating objects around it's origin."
   PRINT "-------------------------------------------------------------------"
   IF mode = 0
      PRINT "By default, the origin of this door object is at it's center."
      PRINT "When the door is rotated, it will rotate around that point."
   ENDIF
   IF mode <> 0
      PRINT "Using the ORBIT feature of EZrotate allows you to easily rotate"
      PRINT "your object around any point!"
   ENDIF
   IF mode < 3
      PRINT "Press SPACEBAR to continue ->"
   ENDIF
   IF mode = 3
      PRINT "Press ESCAPE to Quit"
   ENDIF

   SYNC
LOOP

Is there something I'm doing wrong?

Thankyou!

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 9th May 2007 15:29

Link

I told you my brain wasn't working correctly!

Here, try this:

`EZroate Enhanced
`Features Demo 3: Orbiting
`---------------------------------------------
`by: Ron Erickson 1-Jul-04
`**********************
`Setup
`**********************
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,16
AUTOCAM OFF
RANDOMIZE TIMER()
COLOR BACKDROP rgb(0,0,0)

`**********************
`Load Objects:
`**********************
`Create Door
MAKE OBJECT BOX 1,5,10,.5
POSITION OBJECT 1,0,5,0
LOAD IMAGE "media/oak_door.jpg",1
TEXTURE OBJECT 1,1

`Create Path
MAKE OBJECT PLAIN 2,5,50
XROTATE OBJECT 2,90
LOAD IMAGE "media/grass_T.jpg",2
TEXTURE OBJECT 2,2
SCALE OBJECT TEXTURE 2,1,10

make object sphere 100,1
color object 100,rgb(255,0,0)
make object sphere 101,1
make object sphere 102,1
ObjX# = 2.5
ObjY# = 0
ObjZ# = 0

`Camera
POSITION CAMERA -5,10,-20
POINT CAMERA 0,5,0

mode = 0
direction = 0
`**********************
`Main Loop:
`**********************
DO

`Advance Demo with SpaceBar
`---------------------------
IF SPACEKEY() = 1
   changemode = 1
ENDIF
IF changemode = 1 AND SPACEKEY() = 0
   changemode = 0
   mode = mode + 1
   ROTATE OBJECT 1,0,0,0
   POSITION OBJECT 1,5,5,0
   direction = 0
   DoorAngle = 0
ENDIF

If UPKEY() = 1
   ObjZ# = ObjZ# + 1
   position object 1,object position x(1), object position y(1), object position z(1)+1
endif
If DOWNKEY() = 1
   ObjZ# = ObjZ# - 1
   position object 1,object position x(1), object position y(1), object position z(1)-1
endif

If RIGHTKEY() = 1
   ObjX# = ObjX# + 1
   position object 1,object position x(1)+1, object position y(1), object position z(1)
endif
If LEFTKEY() = 1
   ObjX# = ObjX# - 1
   position object 1,object position x(1)-1, object position y(1), object position z(1)
endif
`Check Limits of the Door's Rotation
`-------------------------------------------------------
IF direction = 0 AND DoorAngle > 90 THEN direction = 1
IF direction = 1 AND DoorAngle < 0 THEN direction = 0

`Mode 0 - Not using orbiting
`-------------------------------------------------------
IF mode = 0
   IF direction = 0
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      DoorAngle = DoorAngle - 1
   ENDIF
   YROTATE OBJECT 1,DoorAngle
ENDIF

`Mode 1 - Orbiting Door from Left Side
`-------------------------------------------------------
IF mode = 1
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

EZro_Orbit 1,ObjX#,ObjY#,ObjZ#,ObjX#,ObjY#+1,ObjZ#,1

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 2 - Orbiting Door from Right Side
`-------------------------------------------------------
IF mode = 2
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

`Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,2.5,0,0,2.5,10,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,2.5,0,0,2.5,10,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 3 - Orbiting Door from Bottom
`-------------------------------------------------------
IF mode = 3
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

`Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

`CALCULATE new Euler angles for object
   EZro_FindEuler

`Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

position object 100, OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
position object 101, ObjX#,ObjY#,ObjZ#
position object 102, ObjX#,ObjY#+1,ObjZ#

`Orbit Command Reference:
`EZro_Orbit RotateFlag,P1x#,P1y#,P1z#,P2x#,P2y#,P2z#,angle#
`--------------------------------------------------------------------------------------
`RotateFlag:    If set to 0 then Object will not rotate as it moves around the orbit axis
`               If set to 1 then Object will rotate as it moves around the orbit axis
`P1x#,P1y#,P1z#:    The XYZ coordinates of the first point in the orbit axis
`P2x#,P2y#,P2z#:    The XYZ coordinates of the second point in the orbit axis
`angle#:      The amount (in degrees) that you want your object to orbit

SET CURSOR 0,0
   PRINT "EZ-Rotate Enhanced"
   PRINT "Features Demo 3: Orbiting"
   PRINT "By: Ron Erickson"
   PRINT "visit: www.ericksonline.com"
   PRINT "-------------------------------------------------------------------"
   PRINT "This Demo illustrates how you can use the ORBITING feature of"
   PRINT "EZrotate to rotate an object around any base. You are no longer"
   PRINT "limited to only rotating objects around it's origin."
   PRINT "-------------------------------------------------------------------"
   IF mode = 0
      PRINT "By default, the origin of this door object is at it's center."
      PRINT "When the door is rotated, it will rotate around that point."
   ENDIF
   IF mode <> 0
      PRINT "Using the ORBIT feature of EZrotate allows you to easily rotate"
      PRINT "your object around any point!"
   ENDIF
   IF mode < 3
      PRINT "Press SPACEBAR to continue ->"
   ENDIF
   IF mode = 3
      PRINT "Press ESCAPE to Quit"
   ENDIF

SYNC
LOOP

+ Code Snippet

`EZroate Enhanced
`Features Demo 3: Orbiting
`---------------------------------------------
`by: Ron Erickson 1-Jul-04
`**********************
`Setup
`**********************
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,16
AUTOCAM OFF
RANDOMIZE TIMER()
COLOR BACKDROP rgb(0,0,0)


`**********************
`Load Objects:
`**********************
`Create Door
MAKE OBJECT BOX 1,5,10,.5
POSITION OBJECT 1,0,5,0
LOAD IMAGE "media/oak_door.jpg",1
TEXTURE OBJECT 1,1

`Create Path
MAKE OBJECT PLAIN 2,5,50
XROTATE OBJECT 2,90
LOAD IMAGE "media/grass_T.jpg",2
TEXTURE OBJECT 2,2
SCALE OBJECT TEXTURE 2,1,10

make object sphere 100,1
color object 100,rgb(255,0,0)
make object sphere 101,1
make object sphere 102,1
ObjX# = 2.5
ObjY# = 0
ObjZ# = 0


`Camera
POSITION CAMERA -5,10,-20
POINT CAMERA 0,5,0

mode = 0
direction = 0
`**********************
`Main Loop:
`**********************
DO

`Advance Demo with SpaceBar
`---------------------------
IF SPACEKEY() = 1
   changemode = 1
ENDIF
IF changemode = 1 AND SPACEKEY() = 0
   changemode = 0
   mode = mode + 1
   ROTATE OBJECT 1,0,0,0
   POSITION OBJECT 1,5,5,0
   direction = 0
   DoorAngle = 0
ENDIF

If UPKEY() = 1
   ObjZ# = ObjZ# + 1
   position object 1,object position x(1), object position y(1), object position z(1)+1
endif
If DOWNKEY() = 1
   ObjZ# = ObjZ# - 1
   position object 1,object position x(1), object position y(1), object position z(1)-1
endif

If RIGHTKEY() = 1
   ObjX# = ObjX# + 1
   position object 1,object position x(1)+1, object position y(1), object position z(1)
endif
If LEFTKEY() = 1
   ObjX# = ObjX# - 1
   position object 1,object position x(1)-1, object position y(1), object position z(1)
endif
`Check Limits of the Door's Rotation
`-------------------------------------------------------
IF direction = 0 AND DoorAngle > 90 THEN direction = 1
IF direction = 1 AND DoorAngle < 0 THEN direction = 0


`Mode 0 - Not using orbiting
`-------------------------------------------------------
IF mode = 0
   IF direction = 0
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      DoorAngle = DoorAngle - 1
   ENDIF
   YROTATE OBJECT 1,DoorAngle
ENDIF

`Mode 1 - Orbiting Door from Left Side
`-------------------------------------------------------
IF mode = 1
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   EZro_Orbit 1,ObjX#,ObjY#,ObjZ#,ObjX#,ObjY#+1,ObjZ#,1

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 2 - Orbiting Door from Right Side
`-------------------------------------------------------
IF mode = 2
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   `Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,2.5,0,0,2.5,10,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,2.5,0,0,2.5,10,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

`Mode 3 - Orbiting Door from Bottom
`-------------------------------------------------------
IF mode = 3
   `Setup EZrotate with object's current rotation
   EZro_SetEuler OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   `Setup EZrotate with object's current position
   EZro_SetPos OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

   `Orbit Object on Left Side of Door
   IF direction = 0
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,1
      DoorAngle = DoorAngle + 1
   ENDIF
   IF direction = 1
      EZro_Orbit 1,-2.5,0,0,2.5,0,0,-1
      DoorAngle = DoorAngle - 1
   ENDIF

   `CALCULATE new Euler angles for object
   EZro_FindEuler

   `Apply new Rotation to Object
   ROTATE OBJECT 1,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   `Apply new Position to Object
   POSITION OBJECT 1,EZro_GetPosX(),EZro_GetPosY(),EZro_GetPosZ()
ENDIF

position object 100, OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
position object 101, ObjX#,ObjY#,ObjZ#
position object 102, ObjX#,ObjY#+1,ObjZ#


`Orbit Command Reference:
`EZro_Orbit RotateFlag,P1x#,P1y#,P1z#,P2x#,P2y#,P2z#,angle#
`--------------------------------------------------------------------------------------
`RotateFlag:    If set to 0 then Object will not rotate as it moves around the orbit axis
`               If set to 1 then Object will rotate as it moves around the orbit axis
`P1x#,P1y#,P1z#:    The XYZ coordinates of the first point in the orbit axis
`P2x#,P2y#,P2z#:    The XYZ coordinates of the second point in the orbit axis
`angle#:      The amount (in degrees) that you want your object to orbit


   SET CURSOR 0,0
   PRINT "EZ-Rotate Enhanced"
   PRINT "Features Demo 3: Orbiting"
   PRINT "By: Ron Erickson"
   PRINT "visit: www.ericksonline.com"
   PRINT "-------------------------------------------------------------------"
   PRINT "This Demo illustrates how you can use the ORBITING feature of"
   PRINT "EZrotate to rotate an object around any base. You are no longer"
   PRINT "limited to only rotating objects around it's origin."
   PRINT "-------------------------------------------------------------------"
   IF mode = 0
      PRINT "By default, the origin of this door object is at it's center."
      PRINT "When the door is rotated, it will rotate around that point."
   ENDIF
   IF mode <> 0
      PRINT "Using the ORBIT feature of EZrotate allows you to easily rotate"
      PRINT "your object around any point!"
   ENDIF
   IF mode < 3
      PRINT "Press SPACEBAR to continue ->"
   ENDIF
   IF mode = 3
      PRINT "Press ESCAPE to Quit"
   ENDIF

   SYNC
LOOP

Now, this is only really in effect while you are in Mode 1. Anyway, to help visualize the problem, I have added 3 spheres. Sphere 100 (colored red) is being positioned at the door's origin. The two other spheres are used to describe the rotation axis. As you press the arrow keys, the entire arrangement will now move around.
I hope this helps!

-Ron

Back to top

Profile PM Email

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 10th May 2007 15:04 Edited at: 10th May 2007 15:11

Link

Thanks so much! It is a great example. I am now adding the idea into my own game, but I have run into another problem. Here is the portion of my code which does all the laser creating:

rem Emit lasers

rem This first part occurs when the attack key is first pressed
 rem and it initialises the laser and it's positions

IF charKPshoot=1 AND charATTACK#=0
  zp=emit_laser(CHAR_LASER_1,STP_LASER,NUM_ENEMY,charX#,charY#,charZ#,charX#,charY#,charZ#)
  charATTACK#=1
  xf1#=SIN(charANGLE#)*300
  zf1#=COS(charANGLE#)*300
  xf2#=SIN(charANGLE#)*600
  zf2#=COS(charANGLE#)*600
  _ml=match_laser(CHAR_LASER_1)
  Laser(_ml).x=charX#+xf1#
  Laser(_ml).y=charY#
  Laser(_ml).z=charZ#+zf1#
  POSITION OBJECT Laser(_ml).ObjNum,Laser(_ml).x,Laser(_ml).y,Laser(_ml).z
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
 ELSE
  IF charATTACK#=0
   delete_laser(CHAR_LASER_1)
  ENDIF
 ENDIF

rem This next part occurs when the attack key is being held,
 rem and it moves the 'From' position of the laser and it's positions

IF charATTACK#=1
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
  Laser(_ml).Angle=point_direction(Laser(_ml).xFrom,Laser(_ml).zFrom,Laser(_ml).xTo,Laser(_ml).zTo)
 ENDIF
 IF charKPshoot=0
  charATTACK#=0
 ENDIF

rem Laser step - this occurs every frame of the game and executes  
 rem the EZRotate functions to make the laser point in the right direction

FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
   EZro_SetEuler OBJECT ANGLE X(Laser(i).ObjNum),OBJECT ANGLE Y(Laser(i).ObjNum),OBJECT ANGLE Z(Laser(i).ObjNum)
   EZro_SetPos Laser(i).x,Laser(i).y,Laser(i).z
   EZro_Orbit 1,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom,1
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   Laser(i).x=EZro_GetPosX()
   Laser(i).y=EZro_GetPosY()
   Laser(i).z=EZro_GetPosZ()
   POSITION OBJECT Laser(i).ObjNum,Laser(i).x,Laser(i).y,Laser(i).z
   POSITION OBJECT 2001,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom
   POSITION OBJECT 2002,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom
   POSITION OBJECT 2003,Laser(i).x,Laser(i).y,Laser(i).z
  ENDIF
 NEXT i

+ Code Snippet

 rem Emit lasers


 rem This first part occurs when the attack key is first pressed
 rem and it initialises the laser and it's positions


 IF charKPshoot=1 AND charATTACK#=0
  zp=emit_laser(CHAR_LASER_1,STP_LASER,NUM_ENEMY,charX#,charY#,charZ#,charX#,charY#,charZ#)
  charATTACK#=1
  xf1#=SIN(charANGLE#)*300
  zf1#=COS(charANGLE#)*300
  xf2#=SIN(charANGLE#)*600
  zf2#=COS(charANGLE#)*600
  _ml=match_laser(CHAR_LASER_1)
  Laser(_ml).x=charX#+xf1#
  Laser(_ml).y=charY#
  Laser(_ml).z=charZ#+zf1#
  POSITION OBJECT Laser(_ml).ObjNum,Laser(_ml).x,Laser(_ml).y,Laser(_ml).z
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
 ELSE
  IF charATTACK#=0
   delete_laser(CHAR_LASER_1)
  ENDIF
 ENDIF


 rem This next part occurs when the attack key is being held,
 rem and it moves the 'From' position of the laser and it's positions


 IF charATTACK#=1
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
  Laser(_ml).Angle=point_direction(Laser(_ml).xFrom,Laser(_ml).zFrom,Laser(_ml).xTo,Laser(_ml).zTo)
 ENDIF
 IF charKPshoot=0
  charATTACK#=0
 ENDIF


 rem Laser step - this occurs every frame of the game and executes  
 rem the EZRotate functions to make the laser point in the right direction


 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
   EZro_SetEuler OBJECT ANGLE X(Laser(i).ObjNum),OBJECT ANGLE Y(Laser(i).ObjNum),OBJECT ANGLE Z(Laser(i).ObjNum)
   EZro_SetPos Laser(i).x,Laser(i).y,Laser(i).z
   EZro_Orbit 1,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom,1
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   Laser(i).x=EZro_GetPosX()
   Laser(i).y=EZro_GetPosY()
   Laser(i).z=EZro_GetPosZ()
   POSITION OBJECT Laser(i).ObjNum,Laser(i).x,Laser(i).y,Laser(i).z
   POSITION OBJECT 2001,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom
   POSITION OBJECT 2002,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom
   POSITION OBJECT 2003,Laser(i).x,Laser(i).y,Laser(i).z
  ENDIF
 NEXT i

It does a simmilar thing to what happened in the code in my last post. Can you find any errors in the way my code is working with EZRotate above, because I don't seem to be doing something right, I can't seem to work it out...

I'm really sorry for the big jumble of code, and I've tried to make things clear by commenting each part.

These variables are to do with the character:

charX# is the character's X position
charY# is the character's Y position
charZ# is the character's Z position

charATTACK# is whether the character is attacking or not

charKPshoot# is whether the key to shoot is being pressed

The enemy array is assigned to a type and I will try to clear things up by explaining the variables/types.

.x is the x position of the laser
.y is the y position of the laser
.z is the z position of the laser

.xFrom is the x position from where the laser starts
.yFrom is the y position from where the laser starts
.zFrom is the z position from where the laser starts

.xTo is the x position from where the laser starts
.yTo is the y position from where the laser starts
.zTo is the z position from where the laser starts

Sorry about this big problem, but I have been trying to fix it for quite a few days now, without success, and I am quite new to DBPro.

Thanks very much for your support!

z_man

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 10th May 2007 16:37

Link

z_man,
It is difficult for me to tell exactly what is going on. How much code is ther in your project? Could you e-mail me a copy of your project? It might be easier for me to tell what is going on if I can compile and test things. Better yet, if you could put together a snippet that can be compiled that shows your problem, it would be MUCH easier for me to help you

-Ron

Back to top

Profile PM Email

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 11th May 2007 09:28

Link

Hi!

I have construced an example for you. When the character moves, while holding the laser button (shift) the laser seems to go offset and strange.

Here is the code (no extra media required):

rem ***** Example of Problem *****

rem Constants
#CONSTANT CHAR_LASER_1=1
#CONSTANT STP_LASER=900 : rem This constant is the object number from which lasers start getting created
#CONSTANT NUM_ENEMY=250 : rem This constant is the maximum number of enemies in the level
#CONSTANT NUM_LASER=50 : rem This constant is the maximum number of lasers at one time

rem Variables
charX#=0
charY#=0
charZ#=0
charATTACK#=0
charSPEED#=0

rem Array types
TYPE TypeLaser
 Idx
 ObjNum
 LaserType
 Active
 Angle AS FLOAT
 Length AS FLOAT
 x AS FLOAT
 y AS FLOAT
 z AS FLOAT
 xFrom AS FLOAT
 yFrom AS FLOAT
 zFrom AS FLOAT
 xTo AS FLOAT
 yTo AS FLOAT
 zTo AS FLOAT
ENDTYPE

rem Arrays
DIM Laser(NUM_LASER) AS TypeLaser

rem Make objects
MAKE OBJECT SPHERE 1,10

DO

rem Key detection

rem Check if keys are pressed
 IF UPKEY()=1 THEN charKP=1
 IF DOWNKEY()=1 THEN charKP=2
 IF LEFTKEY()=1 THEN charKPsub=1
 IF RIGHTKEY()=1 THEN charKPsub=2

charKPshoot=0
 IF SHIFTKEY()=1 THEN charKPshoot=1

charSPEED#=0
 rem Key action
 IF charKPsub=1
  charANGLE#=WRAPVALUE(charANGLE#-2)
  charKPsub=0
 ENDIF
 IF charKPsub=2
  charANGLE#=WRAPVALUE(charANGLE#+2)
  charKPsub=0
 ENDIF
 rem Handle movement
 IF charKP=1
  charSPEED#=0.5
  charKP=0
 ENDIF
 IF charKP=2
  charSPEED#=-0.5
  charKP=0
 ENDIF

rem Movement

rem Move character
 xFCT#=SIN(charANGLE#)*charSPEED#
 zFCT#=COS(charANGLE#)*charSPEED#
 charX#=charX#+xFCT#
 charZ#=charZ#+zFCT#

rem Move char body
 POSITION OBJECT 1,charX#,charY#,charZ#

rem Emit lasers

rem This first part occurs when the attack key is first pressed
 rem and it initialises the laser and it's positions

IF charKPshoot=1 AND charATTACK#=0
  zp=emit_laser(CHAR_LASER_1,STP_LASER,NUM_ENEMY,charX#,charY#,charZ#,charX#,charY#,charZ#)
  charATTACK#=1
  xf1#=SIN(charANGLE#)*300
  zf1#=COS(charANGLE#)*300
  xf2#=SIN(charANGLE#)*600
  zf2#=COS(charANGLE#)*600
  _ml=match_laser(CHAR_LASER_1)
  Laser(_ml).x=charX#+xf1#
  Laser(_ml).y=charY#
  Laser(_ml).z=charZ#+zf1#
  POSITION OBJECT Laser(_ml).ObjNum,Laser(_ml).x,Laser(_ml).y,Laser(_ml).z
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
 ELSE
  IF charATTACK#=0
   delete_laser(CHAR_LASER_1)
  ENDIF
 ENDIF

rem This next part occurs when the attack key is being held,
 rem and it moves the 'From' position of the laser and it's positions

IF charATTACK#=1
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
  Laser(_ml).Angle=point_direction(Laser(_ml).xFrom,Laser(_ml).zFrom,Laser(_ml).xTo,Laser(_ml).zTo)
 ENDIF
 IF charKPshoot=0
  charATTACK#=0
 ENDIF

rem Laser step - this occurs every frame of the game and executes
 rem the EZRotate functions to make the laser point in the right direction

FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
   EZro_SetEuler OBJECT ANGLE X(Laser(i).ObjNum),OBJECT ANGLE Y(Laser(i).ObjNum),OBJECT ANGLE Z(Laser(i).ObjNum)
   EZro_SetPos Laser(i).x,Laser(i).y,Laser(i).z
   EZro_Orbit 1,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom,1
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   Laser(i).x=EZro_GetPosX()
   Laser(i).y=EZro_GetPosY()
   Laser(i).z=EZro_GetPosZ()
   POSITION OBJECT Laser(i).ObjNum,Laser(i).x,Laser(i).y,Laser(i).z
   `POSITION OBJECT 2001,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom
   `POSITION OBJECT 2002,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom
   `POSITION OBJECT 2003,Laser(i).x,Laser(i).y,Laser(i).z
  ENDIF
 NEXT i

rem Camera

rem Position and point camera
 POSITION CAMERA 100,100,100
 POINT CAMERA 0,0,0

rem Sync
 SYNC

LOOP

rem ***** Functions *****

rem FUNCTION: emit_laser (m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)
`Creates a laser at given positions
FUNCTION emit_laser(m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)

retr=-1
 compl=0

FOR i=1 TO NUM_LASER
  IF OBJECT EXIST(idxs+i) OR compl=1
   rem Do nothing
  ELSE
   compl=1
   Laser(i).Idx=m_index
   Laser(i).Active=1
   Laser(i).ObjNum=idxs+i
   Laser(i).xFrom=_xFrom
   Laser(i).yFrom=_yFrom
   Laser(i).zFrom=_zFrom
   Laser(i).xTo=_xTo
   Laser(i).yTo=_yTo
   Laser(i).zTo=_zTo
   MAKE OBJECT BOX Laser(i).ObjNum,2,2,600
   POSITION OBJECT Laser(i).ObjNum,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom

rem This is collision code, and is not needed so I commented it out:

remstart
   FOR ii=1 TO idxs_en
    IF Enemy(ii).Active=0
     rem Not active so ignore
    ELSE

rem COLLISION DETECTION CODE - Needs Nuclear Glory to work so I commented it out
     `retr_ex=RayIntersectObjectPRO(Enemy(ii).ObjNum,2,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xTo,Laser(i).yTo,Laser(i).zTo)

IF retr_ex=1
      retr=Enemy(ii).ObjNum
     ENDIF
    ENDIF
   NEXT ii
   remend

rem End of collision code

ENDIF
 NEXT i

ENDFUNCTION retr

rem FUNCTION: delete_laser (LASER INDEX)
`Must be called to delete a laser
FUNCTION delete_laser(l_idx)
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   Laser(i).Active=0
   IF OBJECT EXIST(Laser(i).ObjNum)
    DELETE OBJECT Laser(i).ObjNum
   ENDIF
  ENDIF
 NEXT i
ENDFUNCTION

rem FUNCTION: RETURN INTEGER = match_laser (LASER INDEX)
`This function returns the object number of
`a laser index
FUNCTION match_laser(l_idx)
 retr=-1
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   retr=i
  ENDIF
 NEXT i
ENDFUNCTION retr

rem FUNCTION: RETURN FLOAT = point_direction (x1,z1,x1,z1)
`This function returns the direction between two
`points on a 2D plane.
FUNCTION point_direction(x1#,z1#,x2#,z2#)
 a=ATANFULL(x2#-x1#,z2#-z1#)
ENDFUNCTION a

+ Code Snippet

rem ***** Example of Problem *****


rem Constants
#CONSTANT CHAR_LASER_1=1
#CONSTANT STP_LASER=900 : rem This constant is the object number from which lasers start getting created
#CONSTANT NUM_ENEMY=250 : rem This constant is the maximum number of enemies in the level
#CONSTANT NUM_LASER=50 : rem This constant is the maximum number of lasers at one time

rem Variables
charX#=0
charY#=0
charZ#=0
charATTACK#=0
charSPEED#=0

rem Array types
TYPE TypeLaser
 Idx
 ObjNum
 LaserType
 Active
 Angle AS FLOAT
 Length AS FLOAT
 x AS FLOAT
 y AS FLOAT
 z AS FLOAT
 xFrom AS FLOAT
 yFrom AS FLOAT
 zFrom AS FLOAT
 xTo AS FLOAT
 yTo AS FLOAT
 zTo AS FLOAT
ENDTYPE

rem Arrays
DIM Laser(NUM_LASER) AS TypeLaser

rem Make objects
MAKE OBJECT SPHERE 1,10

DO

 rem Key detection

 rem Check if keys are pressed
 IF UPKEY()=1 THEN charKP=1
 IF DOWNKEY()=1 THEN charKP=2
 IF LEFTKEY()=1 THEN charKPsub=1
 IF RIGHTKEY()=1 THEN charKPsub=2

 charKPshoot=0
 IF SHIFTKEY()=1 THEN charKPshoot=1

 charSPEED#=0
 rem Key action
 IF charKPsub=1
  charANGLE#=WRAPVALUE(charANGLE#-2)
  charKPsub=0
 ENDIF
 IF charKPsub=2
  charANGLE#=WRAPVALUE(charANGLE#+2)
  charKPsub=0
 ENDIF
 rem Handle movement
 IF charKP=1
  charSPEED#=0.5
  charKP=0
 ENDIF
 IF charKP=2
  charSPEED#=-0.5
  charKP=0
 ENDIF


 rem Movement

 rem Move character
 xFCT#=SIN(charANGLE#)*charSPEED#
 zFCT#=COS(charANGLE#)*charSPEED#
 charX#=charX#+xFCT#
 charZ#=charZ#+zFCT#

 rem Move char body
 POSITION OBJECT 1,charX#,charY#,charZ#


 rem Emit lasers

 rem This first part occurs when the attack key is first pressed
 rem and it initialises the laser and it's positions


 IF charKPshoot=1 AND charATTACK#=0
  zp=emit_laser(CHAR_LASER_1,STP_LASER,NUM_ENEMY,charX#,charY#,charZ#,charX#,charY#,charZ#)
  charATTACK#=1
  xf1#=SIN(charANGLE#)*300
  zf1#=COS(charANGLE#)*300
  xf2#=SIN(charANGLE#)*600
  zf2#=COS(charANGLE#)*600
  _ml=match_laser(CHAR_LASER_1)
  Laser(_ml).x=charX#+xf1#
  Laser(_ml).y=charY#
  Laser(_ml).z=charZ#+zf1#
  POSITION OBJECT Laser(_ml).ObjNum,Laser(_ml).x,Laser(_ml).y,Laser(_ml).z
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
 ELSE
  IF charATTACK#=0
   delete_laser(CHAR_LASER_1)
  ENDIF
 ENDIF


 rem This next part occurs when the attack key is being held,
 rem and it moves the 'From' position of the laser and it's positions


 IF charATTACK#=1
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
  Laser(_ml).Angle=point_direction(Laser(_ml).xFrom,Laser(_ml).zFrom,Laser(_ml).xTo,Laser(_ml).zTo)
 ENDIF
 IF charKPshoot=0
  charATTACK#=0
 ENDIF


 rem Laser step - this occurs every frame of the game and executes
 rem the EZRotate functions to make the laser point in the right direction


 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
   EZro_SetEuler OBJECT ANGLE X(Laser(i).ObjNum),OBJECT ANGLE Y(Laser(i).ObjNum),OBJECT ANGLE Z(Laser(i).ObjNum)
   EZro_SetPos Laser(i).x,Laser(i).y,Laser(i).z
   EZro_Orbit 1,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom,1
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   Laser(i).x=EZro_GetPosX()
   Laser(i).y=EZro_GetPosY()
   Laser(i).z=EZro_GetPosZ()
   POSITION OBJECT Laser(i).ObjNum,Laser(i).x,Laser(i).y,Laser(i).z
   `POSITION OBJECT 2001,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom
   `POSITION OBJECT 2002,Laser(i).xFrom,Laser(i).yFrom+10,Laser(i).zFrom
   `POSITION OBJECT 2003,Laser(i).x,Laser(i).y,Laser(i).z
  ENDIF
 NEXT i


 rem Camera

 rem Position and point camera
 POSITION CAMERA 100,100,100
 POINT CAMERA 0,0,0

 rem Sync
 SYNC

LOOP

rem ***** Functions *****

rem FUNCTION: emit_laser (m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)
`Creates a laser at given positions
FUNCTION emit_laser(m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)

 retr=-1
 compl=0

 FOR i=1 TO NUM_LASER
  IF OBJECT EXIST(idxs+i) OR compl=1
   rem Do nothing
  ELSE
   compl=1
   Laser(i).Idx=m_index
   Laser(i).Active=1
   Laser(i).ObjNum=idxs+i
   Laser(i).xFrom=_xFrom
   Laser(i).yFrom=_yFrom
   Laser(i).zFrom=_zFrom
   Laser(i).xTo=_xTo
   Laser(i).yTo=_yTo
   Laser(i).zTo=_zTo
   MAKE OBJECT BOX Laser(i).ObjNum,2,2,600
   POSITION OBJECT Laser(i).ObjNum,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom

   rem This is collision code, and is not needed so I commented it out:

   remstart
   FOR ii=1 TO idxs_en
    IF Enemy(ii).Active=0
     rem Not active so ignore
    ELSE

     rem COLLISION DETECTION CODE - Needs Nuclear Glory to work so I commented it out
     `retr_ex=RayIntersectObjectPRO(Enemy(ii).ObjNum,2,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xTo,Laser(i).yTo,Laser(i).zTo)

     IF retr_ex=1
      retr=Enemy(ii).ObjNum
     ENDIF
    ENDIF
   NEXT ii
   remend

   rem End of collision code

  ENDIF
 NEXT i

ENDFUNCTION retr

rem FUNCTION: delete_laser (LASER INDEX)
`Must be called to delete a laser
FUNCTION delete_laser(l_idx)
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   Laser(i).Active=0
   IF OBJECT EXIST(Laser(i).ObjNum)
    DELETE OBJECT Laser(i).ObjNum
   ENDIF
  ENDIF
 NEXT i
ENDFUNCTION

rem FUNCTION: RETURN INTEGER = match_laser (LASER INDEX)
`This function returns the object number of
`a laser index
FUNCTION match_laser(l_idx)
 retr=-1
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   retr=i
  ENDIF
 NEXT i
ENDFUNCTION retr

rem FUNCTION: RETURN FLOAT = point_direction (x1,z1,x1,z1)
`This function returns the direction between two
`points on a 2D plane.
FUNCTION point_direction(x1#,z1#,x2#,z2#)
 a=ATANFULL(x2#-x1#,z2#-z1#)
ENDFUNCTION a

Thanks!

z_man

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 11th May 2007 22:59

Link

z_man,

The problem is that you are not changing your laser's position whenever your object moves. Try changing your movement code to this:

+ Code Snippet

rem Move character
 xFCT#=SIN(charANGLE#)*charSPEED#
 zFCT#=COS(charANGLE#)*charSPEED#
 charX#=charX#+xFCT#
 charZ#=charZ#+zFCT#
 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
     _ml=match_laser(CHAR_LASER_1)
     Laser(_ml).x=Laser(_ml).x+xFCT#
     Laser(_ml).z=Laser(_ml).z+zFCT#
  endif
 next i

Back to top

Profile PM Email

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 12th May 2007 05:35 Edited at: 12th May 2007 05:37

Link

Thankyou! It works great with that! I have one more question - how can I set the angle to Laser(i).Angle, instead of adding 1 each time. I don't want to add 1 to it all the time, I just want to make it face the direction the character is facing.

Thanks again,

z_man

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 13th May 2007 20:28

Link

Sorry z_man, I have been busy all weekend. I'll try to look at this tonight or tomorrow!

Back to top

Profile PM Email

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 14th May 2007 06:41

Link

OK.....
I finally got a few spare minutes.
Here is a new snippet that does what you are asking for.

rem ***** Example of Problem *****

rem Constants
#CONSTANT CHAR_LASER_1=1
#CONSTANT STP_LASER=900 : rem This constant is the object number from which lasers start getting created
#CONSTANT NUM_ENEMY=250 : rem This constant is the maximum number of enemies in the level
#CONSTANT NUM_LASER=50 : rem This constant is the maximum number of lasers at one time

make object sphere 1000,2
color object 1000,rgb(255,0,0)

rem Variables
charX#=0
charY#=0
charZ#=0
charATTACK#=0
charSPEED#=0

rem Array types
TYPE TypeLaser
 Idx
 ObjNum
 LaserType
 Active
 Angle AS FLOAT
 Length AS FLOAT
 x AS FLOAT
 y AS FLOAT
 z AS FLOAT
 xFrom AS FLOAT
 yFrom AS FLOAT
 zFrom AS FLOAT
 xTo AS FLOAT
 yTo AS FLOAT
 zTo AS FLOAT
ENDTYPE

rem Arrays
DIM Laser(NUM_LASER) AS TypeLaser

rem Make objects
MAKE OBJECT cube 1,10

DO

rem Key detection

rem Check if keys are pressed
 IF UPKEY()=1 THEN charKP=1
 IF DOWNKEY()=1 THEN charKP=2
 IF LEFTKEY()=1 THEN charKPsub=1
 IF RIGHTKEY()=1 THEN charKPsub=2

charKPshoot=0
 IF SHIFTKEY()=1 THEN charKPshoot=1

charSPEED#=0
 rem Key action
 IF charKPsub=1
  charANGLE#=WRAPVALUE(charANGLE#-2)
  charKPsub=0
 ENDIF
 IF charKPsub=2
  charANGLE#=WRAPVALUE(charANGLE#+2)
  charKPsub=0
 ENDIF
 rem Handle movement
 IF charKP=1
  charSPEED#=0.5
  charKP=0
 ENDIF
 IF charKP=2
  charSPEED#=-0.5
  charKP=0
 ENDIF

rem Movement

rem Move character
 xFCT#=SIN(charANGLE#)*charSPEED#
 zFCT#=COS(charANGLE#)*charSPEED#
 charX#=charX#+xFCT#
 charZ#=charZ#+zFCT#
 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
     _ml=match_laser(CHAR_LASER_1)
     Laser(_ml).x=Laser(_ml).x+xFCT#
     Laser(_ml).z=Laser(_ml).z+zFCT#
  endif
 next i

rem Move char body
 POSITION OBJECT 1,charX#,charY#,charZ#

rem Emit lasers

rem This first part occurs when the attack key is first pressed
 rem and it initialises the laser and it's positions

IF charKPshoot=1 AND charATTACK#=0
  zp=emit_laser(CHAR_LASER_1,STP_LASER,NUM_ENEMY,charX#,charY#,charZ#,charX#,charY#,charZ#)
  charATTACK#=1
   xf1#=0
   zf1#=300
   xf2#=0
   zf2#=600
  _ml=match_laser(CHAR_LASER_1)
  Laser(_ml).x=charX#+xf1#
  Laser(_ml).y=charY#
  Laser(_ml).z=charZ#+zf1#
  POSITION OBJECT Laser(_ml).ObjNum,Laser(_ml).x,Laser(_ml).y,Laser(_ml).z
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
 ELSE
  IF charATTACK#=0
   delete_laser(CHAR_LASER_1)
  ENDIF
 ENDIF

rem This next part occurs when the attack key is being held,
 rem and it moves the 'From' position of the laser and it's positions

IF charATTACK#=1
`  Laser(_ml).xFrom=charX#
`  Laser(_ml).yFrom=charY#
`  Laser(_ml).zFrom=charZ#
`  Laser(_ml).xTo=charX#+xf2#
`  Laser(_ml).yTo=charY#-0
`  Laser(_ml).zTo=charZ#+zf2#
`  Laser(_ml).Angle=point_direction(Laser(_ml).xFrom,Laser(_ml).zFrom,Laser(_ml).xTo,Laser(_ml).zTo)
 ENDIF
 IF charKPshoot=0
  charATTACK#=0
 ENDIF

rem Laser step - this occurs every frame of the game and executes
 rem the EZRotate functions to make the laser point in the right direction

FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1

EZro_SetEuler 0,0,0
   EZro_SetPos charx#,chary#,charz#+300
   EZro_Orbit 1,charX#,charY#,charZ#,charX#,charY#+1,charZ#,charANGLE#
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   Laser(i).x=EZro_GetPosX()
   Laser(i).y=EZro_GetPosY()
   Laser(i).z=EZro_GetPosZ()
   POSITION OBJECT Laser(i).ObjNum,Laser(i).x,Laser(i).y,Laser(i).z
  ENDIF
   position object 1000,Laser(1).x,Laser(1).y,Laser(1).z
 NEXT i

rem Camera

rem Position and point camera
 POSITION CAMERA 100,100,100
 POINT CAMERA 0,0,0

rotate object 1,0,charANGLE#,0

rem Sync
 SYNC

LOOP

rem ***** Functions *****

rem FUNCTION: emit_laser (m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)
`Creates a laser at given positions
FUNCTION emit_laser(m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)

retr=-1
 compl=0

FOR i=1 TO NUM_LASER
  IF OBJECT EXIST(idxs+i) OR compl=1
   rem Do nothing
  ELSE
   compl=1
   Laser(i).Idx=m_index
   Laser(i).Active=1
   Laser(i).ObjNum=idxs+i
   Laser(i).xFrom=_xFrom
   Laser(i).yFrom=_yFrom
   Laser(i).zFrom=_zFrom
   Laser(i).xTo=_xTo
   Laser(i).yTo=_yTo
   Laser(i).zTo=_zTo
   MAKE OBJECT BOX Laser(i).ObjNum,2,2,600
   POSITION OBJECT Laser(i).ObjNum,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom

rem This is collision code, and is not needed so I commented it out:

remstart
   FOR ii=1 TO idxs_en
    IF Enemy(ii).Active=0
     rem Not active so ignore
    ELSE

rem COLLISION DETECTION CODE - Needs Nuclear Glory to work so I commented it out
     `retr_ex=RayIntersectObjectPRO(Enemy(ii).ObjNum,2,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xTo,Laser(i).yTo,Laser(i).zTo)

IF retr_ex=1
      retr=Enemy(ii).ObjNum
     ENDIF
    ENDIF
   NEXT ii
   remend

rem End of collision code

ENDIF
 NEXT i

ENDFUNCTION retr

rem FUNCTION: delete_laser (LASER INDEX)
`Must be called to delete a laser
FUNCTION delete_laser(l_idx)
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   Laser(i).Active=0
   IF OBJECT EXIST(Laser(i).ObjNum)
    DELETE OBJECT Laser(i).ObjNum
   ENDIF
  ENDIF
 NEXT i
ENDFUNCTION

rem FUNCTION: RETURN INTEGER = match_laser (LASER INDEX)
`This function returns the object number of
`a laser index
FUNCTION match_laser(l_idx)
 retr=-1
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   retr=i
  ENDIF
 NEXT i
ENDFUNCTION retr

rem FUNCTION: RETURN FLOAT = point_direction (x1,z1,x1,z1)
`This function returns the direction between two
`points on a 2D plane.
FUNCTION point_direction(x1#,z1#,x2#,z2#)
 a=ATANFULL(x2#-x1#,z2#-z1#)
ENDFUNCTION a

+ Code Snippet

rem ***** Example of Problem *****


rem Constants
#CONSTANT CHAR_LASER_1=1
#CONSTANT STP_LASER=900 : rem This constant is the object number from which lasers start getting created
#CONSTANT NUM_ENEMY=250 : rem This constant is the maximum number of enemies in the level
#CONSTANT NUM_LASER=50 : rem This constant is the maximum number of lasers at one time

make object sphere 1000,2
color object 1000,rgb(255,0,0)

rem Variables
charX#=0
charY#=0
charZ#=0
charATTACK#=0
charSPEED#=0

rem Array types
TYPE TypeLaser
 Idx
 ObjNum
 LaserType
 Active
 Angle AS FLOAT
 Length AS FLOAT
 x AS FLOAT
 y AS FLOAT
 z AS FLOAT
 xFrom AS FLOAT
 yFrom AS FLOAT
 zFrom AS FLOAT
 xTo AS FLOAT
 yTo AS FLOAT
 zTo AS FLOAT
ENDTYPE

rem Arrays
DIM Laser(NUM_LASER) AS TypeLaser

rem Make objects
MAKE OBJECT cube 1,10


DO

 rem Key detection

 rem Check if keys are pressed
 IF UPKEY()=1 THEN charKP=1
 IF DOWNKEY()=1 THEN charKP=2
 IF LEFTKEY()=1 THEN charKPsub=1
 IF RIGHTKEY()=1 THEN charKPsub=2

 charKPshoot=0
 IF SHIFTKEY()=1 THEN charKPshoot=1

 charSPEED#=0
 rem Key action
 IF charKPsub=1
  charANGLE#=WRAPVALUE(charANGLE#-2)
  charKPsub=0
 ENDIF
 IF charKPsub=2
  charANGLE#=WRAPVALUE(charANGLE#+2)
  charKPsub=0
 ENDIF
 rem Handle movement
 IF charKP=1
  charSPEED#=0.5
  charKP=0
 ENDIF
 IF charKP=2
  charSPEED#=-0.5
  charKP=0
 ENDIF


 rem Movement

 rem Move character
 xFCT#=SIN(charANGLE#)*charSPEED#
 zFCT#=COS(charANGLE#)*charSPEED#
 charX#=charX#+xFCT#
 charZ#=charZ#+zFCT#
 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1
     _ml=match_laser(CHAR_LASER_1)
     Laser(_ml).x=Laser(_ml).x+xFCT#
     Laser(_ml).z=Laser(_ml).z+zFCT#
  endif
 next i


 rem Move char body
 POSITION OBJECT 1,charX#,charY#,charZ#


 rem Emit lasers

 rem This first part occurs when the attack key is first pressed
 rem and it initialises the laser and it's positions


 IF charKPshoot=1 AND charATTACK#=0
  zp=emit_laser(CHAR_LASER_1,STP_LASER,NUM_ENEMY,charX#,charY#,charZ#,charX#,charY#,charZ#)
  charATTACK#=1
   xf1#=0
   zf1#=300
   xf2#=0
   zf2#=600
  _ml=match_laser(CHAR_LASER_1)
  Laser(_ml).x=charX#+xf1#
  Laser(_ml).y=charY#
  Laser(_ml).z=charZ#+zf1#
  POSITION OBJECT Laser(_ml).ObjNum,Laser(_ml).x,Laser(_ml).y,Laser(_ml).z
  Laser(_ml).xFrom=charX#
  Laser(_ml).yFrom=charY#
  Laser(_ml).zFrom=charZ#
  Laser(_ml).xTo=charX#+xf2#
  Laser(_ml).yTo=charY#-0
  Laser(_ml).zTo=charZ#+zf2#
 ELSE
  IF charATTACK#=0
   delete_laser(CHAR_LASER_1)
  ENDIF
 ENDIF


 rem This next part occurs when the attack key is being held,
 rem and it moves the 'From' position of the laser and it's positions


 IF charATTACK#=1
`  Laser(_ml).xFrom=charX#
`  Laser(_ml).yFrom=charY#
`  Laser(_ml).zFrom=charZ#
`  Laser(_ml).xTo=charX#+xf2#
`  Laser(_ml).yTo=charY#-0
`  Laser(_ml).zTo=charZ#+zf2#
`  Laser(_ml).Angle=point_direction(Laser(_ml).xFrom,Laser(_ml).zFrom,Laser(_ml).xTo,Laser(_ml).zTo)
 ENDIF
 IF charKPshoot=0
  charATTACK#=0
 ENDIF


 rem Laser step - this occurs every frame of the game and executes
 rem the EZRotate functions to make the laser point in the right direction


 FOR i=1 TO NUM_LASER
  IF Laser(i).Active=1

   EZro_SetEuler 0,0,0
   EZro_SetPos charx#,chary#,charz#+300
   EZro_Orbit 1,charX#,charY#,charZ#,charX#,charY#+1,charZ#,charANGLE#
   EZro_FindEuler
   ROTATE OBJECT Laser(i).ObjNum,EZro_GetEulerX(),EZro_GetEulerY(),EZro_GetEulerZ()
   Laser(i).x=EZro_GetPosX()
   Laser(i).y=EZro_GetPosY()
   Laser(i).z=EZro_GetPosZ()
   POSITION OBJECT Laser(i).ObjNum,Laser(i).x,Laser(i).y,Laser(i).z
  ENDIF
   position object 1000,Laser(1).x,Laser(1).y,Laser(1).z
 NEXT i



 rem Camera

 rem Position and point camera
 POSITION CAMERA 100,100,100
 POINT CAMERA 0,0,0

 rotate object 1,0,charANGLE#,0

 rem Sync
 SYNC

LOOP

rem ***** Functions *****

rem FUNCTION: emit_laser (m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)
`Creates a laser at given positions
FUNCTION emit_laser(m_index,idxs,idxs_en,_xFrom,_yFrom,_zFrom,_xTo,_yTo,_zTo)

 retr=-1
 compl=0

 FOR i=1 TO NUM_LASER
  IF OBJECT EXIST(idxs+i) OR compl=1
   rem Do nothing
  ELSE
   compl=1
   Laser(i).Idx=m_index
   Laser(i).Active=1
   Laser(i).ObjNum=idxs+i
   Laser(i).xFrom=_xFrom
   Laser(i).yFrom=_yFrom
   Laser(i).zFrom=_zFrom
   Laser(i).xTo=_xTo
   Laser(i).yTo=_yTo
   Laser(i).zTo=_zTo
   MAKE OBJECT BOX Laser(i).ObjNum,2,2,600
   POSITION OBJECT Laser(i).ObjNum,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom

   rem This is collision code, and is not needed so I commented it out:

   remstart
   FOR ii=1 TO idxs_en
    IF Enemy(ii).Active=0
     rem Not active so ignore
    ELSE

     rem COLLISION DETECTION CODE - Needs Nuclear Glory to work so I commented it out
     `retr_ex=RayIntersectObjectPRO(Enemy(ii).ObjNum,2,Laser(i).xFrom,Laser(i).yFrom,Laser(i).zFrom,Laser(i).xTo,Laser(i).yTo,Laser(i).zTo)

     IF retr_ex=1
      retr=Enemy(ii).ObjNum
     ENDIF
    ENDIF
   NEXT ii
   remend

   rem End of collision code

  ENDIF
 NEXT i

ENDFUNCTION retr

rem FUNCTION: delete_laser (LASER INDEX)
`Must be called to delete a laser
FUNCTION delete_laser(l_idx)
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   Laser(i).Active=0
   IF OBJECT EXIST(Laser(i).ObjNum)
    DELETE OBJECT Laser(i).ObjNum
   ENDIF
  ENDIF
 NEXT i
ENDFUNCTION

rem FUNCTION: RETURN INTEGER = match_laser (LASER INDEX)
`This function returns the object number of
`a laser index
FUNCTION match_laser(l_idx)
 retr=-1
 FOR i=1 TO NUM_LASER
  IF Laser(i).Idx=l_idx
   retr=i
  ENDIF
 NEXT i
ENDFUNCTION retr

rem FUNCTION: RETURN FLOAT = point_direction (x1,z1,x1,z1)
`This function returns the direction between two
`points on a 2D plane.
FUNCTION point_direction(x1#,z1#,x2#,z2#)
 a=ATANFULL(x2#-x1#,z2#-z1#)
ENDFUNCTION a

Back to top

Profile PM Email

z_man

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: Australia

Posted: 18th May 2007 09:25 Edited at: 18th May 2007 09:27

Link

Thankyou so much, my problem is now solved and I understand how orbit works much better now! I have been away all week, so sorry for the late reply.

Thanks again,

z_man

~ z_man ~

Back to top

Profile PM

Ron Erickson

Moderator

21

Years of Service

User Offline

Joined: 6th Dec 2002

Location: Pittsburgh, PA, USA

Posted: 18th May 2007 13:46

Link

No problem! I'm glad that I was able to help

Back to top

Profile PM Email

Sorry your browser is not supported!

DLL Talk / EZRotate Orbit Rotations