How do I allow NPCs to only walk around in a specific area?

Author

Message

cyangamer

16

Years of Service

User Offline

Joined: 2nd Jun 2008

Location: Houston, TX, USA

Posted: 14th Oct 2008 03:56

Link

When I'm making an NPC walk around randomly, I still want him to be in the vicinity of where he started. I know you do something like this:

+ Code Snippet

if X# < 800 AND X# > 300 AND Z# < 800 AND Z# > 200

`Movement commands

else

`???

endif

What I specifically want to do is when an NPC leaves his area, I want him just turn around and walk back into his area, going back into the regular move commands once there. If that's overly difficult though, I'm open for a better way.

Currently working on - Enemy AI and Action Battle System

the sig limit needs to be raised...

Back to top

Profile PM Website

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 15th Oct 2008 13:05

Link

I think that there are various methods.

test code

+ Code Snippet


remstart
if X# < 800 AND X# > 300 AND Z# < 800 AND Z# > 200
`Movement commands
else
`???
endif
remend

npc=1
x=500
y=0
z=500
MAKE OBJECT CUBE npc, 10
POSITION OBJECT npc, x,y,z

make matrix 1,1000,1000,10,10


do

do
ox=x: oy=y: oz=z:

r=rnd(8)
if r=0 then x=x-10 : z=z-10
if r=1 then x=x    : z=z-10
if r=2 then x=x+10 : z=z-10
if r=3 then x=x-10 : z=z
if r=4 then x=x    : z=z
if r=5 then x=x+10 : z=z
if r=6 then x=x-10 : z=z+10
if r=7 then x=x    : z=z+10
if r=8 then x=x+10 : z=z+10

remstart
if upkey()=1 then z=z+1
if downkey()=1 then z=z-1
if leftkey()=1 then x=x-1
if rightkey()=1 then x=x+1
remend
if X < 800 AND X > 300 AND Z < 800 AND Z > 200 then exit else x=ox: y=oy: z=oz:
loop

POSITION OBJECT npc,x,y,z

loop

end

Back to top

Profile PM

cyangamer

16

Years of Service

User Offline

Joined: 2nd Jun 2008

Location: Houston, TX, USA

Posted: 16th Oct 2008 02:35

Link

What if you're using Move Object commands? Here's my function:

function AI_Random_Walk(object, enemy)

X# = object position x(object)
Y# = object position y(object)
Z# = object position z(object)

if X# < 800 AND X# > 300 AND Z# < 800 AND Z# > 200
    
`	Move unit in a random pattern
    print "Enemy is roaming...",Direction(enemy)
    if DirectionTime(enemy) > 0 then dec DirectionTime(enemy) else Direction(enemy) = rnd(7) : DirectionTime(enemy) = rnd(200)+30
	if ManeuverTime(enemy) > 0 then dec ManeuverTime(enemy) else Calm_Selection(object, enemy):ManeuverTimeStart(enemy)=0

rem Move player (eight-directional movement)
   If Direction(enemy)=0
      `yrotate object model,45
      yrotate object object,curveangle(45,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=1
      `yrotate object model,-45
      yrotate object object,curveangle(-45,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=2
      `yrotate object model,135
      yrotate object object,curveangle(135,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=3
      `yrotate object model,-135
      yrotate object object,curveangle(-135,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
  If Direction(enemy)=4
      `yrotate object model,180
      yrotate object object,curveangle(180,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=5
      `yrotate object model,360
      yrotate object object,curveangle(360,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=6
      `yrotate object model,90
      yrotate object object,curveangle(90,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=7
      `yrotate object model,270
      yrotate object object,curveangle(270,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
      else
      enemy_state(enemy)=0
   endif : endif : endif: endif : endif : endif : endif : endif
   
else

??  ?   ?   ?   ?   ?  ?

endif

+ Code Snippet

function AI_Random_Walk(object, enemy)

X# = object position x(object)
Y# = object position y(object)
Z# = object position z(object)

if X# < 800 AND X# > 300 AND Z# < 800 AND Z# > 200
    
`	Move unit in a random pattern
    print "Enemy is roaming...",Direction(enemy)
    if DirectionTime(enemy) > 0 then dec DirectionTime(enemy) else Direction(enemy) = rnd(7) : DirectionTime(enemy) = rnd(200)+30
	if ManeuverTime(enemy) > 0 then dec ManeuverTime(enemy) else Calm_Selection(object, enemy):ManeuverTimeStart(enemy)=0

    rem Move player (eight-directional movement)
   If Direction(enemy)=0
      `yrotate object model,45
      yrotate object object,curveangle(45,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=1
      `yrotate object model,-45
      yrotate object object,curveangle(-45,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=2
      `yrotate object model,135
      yrotate object object,curveangle(135,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=3
      `yrotate object model,-135
      yrotate object object,curveangle(-135,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
  If Direction(enemy)=4
      `yrotate object model,180
      yrotate object object,curveangle(180,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=5
      `yrotate object model,360
      yrotate object object,curveangle(360,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=6
      `yrotate object model,90
      yrotate object object,curveangle(90,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
   else
   If Direction(enemy)=7
      `yrotate object model,270
      yrotate object object,curveangle(270,object angle y(object),10)
      Move Object object, 2.5
      enemy_state(enemy)=1
      else
      enemy_state(enemy)=0
   endif : endif : endif: endif : endif : endif : endif : endif
   
else

??  ?   ?   ?   ?   ?  ? 

endif

The problem with that method is that it's jumpy. I need the model to just return (probably via move object or a similar command) back to any X/Z point that's within the range.

Currently working on - Enemy AI and Action Battle System

the sig limit needs to be raised...

Back to top

Profile PM Website

Bursar

16

Years of Service

User Offline

Joined: 17th Sep 2008

Location:

Posted: 16th Oct 2008 12:22

Link

Here's a thread http://forum.thegamecreators.com/?m=forum_view&t=76061&b=1 where there's some code to deal with getting the distance between two points.

Why not store the 'home' location of each NPC and then compare it's current location with its home location using the above code?

The if you're more than a certain distance away, have your NPC turn around and face the home position and start walking towards it. Once he's arrived (or has got close to it), he can start wandering about again.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / How do I allow NPCs to only walk around in a specific area?