// rts_it_op10
#include "rtsh_multiplay"

void main()
{
   object oPC=GetItemActivator();
   object oMod=GetModule();
   object oItem=GetItemActivated();
   int nSouls=GetLocalInt(oMod,"nSoulLeechSouls");
   location lLoc=GetItemActivatedTargetLocation();
   effect eBeam=EffectBeam(VFX_BEAM_EVIL,oPC,BODY_NODE_HAND);
   object oReceptacle;
   string sID;
   object oLeader;
   int nSoulsR;
   int nDif;
   if (GetItemInSlot(INVENTORY_SLOT_RIGHTRING,oPC)==oItem||GetItemInSlot(INVENTORY_SLOT_LEFTRING,oPC)==oItem)
   { // equipped
     oReceptacle=GetNearestObjectToLocation(OBJECT_TYPE_TRIGGER,lLoc);
     if (GetIsObjectValid(oReceptacle))
     {
       if(GetDistanceBetweenLocations(GetLocation(oReceptacle),lLoc)<4.0)
       {
         if (nSouls<5)
         { // room for more souls
           ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,eBeam,lLoc,3.0);
           sID=GetName(oReceptacle);
           oLeader=GetLocalObject(oMod,"oTeamLead"+sID);
           nSoulsR=fnGetTeamSouls(oLeader);
           if (nSoulsR>0)
           { // has souls
             nDif=5-nSouls;
             if (nDif<=nSoulsR)
             {
               nSouls=5;
               nSoulsR=nSoulsR-nDif;
               fnSetTeamSouls(oLeader,nSoulsR);
               SendMessageToPC(oLeader,GetName(oPC)+" is stealing souls from your soul receptacle.");
             }
             else
             {
               nSouls=nSouls+nSoulsR;
               fnSetTeamSouls(oLeader,0);
               SendMessageToPC(oLeader,GetName(oPC)+" is stealing souls from your soul receptacle.");
             }
             SetLocalInt(oMod,"nSoulLeechSouls",nSouls);
           } // has souls
           else { SendMessageToPC(oPC,"There are no souls in this receptacle."); }
         } // room for more souls
         else { SendMessageToPC(oPC,"Soul Leech currently stores "+IntToString(nSouls)+" and can only take souls from a soul receptacle when it has less than 5 souls."); }
       }
       else { SendMessageToPC(oPC,"The location you indicated does not seem to be near a soul receptacle."); }
     }
     else { SendMessageToPC(oPC,"This must be targetted near a soul receptacle."); }
   } // equipped
   else { SendMessageToPC(oPC,"You must be wearing the ring to use it."); }
}