inherit "/lib/std/item";

int has_ball;

void init() {
    ::init();
    add_action("place", "place");
}

void clean_up() { return; }

void create() {
    ::create();
    has_ball=0;
    SetKeyName("pedestal");
    SetId( ({ "pedestal" }) );
    SetShort("a pedestal");
    SetLong(
      "This small (gnome-height) pedestal is made from a dark, mysterious stone. "+
      "There is a small indentation on the flat top, as if a round object were "+
      "meant to be placed there. ");
    SetRead("Made by the Wilsonshire and Sons corintian pillar specialists.");
    SetMass(10000);
    SetValue(0);
}

int place(string str)
{
    string this;
    object ths;

    if (!stringp(str) || sscanf(str,"%s on pedestal", this) != 1) return 0;
    if (has_ball) {
        if (!(ths=present(this,this_player()))) return 0;
        if (!ths->id("crystal ball")) return 0;
        write("The pedestal already has a crystal ball on it. ");
        return 1;}
    if (!(ths=present(this,this_player()))) {
        notify_fail("You are not carrying "+this+". ");
        return 0;}
    if (!ths->id("crystal ball")) {
        notify_fail("That's pointless. ");
        return 0;}
    ths->remove();
    write("You place the crystal ball on the pedestal, and watch it fuse into place. ");
    say("Places a crystal ball on the pedestal. The ball is fused to the pedestal");
    SetShort("a pedestal with crystal ball.");
    SetLong(
      "This small (gnome-height) pedestral is made from a dark, mysterious "+
      "stone.  A crystal ball snugly fits into an indentation on the top. As "+
      "you peer at it, you notice barely-perceptible lines of force streaming "+
      "from the stone to the crystal ball. It seems your lessons in discerning "+
      "magic forces have paid off. ");
    add_action("view", "view");
    has_ball=1;
    return 1;
}

int view(string str)
{
    int i;
    string desc;
    object ob, env, *inv;

    write("You gaze into the crystal ball. ");
    if((int)this_player()->query_mp() < 5) {
        write("Your magic powers are just too weak to help you. ");
        return 1;
    }
    if(!(ob = find_living(str))
#if 0
      || creatorp(ob)
#endif
    ) {
        write("No such person in our reality. ");
        return 1;
    }
    this_player()->add_mp(-5);
    if(!(env = environment(ob))) {
        write(ob->query_cap_name()+" is lost. ");
        return 1;
    }
    write("You find "+ob->query_cap_name()+" in the crystal ball: "); 
    ob=environment(ob);
    desc = (string)ob->GetLong()+"\n";
    inv = all_inventory(ob);
    for(i=0; i<sizeof(inv); i++) {
        if(inv[i]->query_invis()) continue;
        desc += "\n"+(string)inv[i]->GetShort()+" "; }
    write(desc);
    return 1;
}