void main()
{
  int nDiceRoll = d10(1);
  if(nDiceRoll <= 3)
{
location lTarget1 = GetLocation(GetNearestObjectByTag("CarriageSP"));
location lTarget2 = GetLocation(GetNearestObjectByTag("Festril4"));
location lTarget3 = GetLocation(GetNearestObjectByTag("Festril3"));
location lTarget4 = GetLocation(GetNearestObjectByTag("Festril2"));
location lTarget5 = GetLocation(GetNearestObjectByTag("Festril1"));
location lTarget6 = GetLocation(GetNearestObjectByTag("CoachmanSP"));

CreateObject(OBJECT_TYPE_PLACEABLE, "Carriage", lTarget1, TRUE);
CreateObject(OBJECT_TYPE_CREATURE, "Festril", lTarget2, TRUE);
CreateObject(OBJECT_TYPE_CREATURE, "Festril", lTarget3, TRUE);
CreateObject(OBJECT_TYPE_CREATURE, "Festril", lTarget4, TRUE);
CreateObject(OBJECT_TYPE_CREATURE, "Festril", lTarget5, TRUE);
CreateObject(OBJECT_TYPE_CREATURE, "Coachman", lTarget6, TRUE);
}
DelayCommand(5.0, ExecuteScript("killself", OBJECT_SELF));
}