#define CREATOR "Rue" // Rue, 5.2000 - lava lamp; special effects by Tannah inherit "/std/room/furniture/basic"; #define MEDITATION "/std/effects/other/meditate_effect" void setup() { set_name("lamp"); set_short("lava lamp"); set_light(25); add_adjective( ({ "lava", "red" }) ); add_alias( ({ "lamp" }) ); set_long( "This is an odd looking lamp, roughly the shape of an " "hourglass, with a brass base. It is filled with murky pink " "liquid and large blobs of red goo that ooze this way and that. " "The exact nature of the red goo is a mystery. Some say it is " "a primitive type of troll that is still in its magma stage. " "Others reckon it is something that got away from the Alchemists' " "Guild. It gives off a faint light.\n" ); item_chat( ({ 120, 360, ({ "A rather disgusting wet popping noise comes from the lava lamp.", "A strange sucking noise seems to be coming from the lava lamp." }) }) ); set_allowed_positions(({"sitting","standing"})); set_allowed_room_verbs((["sitting" : "sits", "standing" : "stands" ])); set_weight(82); set_value(20500); } /* setup() */ void init() { ::init(); add_command( "stare", "at <direct:object'lamp'>" ); } /* init() */ int do_stare() { call_out( (: $(this_player())->add_effect( MEDITATION ) :), 1 ); add_succeeded_mess( "$N $V dreamily at $D and zone$s out.\n"); return 1; } /* do_stare() */