Initial commit
Adding all of the current content for Anphillia Unlimited.
This commit is contained in:
Jaysyn904
299
_module/nss/hc_on_act_item.nss
Normal file
299
_module/nss/hc_on_act_item.nss
Normal file
@@ -0,0 +1,299 @@
|
||||
//Hardcore DMTool Composite
|
||||
//Archaegeo 2002 June 24
|
||||
|
||||
//(Individual credits in other scripts)
|
||||
|
||||
// ** This script goes in the OnItemActivation event of your Module
|
||||
// ** Properties. It checks to see if the item used is a DM Helper
|
||||
// ** And if so, and the user isnt a DM, destroys it, otherwise it
|
||||
// ** Starts the DM Helper working. "jth_dmwand" contains the actual
|
||||
// ** code that controls the Helpers effects. If you update anything
|
||||
// ** in it, you must recompile the calling dmw_<name> script to make
|
||||
// ** the change take effect.
|
||||
// 27 June - Modified to support player raise deads.
|
||||
// Include files, first is for the DM Helper, second for Recall stones if you
|
||||
// use them, and third is the hc_inc file for all hc constants
|
||||
|
||||
// Modified 7/9/2002 by Brandon Mathis
|
||||
// Added if cleric is 17th level or higher, and the player has enough
|
||||
// gold, the cleric will cast true ressurection.
|
||||
// Changed: Raise dead now cost 50*Cleric Level + 500 per PhB.
|
||||
// Ressurection cost 70*cleric level + 500 per phb.
|
||||
// True Ressurection cost 90*Cleric Level + 5000 per PhB.
|
||||
|
||||
// Modified 8/17/2002 by Edward Beck (0100010)
|
||||
// Added support for food,drink, and water canteen items for use with HTF system.
|
||||
#include "chr_inc"
|
||||
#include "weather_inc"
|
||||
#include "hc_inc"
|
||||
#include "anph_inc"
|
||||
#include "hc_inc_on_act"
|
||||
#include "hc_text_activate"
|
||||
#include "eye_scalp_inc"
|
||||
|
||||
object oOther;
|
||||
|
||||
void main()
|
||||
{
|
||||
if (GetLocalInt(oMod, "ANPH_CNR_ACTIVE") == TRUE) ExecuteScript ("cnr_module_onact", OBJECT_SELF);
|
||||
if(!preEvent()) return;
|
||||
object oItem=GetItemActivated();
|
||||
object oUser=GetItemActivator();
|
||||
oOther=GetItemActivatedTarget();
|
||||
location lOther=GetItemActivatedTargetLocation();
|
||||
string sItemTag=GetTag(oItem);
|
||||
|
||||
if(sItemTag=="TrackerTool" &&
|
||||
GetLevelByClass(CLASS_TYPE_RANGER, oUser) > 0)
|
||||
{
|
||||
AssignCommand(oUser, ActionPlayAnimation(ANIMATION_LOOPING_GET_LOW, 1.0, 6.0));
|
||||
DelayCommand(0.2, SetCommandable(FALSE, oUser));
|
||||
DelayCommand(5.8, SetCommandable(TRUE, oUser));
|
||||
DelayCommand(6.0, ExecuteScript("hc_track_start", oUser));
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if(sItemTag=="resetme")
|
||||
{StartNewModule(GetModuleName());}
|
||||
|
||||
else if(sItemTag=="jumper")
|
||||
{
|
||||
ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DEATH_WARD, FALSE), lOther);
|
||||
AssignCommand(oUser, ClearAllActions(TRUE));
|
||||
AssignCommand(oUser, ActionJumpToLocation(lOther));
|
||||
ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DEATH_WARD, FALSE), oUser);
|
||||
}
|
||||
|
||||
else if(sItemTag=="hc_paladinsymb" &&
|
||||
GetLevelByClass(CLASS_TYPE_PALADIN,oUser)>0)
|
||||
{
|
||||
ExecuteScript("hc_pal_detevil",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if ( sItemTag == "hc_palbadgecour" )
|
||||
{
|
||||
if(GetLevelByClass(CLASS_TYPE_PALADIN, oUser) < 2)
|
||||
{
|
||||
SendMessageToPC(oUser,NOINSPIRE);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
location lHere = GetItemActivatedTargetLocation();
|
||||
oOther=GetFirstObjectInShape(SHAPE_SPHERE,3.0,GetLocation(oUser),FALSE,OBJECT_TYPE_CREATURE);
|
||||
effect eVis = EffectVisualEffect(VFX_IMP_GOOD_HELP);
|
||||
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eVis,oUser);
|
||||
while ( GetIsObjectValid(oOther) )
|
||||
{
|
||||
if ( (GetIsFriend(oOther,oUser)) && (oOther != oUser ) )
|
||||
{
|
||||
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectSavingThrowIncrease(SAVING_THROW_WILL,4,SAVING_THROW_TYPE_FEAR),oOther,d6(2)*6.0);
|
||||
if ( GetIsPC(oOther) )
|
||||
SendMessageToPC(oOther,IMBUECOURAGE);
|
||||
}
|
||||
oOther=GetNextObjectInShape(SHAPE_SPHERE,3.0,GetLocation(oUser),FALSE,OBJECT_TYPE_CREATURE);
|
||||
}
|
||||
}
|
||||
// Thieves' Tools
|
||||
else if ((sItemTag == "thievesTools") || (sItemTag == "thievesToolsMaster"))
|
||||
{
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
SetLocalString(oUser,"TAG",sItemTag);
|
||||
ExecuteScript("hc_act_thieftool",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if ( sItemTag == "BookOfSummons" )
|
||||
{
|
||||
AssignCommand(oUser, ActionStartConversation(oUser, "hc_c_bookofsummo", TRUE));
|
||||
}
|
||||
// Active trap searching, gets rid of auto Take 20 problem.
|
||||
else if (sItemTag == "searchtool")
|
||||
{
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
ExecuteScript("hc_act_search",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
//Begin Healer's Kit = With thanks to Andalus for taking the time to make.
|
||||
else if(sItemTag=="hc_healkit")
|
||||
{
|
||||
if(GetIsPC(oOther) == FALSE)
|
||||
{
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
ExecuteScript("hc_act_healkit",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
//End Healer's Kit
|
||||
|
||||
|
||||
else if(sItemTag=="hc_skinning")
|
||||
{
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
ExecuteScript("hc_act_skinning",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if(sItemTag=="ScalpHuntersKnife")
|
||||
{
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
ExecuteScript("eye_act_scalp",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if(GetStringLeft(sItemTag,4)=="SCP_")
|
||||
{
|
||||
string sScalpMessage;
|
||||
sScalpMessage = "This is a " + GetScalpFaction(oItem) + " Scalp of Level " + IntToString(GetScalpLevel(oItem)) + ".";
|
||||
SendMessageToPC(oUser, sScalpMessage);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if(sItemTag=="hc_acidflask" ||
|
||||
sItemTag=="hc_alchfire" ||
|
||||
sItemTag=="hc_holywater" ||
|
||||
sItemTag=="hc_tangle" ||
|
||||
sItemTag=="hc_thunder")
|
||||
{
|
||||
SetLocalObject(oUser,"GRENADE",oItem);
|
||||
SetLocalObject(oUser,"GRENADETARGET",oOther);
|
||||
ExecuteScript("hc_grenade", oUser);
|
||||
}
|
||||
else if(sItemTag=="hc_oilflask")
|
||||
{
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
ExecuteScript("hc_act_oilflask",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
else if(FindSubString(sItemTag,"PotionOf")!= -1)
|
||||
{
|
||||
object oTarget=GetItemActivatedTarget();
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
SetLocalString(oUser,"TAG",sItemTag);
|
||||
ExecuteScript("hc_act_potion",oUser);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
|
||||
// If the item is the DM Helper, activate it after checking to make sure a
|
||||
// PC hasnt got their hands on it.
|
||||
object oActivator=oUser;
|
||||
string sHTarget="";
|
||||
string sHLoc;
|
||||
string sHConv;
|
||||
|
||||
if(sItemTag=="HCRHelper" || sItemTag=="HCRHelpwand")
|
||||
{
|
||||
sHTarget="HCRHtarget";
|
||||
sHLoc="HCRHloc";
|
||||
sHConv="hcrhconv";
|
||||
}
|
||||
if(GetTag(oItem)=="DMsHelper")
|
||||
{
|
||||
sHTarget="dmwandtarget";
|
||||
sHLoc="dmwandloc";
|
||||
sHConv="dmwand";
|
||||
}
|
||||
if(GetTag(oItem)=="WandOfFX")
|
||||
{
|
||||
sHTarget="FXWandTarget";
|
||||
sHLoc="FXWandLoc";
|
||||
sHConv="fxwand";
|
||||
}
|
||||
if(sHTarget!="")
|
||||
{
|
||||
// get the wand's activator and target, put target info into local vars on activator
|
||||
object oDM = GetItemActivator();
|
||||
object oMyTarget = GetItemActivatedTarget();
|
||||
SetLocalObject(oDM, sHTarget, oMyTarget);
|
||||
location lTargetLoc = GetItemActivatedTargetLocation();
|
||||
SetLocalLocation(oDM, sHLoc, lTargetLoc);
|
||||
|
||||
object oTest=GetFirstPC();
|
||||
string sTestName = GetPCPlayerName(oDM);
|
||||
// Test to make sure the activator is a DM, or is a DM
|
||||
// controlling a creature.
|
||||
|
||||
while (GetIsObjectValid(oTest) == TRUE)
|
||||
{
|
||||
if (GetPCPlayerName(oTest) == sTestName && GetIsDM(oTest) == FALSE &&
|
||||
GetPCPublicCDKey(oTest)!=GetPersistentString(oMod,"PLAYERDM"))
|
||||
{
|
||||
DestroyObject(oItem);
|
||||
SendMessageToPC(oActivator,NOMORTAL);
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
oTest=GetNextPC();
|
||||
}
|
||||
|
||||
//Make the activator start a conversation with itself
|
||||
AssignCommand(oDM, ActionStartConversation(oDM, sHConv, TRUE));
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
if(GetTag(oItem)=="EmoteWand")
|
||||
{
|
||||
AssignCommand(oActivator, ActionStartConversation(oActivator, "emotewand", TRUE));
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
|
||||
if(GetTag(oItem)=="XPWand")
|
||||
{
|
||||
object oDM = GetItemActivator();
|
||||
object oMyTarget = GetItemActivatedTarget();
|
||||
SetLocalObject (oDM, "xpwand_target", oMyTarget);
|
||||
AssignCommand (oDM, ActionStartConversation (oDM, "xpwand_conv", TRUE));
|
||||
postEvent();
|
||||
return;
|
||||
}
|
||||
if (GetTag(GetItemActivated()) == "WandOfItem")
|
||||
{
|
||||
object oDM = GetItemActivator();
|
||||
object oItem = GetItemActivatedTarget();
|
||||
SendMessageToPC(oDM, "** Name: " + GetName(oItem) + ", Tag: " + GetTag(oItem) + ", ResRef: " + GetResRef(oItem));
|
||||
return;
|
||||
}
|
||||
if(GetTag(oItem)=="WandOfSubscribe")
|
||||
{
|
||||
if (GetIsDM(oUser))
|
||||
AssignCommand (oUser, ActionStartConversation (oUser, "eye_subscribe", TRUE));
|
||||
return;
|
||||
}
|
||||
|
||||
if(sItemTag=="PlayerCorpse")
|
||||
{
|
||||
object oCleric=GetItemActivatedTarget();
|
||||
SetLocalObject(oUser,"CLERIC",oCleric);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
ExecuteScript("hc_act_pct",oUser);
|
||||
}
|
||||
SetLocalObject(oUser,"OTHER",oOther);
|
||||
SetLocalObject(oUser,"ITEM",oItem);
|
||||
SetLocalString(oUser,"TAG",sItemTag);
|
||||
ExecuteScript("hc_act_others",oUser);
|
||||
postEvent();
|
||||
if (GetTag(oItem) == "MJ_CampFire" && GetIsAreaInterior(GetArea(oUser)) != TRUE)
|
||||
{
|
||||
MakeCampFire(oUser);
|
||||
}
|
||||
if(GetTag(oItem) == "dae_namingwand")
|
||||
{
|
||||
SetName(oOther, GetLocalString(oItem, "Name"));
|
||||
DelayCommand(0.5, DestroyObject(oItem));
|
||||
}
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user