obj/npcs/animals
var/eatsfodder=0
var/fed=0
var/age=0
var/speed=0
var/waitforowner=0
var/likeness=0
proc
randwalk()
START
var/a=0
var/didit=0
sleep src.speed
if(eatsfodder)
if(!src.fed)
for(var/obj/items/fodder/F in oview(src,5))
if(F.owner==src.owner)
if(!didit)
a=1
didit=1
src.dir=get_dir(src,F)
step(src,src.dir)
if(locate(F) in src.loc)
del F
src.fed=1
if(src.likeness<=199)
src.likeness+=1
for(var/mob/M in world)
if(src.loc==M)
a=1
if(src.waitforowner)
if(src.owner=="[M.name]")
if(M in oview(src,2))
a=1
if(a==0)
step_rand(src)
goto START
Much Appreciated =).
No help? :(.