Expression    : <no expression>
Function      : CScriptEngine::lua_error
File          : ..\xrServerEntities\script_engine.cpp
Line          : 189
Description   : fatal error
Arguments     : LUA error: ...cop\gamedata\scripts\sim_squad_scripted.script:341: attempt to index global 'sim_squad_fighting' (a nil value)

stack trace:

0023:00563DCC xrCore.dll, xrDebug::fatal()
0023:05751D6C xrGame.dll, CDialogHolder::UseIndicators()
0023:0575372A xrGame.dll, CDialogHolder::UseIndicators()
0023:00448FCE xrEngine.exe, CSheduler::ProcessStep()
0023:00449103 xrEngine.exe, CSheduler::ProcessStep()

local sys_ini = system_ini()
local ini = ini_file("creatures\\game_relations.ltx")

---[[

local relations_list = {
    ["bandit"]        = 1,
    ["dolg"]          = 2,
    ["ecolog"]        = 3,
    ["freedom"]       = 4,
    ["killer"]        = 5,
    ["army"]         = 6,
    ["monolith"]      = 7,
    ["monster"]       = 8,
    ["stalker"]       = 9,
    ["zombied"]       = 10,
    ["csky"]          = 11,
}

local monster_list = {
    ["boar"]   = 1,
    ["bloodsucker"]  = 2,
    ["flesh"]   = 3,
    ["dog"]    = 4,
    ["pseudodog"]  = 5,
    ["cat"]    = 6,
    ["chimera"]   = 7,
    ["giant"]   = 8,
    ["zombie"]   = 9,
    ["burer"]   = 10,
    ["controller"]  = 11,
    ["poltergeist"]  = 12,
    ["snork"]   = 13,
    ["fracture"]  = 14,
    ["rat"]    = 15,
    ["tushkano"]  = 16,
}

local relations_table = {
--                    bandit|dolg|eco|freedom|killer|army|mono|monster|stalker|zomb|csky
["bandit"]        = {   0,    1,   1,     0,    0,   0,    0,     1,     1,     1,   1},
["dolg"]          = {   1,    0,   0,     1,    1,   0,    1,     1,     0,     1,   0},
["ecolog"]        = {   0,    0,   0,     0,    0,   0,    0,     0,     0,     0,   0},
["freedom"]       = {   0,    1,   0,     0,    1,   1,    1,     1,     0,     1,   0},
["killer"]        = {   0,    1,   0,     1,    0,   1,    1,     1,     1,     1,   1},
["army"]          = {   1,    0,   0,     1,    1,   0,    1,     1,     0,     1,   0},
["monolith"]      = {   1,    1,   1,     1,    1,   1,    0,     0,     1,     0,   1},
["monster"]       = {   1,    1,   1,     1,    1,   1,    0,     0,     1,     0,   1},
["stalker"]       = {   1,    0,   0,     0,    0,   0,    1,     1,     0,     1,   0},
["zombied"]       = {   1,    1,   1,     1,    1,   1,    0,     0,     1,     0,   1},
["csky"]          = {   1,    0,   0,     0,    0,   0,    1,     1,     0,     1,   0},
}

local monster_relations_table = {
--          boar, bloodsucker,  flesh,   dog, pseudodog, cat,   chimera, giant, zombie, burer, controller, poltergeist, snork, fracture, rat, tushkano
["boar"]   = {    0,  1,   0,  1,  1,  1,  1,  1,  0,  1,  0,   0,   1,  1,  0,  0,},
["bloodsucker"]  = {    1,  0,   1,  1,  1,  0,  1,  1,  0,  0,  0,   0,   0,  1,  0,  0,},
["flesh"]   = {    0,  1,   0,  1,  1,  1,  1,  1,  0,  1,  0,   0,   1,  1,  0,  0,},
["dog"]    = {    1,  1,   1,  0,  0,  1,  1,  1,  1,  1,  0,   0,   1,  1,  0,  0,},
["pseudodog"]  = {    1,  1,   1,  0,  0,  1,  1,  1,  1,  1,  0,   0,   1,  1,  0,  0,},
["cat"]    = {    1,  0,   1,  1,  1,  0,  0,  1,  0,  0,  0,   0,   0,  1,  0,  0,},
["chimera"]   = {    1,  1,   1,  1,  1,  0,  0,  1,  0,  1,  1,   0,   1,  1,  0,  0,},
["giant"]   = { 1,  1,   1,  1,  1,  1,  1,  0,  0,  1,  0,   0,   1,  0,  0,  0,},
["zombie"]   = {    0,  0,   0,  1,  1,  0,  0,  0,  0,  0,  0,   0,   0,  0,  0,  0,},
["burer"]   = {    1,  0,   1,  1,  1,  0,  1,  1,  0,  0,  0,   0,   0,  0,  0,  0,},
["controller"]  = {    0,  0,   0,  0,  0,  0,  1,  0,  0,  0,  0,   0,   0,  0,  0,  0,},
["poltergeist"]  = {    0,  0,      0,  0,  0,  0,  0,  0,  0,  0,  0,   0,   0,  0,  0,  0,},
["snork"]   = {    1,  0,   1,  1,  1,  0,  1,  1,  0,  0,  0,   0,   0,  0,  0,  0,},
["fracture"]  = {    1,  1,   1,  1,  1,  1,  1,  0,  0,  0,  0,   0,   0,  0,  0,  0,},
["rat"]    = {    0,  0,   0,  0,  0,  0,  0,  0,  0,  0,  0,   0,   0,  0,  0,  0,},
["tushkano"]  = {    0,  0,   0,  0,  0,  0,  0,  0,  0,  0,  0,   0,   0,  0,  0,  0,},
}
--]]
local community_power_list = {
    ["stalker"] = 1,
    ["csky"] = 1.2,
    ["bandit"] = 1.5,
    ["duty"] = 2.0,
    ["freedom"] = 2.0,
    ["army"] = 4.0,
    ["ecolog"] = 1,
    ["merc"] = 3.0,
    ["zombied"] = 0.7,
    ["monolith"] = 4.0,
}

local rank_power_list = {
    ["novice"] = 1,
    ["advanced"] = 1.3,
    ["veteran"] = 1.5,
    ["elite"] = 1.8,
    ["sniper"] = 1.6,
}

local monster_power_list = {
    ["rat"] = 0.01,
    ["tushkano"] = 0.01,
    ["dog"] = 0.7,
    ["pseudodog"] = 1.5,
    ["psy_dog"] = 2,
    ["cat"] = 1.2,
    ["flesh"] = 0.7,
    ["boar"] = 1.4,
    ["zombie"] = 1.3,
    ["fracture"] = 1.5,
    ["snork"] = 1.7,
    ["poltergeist"] = 4,
    ["bloodsucker"] = 3,
    ["burer"] = 4,
    ["controller"] = 5,
    ["chimera"] = 6,
    ["gigant"] = 8,
}

function get_squad_relations(squad1, squad2)

    local relation = 1

    local name1 = squad1:name()
    local name2 = squad2:name()
    local comm1 = squad_community_by_behaviour[squad1.player_id]
    local comm2 = squad_community_by_behaviour[squad2.player_id]
  
    --if (string.find(name1,"rat") or string.find(name1,"tushkano"))  then return 0 end
    --if (string.find(name2,"rat") or string.find(name2,"tushkano"))  then return 0 end
  
  
  
    if (comm1 == comm2) and (comm1 == "monster") then
  
  local n1 = "boar"
  local n2 = "boar"
  local i1 = 1
  local i2 = 1
    
  for n,i in pairs(monster_list) do
  
   if (string.find(name1,n)) then
    i1 = i
    n1 = n
   end
   
   if (string.find(name2,n)) then
    i2 = i
    n2 = n
   end
  end
  relation = monster_relations_table[n1][i2]
    else
  local id1 = relations_list[comm1]
  local id2 = relations_list[comm2]
  
  relation = relations_table[comm1][id2]
    end
    else
    return  relation*1000
end

function get_squad_power(se_squad)

    local power = 0
    local name = se_squad:name()
    
    if (string.find(name,"sim_squad")) then
  for n,k in pairs(community_power_list) do
   if (string.find(name,n)) then
    power = k
   end    
  end
  for n,k in pairs(rank_power_list) do
   if (string.find(name,n)) then
    power = power*k
   end    
  end
    elseif (string.find(name,"simulation")) then
  for n,k in pairs (monster_power_list) do
   if (string.find(name,n)) then
    power = k
   end    
  end
    end
    
    power = power*se_squad:npc_count()
    
    return power
end

function CheckFight(squad1, squad2)

    if not (string.find(squad1:name(),"sim_squad") or string.find(squad1:name(),"simulation")) then
  return false
    end
  
    if not (string.find(squad2:name(),"sim_squad") or string.find(squad2:name(),"simulation")) then
  return false
    end

    if (squad1.online == true) or (squad2.online == true) then
  return false
    end
    
    local rel = sim_squad_fighting.get_squad_relations(squad1,squad2)
    if (rel > -1000) then
  return false
    end
    
    local distance = squad1.position:distance_to_sqr(squad2.position)
    if (distance > 100) then
  return false
    end
    
    
    local power1 = sim_squad_fighting.get_squad_power(squad1)
    local power2 = sim_squad_fighting.get_squad_power(squad2)
  
    if (power1 < power2*1.3) then
  return false
    end
    
    return true
end

function InitFight(squad1,squad2)

    if not (squad1 and squad2) then return end
  
    --printf("----FIGHT----")    
    
    while (squad1:npc_count() > 0) and (squad2:npc_count() > 0) do
    
  local squad1_npcs = {}
  for k in squad1:squad_members() do
   squad1_npcs[#squad1_npcs+1] = k
  end
   
  local squad2_npcs = {}
  for k in squad2:squad_members() do
   squad2_npcs[#squad2_npcs+1] = k
  end
  
  if (#squad1_npcs == 0) or (#squad2_npcs == 0) then return end
    
  if (DEV_DEBUG_DEV) then
   --printf(squad1:name()..":x"..#squad1_npcs.." VS "..squad2:name()..":x"..#squad2_npcs)
  end
   
  local power1 = get_squad_power(squad1)*1.0
  local power2 = get_squad_power(squad2)*1.0
  local chance = 50
   
  local chance = utils.round(100*power1/(power1+power2))
  
  --printf(power1.."|"..chance.."|"..power2)
  
  if (math.random(100) < chance) then
   squad2:remove_npc(squad2_npcs[#squad2_npcs].id)
   --printf(squad2:name().."'s unit lost")
  
  else
  --end
  --if (math.random(100) > chance) then
   squad1:remove_npc(squad1_npcs[#squad1_npcs].id)
   --printf(squad1:name().."'s unit lost")
  end
    end
end