Sorry your browser is not supported!

maxdist#=600

near=objects_dist_(camera,animal1,maxdist#)
	if near
	   while runaway<25
		runaway=runaway+1
		move object 1,2
	   endwhile
	runaway=0
	endif

rem ****Animal 1 Movement****
rem move animal forward vaiable(s)
move=move+0.5
distance=rnd(150)

rem turn aminal vaiable(s)
turn=rnd(360)

rem move animal forward and turn
if move<distance
move object 1,2
endif

if move=>distance
yrotate object 1, turn
endif

move=0

maxdist#=600

near=objects_dist_(camera,animal1,maxdist#)
	if near
		running=1
		while running = 1
			for runaway=1 to 25
				move object 1,2
				if runaway = 25 then running = 0
			next runaway
		endwhile
	runaway = 0
	endif

maxdist#=500

nearby=objects_dist(camera,animal1,maxdist#)
	if nearby
		running=1
		while running=1
			for runaway=1 to 500
				move object 1,2
				if runaway = 500 then running = 0
			next runaway
		endwhile
		runaway=0
	endif

rem ****Animal 1 Movement****
rem move animal forward vaiable(s)
move=move+0.5
distance=rnd(150)

rem turn aminal vaiable(s)
turn=rnd(360)

rem move animal forward and turn
if move<distance
move object 1,2
endif

if move=>distance
yrotate object 1, turn
endif

move=0

rem setup the game including animals
setup display
setup variables
etc.
rem create animals
for n=1 to number of animals
   load or make animal n
next n

main_loop:
do
   move player character or camera code

   rem check if player is near an animal detection area
   rem use a simple distance check for each animal.  A
   rem regular distance check uses sqrt() but we can speed
   rem this up using squared values
   
   rem loop through each animal and check it against the player
   for animal=1 to number of animals
       rem assuming there is an array holding animal information
       rem we can use that info for our detection
       rem and since we are using max distance squared, we square the
       rem distance triggers for the detection
       maxdist#=animalinfo#(animal,1)*animalinfo#(animal,1)

       rem if the player is close enough to the animal, it will start running
       rem each iteration of the main loop until it is out of range
       if check_dist(player,animal,maxdist#)
          pick a direction for the animal away from the player
          gosub _animal_run routine
       else
          if it's not running then just do normal animal walking
          or other behavior
          gosub _normal_animal stuff
       endif
   next animal       
       
loop

_animal_run:
   after picking a direction
   move object animal FAST (maybe 5 or 6 units at a time instead of 1 or 2)
return

_normal_animal_stuff:
   walk
   eat grass
   sit
   sleep
   whatever
return

function check_dist(player,animal,max_dist_squared#)
   dx#=object position x(animal)-object position x(player)
   dy#=object position y(animal)-object position y(player)
   dz#=object position z(animal)-object position z(player)

   rem check if the distance between player and animal is
   rem less than max_dist_squared#   
   if ((dx#*dx#)+(dy#*dy#)+(dz#+dz#)) < max_dist_squared#
      exitfunction 1
   endif
endfunction 0

maxdist#=500

if nearby
   maxdist# = 700
   etc
   etc
endif

remstart
   `dim animalinfo#(number of animals,6)

   the array will store information about the animal.
   For this demo, we are only concerned about it running, so
   the indeces are setup for that.  You could very easily
   include other parameters for walking speed, or eating,
   or health, or anything you want.

   animalinfo#(animal,0)      ==       This is the running flag.
                                       Set to 0 if the animal is not
                                       running.  Set to 1 if the
                                       animal is running
   animalinfo#(animal,1)      ==       The animal running speed
   animalinfo#(animal,2)      ==       The animal detection distance
   animalinfo#(animal,3)      ==       The base distance the animal will run
                                       away.  I say the base distance because
                                       we can add a random value to this so that
                                       the animal might run a little further at
                                       times.
   animalinfo#(animal,4)      ==       The random increment value to be added to
                                       the base value.  If you don't want any
                                       fluctuation in distance, then this can be 0
   animalinfo#(animal,5)      ==       The max distance the animal will run.  This
                                       is equal to
                              animalinfo#(animal,3) + rnd(int(animalinfo#(animal,4))

   animalinfo#(animal,6)      ==       The current distance the animal has run.  Each
                                       time the animal stops running, set this to
                                       0 .
remend
dim animalinfo#(25,6)
set up the specs for each animal

_main_loop:
do
   for animal = 1 to number of animals
      rem start by checking if an animal is already running
      rem We can ahndle the result of this in a couple of different
      rem ways.  1 way is to skip over any animals tha are already running.
      rem The other way is to reset all of the values every time near is
      rem flagged even if the animal is already running.  I'll take
      rem the first approach.

      rem is the animal already running?
      if int(animalinfo#(animal,0))    : `yes.  Check it's distance and move it
         move object animal,animalinfo#(animal,1)

         rem add the distance it just moved to the total distance it has moved
         rem so far
         animalinfo#(animal,6)=animalinfo#(animal,6)+animalinfo#(animal,1)

         rem now check it's distance
         if animalinfo#(animal,6) > animalinfo#(animal,5) : ` did it run far enough?
            `yes it ran far enough.  reset a few array values
            animalinfo#(animal,0)=0 : ` the animal is no longer running
            animalinfo#(animal,6)=0 : ` reset the total distance it ran
         endif
      else
         `No, the animal is not running yet
         rem since the animal is not running, we now check it against near
         calculate near
         if near
            rem set the running flag and the max distance
            animalinfo#(animal,0)=1
            animalinfo#(animal,5)=animalinfo#(animal,3) + rnd(int(animalinfo#(animal,4))

            set the direction the animal will move
            move the animal,animalinfo#(animal,1) :`the running speed

            rem add the distance it just moved to the total distance it has moved
            rem so far
            animalinfo#(animal,6)=animalinfo#(animal,6)+animalinfo#(animal,1)
         else
            rem not near the animal and the animal isn't running
            rem so do regular animal stuff
            gosub _regular_animal_stuff
         endif
      endif
   next animal
loop