Added PnP Dire Rat.
Added PnP Dire Rat.
This commit is contained in:
Jaysyn904
234
nwn_dark_sun/preai_default7.nss
Normal file
234
nwn_dark_sun/preai_default7.nss
Normal file
@@ -0,0 +1,234 @@
|
||||
//:://////////////////////////////////////////////////
|
||||
//:: NW_C2_DEFAULT7
|
||||
/*
|
||||
Default OnDeath event handler for NPCs.
|
||||
|
||||
Adjusts killer's alignment if appropriate and
|
||||
alerts allies to our death.
|
||||
*/
|
||||
//:://////////////////////////////////////////////////
|
||||
//:: Copyright (c) 2002 Floodgate Entertainment
|
||||
//:: Created By: Naomi Novik
|
||||
//:: Created On: 12/22/2002
|
||||
//:://////////////////////////////////////////////////
|
||||
#include "x0_i0_spawncond"
|
||||
#include "ar_db_main"
|
||||
|
||||
void ClearSlot(int iSlotID);
|
||||
void PartyGold(object oPC);
|
||||
|
||||
void main()
|
||||
{
|
||||
// added to index the creature death
|
||||
object oKiller = GetLastKiller();
|
||||
object oDead = OBJECT_SELF;
|
||||
SetLocalInt(oKiller,"ARSX_LAST_CR_KILL",ARSX_LogKill(OBJECT_SELF,oKiller));
|
||||
//end indexing
|
||||
|
||||
if ((d100() > 99) && (GetAbilityScore(OBJECT_SELF, ABILITY_INTELLIGENCE) > 10))
|
||||
{
|
||||
string sMsg;
|
||||
switch (d20())
|
||||
{
|
||||
case 1: sMsg = "I see dead people..."; break;
|
||||
case 2: sMsg = "For the first time in my life I feel...cold..."; break;
|
||||
case 3: sMsg = "Water..."; break;
|
||||
case 4: sMsg = "Dont let them bury me. I'm not dead!"; break;
|
||||
case 5: sMsg = "I surrender!"; break;
|
||||
case 6: sMsg = "No, it cant be!"; break;
|
||||
case 7: sMsg = "Tell my children I love them..."; break;
|
||||
case 8: sMsg = "I curse your soul!"; break;
|
||||
case 9: sMsg = "I shall return!"; break;
|
||||
case 10: sMsg = "Oh tell me God, must I damn my brother to love you?"; break;
|
||||
case 11: sMsg = "I've had worse."; break;
|
||||
case 12: sMsg = "But... I am invincible!"; break;
|
||||
case 13: sMsg = "It's so dark."; break;
|
||||
case 14: sMsg = "Help."; break;
|
||||
case 15: sMsg = "Mommy."; break;
|
||||
case 16: sMsg = "Avenge me!"; break;
|
||||
case 17: {
|
||||
sMsg = "My ghost will haunt you!";
|
||||
CreateObject(OBJECT_TYPE_CREATURE, "shfiend001", GetLocation(OBJECT_SELF));
|
||||
}
|
||||
break;
|
||||
case 18: sMsg = "Doh!"; break;
|
||||
case 19: sMsg = "Wait, I lagged!"; break;
|
||||
case 20: sMsg = "Medic!"; break;
|
||||
}
|
||||
SpeakString(sMsg, TALKVOLUME_TALK);
|
||||
}
|
||||
|
||||
int iSlotID;
|
||||
for (iSlotID = 0; iSlotID < NUM_INVENTORY_SLOTS; iSlotID++)
|
||||
{
|
||||
ClearSlot(iSlotID);
|
||||
}
|
||||
// Destroy all inventory items
|
||||
object oItem = GetFirstItemInInventory();
|
||||
while (GetIsObjectValid(oItem))
|
||||
{
|
||||
if(!GetDroppableFlag(oItem))
|
||||
DestroyObject(oItem);
|
||||
oItem = GetNextItemInInventory();
|
||||
}
|
||||
|
||||
//Get the object that killed the monster
|
||||
object oPC = GetLastKiller();
|
||||
//Get the master of the object, if it was a pet
|
||||
if(GetIsPC(GetMaster(oPC)))
|
||||
oPC = GetMaster(oPC);
|
||||
|
||||
//Determine how much gold and experience is awarded.
|
||||
PartyGold(oPC);
|
||||
|
||||
//Check to see if this was a kill task monster
|
||||
if((GetTag(OBJECT_SELF) == GetLocalString(oPC, "KILL_TASK_TARGET")) && (GetLocalInt(oPC, "KILL_TASK_FLAG") == 1))
|
||||
{
|
||||
//Set the kill task variable to complete
|
||||
SetLocalInt(oPC, "KILL_TASK_FLAG", 2);
|
||||
//Set the journal to complete
|
||||
AddJournalQuestEntry("kt_journal_01", 99, oPC);
|
||||
}
|
||||
|
||||
int nClass = GetLevelByClass(CLASS_TYPE_COMMONER);
|
||||
int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
|
||||
|
||||
// If we're a good/neutral commoner,
|
||||
// adjust the killer's alignment evil
|
||||
if(nClass > 0 && (nAlign == ALIGNMENT_GOOD || nAlign == ALIGNMENT_NEUTRAL))
|
||||
{
|
||||
object oKiller = GetLastKiller();
|
||||
AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5);
|
||||
}
|
||||
|
||||
// Call to allies to let them know we're dead
|
||||
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);
|
||||
|
||||
// NOTE: the OnDeath user-defined event does not
|
||||
// trigger reliably and should probably be removed
|
||||
if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT))
|
||||
{
|
||||
SignalEvent(OBJECT_SELF, EventUserDefined(1007));
|
||||
}
|
||||
}
|
||||
|
||||
void ClearSlot(int iSlotID)
|
||||
{
|
||||
object oItem = GetItemInSlot(iSlotID);
|
||||
if(GetIsObjectValid(oItem))
|
||||
{
|
||||
if(!GetDroppableFlag(oItem))
|
||||
DestroyObject(oItem);
|
||||
}
|
||||
}
|
||||
|
||||
void PartyGold(object oPC)
|
||||
{
|
||||
//Get the area the kill was made in
|
||||
object oArea = GetArea(OBJECT_SELF);
|
||||
//Initialize the amount of players in a party
|
||||
int nMembers = 0;
|
||||
//Determine how many members of the party are in that area
|
||||
object oPartyMember = GetFirstFactionMember(oPC);
|
||||
if(GetIsObjectValid(oPartyMember))
|
||||
{
|
||||
while(GetIsObjectValid(oPartyMember))
|
||||
{
|
||||
if((GetArea(oPartyMember) == oArea) && (GetIsPC(oPartyMember)))
|
||||
nMembers++;
|
||||
oPartyMember = GetNextFactionMember(oPC);
|
||||
}
|
||||
|
||||
//Get the hit dice of the monster
|
||||
int nMRating = GetHitDice(OBJECT_SELF);
|
||||
//Get the hit dice of the killer
|
||||
int nPRating = GetHitDice(oPC);
|
||||
if(nPRating == 0)
|
||||
{
|
||||
nMRating = 0;
|
||||
nPRating = 1;
|
||||
}
|
||||
|
||||
//Get an amount of gold in relation to the challenge rating of the monster
|
||||
int nGold = d4(nMRating);
|
||||
//These monster types don't have gold
|
||||
if(GetRacialType(OBJECT_SELF) == RACIAL_TYPE_ANIMAL ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_BEAST ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_CONSTRUCT ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_ELEMENTAL ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_ABERRATION ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_MAGICAL_BEAST ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_OUTSIDER ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_UNDEAD ||
|
||||
GetRacialType(OBJECT_SELF) == RACIAL_TYPE_VERMIN)
|
||||
{
|
||||
nGold = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
//Split the gold among the party members in the area
|
||||
nGold /= nMembers;
|
||||
}
|
||||
|
||||
//Initialize a default amount of experience
|
||||
int nXP = (100 + (nMRating * 5));
|
||||
if((nMRating - nPRating) < -6)
|
||||
{
|
||||
nXP = 0;
|
||||
}
|
||||
|
||||
//Modify the experience
|
||||
nXP = ((nXP * nMRating) / nPRating);
|
||||
|
||||
//Start exp loop
|
||||
oPartyMember = GetFirstFactionMember(oPC);
|
||||
if(GetIsObjectValid(oPartyMember))
|
||||
{
|
||||
//Initialize a variable for the loop to determine the party members challenge rating
|
||||
int nPartyRating;
|
||||
int nXPTemp = 0;
|
||||
//Loop baby
|
||||
while (GetIsObjectValid(oPartyMember))
|
||||
{
|
||||
if((GetArea(oPartyMember) == oArea) && (GetIsPC(oPartyMember)))
|
||||
{
|
||||
if(nGold > 0)
|
||||
GiveGoldToCreature(oPartyMember, nGold);
|
||||
|
||||
nPartyRating = GetHitDice(oPartyMember);
|
||||
if(nPRating >= nPartyRating)
|
||||
{
|
||||
if((nPRating - nPartyRating) > 6)
|
||||
nXPTemp = 0;
|
||||
else
|
||||
nXPTemp = ((nXP * nPartyRating) / nPRating);
|
||||
}
|
||||
else
|
||||
{
|
||||
if((nPartyRating - nPRating) > 6)
|
||||
nXPTemp = 0;
|
||||
else
|
||||
{
|
||||
if(nPartyRating == 0)
|
||||
{
|
||||
nPartyRating = 0;
|
||||
nXP = 0;
|
||||
}
|
||||
nXPTemp = ((nXP * nPRating) / nPartyRating);
|
||||
}
|
||||
}
|
||||
if((nMRating - nPartyRating) < -6)
|
||||
{
|
||||
nXPTemp = 0;
|
||||
}
|
||||
if(nXPTemp > 0)
|
||||
GiveXPToCreature(oPartyMember, nXPTemp);
|
||||
}
|
||||
oPartyMember = GetNextFactionMember(oPC);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user