inherit OBJECT_OBJ; void setup() { set_name("button"); set_short("red button"); add_adjective("red"); set_long("This red button destructs all non-user objects in " "the room. USE WITH EXTREME CAUTION.\n"); reset_get(); add_property("there", "embedded into the wall"); } /* setup() */ void init() { add_command("press"); } /* init() */ int do_press() { object thing, *things; things = (object *)environment()->query_non_destable(); if( !things ) things = ({ TO }); else things += ({ TO }); foreach( thing in INV( environment() ) - things ) if( !userp( thing ) ) thing->dest_me(); write("You clean up.\n"); say((string)TP->one_short()+" cleans up.\n"); return 1; } /* do_press() */