#include <lib.h>
#include <vendor_types.h>
inherit LIB_ITEM;
void init() {
::init();
add_action("scry", "scry");
}
void create() {
::create();
SetKeyName("ball");
SetId( ({ "ball", "base", "crystal ball", "honor_quest_ob" }) );
SetShort( "%^CYAN%^a crystal ball%^RESET%^");
SetLong("It has some writing on its base.");
SetRead("From your grandfather with love.");
SetMass(190);
SetValue(50);
SetVendorType(VT_MAGIC);
SetProperty("magic item", ({"scry"}) );
true();
}
int scry(string str) {
object ob, env;
if(!str) return notify_fail("Scry what?\n");
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)) || creatorp(ob)) {
write("No such person in our reality.");
return 1;
}
if(!environment(ob)) return notify_fail("Gurble gurble gurble.\n");
if(environment(ob)->GetProperty("no scry"))
{
write("Something is blocking your concentration.");
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 at:\n");
write(env->GetShort()+"\n");
return 1;
}
