LPMUD/
LPMUD/BIN/
LPMUD/DOC/
LPMUD/MUDLIB/
LPMUD/MUDLIB/BANISH/
LPMUD/MUDLIB/D/
LPMUD/MUDLIB/DOC/
LPMUD/MUDLIB/DOC/DOMAINS/
LPMUD/MUDLIB/DOC/EFUN/
LPMUD/MUDLIB/DOC/EXAMPLES/
LPMUD/MUDLIB/DOC/EXAMPLES/ARMOUR/
LPMUD/MUDLIB/DOC/EXAMPLES/CONTAIN/
LPMUD/MUDLIB/DOC/EXAMPLES/FOOD/
LPMUD/MUDLIB/DOC/EXAMPLES/MAGIC/
LPMUD/MUDLIB/DOC/EXAMPLES/MONSTER/
LPMUD/MUDLIB/DOC/EXAMPLES/ROOM/
LPMUD/MUDLIB/DOC/EXAMPLES/WEAPONS/
LPMUD/MUDLIB/FUNCTION/
LPMUD/MUDLIB/INCLUDE/
LPMUD/MUDLIB/INCLUDE/FN_SPECS/
LPMUD/MUDLIB/INCLUDE/SKILLS/
LPMUD/MUDLIB/INFO/
LPMUD/MUDLIB/INHERIT/BASE/
LPMUD/MUDLIB/LOG/
LPMUD/MUDLIB/MANUALS/312/
LPMUD/MUDLIB/NEWS/
LPMUD/MUDLIB/OBJ/PARTY/
LPMUD/MUDLIB/OBJ/SHADOWS/
LPMUD/MUDLIB/OBJECTS/COMPONEN/
LPMUD/MUDLIB/OPEN/
LPMUD/MUDLIB/OPEN/LIBRARY/
LPMUD/MUDLIB/OPEN/PARTY/
LPMUD/MUDLIB/PLAYERS/
LPMUD/MUDLIB/PLAYERS/ZIL/
LPMUD/MUDLIB/ROOM/
LPMUD/MUDLIB/ROOM/CITY/ARENA/
LPMUD/MUDLIB/ROOM/CITY/CREATOR/
LPMUD/MUDLIB/ROOM/CITY/GARDEN/MONST/
LPMUD/MUDLIB/ROOM/CITY/OBJ/
LPMUD/MUDLIB/ROOM/CITY/PUB/
LPMUD/MUDLIB/ROOM/CITY/SHOP/
LPMUD/MUDLIB/ROOM/DEATH/
LPMUD/MUDLIB/ROOM/REGISTRY/
LPMUD/MUDLIB/SECURE/
LPMUD/MUDLIB/SECURE/UDP_CMD_/
LPMUD/MUDLIB/SKILLS/
LPMUD/MUDLIB/SKILLS/FIGHTER/
LPMUD/MUDLIB/SKILLS/THIEF/
LPMUD/MUDLIB/USR/
LPMUD/MUDLIB/USR/CREATORS/
LPMUD/MUDLIB/USR/PLAYERS/
void purge() {
  object obj;
  string *primary;
  string *skills;
  string *tmp_array;
  string temp;
  int i, j, k;
  
  primary = ({
	"strength", "intelligence", "wisdom", "dexterity", "charisma",
	"constitution", "combat", "level",
	"swim", "climb",
  });
  skills = ({
    "unarmed", "two_weapon", "multi_attack", "multi_opponent",
    "armouring", "weapon_smith",

	"healing_sphere", "divination_sphere", "combat_sphere",
	"nature_sphere",  "necromancy_sphere", "stellar_sphere",
	"protection_sphere", 

	"evocation", "divination", "necromancy", "alteration",
	"illusion", "charm", "conjuration",
	"abjuration",

	"stealth", "locks", "steal", "disguise", "appraisal", "backstab",
	"traps",
	"disguise",
  });
  obj = this_player();

  tmp_array = primary + skills;
  for(i=0; i<sizeof(tmp_array); i++) {
    if(call_other(obj, "query_"+tmp_array[i]) > 20)
      call_other(obj, "set_"+tmp_array[i], 20);
    k = (int)call_other(obj, "query_"+tmp_array[i]);
    if(k) {
    k *= 2;
    k /= 3;
    k += random(3);
    }
    call_other(obj, "set_"+tmp_array[i], k);
  }

  k = (int)obj->query_level();
  if(obj->query_class("fighter")) temp = "/room/city/arena";
  else if(obj->query_class("mage")) temp = "/players/drakken/tower/mguild";
  else if(obj->query_class("thief")) temp = "/room/city/theif/guild";
  else temp = "/room/city/cleric/hall4";
  obj->set_title(call_other(temp, "get_new_title", (k-1)));
  obj->set_exp(call_other(temp, "get_next_exp", (k-1)));
  write("You character has now been purged...\n");
}