function AffDiag()
    aff = {}
    Aff = {}
    for k, v in ipairs(gmcp.Char.Afflictions.List) do
        if gmcp.Char.Afflictions.List[k]["name"] ~= "blindness" and gmcp.Char.Afflictions.List[k]["name"] ~= "deafness" and gmcp.Char.Afflictions.List[k]["name"] ~= "insomnia" then
      if table.contains(variedAffnames, gmcp.Char.Afflictions.List[k]["name"]) then
        Aff[variedAffNames[gmcp.Char.Afflictions.List[k]["name"]]] = true
      else
             aff[gmcp.Char.Afflictions.List[k]["name"]] = true
             Aff[gmcp.Char.Afflictions.List[k]["name"]] = true
      end
    end
    end
end


function DefList()
    Def = {}
    for k, v in ipairs(gmcp.Char.Defences.List) do
        Def[gmcp.Char.Defences.List[k]["name"]] = true
    end
end

variedAffNames = {

    ["burn1"] = "burning (1)",
  ["burn2"] = "burning (2)",
  ["burn3"] = "burning (3)",
  ["burn4"] = "burning (4)",
  ["burn5"] = "burning (5)",