local aniplaying = 0
 
ai_newdest_time = {}
 
ai_cover_on = {}
 
-- init when level first runs
 
function ai_way_init(e)
  SetEntityHealth(e,10)
  
 ai_soldier_state[e] = "patrol";
 
 ai_soldier_pathindex[e] = -1;
 
 ai_start_x[e] = nil
 
 ai_starting_heath[e] = nil
 
 ai_ran_to_cover[e] = 0
 
 ModulateSpeed(e,1.0)
 
 ai_old_health[e] = 0
 
 --CharacterControlStand(e)
 
 ai_returning_home[e] = 0
 
 ai_newdest_time[e] = -1
 
 ai_cover_on[e] = 0
 
 ai_alerted_spoken[e] = 0
 
   
 
end
 
 
 
function ai_way_main(e)
 if g_Entity[e]['health'] <= 0 then

Score = Score + 1
Bullet  = Bullet  + 1
    Accuracy = Score / Bullet * 100 
 Accuracy  =  tonumber(string.format("%." .. (2) .. "f", Accuracy))
Destroy(e)
ActivateIfUsed(e)
end
 EntObjNo = g_Entity[e]['obj'];
 
 MoveUp(e,1)
 
 -- Detect player distance (note: possible optimization here)
 
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
 
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
 
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
 
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 
 
 if ai_soldier_state[e] == "patrol" then

  -- Try and find a close path to patrol, just check once for it
 
  if ai_soldier_pathindex[e] == -1 then
    ai_soldier_pathindex[e] = -2
    CharacterControlArmed(e)

   -- 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 < 50 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
 
 --if g_Entity[e]['health'] < 100 then
 
--  SetCharacterToRun(e)
 
--  ModulateSpeed(e,1.3)
 
--  ai_ran_to_cover[e] = 1
 
--  AISetEntityControl(EntObjNo,AI_MANUAL);
 
--  AIEntityMoveToCover(EntObjNo,g_PlayerPosX,g_PlayerPosZ);
 
-- end
 
end

function  target_exit(e)
end

function  target_exit(e)
Score = Score + 1
Bullet  = Bullet  + 1
    Accuracy = Score / Bullet * 100 
 Accuracy  =  tonumber(string.format("%." .. (2) .. "f", Accuracy))
end

function ai_way_exit(e)
Score = Score + 1
Bullet  = Bullet  + 1
    Accuracy = Score / Bullet * 100 
 Accuracy  =  tonumber(string.format("%." .. (2) .. "f", Accuracy))
end

-- Create local variable file and link it to slotX.dat
   local file = io.open("slot" .. activeSlot .. ".dat", "w")
   -- Write player data and custom variables to file
   file:write(
    g_PlayerHealth .. "\n" ..
    g_PlayerLives .. "\n" ..    
    g_PlayerPosX .. "\n" .. 
    g_PlayerPosY .. "\n" ..
    g_PlayerPosZ .. "\n" .. 
    g_PlayerAngX .. "\n" ..
    g_PlayerAngY .. "\n" ..
    g_PlayerAngZ .. "\n" ..
    g_First .. "\n" ..
    g_Second  .. "\n" ..
    g_Third  .. "\n" ..
    g_Fourth .. "\n")
   -- Write the table Counter to file
   for i = 1,NumCounters do
    file:write(Counter[i] .. "\n")
   end
   -- Save file to disk
   file:close()

if file == nil then
    Prompt("No saved game in slot " .. activeSlot .. ".")
   -- If slotx.dat does exist, load previous data from file
   else
    -- Load player health and lives
    local fHealth = file:read("*n", "*l")
    local fLives = file:read("*n", "*l")
    -- Load player position (these can't be used in current GameGuru version beause the neccessary LUA commands don't exist)
    -- Just read the data and move on to lines that matter
    local fPosX = file:read("*n", "*l")
    local fPoxY = file:read("*n", "*l")
    local fPosZ = file:read("*n", "*l")
    local fAngX = file:read("*n", "*l")
    local fAngY = file:read("*n", "*l")
    local fAngZ = file:read("*n", "*l")
    -- Load and set global variables (old version stuff)
    g_First = file:read("*n", "*l")
    g_Second = file:read("*n", "*l")
    g_Third = file:read("*n", "*l")
    g_Fourth = file:read("*n", "*l")
    -- Load and set counters
    for i = 1,NumCounters do
     Counter[i] = file:read("*n", "*l")
    end

-- Create local variable file and link it to score.text
   local file = io.open("score.txt", "w")
   -- Write score to file if it's higher than highscore
 if highscore == nil or score > highscore then
   file:write(score)
end
 file:close()

local file = io.open("score.txt", "r")
   -- If score.txt doesn't exist, return nil
   if file == nil then
    Prompt("No saved scores")
   -- If score.txt does exist, load previous data from file
   else
    -- Load player score
    local highscore = file:read("*n", "*l") --not 100% sure on the exact variables needed here but i assume this is ok
file:close()