/* Heaven VII MUDlib (c) 1993, All Rights Reserved.
 * Death Mark, Revised by Angel, December 1993.
 * Handles messages for races, and alignment loaded into
 * the death room for speaking.
 */

#define DEATH_ROOM       "room/death/death_room"  /* where we go to die */

init() {  start_death(); }
get()  {  return 1;      }
drop() {  return 1;      }

id(str)           {  return str == "death_mark";      }
query_auto_load() {  return "room/death/death_mark:"; }

/* This begins the death scene, grabs the array messages 
 * to be used by the death room.
 */ 
start_death() {
  object ned, my_host;

  my_host = environment(this_object());
  if(my_host) {
    if(living(my_host)) {
      if(my_host->query_ghost() != 1) {
        destruct(this_object());
        return;
      }
    }
    else
      return;
  }
  else
    return;

  say("You see a dark shape gathering some mist above the corpse of "+
       (string)environment()->query_name() +"....\n");
  move_object(my_host, DEATH_ROOM);
}

get_messages(int counter) {
  int align;
  string *messages;
  object env;

  env = environment();
  align = (int)env -> query_alignment();

  if(env->query_race() == "mountain dwarf" || env->query_race() == "kender" ||
     env->query_race() == "gnome" || env->query_race() == "halfling" ||
     env->query_race() == "hill dwarf") {

      messages = ({
 "Moradin says: IT IS TIME, MY CHILD\n\n",
 "Moradin lifts his huge warhammer over his right shoulder and smiles sadly.\n"+
 "You feel certain that if you had been alive you would have died from fear!\n",   
 
 "Moradin says: IT IS ALWAYS SAD WHEN A MIGHTY WARRIOR FALLS.\n"+     
 "Moradin makes a beckoning motion and you step closer.\n"+ 
 "Standing next to him you and vanish, appearing somewhere else...\n\n",

 "When the light from your eyes clear you find yourself standing in a \n"+
 "great stone palace, and sense you are deep within the heart of some \n"+
 "huge mountain ...somewhere... \n\n",      

 "Moradin says: COME HERE, I MUST READ YOUR DWARVISH HEART!\n"+      
 "Moradin steps closer, reaches out a huge hand straight into your chest,\n" +
 "grabbing something that is within! You feel a strange internal yank as\n" +
 "your very soul is removed for examination...\n\n"
      });

 if(align < -1000)
   messages += ({
 "Moradin says: YOUR SINS AGAINST YOUR DWARVISH BROTHERS AND ALL MORTALS  \n"+
 "              ARE AS MANY AS THE STONES THAT MAKE UP THE MOUNTAINS. YOU \n"+
 "              ARE A DISCRACE TO THE DWARVISH NATION, MY POOR CHILD.     \n"
  });

 else if(align < -500)
   messages += ({
 "Moradin says: OH, WHAT A DESPISABLE BUG WE HAVE HERE, STEALING ORE FROM \n"+
 "              DWARVISH BABIES NO DOUBT. WELL, NOW THEY SHALL NEVER SEE  \n"+
 "              YOUR PITIFUL SOUL AGAIN !!\n"
   });

 else if (align < -200)
  messages += ({
  "Moradin says: HAVE YOU EVER BEEN TOLD ABOUT REPENTANCE AND ATONEMENT? NO?\n" +
  "              DIDN'T THINK SO EITHER. YOU WILL BE TOLD NOW HOWEVER,\n" +
  "              FOR ETERNITY! HAHAHA!\n\n"
     });           

 else if(align < 0)
   messages += ({
 "Moradin says: SHAME ON YOU MORTAL ONE! STEALING AND KILLING, IS THAT ALL\n" +
 "              YOU CAN THINK OF? WELL NOW YOU WILL BE GIVEN TIME TO REGRET \n"+
 "              YOUR DEEDS. FOR EVER, HAHA!\n\n"
    });
         
 else if(align == 0)
    messages += ({
 "Moradin says: WHAT A FENCE-CLIMBER WE HAVE HERE! NEVER MADE UP YOUR MIND\n" +
 "              IN ALL YOUR LIFE, DID YOU? WELL, DON'T WORRY. YOU WON'T   \n"+
 "              HAVE TO NOW EITHER! HAHAHA!\n\n"
    });

 else if(align < 200)
    messages += ({
 "Moradin says: WHAT A NICE DWARF WE HAVE HERE. BUT YOU ALWAYS HAD YOUR  \n"+
 "              SHARE OF CHAOS, DEATH AND KILLINGS. PERHAPS THERE WILL BE \n"+
 "              ANOTHER CHANCE FOR YOU SOMETIME LATER, MY CHILD.\n\n"
    });

 else if(align < 500)
   messages += ({
 "Moradin says: YOU ARE INDEED A NOBLE DWARF, WORTHY OF MY PRAISE AND \n"+
 "              A GOOD PLACE IN THE AFTERLIFE HERE WITHIN MY MOUNTAINS.\n\n"
   });


 else if(align < 1000)
    messages += ({
 "Moradin says: THERE ARE MANY NOBLE CREATURES HERE IN MY SERVICE, PERHAPS \n"+
 "              YOU SHOULD TAKE ONE OF THEIR PLACES, MY LAWFUL CHILD?\n\n",
    });
 
 else 
   messages += ({
 "Moradin says: YOU ARE THE MOST NOBLE OF ALL DWARVES OF CREATION. \n"+
 "              MY CHILD, YOUR AFTERLIFE HERE IS ASSURED !!        \n\n"
   });
     
   messages += ({
 "Moradin says: CHILD, YOUR SOUL HAS SHOWN ME YOUR TRUE WAYS IN YOUR \n"+
 "              MORTAL LIFE. THESE THINGS HAVE PATHED THE WAY FOR YOUR \n"+
 "              ETERNAL AFTERLIFE. THIS IS THE WAY OF THE GODS.\n\n",

 "Moradin, taking your hand, walks rapidly out of the giant palace  \n"+
 "room, and heads down a huge corridor through the heart of the mountain.\n\n"
   });

  if(align < 1)
    messages += ({
  "Moradin stops at a huge door, black and smeared with blood.\n"+
  "Moradin says: THIS IS YOUR ETERNAL PUNISHMENT YOUR MORTAL LIFE HAS \n"+
  "              EARNED FOR YOU. HOPEFULLY, YOUR EXAMPLE WILL SHOW OTHERS \n"+
  "              THE FOLLY OF YOUR WAYS.\n\n"
   });

  else 
    messages += ({
 "Moradin stops at a huge archway openning into a field before a mountain.\n"+
 "Beyond you can see dwarvish brothers working on the mine, resting beneath\n"+
 "trees with plentiful shade, and drinking to their hearts content.\n\n"+
 "Moradin says: ENJOY, MY CHILD. YOUR NOBLE LIFE HAS EARNED YOU THIS.\n\n"
    });   

    messages += ({
 "An interdimensional gate opens behind you, and Kingbilly steps through.\n",
 "Kingbilly smiles at you.\n",
 "Kingbilly whispers something to Moradin.\n",
 "Moradin says: PERHAPS YOU ARE RIGHT, KINGBILLY\n",
 "Moradin looks at you sadly.\n\n",
    });

  if(align < 0) 
    messages += ({
  "Moradin says: KINGBILLY SUGGESTS THAT YOU DESERVE ANOTHER CHANCE.\n"+
  "              YET YOUR EVIL NATURE SUGGESTS OTHERWISE.\n",
  "Kingbilly whispers something to Moradin.\n",
  "Moradin says: VERY WELL, BUT IT IS AGAINST MY BETTER JUDGEMENT.\n\n"
    });

  else messages += ({
  "Moradin says: KINGBILLY SUGGESTS THAT YOUR NOBLE NATURE IS AN EXCELENT \n"+
  "              COMBATANT AGAINST EVIL, AND YOU SHOULD CONTINUE YOUR WORK\n",
  "Kingbilly smiles at Moradin.\n",
  "Moradin says: THIS IS TRUE. THERE IS MUCH EVIL TO BE DESTROYED ON THE  \n"+
  "              WORLD. I SHALL SEND YOU BACK TO PERFORM THIS DUTY.\n\n"
   }):

      messages += ({
 "Kingbilly leaves through the gate, which closes behind him.\n",
 "Moradin smiles happily.\n",
 "Moradin says: SO SHALL IT BE, i SHALL SEND YOU BACK TO THE WORLD.\n"+
 "              BUT KNOW THIS, MY CHILD, PERHAPS JUDGEMENT MAY NOT\n"+
 "              SERVE YOU SO WELL NEXT TIME.\n\n",

 "Morain hurls his hammer into the vision beyond where it explodes into \n"+
 "thousands of tiny pieces. The flash hurts your eyes and you are forced\n"+
 "to close them.\n\n"+
 "Your head begins to spin... your eyes become heavy...\n\n",
 "Your head becomes clear, and the blackness that covers your eyes lifts.\n\n",
 "You suddenly find yourself in a building. It seems vaguely familiar...\n"
       });
  }
  return messages[counter];
}