GetOffMyYarn
69879d6957
Added CCOH and missing areas Changed some areas to be craftable, Fixed some on death issues, Fixed the Gaurd
84 lines
3.4 KiB
Plaintext
84 lines
3.4 KiB
Plaintext
/*
|
|
This function handles making undead friends with vampires, and
|
|
vice versa.
|
|
*/
|
|
|
|
// Makes undeads friendly to entering vampire.
|
|
void vamp_vampirefriend(object oPC)
|
|
{
|
|
//Get area.
|
|
object oArea = GetArea(oPC);
|
|
//Get first object in area.
|
|
object oNPC = GetFirstObjectInArea(oArea);
|
|
//As long as objects are valid. Do following.
|
|
|
|
PrintString("vamp_friends: vamp_vampirefriend() called by " + GetName(oPC) + " in "+GetName(oArea)+" ... makes undeads friendly to the aforementioned Vampire in this area.");
|
|
|
|
while(oNPC != OBJECT_INVALID)
|
|
{
|
|
// if the thing is a creature, continue wasting CPU time
|
|
if (GetObjectType(oNPC)==OBJECT_TYPE_CREATURE)
|
|
{
|
|
// PrintString("vamp_friends: vamp_vampirefriend() called by " + GetName(oPC) + " - "+GetName(oNPC)+" is a creature, but is it undead?");
|
|
// If object is undead and hostile towards vampire.
|
|
if (GetRacialType(oNPC) == RACIAL_TYPE_UNDEAD && GetIsEnemy(oPC,oNPC) == TRUE)
|
|
{
|
|
PrintString("vamp_friends: vamp_vampirefriend() called by " + GetName(oPC) + " - "+GetName(oNPC)+" is an undead and is an enemy of the PC, so will now be made a friend.");
|
|
// Make object friendly towards vampire.
|
|
SetIsTemporaryFriend(oPC, oNPC);
|
|
}
|
|
}
|
|
//Take next object.
|
|
oNPC = GetNextObjectInArea(oArea);
|
|
}
|
|
}
|
|
|
|
//Makes entering npc friendly towards every vampire on module.
|
|
void vamp_npcfriend(object oNPC)
|
|
{
|
|
PrintString("vamp_friends: vamp_npcfriend() called by " + GetName(oNPC) + "... makes all PC's with 'Vampire' subrace friendly to this NPC.");
|
|
//Take first player from player list.
|
|
object oPC = GetFirstPC();
|
|
//Do following until whole player list is studied.
|
|
while(oPC != OBJECT_INVALID)
|
|
{
|
|
//If player is vampire.
|
|
if (GetSubRace(oPC)=="Vampire")
|
|
{
|
|
//Make npc(Undead) friendly towards pc.
|
|
SetIsTemporaryFriend(oPC, oNPC);
|
|
PrintString("vamp_friends: vamp_vampirefriend() called by " + GetName(oNPC) + " - "+GetName(oPC)+" is Vampire PC, so will now be made a friend of the NPC.");
|
|
}
|
|
//Take next pc from list.
|
|
oPC = GetNextPC();
|
|
}
|
|
}
|
|
|
|
//Checks who is entering.
|
|
void vamp_friends(object oCreature)
|
|
{
|
|
object oMod = GetModule();
|
|
string sArea = GetName(GetArea(oCreature));
|
|
|
|
// PrintString("vamp_friends: called by " + GetName(oCreature) + " GetRacialType["+IntToString(GetRacialType(oCreature))+"] in area '"+sArea+"'.");
|
|
|
|
// If entering object is pc and subrace is vampire.
|
|
// Make every undead on area friendly towards entering vampire.
|
|
if (GetSubRace(oCreature)=="Vampire"&&GetIsPC(oCreature)==TRUE)
|
|
{
|
|
vamp_vampirefriend(oCreature);
|
|
}
|
|
|
|
// If entering object is undead and it is not pc or dm.
|
|
// Make undead friendly towards every vampire on module.
|
|
if (GetRacialType(oCreature) == RACIAL_TYPE_UNDEAD && GetIsPC(oCreature)==FALSE && GetIsDM(oCreature) == FALSE)
|
|
{
|
|
// We should do this BEFORE we destroy vampire spawns triggered by vampires
|
|
// because otherwise existing undead in the area are not made friends.
|
|
// Better to waste time making friends with things that are about to be
|
|
// destroyed than have undead randomly attack a vampire because he stepped
|
|
// on a vampire spawn the moment he came in.
|
|
vamp_npcfriend(oCreature);
|
|
}
|
|
}
|