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

Module commit

Browse Source 
Module commit.
This commit is contained in:
Jaysyn904
2024-06-14 10:48:20 -04:00
parent 079830314c
commit f5ffe7d0b9
11110 changed files with 4747686 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

177
_module/nss/pcwerewolfdeath.nss Normal file
View File

@@ -0,0 +1,177 @@
#include "NW_I0_GENERIC"
void main()
{
object oPlayer = GetFirstPC();
object oDeadNPC = OBJECT_SELF;
object oKiller = GetLastKiller();
//Make sure the PC we're looking at is valid, and keep cycling until the last PC
while (GetIsObjectValid(oPlayer))
{
if(GetLocalInt(oPlayer,"HAS_WEREWOLF_EFFECT") == 1)
{
int iCurHP = GetCurrentHitPoints(oPlayer);
int blarg = iCurHP-1;
object oWerewolf = GetLocalObject(oPlayer,"MY_WOLF");
location lCorpseLoc = GetLocation(oWerewolf);
effect eWolfDead = EffectDamage(blarg,DAMAGE_TYPE_MAGICAL,DAMAGE_POWER_NORMAL);
//Remove effects from the PC
effect eLoop=GetFirstEffect(oPlayer);
while (GetIsEffectValid(eLoop))
{
if (GetEffectType(eLoop)==EFFECT_TYPE_CUTSCENE_PARALYZE)
RemoveEffect(oPlayer, eLoop);
if (GetEffectType(eLoop)==EFFECT_TYPE_DAMAGE_REDUCTION)
RemoveEffect(oPlayer, eLoop);
if (GetEffectType(eLoop)==EFFECT_TYPE_IMMUNITY)
RemoveEffect(oPlayer, eLoop);
if (GetEffectType(eLoop)==EFFECT_TYPE_VISUALEFFECT)
RemoveEffect(oPlayer, eLoop);
if (GetEffectType(eLoop)==EFFECT_TYPE_ETHEREAL)
RemoveEffect(oPlayer, eLoop);
eLoop=GetNextEffect(oPlayer);
}
AssignCommand(oPlayer,JumpToLocation(lCorpseLoc));
DestroyObject(oWerewolf);
effect ePolymorphVFX = EffectVisualEffect(VFX_IMP_POLYMORPH);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, ePolymorphVFX, oPlayer);
ApplyEffectToObject(DURATION_TYPE_INSTANT,eWolfDead,oPlayer);
PlayVoiceChat(VOICE_CHAT_NEARDEATH,oPlayer);
object oFirstNPC = GetFirstObjectInShape(SHAPE_SPHERE,10.0,lCorpseLoc,FALSE,OBJECT_TYPE_CREATURE);
while(oFirstNPC != OBJECT_INVALID)
{
int iSeen = GetObjectSeen(oPlayer,oFirstNPC);
if (iSeen)
{
SetLocalInt(oPlayer,"WasSeen",1);
}
//Get next object.
oFirstNPC = GetNextObjectInShape(SHAPE_SPHERE,10.0,lCorpseLoc,FALSE,OBJECT_TYPE_CREATURE);
}
//End of the fun for making them watch themselves
SetCampaignInt("WWData","wolfdead", 1,oPlayer);
SetLocalInt(oPlayer,"wolfdead", 1);
}
oPlayer = GetNextPC();
}
//end werewolf stuff
int noleech = 0;
int nClass = GetLevelByClass(CLASS_TYPE_COMMONER);
int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
if(nClass > 0 && (nAlign == ALIGNMENT_GOOD || nAlign == ALIGNMENT_NEUTRAL))
{
AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5);
}
SpeakString("NW_I_AM_DEAD", TALKVOLUME_SILENT_TALK);
//Shout Attack my target, only works with the On Spawn In setup
SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK);
if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT))
{
SignalEvent(OBJECT_SELF, EventUserDefined(1007));
}
float BaseEXP = ((GetChallengeRating(OBJECT_SELF)*3.0)+5);
float BonusEXP = GetChallengeRating(OBJECT_SELF)+5;
float BaseMonEXP = BaseEXP;
int NumOfParty = 0;
float PartyLevelSum = 0.0;
object oPartyMember = GetFirstFactionMember(oKiller, TRUE);
while(GetIsObjectValid(oPartyMember)) {
if (GetArea(OBJECT_SELF) == GetArea(oPartyMember))
{
int leech = GetHitDice(oPartyMember);
if (leech >= noleech){
noleech = leech;
}
NumOfParty++;
PartyLevelSum += GetCharacterLevel(oPartyMember);
}
oPartyMember = GetNextFactionMember(oKiller, TRUE);
}
if (PartyLevelSum <= 1.0)
{
PartyLevelSum = 1.0;
}
if (NumOfParty <= 1)
{
NumOfParty = 1;
}
float PartyAvgLvl = PartyLevelSum / NumOfParty;
//Calculate Adjustment Value
if (PartyAvgLvl <= 1.0)
{
PartyAvgLvl = 1.0;
}
float x = GetChallengeRating(OBJECT_SELF);
if (x <= 1.0)
{
x = 1.0;
}
float z = (x / PartyAvgLvl);
float AdjustValue = ((z+2)/3);
float FinalMonValue;
//Determine Final Experience Value
if (AdjustValue == 0.0) {
FinalMonValue = BaseMonEXP;
} else {
if (AdjustValue < 1.0) {
FinalMonValue = BaseMonEXP * AdjustValue;
} else {
FinalMonValue = BaseMonEXP + (BonusEXP * (AdjustValue * (1.10)));
}
}
//Determine the value of the Split EXP
if (NumOfParty >= 6)
{
NumOfParty = 5;
}
if (NumOfParty <= 1)
{
NumOfParty = 1;
}
if (FinalMonValue <= 1.0)
{
FinalMonValue = 1.0;
}
float SplitFinalEXP = FinalMonValue / NumOfParty;
if (SplitFinalEXP <= 1.0)
{
SplitFinalEXP = 1.0;
}
float y = (FinalMonValue - SplitFinalEXP);
if (y <= 1.0)
{
y = 1.0;
}
if (PartyAvgLvl >= 15.0)
{
FinalMonValue = FinalMonValue - ( PartyAvgLvl);
}
float PartyBonus = ((y +1)/ 1.75) + (FinalMonValue + ((21-PartyAvgLvl)/3));
int SFEint = FloatToInt(PartyBonus);
//Distribute EXP to all PCs in the Party
oPartyMember = GetFirstFactionMember(oKiller, TRUE);
while (GetIsObjectValid(oPartyMember)) {
if (GetArea(OBJECT_SELF) == GetArea(oPartyMember)) {
int nHD = GetHitDice(oPartyMember) + 1;
int nMax = (((nHD * (nHD - 1)) / 2) * 1000)+1;
if (nMax <= GetXP(oPartyMember) && nHD <= 40) {
SendMessageToPC(oPartyMember, "You cannot gain experience until you have leveled.");
} else if (GetIsDead(oPartyMember)) {
SendMessageToPC(oPartyMember, "You cannot gain experience while dead. Your XP has been reset.");
} else if ((GetHitDice(oPartyMember)) <= (noleech - 7) || (GetHitDice(oPartyMember)) >= FloatToInt(PartyAvgLvl) + 7) {
SendMessageToPC(oPartyMember, "All party members must be within 6 levels of each other.");
} else {
GiveXPToCreature(oPartyMember, SFEint);
}
}
oPartyMember = GetNextFactionMember(oKiller, TRUE);
}
}