local turn_speed = {}
local destx = {}
local destz = {}
 
 
local health = {}
function merchant_init(e)
 
turn_speed[e] = 4
destx[e] = 0
destz[e] = 0
CharacterControlUnarmed(e)
 
 
 
health[e] = -1
ai_soldier_pathindex[e] = -1
end
 
-- THIS SECTION CONTAINS THE WAYPOINT FOLLOWING CODE
function merchant_main(e)
 
 
EntObjNo = g_Entity[e]['obj']
CharacterControlUnarmed(e)
 
if ai_soldier_pathindex[e] == -1 then
   
    ai_soldier_pathindex[e] = -2
     
   -- find initial waypoint path to follow
   PathIndex = -1;
   pClosest = 99999;
   for pa = 1, AIGetTotalPaths(), 1 do
    for po = 1 , AIGetPathCountPoints(pa), 1 do
     pDX = g_Entity[e]['x'] - AIPathGetPointX(pa,po);
     pDZ = g_Entity[e]['z'] - AIPathGetPointZ(pa,po);
     pDist = math.sqrt(math.abs(pDX*pDX)+math.abs(pDZ*pDZ));
     if pDist < pClosest and pDist < 200 then
      pClosest = pDist;
      PathIndex = pa;
     end
    end -- po
   end -- pa
    
   -- follow found path
   if PathIndex > -1 then
    ai_soldier_pathindex[e] = PathIndex;
    ai_path_point_index[e] = 2
    ModulateSpeed(e,1.0)
    SetCharacterToWalk(e)
    ai_path_point_direction[e] = 1
    ai_path_point_max[e] = AIGetPathCountPoints(ai_soldier_pathindex[e])
   end
    
  end
  -- If we have a path then lets patrol it
  if ai_soldier_pathindex[e] > -1 then
 
    ai_patrol_x[e] = AIPathGetPointX(ai_soldier_pathindex[e],ai_path_point_index[e])
    ai_patrol_z[e] = AIPathGetPointZ(ai_soldier_pathindex[e],ai_path_point_index[e])
   
    AIEntityGoToPosition(EntObjNo,ai_patrol_x[e],ai_patrol_z[e])
   
    tDistX = g_Entity[e]['x'] - ai_patrol_x[e]
    tDistZ = g_Entity[e]['z'] - ai_patrol_z[e]
   
    DistFromPath = math.sqrt(math.abs(tDistX*tDistX)+math.abs(tDistZ*tDistZ))   
     
    if DistFromPath < 300 then
        if ai_path_point_direction[e] == 1 then
            ai_path_point_index[e] = ai_path_point_index[e] + 1
            if ( ai_path_point_index[e] > ai_path_point_max[e] ) then
                ai_path_point_index[e] = ai_path_point_max[e] -1
                ai_path_point_direction[e] = 0
            end
        else
            ai_path_point_index[e] = ai_path_point_index[e] - 1
            if ( ai_path_point_index[e] < 1 ) then
                ai_path_point_index[e] = 2
                ai_path_point_direction[e] = 1
            end    
        end
    end
  else
    CharacterControlFidget(e)
  end
  end
   
 -- END OF WAYPOINT FOLLOWING CODE