/* charisma object */

inherit "obj/shadows/shadow";
inherit "inherit/timer";

object who;
int charisma;

void shadow_charisma(object ob, int i) {
  who = ob;
  if(!who) { 
    destruct(this_object());
    return;
  }
  charisma = i;
  shadow_object(who);
}  

int query_charisma() { return charisma; }

object query_charisma_object() {  return this_object(); }

void time_out() {
  tell_object(who,"You don't feel charismatic anymore...\n");
  ::time_out();
}

void dispel_magic() { time_out(); }

int query_old_charisma() { return (int)who->query_charisma(); }