Lock on function. - GameCreators Forum

Author

Message

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 11th May 2005 03:36

Link

This function will make your missile turn to an object at a given speed.

sync on

`make "bullet"
make object box 1,1,1,10 : point object 1,0,0,100
position object 1,0,0,0

`make target
make object cube 2,5
position object 2,0,0,100

do

`CALL FUNCTION
	locked(1,2,0.1)

`press left/right to strafe the target left/right
	if leftkey()=1 then position object 2,object position x(2) - 2,object position y(2),object position z(2)
	if rightkey()=1 then position object 2,object position x(2) + 2,object position y(2),object position z(2)
	if upkey()=1 then position object 2,object position x(2),object position y(2) + 2,object position z(2)
	if downkey()=1 then position object 2,object position x(2),object position y(2) - 2,object position z(2)

sync
loop

`in a function
function lock_on(id,target,turningspeed#)

`first of all: get -id- data
	posx#=object position x(id)
	posy#=object position y(id)
	posz#=object position z(id)
	angy#=object angle y(id)
	angx#=object angle x(id)

`get -target- data
	targetx#=object position x(target)
	targety#=object position y(target)
	targetz#=object position z(target)

`calculate the angle between -id- and -target-
	yangle# = wrapvalue( angy# - atanfull(targetx# - posx# , targetz# - posz#) )
	xangle# = wrapvalue( 90 + angx# - atanfull(targetz# - posz# , targety# - posy#) )

`if angle <180 / >180 then turn left/right or up/down
	if yangle# >=180
		if yangle#<359.0 then yrotate object id, wrapvalue( angy# + turningspeed# )
	else
		if yangle#>1.0 then yrotate object id, wrapvalue( angy# - turningspeed# )
	endif

if xangle# >=180
		if xangle#<359.0 then xrotate object id, wrapvalue( angx# + turningspeed# )
	else
		if xangle#>1.0 then xrotate object id, wrapvalue( angx# - turningspeed# )
	endif

endfunction

+ Code Snippet

sync on

`make "bullet"
make object box 1,1,1,10 : point object 1,0,0,100
position object 1,0,0,0

`make target
make object cube 2,5
position object 2,0,0,100

do

	`CALL FUNCTION
	locked(1,2,0.1)

	`press left/right to strafe the target left/right
	if leftkey()=1 then position object 2,object position x(2) - 2,object position y(2),object position z(2)
	if rightkey()=1 then position object 2,object position x(2) + 2,object position y(2),object position z(2)
	if upkey()=1 then position object 2,object position x(2),object position y(2) + 2,object position z(2)
	if downkey()=1 then position object 2,object position x(2),object position y(2) - 2,object position z(2)

	sync
loop

`in a function
function lock_on(id,target,turningspeed#)

	`first of all: get -id- data
	posx#=object position x(id)
	posy#=object position y(id)
	posz#=object position z(id)
	angy#=object angle y(id)
	angx#=object angle x(id)

	`get -target- data
	targetx#=object position x(target)
	targety#=object position y(target)
	targetz#=object position z(target)

	`calculate the angle between -id- and -target-
	yangle# = wrapvalue( angy# - atanfull(targetx# - posx# , targetz# - posz#) )
	xangle# = wrapvalue( 90 + angx# - atanfull(targetz# - posz# , targety# - posy#) )

	`if angle <180 / >180 then turn left/right or up/down
	if yangle# >=180
		if yangle#<359.0 then yrotate object id, wrapvalue( angy# + turningspeed# )
	else
		if yangle#>1.0 then yrotate object id, wrapvalue( angy# - turningspeed# )
	endif

	if xangle# >=180
		if xangle#<359.0 then xrotate object id, wrapvalue( angx# + turningspeed# )
	else
		if xangle#>1.0 then xrotate object id, wrapvalue( angx# - turningspeed# )
	endif

endfunction

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 14th May 2005 12:13 Edited at: 14th May 2005 12:13

Link

It's a good start - I've been looking for something like this. I want units to move (like tanks) that will turn towards their destination while moving.

There are a few problems. First - it wouldn't compile because the function call and the function name don't match. Second, I tried moving it (like a missile would be). It starts out working, but then gets confused as I move the target around.

Still - overall, I will find this useful. Thanks.

sync on

`make "bullet"
make object box 1,1,1,10 : point object 1,0,0,100
position object 1,0,0,0

`make target
make object cube 2,5
position object 2,0,0,100

do

`CALL FUNCTION
   locked(1,2,0.8)

`press left/right to strafe the target left/right
   if leftkey()=1 then position object 2,object position x(2) - 2,object position y(2),object position z(2)
   if rightkey()=1 then position object 2,object position x(2) + 2,object position y(2),object position z(2)
   if upkey()=1 then position object 2,object position x(2),object position y(2) + 2,object position z(2)
   if downkey()=1 then position object 2,object position x(2),object position y(2) - 2,object position z(2)
   Move Object 1,.2
   sync
loop

`in a function
function locked(id,target,turningspeed#)

`first of all: get -id- data
   posx#=object position x(id)
   posy#=object position y(id)
   posz#=object position z(id)
   angy#=object angle y(id)
   angx#=object angle x(id)

`get -target- data
   targetx#=object position x(target)
   targety#=object position y(target)
   targetz#=object position z(target)

`calculate the angle between -id- and -target-
   yangle# = wrapvalue( angy# - atanfull(targetx# - posx# , targetz# - posz#) )
   xangle# = wrapvalue( 90 + angx# - atanfull(targetz# - posz# , targety# - posy#) )

`if angle <180 / >180 then turn left/right or up/down
   if yangle# >=180
      if yangle#<359.0 then yrotate object id, wrapvalue( angy# + turningspeed# )
   else
      if yangle#>1.0 then yrotate object id, wrapvalue( angy# - turningspeed# )
   endif

if xangle# >=180
      if xangle#<359.0 then xrotate object id, wrapvalue( angx# + turningspeed# )
   else
      if xangle#>1.0 then xrotate object id, wrapvalue( angx# - turningspeed# )
   endif

endfunction

+ Code Snippet

sync on

`make "bullet"
make object box 1,1,1,10 : point object 1,0,0,100
position object 1,0,0,0

`make target
make object cube 2,5
position object 2,0,0,100

do

   `CALL FUNCTION
   locked(1,2,0.8)

   `press left/right to strafe the target left/right
   if leftkey()=1 then position object 2,object position x(2) - 2,object position y(2),object position z(2)
   if rightkey()=1 then position object 2,object position x(2) + 2,object position y(2),object position z(2)
   if upkey()=1 then position object 2,object position x(2),object position y(2) + 2,object position z(2)
   if downkey()=1 then position object 2,object position x(2),object position y(2) - 2,object position z(2)
   Move Object 1,.2
   sync
loop

`in a function
function locked(id,target,turningspeed#)

   `first of all: get -id- data
   posx#=object position x(id)
   posy#=object position y(id)
   posz#=object position z(id)
   angy#=object angle y(id)
   angx#=object angle x(id)

   `get -target- data
   targetx#=object position x(target)
   targety#=object position y(target)
   targetz#=object position z(target)

   `calculate the angle between -id- and -target-
   yangle# = wrapvalue( angy# - atanfull(targetx# - posx# , targetz# - posz#) )
   xangle# = wrapvalue( 90 + angx# - atanfull(targetz# - posz# , targety# - posy#) )

   `if angle <180 / >180 then turn left/right or up/down
   if yangle# >=180
      if yangle#<359.0 then yrotate object id, wrapvalue( angy# + turningspeed# )
   else
      if yangle#>1.0 then yrotate object id, wrapvalue( angy# - turningspeed# )
   endif

   if xangle# >=180
      if xangle#<359.0 then xrotate object id, wrapvalue( angx# + turningspeed# )
   else
      if xangle#>1.0 then xrotate object id, wrapvalue( angx# - turningspeed# )
   endif

endfunction

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 15th May 2005 02:19

Link

Mmm, guess i did somthin wrong...
i think it's because if you pitch and turn, your bullet will be zrotated...

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 16th May 2005 02:14

Link

I wonder if Fix Object Pivot will work?

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

UnderLord

20

Years of Service

User Offline

Joined: 2nd Aug 2003

Location:

Posted: 16th May 2005 12:20

Link

put the code into the code base =)

When we talk to god, we're praying. When god talks to us, we're schizophrenic.
Schizophrenic beats eating alone.

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 17th May 2005 04:05

Link

Maybe I can fix this by rotating the object around the z-axis and y-axis...

I don't think someone would like a non-working code

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 17th May 2005 16:41 Edited at: 17th May 2005 16:43

Link

Yeah - it belongs here for now. It's still usefull though as a good start / food for thought.

Also, z-axis is roll. It might be more useful to use x/y-axis instead of y/z-axis. But I'm guessing here - otherwise I would have written it.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd May 2005 02:15

Link

Or you can allways make a dummy that's keep pointing at the target and let the angles of the real bullet slowly turn to the dummys angles...

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 26th May 2005 15:11 Edited at: 26th May 2005 15:11

Link

I've tried that technique for a few AI's, but I want to run, let's say, a hundred AI's. Haven't tried it, but I think it would start to really slow down. Where as a math solution would work much faster.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 28th May 2005 23:05

Link

Indeed...

Anyway, maybe my code can help ppl with AI codes...

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 30th May 2005 02:50

Link

Okay - been playing around with your start for a while now and finally got to this. It doesn't look the same at all, but you can still see the basic concept is there.

Solutions:
Used 5 limbs (limb 0 + 4) for each basic direction (forward, up, down, left, and right).
Offset the limbs in their respective directions.
Get the distance from each limb to the target.
Determine the closest limb to the target.
Turn the missile object in the direction of the closest limb.
Move the missile forward.
Rinse and repeat.

Note: There are more functions than are used as I have a basic function include file I copy functions from as needed. I just copied the ones I might need and didn't bother to delete them if I didn`t use them.

Note: 100 missiles in this demo just to test speed.

Sync On:Sync Rate 60:Autocam Off

Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

Global Object as Coordinates
Global Target as Coordinates
Global AI as Coordinates
Global Camera As Coordinates
Global Limb As Coordinates

Clean_AI()
Make Mesh from Object 2,2
For i=101 to 200
   Make Object Cube i,1
   Scale Limb i,0,200,200,500
   Restore Offsets
   For j =1 to 4
      Read lox#,loy#,loz#
      Add Limb i,j,2
      Offset Limb i,j,lox#,loy#,loz#
   Next j
   Position Object i,(i*2)-301,-5,0
Next i

Make Object Cube 3,20
Position Object 3,20,20,200

Do
   For i = 101 to 200
      AIM_Missile(i,3)
      Move Object i,1
   Next i
   Move Object Down 3,Mousemovey()
   Move Object Right 3,Mousemovex()
   Move Object 3, Upkey()-Downkey()
   Sync
Loop

Function Aim_Missile(ObjectID,TargetID)
   md#=Squared_Distance(ObjectID,TargetID)+100
   L=0
   For i = 0 to 4
      Set_AI_To_Limb(ObjectID,i)
      nd#=Squared_Distance(2,TargetID)
      If nd#<md#
         L=i
         md#=nd#
      Endif
   Next i
   rn#=Rnd(100.0)/100.0
   Select L
      Case 0
         `No Turning
      Endcase
      Case 1
         Pitch Object Up ObjectID,1+rn#
      EndCase
      Case 2
         Turn Object RIght ObjectID,1+rn#
      EndCase
      Case 3
         Pitch Object Down ObjectID,1+rn#
      EndCase
      Case 4
         Turn Object Left ObjectID,1+rn#
      EndCase
   EndSelect
EndFunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Object(ObjectID)
If Object Exist (ObjectID)
   Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
Endif
Endfunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Target(TargetID)
If Object Exist (TargetID)
   Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
Endif
EndFunction

` This function shortens the Object Postion X/Y/Z() functions for object #2
Function Return_AI()
If Object Exist (2)
   AI.x=Object Position X(2):AI.y=Object Position Y(2):AI.z=Object Position Z(2)
Endif
EndFunction

` This function shortens the Camera Postion X/Y/Z() functions.
Function Return_Camera()
Camera.x=Camera Position X():Camera.y=Camera Position Y():Camera.z=Camera Position Z()
EndFunction

` This function positions the AI object (#2) at ObjectID's position and set the AI to the ObjectID's orientation
Function Set_AI(ObjectID)
If Object Exist(ObjectID) And Object Exist(2)
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
Endif
EndFunction

` This function deletes an old AI object and creates a new "clean" AI object.
Function Clean_AI()
   If Object Exist(2) Then Delete Object 2
   Make Object Sphere 2,1,6,6
   Hide Object 2
   Set Object Collision To Boxes 2
   Set Object Collision Off 2
EndFunction

`This function places ObjectID at the AI position. It does not set the ObjectID's orientation
Function Set_Object(ObjectID)
If Object Exist(ObjectID)
   If Object Exist(2)=0 Then Clean_AI()
   Return_AI()
   Position Object ObjectID,AI.x,AI.y,AI.z
Endif
EndFunction

`This function places the CameraID at the AI position. It does not orient the camera.
Function Set_Camera()
Return_AI()
Position Camera AI.x,AI.y,AI.z
EndFunction

`This function shortens the Limb Position X/Y/Z() functions
Function Return_Limb(ObjectID,LimbID)
If Object Exist(ObjectID)
   If Limb Exist(ObjectID,LimbID)
      Limb.x=Limb Position X(ObjectID,LimbID):Limb.y=Limb Position Y(ObjectID,LimbID):Limb.z=Limb Position Z(ObjectID,LimbID)
   Endif
Endif
EndFunction

` This function positions the AI object (#2) at ObjectID's/LimbID's position and sets the AI orientation
Function Set_AI_to_Limb(ObjectID,LimbID)
If Object Exist(ObjectID)
   If Limb Exist(ObjectID,LimbID)
      If Object Exist(2)=0 Then Clean_AI()
      Return_Limb(ObjectID,LimbID)
      Position Object 2,Limb.x,Limb.y,Limb.z
      Rotate Object 2,Limb Angle X(ObjectID,LimbID),Limb Angle Y(ObjectID,LimbID),Limb Angle Z(ObjectID,LimbID)
   Endif
Endif
EndFunction

Function Squared_Distance(ObjectID,TargetID)
   Return_Object(ObjectID)
   Return_Target(TargetID)
   dx#=Object.x-Target.x:dy#=Object.y-Target.y:dz#=Object.z-Target.z
   d#=dx#*dx#+dy#*dy#+dz#*dz#
Endfunction d#

Offsets:
Data 0,1,-.2
Data 1,0,-.2
Data 0,-1,-.2
Data -1,0,-.2

+ Code Snippet

Sync On:Sync Rate 60:Autocam Off

Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

Global Object as Coordinates
Global Target as Coordinates
Global AI as Coordinates
Global Camera As Coordinates
Global Limb As Coordinates

Clean_AI()
Make Mesh from Object 2,2
For i=101 to 200
   Make Object Cube i,1
   Scale Limb i,0,200,200,500
   Restore Offsets
   For j =1 to 4
      Read lox#,loy#,loz#
      Add Limb i,j,2
      Offset Limb i,j,lox#,loy#,loz#
   Next j
   Position Object i,(i*2)-301,-5,0
Next i

Make Object Cube 3,20
Position Object 3,20,20,200

Do
   For i = 101 to 200
      AIM_Missile(i,3)
      Move Object i,1
   Next i
   Move Object Down 3,Mousemovey()
   Move Object Right 3,Mousemovex()
   Move Object 3, Upkey()-Downkey()
   Sync
Loop





Function Aim_Missile(ObjectID,TargetID)
   md#=Squared_Distance(ObjectID,TargetID)+100
   L=0
   For i = 0 to 4
      Set_AI_To_Limb(ObjectID,i)
      nd#=Squared_Distance(2,TargetID)
      If nd#<md#
         L=i
         md#=nd#
      Endif
   Next i
   rn#=Rnd(100.0)/100.0
   Select L
      Case 0
         `No Turning
      Endcase
      Case 1
         Pitch Object Up ObjectID,1+rn#
      EndCase
      Case 2
         Turn Object RIght ObjectID,1+rn#
      EndCase
      Case 3
         Pitch Object Down ObjectID,1+rn#
      EndCase
      Case 4
         Turn Object Left ObjectID,1+rn#
      EndCase
   EndSelect
EndFunction



` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Object(ObjectID)
If Object Exist (ObjectID)
   Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
Endif
Endfunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Target(TargetID)
If Object Exist (TargetID)
   Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
Endif
EndFunction

` This function shortens the Object Postion X/Y/Z() functions for object #2
Function Return_AI()
If Object Exist (2)
   AI.x=Object Position X(2):AI.y=Object Position Y(2):AI.z=Object Position Z(2)
Endif
EndFunction

` This function shortens the Camera Postion X/Y/Z() functions.
Function Return_Camera()
Camera.x=Camera Position X():Camera.y=Camera Position Y():Camera.z=Camera Position Z()
EndFunction

` This function positions the AI object (#2) at ObjectID's position and set the AI to the ObjectID's orientation
Function Set_AI(ObjectID)
If Object Exist(ObjectID) And Object Exist(2)
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,ObjectID
Endif
EndFunction

` This function deletes an old AI object and creates a new "clean" AI object.
Function Clean_AI()
   If Object Exist(2) Then Delete Object 2
   Make Object Sphere 2,1,6,6
   Hide Object 2
   Set Object Collision To Boxes 2
   Set Object Collision Off 2
EndFunction


`This function places ObjectID at the AI position. It does not set the ObjectID's orientation
Function Set_Object(ObjectID)
If Object Exist(ObjectID)
   If Object Exist(2)=0 Then Clean_AI()
   Return_AI()
   Position Object ObjectID,AI.x,AI.y,AI.z
Endif
EndFunction

`This function places the CameraID at the AI position. It does not orient the camera.
Function Set_Camera()
Return_AI()
Position Camera AI.x,AI.y,AI.z
EndFunction

`This function shortens the Limb Position X/Y/Z() functions
Function Return_Limb(ObjectID,LimbID)
If Object Exist(ObjectID)
   If Limb Exist(ObjectID,LimbID)
      Limb.x=Limb Position X(ObjectID,LimbID):Limb.y=Limb Position Y(ObjectID,LimbID):Limb.z=Limb Position Z(ObjectID,LimbID)
   Endif
Endif
EndFunction

` This function positions the AI object (#2) at ObjectID's/LimbID's position and sets the AI orientation
Function Set_AI_to_Limb(ObjectID,LimbID)
If Object Exist(ObjectID)
   If Limb Exist(ObjectID,LimbID)
      If Object Exist(2)=0 Then Clean_AI()
      Return_Limb(ObjectID,LimbID)
      Position Object 2,Limb.x,Limb.y,Limb.z
      Rotate Object 2,Limb Angle X(ObjectID,LimbID),Limb Angle Y(ObjectID,LimbID),Limb Angle Z(ObjectID,LimbID)
   Endif
Endif
EndFunction

Function Squared_Distance(ObjectID,TargetID)
   Return_Object(ObjectID)
   Return_Target(TargetID)
   dx#=Object.x-Target.x:dy#=Object.y-Target.y:dz#=Object.z-Target.z
   d#=dx#*dx#+dy#*dy#+dz#*dz#
Endfunction d#

Offsets:
Data 0,1,-.2
Data 1,0,-.2
Data 0,-1,-.2
Data -1,0,-.2

Thanks Sven!

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Jun 2005 04:02

Link

Well, I actually use DBC, so I can't execute your source code :s

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 2nd Jun 2005 13:33

Link

Here's a conversion to DBC. It compiles okay in DBC and it work properly in DBPro, but it doesn't work quite right in DBC. It's beena while since I worked with DBC so I forget some of the little nuances. Maybe you can help finish the conversion?

Sync On:Sync Rate 60:Autocam Off

Dim Object#(3)
Dim Target#(3)
Dim AI#(3)
Dim Camera#(3)
Dim Limb#(3)

Clean_AI()
Make Mesh from Object 2,2
For i=101 to 200
   Make Object Cube i,1
   Scale Limb i,0,200,200,500
   Restore Offsets
   For j =1 to 4
      Read lox#,loy#,loz#
      Add Limb i,j,2
      Offset Limb i,j,lox#,loy#,loz#
   Next j
   Position Object i,(i*2)-301,-5,0
Next i

Make Object Cube 3,20
Position Object 3,20,20,200

Do
   For i = 101 to 200
      Roll Object Right i,5
      AIM_Missile(i,3)
      Move Object i,1
   Next i
   Position Object 3,Object Position X(3)+MousemoveX(),Object Position Y(3)-Mousemovey(),Object Position Z(3)
   Move Object 3, Upkey()-Downkey()
   Sync
Loop

Function Aim_Missile(ObjectID,TargetID)
   md#=Squared_Distance(ObjectID,TargetID)+100.0
   L=0
   For i = 0 to 4
      Set_AI_To_Limb(ObjectID,i)
      nd#=Squared_Distance(2,TargetID)
      If nd#<md#
         L=i
         md#=nd#
      Endif
   Next i
   rn#=Rnd(200.0)/100.0
   Select L
      Case 0
         `No Turning
      Endcase
      Case 1
         Pitch Object Up ObjectID,2.0+rn#
      EndCase
      Case 2
         Turn Object Right ObjectID,2.0+rn#
      EndCase
      Case 3
         Pitch Object Down ObjectID,2.0+rn#
      EndCase
      Case 4
         Turn Object Left ObjectID,2.0+rn#
      EndCase
   EndSelect
EndFunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Object(ObjectID)
   Object#(1)=Object Position X(ObjectID): Object#(2)=Object Position Y(ObjectID): Object#(3)=Object Position Z(ObjectID)
Endfunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Target(TargetID)
   Target#(1)=Object Position X(TargetID):Target#(2)=Object Position Y(TargetID):Target#(3)=Object Position Z(TargetID)
EndFunction

` This function shortens the Object Postion X/Y/Z() functions for object #2
Function Return_AI()
   AI#(1)=Object Position X(2):AI#(2)=Object Position Y(2):AI#(3)=Object Position Z(2)
EndFunction

` This function shortens the Camera Postion X/Y/Z() functions.
Function Return_Camera()
Camera#(1)=Camera Position X():Camera#(2)=Camera Position Y():Camera#(3)=Camera Position Z()
EndFunction

` This function positions the AI object (#2) at ObjectID's position and set the AI to the ObjectID's orientation
Function Set_AI(ObjectID)
   Return_Object(ObjectID)
   Position Object 2, Object#(1), Object#(2), Object#(3)
   Set Object To Object Orientation 2,ObjectID
EndFunction

` This function deletes an old AI object and creates a new "clean" AI object.
Function Clean_AI()
   If Object Exist(2) Then Delete Object 2
   Make Object Cube 2,1
   Hide Object 2
   Set Object Collision To Boxes 2
   Set Object Collision Off 2
EndFunction

`This function places ObjectID at the AI position. It does not set the ObjectID's orientation
Function Set_Object(ObjectID)
   If Object Exist(2)=0 Then Clean_AI()
   Return_AI()
   Position Object ObjectID,AI#(1),AI#(2),AI#(3)
EndFunction

`This function places the CameraID at the AI position. It does not orient the camera.
Function Set_Camera()
   Return_AI()
   Position Camera AI#(1),AI#(2),AI#(3)
EndFunction

`This function shortens the Limb Position X/Y/Z() functions
Function Return_Limb(ObjectID,LimbID)
   Limb#(1)=Limb Position X(ObjectID,LimbID):Limb#(2)=Limb Position Y(ObjectID,LimbID):Limb#(3)=Limb Position Z(ObjectID,LimbID)
EndFunction

` This function positions the AI object (#2) at ObjectID's/LimbID's position and sets the AI orientation
Function Set_AI_to_Limb(ObjectID,LimbID)
   If Object Exist(2)=0 Then Clean_AI()
   Return_Limb(ObjectID,LimbID)
   Position Object 2,Limb#(1),Limb#(2),Limb#(3)
   Rotate Object 2,Limb Angle X(ObjectID,LimbID),Limb Angle Y(ObjectID,LimbID),Limb Angle Z(ObjectID,LimbID)
EndFunction

Function Squared_Distance(ObjectID,TargetID)
   Return_Object(ObjectID)
   Return_Target(TargetID)
   dx#= Object#(1)-Target#(1):dy#= Object#(2)-Target#(2):dz#= Object#(3)-Target#(3)
   d#=(dx#*dx#)+(dy#*dy#)+(dz#*dz#)
Endfunction d#

Offsets:
Data 0,1,-.2
Data 1,0,-.2
Data 0,-1,-.2
Data -1,0,-.2

+ Code Snippet

Sync On:Sync Rate 60:Autocam Off

Dim Object#(3)
Dim Target#(3)
Dim AI#(3)
Dim Camera#(3)
Dim Limb#(3)

Clean_AI()
Make Mesh from Object 2,2
For i=101 to 200
   Make Object Cube i,1
   Scale Limb i,0,200,200,500
   Restore Offsets
   For j =1 to 4
      Read lox#,loy#,loz#
      Add Limb i,j,2
      Offset Limb i,j,lox#,loy#,loz#
   Next j
   Position Object i,(i*2)-301,-5,0
Next i

Make Object Cube 3,20
Position Object 3,20,20,200

Do
   For i = 101 to 200
      Roll Object Right i,5
      AIM_Missile(i,3)
      Move Object i,1
   Next i
   Position Object 3,Object Position X(3)+MousemoveX(),Object Position Y(3)-Mousemovey(),Object Position Z(3)
   Move Object 3, Upkey()-Downkey()
   Sync
Loop



Function Aim_Missile(ObjectID,TargetID)
   md#=Squared_Distance(ObjectID,TargetID)+100.0
   L=0
   For i = 0 to 4
      Set_AI_To_Limb(ObjectID,i)
      nd#=Squared_Distance(2,TargetID)
      If nd#<md#
         L=i
         md#=nd#
      Endif
   Next i
   rn#=Rnd(200.0)/100.0
   Select L
      Case 0
         `No Turning
      Endcase
      Case 1
         Pitch Object Up ObjectID,2.0+rn#
      EndCase
      Case 2
         Turn Object Right ObjectID,2.0+rn#
      EndCase
      Case 3
         Pitch Object Down ObjectID,2.0+rn#
      EndCase
      Case 4
         Turn Object Left ObjectID,2.0+rn#
      EndCase
   EndSelect
EndFunction



` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Object(ObjectID)
   Object#(1)=Object Position X(ObjectID): Object#(2)=Object Position Y(ObjectID): Object#(3)=Object Position Z(ObjectID)
Endfunction

` This function shortens the Object Postion X/Y/Z() functions.
Function Return_Target(TargetID)
   Target#(1)=Object Position X(TargetID):Target#(2)=Object Position Y(TargetID):Target#(3)=Object Position Z(TargetID)
EndFunction

` This function shortens the Object Postion X/Y/Z() functions for object #2
Function Return_AI()
   AI#(1)=Object Position X(2):AI#(2)=Object Position Y(2):AI#(3)=Object Position Z(2)
EndFunction

` This function shortens the Camera Postion X/Y/Z() functions.
Function Return_Camera()
Camera#(1)=Camera Position X():Camera#(2)=Camera Position Y():Camera#(3)=Camera Position Z()
EndFunction

` This function positions the AI object (#2) at ObjectID's position and set the AI to the ObjectID's orientation
Function Set_AI(ObjectID)
   Return_Object(ObjectID)
   Position Object 2, Object#(1), Object#(2), Object#(3)
   Set Object To Object Orientation 2,ObjectID
EndFunction

` This function deletes an old AI object and creates a new "clean" AI object.
Function Clean_AI()
   If Object Exist(2) Then Delete Object 2
   Make Object Cube 2,1
   Hide Object 2
   Set Object Collision To Boxes 2
   Set Object Collision Off 2
EndFunction


`This function places ObjectID at the AI position. It does not set the ObjectID's orientation
Function Set_Object(ObjectID)
   If Object Exist(2)=0 Then Clean_AI()
   Return_AI()
   Position Object ObjectID,AI#(1),AI#(2),AI#(3)
EndFunction

`This function places the CameraID at the AI position. It does not orient the camera.
Function Set_Camera()
   Return_AI()
   Position Camera AI#(1),AI#(2),AI#(3)
EndFunction

`This function shortens the Limb Position X/Y/Z() functions
Function Return_Limb(ObjectID,LimbID)
   Limb#(1)=Limb Position X(ObjectID,LimbID):Limb#(2)=Limb Position Y(ObjectID,LimbID):Limb#(3)=Limb Position Z(ObjectID,LimbID)
EndFunction

` This function positions the AI object (#2) at ObjectID's/LimbID's position and sets the AI orientation
Function Set_AI_to_Limb(ObjectID,LimbID)
   If Object Exist(2)=0 Then Clean_AI()
   Return_Limb(ObjectID,LimbID)
   Position Object 2,Limb#(1),Limb#(2),Limb#(3)
   Rotate Object 2,Limb Angle X(ObjectID,LimbID),Limb Angle Y(ObjectID,LimbID),Limb Angle Z(ObjectID,LimbID)
EndFunction

Function Squared_Distance(ObjectID,TargetID)
   Return_Object(ObjectID)
   Return_Target(TargetID)
   dx#= Object#(1)-Target#(1):dy#= Object#(2)-Target#(2):dz#= Object#(3)-Target#(3)
   d#=(dx#*dx#)+(dy#*dy#)+(dz#*dz#)
Endfunction d#

Offsets:
Data 0,1,-.2
Data 1,0,-.2
Data 0,-1,-.2
Data -1,0,-.2

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 5th Jun 2005 06:15

Link

I'm sorry, but the missiles go everywhere except for the cube... (But there aren't any DBP commands so you got that right)

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / Lock on function.