Jaysyn/PRC8
1
0
Fork 0
Code Issues 21 Pull Requests Packages Projects Releases 1 Wiki Activity

Clear out experimental .35 files

Browse Source 
Clear out experimental .35 files
This commit is contained in:
Jaysyn904
2024-02-11 13:04:14 -05:00
parent 2112b92e24
commit 618cd42b82
22356 changed files with 0 additions and 1248956 deletions
Download Patch File Download Diff File Expand all files Collapse all files

149
nwn/nwnprc/trunk/spells/sp_nec_aware.nss
View File

@@ -1,149 +0,0 @@
//::///////////////////////////////////////////////
//:: 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();
}