//::////////////////////////////////////////////////////////////////////////////
//:: Name XP award on disarm of trap
//:: FileName se_on_disarmed  v2.6
//:: Copyright (c) 2006 Melnibone Corp.
//::////////////////////////////////////////////////////////////////////////////
/*
    - Basic OnDisarm award XP script.
    - Award XP to the disarmer/recoverer based on the disarm DC
*/
//::////////////////////////////////////////////////////////////////////////////
//:: Created By: Sir Elric
//:: Created On: 19th June, 2006
//:: Event Used: OnDisarm
//:: Patch     : 1.67 or above required
//::////////////////////////////////////////////////////////////////////////////
#include "se_inc_resp_trap"
#include "prc_class_const"

void main()
{
   object oSelf = OBJECT_SELF;
   
	int iRogue	= GetLevelByClass(CLASS_TYPE_ROGUE, oSelf)
				+ GetLevelByClass(CLASS_TYPE_SCOUT, oSelf)
				+ GetLevelByClass(CLASS_TYPE_BEGUILER, oSelf)
				+ GetLevelByClass(CLASS_TYPE_NINJA, oSelf)
				+ GetLevelByClass(CLASS_TYPE_FACTOTUM, oSelf)
				+ GetLevelByClass(CLASS_TYPE_PSYCHIC_ROGUE, oSelf);   

   // If set to false there is no disarm xp reward
   if(SE_DISARM_XP_ACTIVE == FALSE) return;

   int nXP;
   object oTrapCreator = GetTrapCreator(oSelf);
   object oPC = GetLastDisarmed();

   if(GetIsPC(oPC) == FALSE) return;

   if(SE_DISARM_XP_ROGUE_ONLY)
   {
      // If disarmed via the Find Trap spell no xp award
      if(GetLocalInt(oSelf, "DISARMED_BY_SPELL") == TRUE)
      {
         SE_Debug("Disarmed by Find Trap spell. No Disarm XP awarded.");
         SetLocalInt(oSelf, "DISARMED_BY_SPELL", FALSE);
         return;
      }

      // Only reward Rogues
      if(iRogue == 0)
      {
         SE_Debug("Must have at least 1 level of Rogue to receive disarm XP or 2 levels if multiclass."
              + " No Disarm XP awarded.");

         return;
      }

      // Stop the would be exploiters using find trap spell and 1 level of rogue
      if(iRogue == 1 && GetHitDice(oPC) != 1)
      {
         SE_Debug("Multiclass chars must have at least 2 Rogue levels to receive disarm XP."
              + " No disarm XP awarded.");

         return;
      }
   }

   // Create a unique ID for the disarmer
   string sID = GetPCPlayerName(oPC) + GetName(oPC);

   // Check the disarmer hasn't done this one before
   if(SE_DISARM_XP_ONCE_ONLY == FALSE || GetLocalString(oSelf, "DISARMED_BY_THIS_PC") != sID)
   {
         if(GetIsPC(oPC) && !GetIsPC(oTrapCreator))
         {
            nXP = GetTrapDisarmDC(oSelf);
            nXP *= SE_DISARM_XP_MULTIPLIER;
            nXP /= SE_DISARM_XP_DIVIDER;
            GiveXPToCreature(oPC, nXP);

            // Set this object as having awarded the current disarmer
            if(SE_DISARM_XP_ONCE_ONLY == TRUE)
            SetLocalString(oSelf, "DISARMED_BY_THIS_PC", sID);

            FloatingTextStringOnCreature(IntToString(nXP)
                + " XP awarded for disarming this trap", oPC, TRUE);
         }
         else
         {
            SE_Debug("PC set trap. No disarm XP awarded.");
         }
   }
   else
   {
         SE_Debug("You only get XP once from each placeable. No Disarm XP awarded.");
   }
}