// hc_grenade
// Archaegeo 12 July 2002
// handles grenadelike attacks (oil flasks, alchemists fire, etc)
// Modified by Celedhros, 29 July 2002
// Added PHB deviation rules, enhanced visual effects, and various bug fixes
#include "prc_inc_racial"
#include "hc_text_grenade"
void main()
{
object oPC = OBJECT_SELF;
object oItem = GetLocalObject(oPC,"GRENADE");
object oTarget = GetLocalObject(oPC,"GRENADETARGET");
object oSplashTarget;
object oDeviation;
float nRangeInc;
float fDirection = GetFacing(oPC);
float fDist;
float fDeviation;
float fDeviateDist;
int iDirection;
location lTarget;
location lPC;
vector vTarget;
vector vDeviation;
effect eVis;
effect eExplode;
effect eDam;
effect eSplash;
string sNM = GetTag(oItem);
// Set Range Increment in meters
nRangeInc = FeetToMeters(10.0);
if (sNM == "hc_thunder")
nRangeInc = FeetToMeters(20.0);
// Determine if the target is an object or location and apply the correct function
if(oTarget == OBJECT_INVALID)
{
lTarget = GetItemActivatedTargetLocation();
} else {
lTarget = GetLocation(oTarget);
}
lPC = GetLocation(oPC);
fDist = GetDistanceBetweenLocations(lPC, lTarget);
// Test for maximum range
if(fDist > 5.0*nRangeInc)
{
SendMessageToPC(oPC, THROWLIMIT);
return;
}
// Determine damage and effect types
if(sNM == "hc_holywater")
{
eVis = EffectVisualEffect(VFX_IMP_HEALING_S);
eExplode = EffectVisualEffect(VFX_IMP_PULSE_WATER);
eDam = EffectDamage(d4(2), DAMAGE_TYPE_DIVINE);
eSplash = EffectDamage(d3(), DAMAGE_TYPE_DIVINE);
} else if(sNM == "hc_acidflask") {
eVis = EffectVisualEffect(VFX_IMP_ACID_S);
eDam = EffectDamage(d8(), DAMAGE_TYPE_ACID);
eSplash = EffectDamage(d3(), DAMAGE_TYPE_ACID);
} else if(sNM == "hc_thunder"){
eVis = EffectVisualEffect(VFX_IMP_SONIC);
eExplode = EffectVisualEffect(VFX_IMP_PULSE_WIND);
eDam = EffectDeaf();
eSplash = EffectDeaf();
} else if(sNM == "hc_tangle") {
eVis = EffectVisualEffect(VFX_IMP_SLOW);
eDam = EffectEntangle();
}
else {
eVis = EffectVisualEffect(VFX_IMP_FLAME_M);
eExplode = EffectVisualEffect(VFX_IMP_PULSE_FIRE);
eDam = EffectDamage(d6(), DAMAGE_TYPE_FIRE);
eSplash = EffectDamage(1, DAMAGE_TYPE_FIRE);
}
// Ranged touch attack for grenadelike weapons
int touchAttack = TouchAttackRanged(oTarget, 1);
if(touchAttack == 1 || touchAttack == 2)
{
if(sNM == "hc_tangle")
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDam, oTarget, TurnsToSeconds(1));
//Duration of standing still (assumes that the player takes 3 rounds removing themself from the "goo")
int iTangle = 3;
if (d20()+ GetAbilityModifier(ABILITY_STRENGTH, oTarget) > 27)
iTangle = 1;
//Reflex Save to avoid 90% movement decrease (standing still)
if (!ReflexSave(oTarget, 15))
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectMovementSpeedDecrease(90), oTarget, RoundsToSeconds(iTangle));
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_IMP_SLOW), oTarget, RoundsToSeconds(iTangle));
DestroyObject(oItem);
return;
}
if(sNM == "hc_oilflask" && Random(100) < 50)
{
SendMessageToPC(oPC, FAILIGNITE);
DestroyObject(oItem);
return;
}
if(sNM == "hc_holywater" && MyPRCGetRacialType(oTarget) != RACIAL_TYPE_UNDEAD)
{
SendMessageToPC(oPC, NOEFFECT);
DestroyObject(oItem);
}
else {
if (sNM == "hc_thunder")
{
if (!FortitudeSave(oTarget,15))
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eDam, oTarget);
}
else {
ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget);
// Second round 1d6 Damage for Oil and Alchemist's Fire with Reflex DC15 to avoid
if (sNM != "hc_tangle" && sNM != "hc_thunder" &&
sNM != "hc_acidflask" && sNM != "hc_holywater" && !ReflexSave(oTarget, 15, SAVING_THROW_TYPE_FIRE))
{
eDam = EffectDamage(d6(), DAMAGE_TYPE_FIRE);
DelayCommand(6.0,ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget));
}
}
}
// Grenadelike weapon deviation per PHB pg. 138
} else if (touchAttack == 0 && oTarget != OBJECT_INVALID) {
vTarget = GetPositionFromLocation(lTarget);
oDeviation = GetAreaFromLocation(lTarget);
fDeviation = GetFacingFromLocation(lTarget);
fDeviateDist = IntToFloat(d6());
fDeviateDist = FeetToMeters(fDeviateDist) + (fDist/nRangeInc);
fDirection = fDirection/45;
iDirection = FloatToInt(fDirection);
if (iDirection == 8) iDirection = 0;
iDirection = iDirection + d8();
if (iDirection > 8) iDirection = iDirection - 8;
switch (iDirection)
{
case 1:
vDeviation = Vector(fDeviateDist,0.0,0.0);
break;
case 2:
fDeviateDist = sqrt((pow(fDeviateDist,2.0)/2));
vDeviation = Vector(fDeviateDist,(0.0-fDeviateDist),0.0);
break;
case 3:
vDeviation = Vector(0.0,(0.0-fDeviateDist),0.0);
break;
case 4:
fDeviateDist = sqrt((pow(fDeviateDist,2.0)/2));
vDeviation = Vector((0.0-fDeviateDist),(0.0-fDeviateDist),0.0);
break;
case 5:
vDeviation = Vector((0.0-fDeviateDist),0.0,0.0);
break;
case 6:
fDeviateDist = sqrt((pow(fDeviateDist,2.0)/2));
vDeviation = Vector((0.0-fDeviateDist),fDeviateDist,0.0);
break;
case 7:
vDeviation = Vector(0.0,fDeviateDist,0.0);
break;
case 8:
fDeviateDist = sqrt((pow(fDeviateDist,2.0)/2));
vDeviation = Vector(fDeviateDist,fDeviateDist,0.0);
break;
}
vDeviation = vDeviation + vTarget;
lTarget = Location(oDeviation,vDeviation,fDeviation);
}
// Apply visual effects at target location
if (sNM == "hc_holywater" && MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD && touchAttack == 1)
{
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eVis, lTarget);
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eExplode, lTarget);
} else if (sNM != "hc_holywater"){
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eVis, lTarget);
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eExplode, lTarget);
} else {
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eExplode, lTarget);
}
SignalEvent(oTarget, EventSpellCastAt(oPC, SPELL_MAGIC_MISSILE));
// Apply splash damage radius and get first target
float nSplashRange = FeetToMeters(5.0);
if (sNM == "hc_thunder")
nSplashRange = FeetToMeters(10.0);
oSplashTarget = GetFirstObjectInShape(SHAPE_SPHERE, nSplashRange, lTarget, TRUE, OBJECT_TYPE_CREATURE);
while(GetIsObjectValid(oSplashTarget))
{
// If PC makes successful touch attack, do not apply splash damage to target
if (oTarget == oSplashTarget && touchAttack == 1)
{
oSplashTarget = GetNextObjectInShape(SHAPE_SPHERE, nSplashRange, lTarget, TRUE, OBJECT_TYPE_CREATURE);
} else if (sNM!="hc_holywater"){
// Apply splash damage to valid target in radius and get next valid target
if (sNM == "hc_thunder") //Thunderstone Deafness
{
if (!FortitudeSave(oSplashTarget, 15))
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eSplash, oSplashTarget);
}
else
ApplyEffectToObject(DURATION_TYPE_INSTANT, eSplash, oSplashTarget);
SignalEvent(oSplashTarget, EventSpellCastAt(oPC, SPELL_MAGIC_MISSILE));
oSplashTarget = GetNextObjectInShape(SHAPE_SPHERE, nSplashRange, lTarget, TRUE, OBJECT_TYPE_CREATURE);
} else if (sNM == "hc_holywater" && MyPRCGetRacialType(oTarget) == RACIAL_TYPE_UNDEAD){
// Apply holy water splash damage to valid target in radius and get next target
ApplyEffectToObject(DURATION_TYPE_INSTANT, eSplash, oSplashTarget);
SignalEvent(oSplashTarget, EventSpellCastAt(oPC, SPELL_MAGIC_MISSILE));
oSplashTarget = GetNextObjectInShape(SHAPE_SPHERE, nSplashRange, lTarget, TRUE, OBJECT_TYPE_CREATURE);
} else {
// Get next valid target if holy water splash target is not undead
oSplashTarget = GetNextObjectInShape(SHAPE_SPHERE, nSplashRange, lTarget, TRUE, OBJECT_TYPE_CREATURE);
}
}
DestroyObject(oItem);
return;
}