114 lines
4.1 KiB
Plaintext
114 lines
4.1 KiB
Plaintext
|
////////////////////////////////////////////////////////////////////////////////
|
||
|
|
// wazoo_s0_ropetri - Spells Out The Wazoo - Rope Trick Spell
|
||
|
|
// By Deva Bryson Winblood. 09/18/2004
|
||
|
|
////////////////////////////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
#include "x2_inc_spellhook"
|
||
|
|
|
||
|
|
///////////////////////////
|
||
|
|
// PROTOTYPES
|
||
|
|
///////////////////////////
|
||
|
|
|
||
|
|
// FILE: wazoo_s0_ropetri FUNCTION: fnCatastrophe()
|
||
|
|
// what happens when you cast a rope trick within a rope trick. :)
|
||
|
|
void fnCatastrophe(object oCaster);
|
||
|
|
|
||
|
|
////////////////////////////////////////////////////////////////////////// MAIN
|
||
|
|
void main()
|
||
|
|
{
|
||
|
|
object oCaster=OBJECT_SELF;
|
||
|
|
object oRope;
|
||
|
|
object oLink;
|
||
|
|
int nLevel=GetCasterLevel(oCaster);
|
||
|
|
int nLink;
|
||
|
|
int nTime;
|
||
|
|
vector vV;
|
||
|
|
float fF;
|
||
|
|
if (!X2PreSpellCastCode())
|
||
|
|
{
|
||
|
|
// If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (GetLocalInt(oCaster,"bIsUnderwater"))
|
||
|
|
{ // cannot use while underwater - Nov 12th, 2008 - Deva Winblood
|
||
|
|
FloatingTextStringOnCreature("** Not useable underwater **",oCaster,FALSE);
|
||
|
|
SendMessageToPC(oCaster,"The ropetrick spell fails when cast underwater.");
|
||
|
|
return;
|
||
|
|
} // cannot use while underwater - Nov 12th, 2008 - Deva Winblood
|
||
|
|
if (GetName(GetArea(oCaster))!="Rope Trick")
|
||
|
|
{ // not in a rope trick area
|
||
|
|
SendMessageToPC(oCaster,"You have successfully cast Rope Trick which will last "+IntToString(nLevel)+" game hours or until someone goes up the rope and comes back down.");
|
||
|
|
nLink=1;
|
||
|
|
oLink=GetObjectByTag("wazoo_ropetrick_d"+IntToString(nLink));
|
||
|
|
while(GetIsObjectValid(oLink)&&GetLocalInt(oLink,"bUsed"))
|
||
|
|
{ // look for useable rope trick area
|
||
|
|
nLink++;
|
||
|
|
oLink=GetObjectByTag("wazoo_ropetrick_d"+IntToString(nLink));
|
||
|
|
} // look for useable rope trick area
|
||
|
|
if (GetIsObjectValid(oLink)&&GetLocalInt(oLink,"bUsed")==FALSE)
|
||
|
|
{ // rope trick useable area found
|
||
|
|
oRope=CreateObject(OBJECT_TYPE_PLACEABLE,"wazoo_po_ropetd",GetLocation(oCaster));
|
||
|
|
SetLocalInt(oLink,"bUsed",TRUE);
|
||
|
|
SetLocalObject(oLink,"oCaster",oCaster);
|
||
|
|
SetLocalObject(oLink,"oRope",oRope);
|
||
|
|
SetLocalObject(oRope,"oLink",oLink);
|
||
|
|
SetLocalInt(oLink,"bCasterHasUsed",FALSE);
|
||
|
|
nTime=(GetCalendarMonth()*30*24)+(GetCalendarDay()*24)+GetTimeHour();
|
||
|
|
nTime=nTime+nLevel;
|
||
|
|
SetLocalInt(oLink,"nEndTime",nTime);
|
||
|
|
SetLocalObject(oLink,"oArea",GetArea(oCaster));
|
||
|
|
vV=GetPosition(oRope);
|
||
|
|
fF=vV.x;
|
||
|
|
SetLocalFloat(oLink,"fX",fF);
|
||
|
|
fF=vV.y;
|
||
|
|
SetLocalFloat(oLink,"fY",fF);
|
||
|
|
fF=vV.z;
|
||
|
|
SetLocalFloat(oLink,"fZ",fF);
|
||
|
|
fF=GetFacing(oCaster);
|
||
|
|
SetLocalFloat(oLink,"fOrientation",fF);
|
||
|
|
} // rope trick useable area found
|
||
|
|
else
|
||
|
|
{ // error
|
||
|
|
SendMessageToPC(oCaster,"ROPE TRICK ERROR: There are "+IntToString(nLink-1)+" rope trick areas and all of them were flagged as used!");
|
||
|
|
DestroyObject(oRope);
|
||
|
|
} // error
|
||
|
|
} // not in a rope trick area
|
||
|
|
else
|
||
|
|
{ // catastrophe
|
||
|
|
fnCatastrophe(oCaster);
|
||
|
|
} // catastrophe
|
||
|
|
}
|
||
|
|
////////////////////////////////////////////////////////////////////////// MAIN
|
||
|
|
|
||
|
|
///////////////////////////
|
||
|
|
// FUNCTIONS
|
||
|
|
///////////////////////////
|
||
|
|
void fnCatastrophe(object oCaster)
|
||
|
|
{ // PURPOSE: Handle casting rope trick within rope trick
|
||
|
|
effect eBlast=EffectVisualEffect(VFX_FNF_FIREBALL);
|
||
|
|
effect eDamage=EffectDamage(d6(10));
|
||
|
|
int nN;
|
||
|
|
object oOb;
|
||
|
|
ApplyEffectAtLocation(DURATION_TYPE_INSTANT,eBlast,GetLocation(oCaster));
|
||
|
|
nN=1;
|
||
|
|
oOb=GetNearestObject(OBJECT_TYPE_CREATURE,oCaster,nN);
|
||
|
|
while(GetIsObjectValid(oOb)&&GetDistanceBetween(oCaster,oOb)<6.0)
|
||
|
|
{ // blast
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,oOb);
|
||
|
|
nN=1;
|
||
|
|
oOb=GetNearestObject(OBJECT_TYPE_CREATURE,oCaster,nN);
|
||
|
|
} // blast
|
||
|
|
nN=1;
|
||
|
|
oOb=GetNearestObject(OBJECT_TYPE_PLACEABLE,oCaster,nN);
|
||
|
|
while(GetIsObjectValid(oOb)&&GetName(oOb)!="Rope Trick Exit")
|
||
|
|
{ // look for exit
|
||
|
|
nN++;
|
||
|
|
oOb=GetNearestObject(OBJECT_TYPE_PLACEABLE,oCaster,nN);
|
||
|
|
} // look for exit
|
||
|
|
if (GetIsObjectValid(oOb)&&GetName(oOb)=="Rope Trick Exit")
|
||
|
|
{ // found exit
|
||
|
|
DeleteLocalInt(oOb,"bUsed");
|
||
|
|
} // found exit
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,eDamage,oCaster);
|
||
|
|
} // fnCatastrophe()
|