NWScript:

//Sivak Draconian OnDeath Script

//by samhaine@tekh.org

void KillAndReplace(object oMark);

void main ()

{

                                        //Gets the creature that killed the Sivak

                                        //and its Name/Template, Racial Type, and if it's a PC

                                        //also records the current position of the Sivak

object oKiller = (GetLastKiller());

string sKiller = (GetStringLeft(GetName(oKiller), 5));

int nKillerRace = (GetRacialType(oKiller));

int nKillerGender = (GetGender(oKiller));

location lLocation = (GetLocation(OBJECT_SELF));

int nIsPc = GetIsPC(oKiller);

                                         //Finds out if the killer was a PC and then

                                         //goes through a list of PCs that have an exact

                                         //Doppelganger created in the toolset, and creates the

                                         //corpse of that Doppelganger at the Sivak's location.

                                         //If it's an unexpected PC then the Doppelganger

                                         //is chosen from a Male or Female generic Doppelganger.

                                         //It should be simple to make more generic Doppelgangers

                                         //for various Race/Classes and then plug in the code,

                                         //at expense of making it even longer.

     if (nIsPc)

     {

          if (sKiller == "Tanis")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakTanis", lLocation, FALSE));}

          if (sKiller == "Sturm")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakSturm", lLocation, FALSE));}

          if (sKiller == "Raist")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakRaistlin", lLocation, FALSE));}

          if (sKiller == "Caram")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakCaramon", lLocation, FALSE));}

          if (sKiller == "Flint")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakFlint", lLocation, FALSE));}

          if (sKiller == "Tassl")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakTasslehoff", lLocation, FALSE));}

          if (sKiller == "River")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakRiverwind", lLocation, FALSE));}

          if (sKiller == "Goldm")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakGoldmoon", lLocation, FALSE));}

          if (sKiller == "Twili")

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakTwilight", lLocation, FALSE));}

          if (nKillerGender == GENDER_FEMALE)

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakFemaleGeneric", lLocation, FALSE));}

          else

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, "SivakMaleGeneric", lLocation, FALSE));}

      }

                                          //At this point the code has decided that the killer was

                                          //not a PC, and will therefore simply create a duplicate

                                          //of the killer from the toolset palatte and create its corpse.

                                          //It will only do this if the race is a humanoid so that the

                                          //Sivak can reasonably doppelgang it.

                                          //If the killer was not a PC and also not a reasonable choice for

                                          //creating a copy, then the creature dies normally.



       else

       {

          if (nKillerRace == RACIAL_TYPE_DWARF || RACIAL_TYPE_ELF || RACIAL_TYPE_FEY || RACIAL_TYPE_GNOME || RACIAL_TYPE_HALFELF || RACIAL_TYPE_HALFLING || RACIAL_TYPE_HALFORC || RACIAL_TYPE_HUMAN || RACIAL_TYPE_HUMANOID_GOBLINOID || RACIAL_TYPE_HUMANOID_MONSTROUS || RACIAL_TYPE_HUMANOID_ORC || RACIAL_TYPE_HUMANOID_REPTILIAN)

               {KillAndReplace(CreateObject(OBJECT_TYPE_CREATURE, GetTag(oKiller), lLocation, FALSE));}

          else SpeakString("Urk!", TALKVOLUME_TALK);

       }

}

                                           //And here is the KillAndReplace function that it's pulling

                                           //(copied from the Versus World Builder's Guide).

void KillAndReplace(object oMark)

{

     if(GetIsObjectValid(oMark))

     {

          SetPlotFlag(oMark,FALSE);

          AssignCommand(oMark, SetIsDestroyable(FALSE,FALSE));

          AssignCommand(OBJECT_SELF,

                                     ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDeath(), oMark));

     }

}

_________________
~Samhaine
All things are defined by names. Change the name, and you change the thing. Of course there is a lot more to it than that, but paracosmically that is what it boils down to... -Pratchett, Pyramids