PRC8/nwn/nwnprc/trunk/spells/sp_nec_aware.nss

//::///////////////////////////////////////////////
//:: Name      Necrotic Awareness
//:: FileName  sp_nec_aware.nss
//:://////////////////////////////////////////////
/** @file
Necrotic Awareness
Necromancy
Level: Clr 1, sor/wiz 1
Components: V S, F
Casting Time: 1 standard action
Range: 60 ft.
Area: Cone-shaped emanation
Duration: Concentration, up to 1 min./level (D)
Saving Throw: None
Spell Resistance: No

You can sense the presence of creatures who bear 
a necrotic cyst (see spell of the same name). The
amount of information revealed depends on how long 
you remain within range of a creature that triggers 
your cyst awareness:

1st Round: Presence or absence of creatures with 
necrotic cysts.

2nd Round: Number of creatures bearing
necrotic cysts in the area.

3rd Round: The location ofeach creature bearing a 
necrotic cyst. If a cyst-bearer is outside your 
line of sight, then you discern its direction but 
not its exact location.
*/
//  Author:   Tenjac
//  Created:  12/16/05
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
 
#include "prc_alterations"
#include "prc_inc_spells"
 
void RoundThree(object oPC, location lTarget);
void RoundTwo(object oPC, location lTarget);
void RoundOne(object oPC, location lTarget);
 
void RoundThree(object oPC, location lTarget)
{
        //get first 
        object oTest = MyFirstObjectInShape(SHAPE_SPELLCONE, 20.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
        
        //loop
        while(GetIsObjectValid(oTest))
        {
                //Check for presence
                if(GetHasNecroticCyst(oTest))
                {
                        //                              Name                   has a necrotic cyst
                        FloatingTextStringOnCreature(GetName(oTest) + " " +  GetStringByStrRef(16829323) + ".", oPC, FALSE);
                }
                //get next
                oTest = MyNextObjectInShape(SHAPE_SPELLCONE, 20.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
        }
                
        //Repeat from round one
        //DelayCommand(6.0f,RoundThree(oPC, lTarget));
}
 
void RoundTwo(object oPC, location lTarget)
{
        int nCount=0;
        
        //get first 
        object oTest = MyFirstObjectInShape(SHAPE_SPELLCONE, 20.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
        
        //loop to check all
        while(GetIsObjectValid(oTest))
        {
                //Check for presence
                if(GetHasNecroticCyst(oTest))
                {
                        nCount++;
                }
                //next object
                oTest = MyNextObjectInShape(SHAPE_SPELLCONE, 20.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
        }
                                     //You detect the presence of               count                         necrotic cysts
        FloatingTextStringOnCreature(GetStringByStrRef(16832001) + " " + IntToString(nCount) + " " + GetStringByStrRef(16829322) + ".", oPC, FALSE);
                       
        //Schedule next round
        DelayCommand(6.0f, RoundThree(oPC, lTarget));
}
 
void RoundOne(object oPC, location lTarget)
{
        //get first 
        object oTest = MyFirstObjectInShape(SHAPE_SPELLCONE, 20.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
        
        //loop to check all
        while(GetIsObjectValid(oTest))
        {
                //Check for presence
                if(GetHasNecroticCyst(oTest))
                {
                        FloatingTextStringOnCreature(GetStringByStrRef(16832001) + " " + GetStringByStrRef(16829322) + ".", oPC, FALSE);
                        
                        //Schedule next round
                        DelayCommand(6.0f, RoundTwo(oPC, lTarget));
                        
                        //abort; finding one is enough.
                        return;
                }
                
        }
               
        //if concentration is broken, abort
              
        //Re-run round 1 if nothing found
        DelayCommand(6.0f, RoundOne(oPC, lTarget));
}
 
void main()
{              
        PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
        
        //spellhook
        if (!X2PreSpellCastCode())
        {
                // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
                return;
        }
        //vars
        object oPC = OBJECT_SELF;
                
        //Check for castability
        if(!GetCanCastNecroticSpells(oPC))
        {
                return;
        }
                        
        //location
        location lTarget = PRCGetSpellTargetLocation();
        if(GetIsObjectValid(PRCGetSpellTargetObject()))
        lTarget = GetLocation(PRCGetSpellTargetObject());
                
        //Detect
        RoundOne(oPC, lTarget);
        
        PRCSetSchool();  
}