-- rescue_prisoner.lua
--
-- author:- OLD LARRY
--
-- mods by J_C to Old Larry script.
-- it used to rescue some inmate who folow the player in to the map
--  simple non-fpscr character move ai
 
local larry_action = {}; 
local larry_near = 200;
local larry_far = 250;

 
function larry_SetCharacterToWalk(e)
 
    -- if larry_action does not equal 2
    if larry_action[e] ~= 2 then
        SetCharacterToWalk(e);
        larry_action[e] = 2;
    end
end
 
function larry_SetCharacterToFidget(e)
 
   -- if larry_action does not equal 1
   if larry_action[e] ~= 1 then  
        CharacterControlFidget(e);
        larry_action[e] = 1;      
   end
    
end
 
 
function rescue_prisoner_init(e)
 ai_soldier_state[e] = "idle"
 ModulateSpeed(e,1.0)
 SetCharacterSound(e,"soldier")
  
 larry_action[e] = 0;
  ai_start_x[e] = nil;
  ai_combat_mode[e] = 0;
end
  
function rescue_prisoner_main(e)
 
    PlayerDist = GetPlayerDistance(e)
    --EntObjNo = g_Entity[e]['obj']
     
    -- Store starting point so we can return there if player moves far away
    if ai_start_x[e] == nil then
        ai_start_x[e] = g_Entity[e]['x']
        ai_start_z[e] = g_Entity[e]['z']
        -- setup ai control
        AISetEntityControl(g_Entity[e]['obj'],AI_MANUAL);  
        CharacterControlUnarmed(e)
    end
  
    if ai_soldier_state[e] == "idle" then
        do_IdleAction(e);
     
    elseif ai_soldier_state[e] == "detected" and GetPlayerDistance(e) > 400 then
        do_goToPlayer(e)
        SetCharacterToRun(e)
    end  
  
end
 
function do_IdleAction(e)
         
    if PlayerDist < larry_near then
        ai_combat_mode[e] = 1;
        larry_SetCharacterToFidget(e); 
         
    elseif PlayerDist > larry_far  and ai_combat_mode[e] == 1 then
     
        ai_soldier_state[e] = "detected"
        AIEntityGoToPosition(g_Entity[e]['obj'],g_PlayerPosX,g_PlayerPosZ)
        RotateToPlayer(e)
        PlaySound(e,8000,500)    
        larry_SetCharacterToWalk(e);
     
    else
        larry_SetCharacterToFidget(e); 
    end
 
end
 
function do_goToPlayer(e)
 
    if PlayerDist > larry_near then
        AIEntityGoToPosition(g_Entity[e]['obj'],g_PlayerPosX,g_PlayerPosZ)
    else
         AIEntityStop(g_Entity[e]['obj']);
         ai_combat_mode[e] = 0;
         ai_soldier_state[e] = "idle";
    end
end

 -- 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