/**
 * Thrallherd: Thrallherd
 * 16/04/2005
 * Stratovarius
 
 Type of Feat: Class Specific
 Prerequisite: Thrallherd level 1.
 Specifics: A thrallherd who has just entered the class sends out a subtle psychic call for servants, and that call is answered. 
 The thrall who answers the call has a level equal to the following chart. Leadership score is calculated by adding Thrallherd's 
 total level to its Cha modifier and its Thrallherd level. A level 5 Psion/5 thrallherd, with a +5 Cha modifier, has a leadership 
 score of 20. A thrallherd can use this power 1/day and may only have 1 Thrall from this power.
 
 Leadership   Thrall Level
 1                   0
 2                   1
 3                   2
 4                   3
 5                   3
 6                   4
 7                   5
 8                   5
 9                   6
 10                 7
 11                 7
 12                 8
 13                 9
 14                 10
 15                 10
 16                 11
 17                 12
 18                 12
 19                 13
 20                 14
 21                 15
 22                 15
 23                 16
 24                 17
 25+               17
Use: Selected.
 
 */

#include "inc_rand_equip"
#include "prc_alterations"
#include "nw_o2_coninclude"

void CleanCopy(object oImage)
{
     SetLootable(oImage, FALSE);
     object oItem = GetFirstItemInInventory(oImage);
     while(GetIsObjectValid(oItem))
     {
        SetDroppableFlag(oItem, FALSE);
        SetItemCursedFlag(oItem, TRUE);
        AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyWeightReduction(IP_CONST_REDUCEDWEIGHT_10_PERCENT), oItem);
        SetIdentified(oItem, TRUE);
        oItem = GetNextItemInInventory(oImage);
     }
     int i;
     for(i=0;i<NUM_INVENTORY_SLOTS;i++)//equipment
     {
        oItem = GetItemInSlot(i, oImage);
        SetDroppableFlag(oItem, FALSE);
        AddItemProperty(DURATION_TYPE_PERMANENT, ItemPropertyWeightReduction(IP_CONST_REDUCEDWEIGHT_10_PERCENT), oItem);
        SetIdentified(oItem, TRUE);
        SetItemCursedFlag(oItem, TRUE);
     }
     TakeGoldFromCreature(GetGold(oImage), oImage, TRUE);
}

void main()
{
    if(GetPRCSwitch(PRC_THRALLHERD_LEADERSHIP))
    {
        FloatingTextStringOnCreature("Please select your thrall via the cohort system.", OBJECT_SELF, FALSE);
        return;
    }

    int nMax = GetMaxHenchmen();

    int i = 1;
    object oHench = GetAssociate(ASSOCIATE_TYPE_HENCHMAN, OBJECT_SELF, i);

    if (GetTag(oHench) == "psi_thrall_thrall")
    {
        FloatingTextStringOnCreature("You already have a thrall", OBJECT_SELF, FALSE);
        return;
    }

    while (GetIsObjectValid(oHench))
    {
        i += 1;
        oHench = GetAssociate(ASSOCIATE_TYPE_HENCHMAN, OBJECT_SELF, i);
        if (GetTag(oHench) == "psi_thrall_thrall")
    {
            FloatingTextStringOnCreature("You already have a thrall", OBJECT_SELF, FALSE);
            return;
        }
    }

    if (i >= nMax) SetMaxHenchmen(i+1);

    effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_UNDEAD);

   int nHD = GetHitDice(OBJECT_SELF);
   if (DEBUG) FloatingTextStringOnCreature("HD: " + IntToString(nHD), OBJECT_SELF, FALSE);
   int nClass = GetLevelByClass(CLASS_TYPE_THRALLHERD, OBJECT_SELF);
   if (DEBUG) FloatingTextStringOnCreature("Thrallherd Level: " + IntToString(nClass), OBJECT_SELF, FALSE);
   int nCha = GetAbilityModifier(ABILITY_CHARISMA, OBJECT_SELF);
   if (DEBUG) FloatingTextStringOnCreature("Cha Modifier: " + IntToString(nCha), OBJECT_SELF, FALSE);

   int nLead = nHD + nClass + nCha;
   int nLevel;

   if (nLead == 1) nLevel = 0;
   if (nLead == 2) nLevel = 1;
   if (nLead == 3) nLevel = 2;
   if (nLead == 4) nLevel = 3;
   if (nLead == 5) nLevel = 3;
   if (nLead == 6) nLevel = 4;
   if (nLead == 7) nLevel = 5;
   if (nLead == 8) nLevel = 5;
   if (nLead == 9) nLevel = 6;
   if (nLead == 10) nLevel = 7;
   if (nLead == 11) nLevel = 7;
   if (nLead == 12) nLevel = 8;
   if (nLead == 13) nLevel = 9;
   if (nLead == 14) nLevel = 10;
   if (nLead == 15) nLevel = 10;
   if (nLead == 16) nLevel = 11;
   if (nLead == 17) nLevel = 12;
   if (nLead == 18) nLevel = 12;
   if (nLead == 19) nLevel = 13;
   if (nLead == 20) nLevel = 14;
   if (nLead == 21) nLevel = 15;
   if (nLead == 22) nLevel = 15;
   if (nLead == 23) nLevel = 16;
   if (nLead == 24) nLevel = 17;
   if (nLead >= 25) nLevel = 17;

   if (DEBUG) FloatingTextStringOnCreature("Leadship Score: " + IntToString(nLead), OBJECT_SELF, FALSE);
   if (DEBUG) FloatingTextStringOnCreature("Spell ID: " + IntToString(GetSpellId()), OBJECT_SELF, FALSE);

   object oCreature = CreateObject(OBJECT_TYPE_CREATURE, "psi_thrall_sorc", GetSpellTargetLocation(), FALSE, "psi_thrall_thrall");
   AddHenchman(OBJECT_SELF, oCreature);
   ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, GetLocation(oCreature));

   int n;
   for(n=1;n<nLevel;n++)
   {
    LevelUpHenchman(oCreature, CLASS_TYPE_INVALID, TRUE);
   }
   for(n=1;n<nLevel;n++)
   {
    GenerateBossTreasure(oCreature);
   }

   AssignCommand(oCreature, ClearAllActions());
   AssignCommand(oCreature, ActionEquipMostDamagingRanged());
   AssignCommand(oCreature, ActionEquipMostEffectiveArmor());
   EquipMisc(oCreature);
   CleanCopy(oCreature);

   SetMaxHenchmen(nMax);
}