point object problem - GameCreators Forum

Author

Message

Heckno

20

Years of Service

User Offline

Joined: 8th Sep 2004

Location: Palm Coast, FL

Posted: 28th Jul 2005 04:57

Link

DBP,The y position acts funny (pitches enemy to player position) when I try to loop through more than one enemy (mon_1=x: number of enemy)..if its just one enemy it tracks correctly......

+ Code Snippet

for mon1 = 2000 to 2000+mon_1
 mon_opx#=object position x(mon1)
 mon_opy#=object position y(mon1)
 mon_opz#=object position z(mon1)


xb#=mon_opx#:yb#=mon_opy#:zb#=opz#
d#=sqrt((xa#-xb#)^2 + (ya#-yb#)^2 + (za#-zb#)^2):` distance formula
if d#<200 then point object mon1, opx#,mon_y#,opz#
if d#<20 and d#>6 then move object mon1,.1
if d#<1 then move object mon1,0
 mon_y#=get ground height(1,object position x(mon1),object position z(mon1))
  position object mon1,object position x(mon1),mon_y#,object position z(mon1)

next mon1

any suggestions other than switch to vectors would be appreciated

Back to top

Profile PM Email

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 28th Jul 2005 16:30 Edited at: 28th Jul 2005 16:59

Link

sync on : sync rate 0 : make camera 1 : backdrop on 1 : color backdrop 1, 0
make matrix 1, 10000,10000,50,50 : randomize matrix 1, 100 : update matrix 1
make object sphere 1, 50 : position object 1, 100,25,100
dim vel(100)
for enemy=2001 to 2100
    make object box enemy, 50,100,50
    color object enemy, RGB(rnd(250),rnd(250),rnd(250))
    position object enemy, rnd(9000)+500,50,rnd(9000)+500
    vel(enemy-2000)=rnd(8)+1
next i
DO
   if (upKey()=1) THEN move object 1, 10
   if (downKey()=1) THEN move object 1, 5
   if (rightKey()=1) THEN yrotate object 1, wrapValue(object angle y(1)+5)
   if (leftKey()=1) THEN yrotate object 1, wrapValue(object angle y(1)-5)
   x#=object position x(1) : z#=object position z(1) : y#=get ground height(1,x#,z#)+25
   position object 1, x#,y#,z#
   for enemy=2001 to 2100
      xe#=object position x(enemy) : ye#=object position y(enemy) : ze#=object position z(enemy)
      if (sqrt((xe#-x#)^2 + (xe#-x#)^2 + (xe#-x#)^2) < 40)
         move object enemy, 0
         else if (sqrt((xe#-x#)^2 + (ye#-y#)^2 + (ze#-z#)^2) < 700)
            point object enemy, x#,y#,z#
            move object enemy, vel(enemy-2000)
            else if (sqrt((xe#-x#)^2 + (ye#-y#)^2 + (ze#-z#)^2) < 900)
               point object enemy, x#,y#,z#
            endif
         endif
      endif
      xe#=object position x(enemy) : ze#=object position z(enemy) : ye#=get ground height(1,xe#,ze#)+50
      position object enemy, xe#,ye#,ze#
   next enemy
   position camera 1, x#,y#+100,z#-300 : point camera 1, x#,y#+50,z#
   sync
LOOP

+ Code Snippet

sync on : sync rate 0 : make camera 1 : backdrop on 1 : color backdrop 1, 0
make matrix 1, 10000,10000,50,50 : randomize matrix 1, 100 : update matrix 1
make object sphere 1, 50 : position object 1, 100,25,100
dim vel(100)
for enemy=2001 to 2100
    make object box enemy, 50,100,50
    color object enemy, RGB(rnd(250),rnd(250),rnd(250))
    position object enemy, rnd(9000)+500,50,rnd(9000)+500
    vel(enemy-2000)=rnd(8)+1
next i
DO
   if (upKey()=1) THEN move object 1, 10
   if (downKey()=1) THEN move object 1, 5
   if (rightKey()=1) THEN yrotate object 1, wrapValue(object angle y(1)+5)
   if (leftKey()=1) THEN yrotate object 1, wrapValue(object angle y(1)-5)
   x#=object position x(1) : z#=object position z(1) : y#=get ground height(1,x#,z#)+25
   position object 1, x#,y#,z#
   for enemy=2001 to 2100
      xe#=object position x(enemy) : ye#=object position y(enemy) : ze#=object position z(enemy)
      if (sqrt((xe#-x#)^2 + (xe#-x#)^2 + (xe#-x#)^2) < 40)
         move object enemy, 0
         else if (sqrt((xe#-x#)^2 + (ye#-y#)^2 + (ze#-z#)^2) < 700)
            point object enemy, x#,y#,z#
            move object enemy, vel(enemy-2000)
            else if (sqrt((xe#-x#)^2 + (ye#-y#)^2 + (ze#-z#)^2) < 900)
               point object enemy, x#,y#,z#
            endif
         endif
      endif
      xe#=object position x(enemy) : ze#=object position z(enemy) : ye#=get ground height(1,xe#,ze#)+50
      position object enemy, xe#,ye#,ze#
   next enemy
   position camera 1, x#,y#+100,z#-300 : point camera 1, x#,y#+50,z#
   sync
LOOP

figure this code out..
not difficult.. I think you did forget to point the objects when
they are inside the condition for to be moving... so.. when they can
move to main character's position, they stop pointing properly
to it..

Programming logic hint:
The first condition is: enemy must to stop? If doesn't, then
can it move? If yes, then move AND point to character.. If can't
move, so.. can it just point to object?
Ok.. you follow the logic you think it's easier for you..
But I hope that the code above helps..

(ignore that array.. I declared that just for setting up different
speeds to enemies (trying to get rid of those ugly 2 or more enemies' "fusions"))..

ok... blah blah blah

just enjoy

The worst foe lies within the self...

Back to top

Profile PM

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 28th Jul 2005 17:01

Link

oh! Is that what you wanted?

The worst foe lies within the self...

Back to top

Profile PM

Heckno

20

Years of Service

User Offline

Joined: 8th Sep 2004

Location: Palm Coast, FL

Posted: 29th Jul 2005 03:08

Link

No, the tilting problem still exists. Even with your code the AI boxes tilt according to the y position via the point object command...The tilting on the y axis is what is driving me insane...

I was hoping there was a way to get the AI to point and move toward the player without the y position being a factor...

Back to top

Profile PM Email

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 29th Jul 2005 03:29 Edited at: 29th Jul 2005 03:32

Link

Well, you might be able to get away with something like this, keeping in mind that you can change the Y positon to whatever the enemy is at. So, the key to my code is just where the enemy is that it uses the y position.

+ Code Snippet

rem Get positions - 2 can be an array or whatever - 1 is the player object (changeable)
mony#=object position y(2)
monx#=object position x(1)
monz#=object position z(1)

`point object
point object 2,mon#,mony#,monz#

That's not much, but it may just be what you're looking for, but, the enemy may still look down, this is just my quick solution.....I'll ponder this and reply back later.

---------------
Vote for Excelsis in the Puzzle Game Compo

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

Heckno

20

Years of Service

User Offline

Joined: 8th Sep 2004

Location: Palm Coast, FL

Posted: 31st Jul 2005 03:10

Link

Master, you are the master.....

I just ran the point object command with x&z tracking the player while the y position is held by the mon and my problem seems to have been resolved....

thanks and on to the next issue

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / point object problem