inherit "/obj/baggage";
void setup() {
set_name( "packet" );
set_short( "waxed paper packet" );
add_adjective( ({ "waxed", "paper" }) );
set_main_plural( "waxed paper packets" );
set_long( "This is a small packet, rather like an envelope, of thick "+
"paper that has been waxed to make it more resilient.\n" );
set_weight( 1 );
set_value( 10 );
set_max_weight( 3 );
set_material("wood");
set_transparent();
add_property("writeable", 1);
} /* setup() */
int test_add( object thing, int flag ) {
string word;
object *things;
if ( !this_player() )
return ::test_add( thing, flag );
things = all_inventory( this_object() );
if ( !sizeof( things ) )
return ::test_add( thing, flag );
word = (string)things[ 0 ]->query_medium_alias();
if ( word == (string)thing->query_medium_alias() )
return ::test_add( thing, flag );
write( "You don't want to contaminate "+ ( stringp( word ) ?
(string)things[ 0 ]->the_short() :
(string)thing->the_short() ) +", do you?\n" );
return 0;
} /* test_add() */
object query_substance() {
object *things;
things = all_inventory( this_object() );
if ( !sizeof( things ) )
return 0;
if ( !stringp( (string)things[ 0 ]->query_medium_alias() ) )
return 0;
return things[ 0 ];
} /* query_substance() */
string short( int dark ) {
object thing = query_substance();
if ( dark || !objectp( thing ) )
return ::short( dark );
return ::short( dark ) +" of "+ (string)thing->short( dark );
} /* short() */
string query_plural( int dark ) {
object thing = query_substance();
if ( dark || !objectp( thing ) )
return ::query_plural( dark );
return ::query_plural( dark ) +" of "+ (string)thing->short( dark );
} /* query_plural() */
string *parse_command_id_list() {
object thing = query_substance();
if ( !objectp( thing ) )
return ::parse_command_id_list();
return ::parse_command_id_list() +
({ ::short( 0 ) +" of "+ (string)thing->short( 0 ) });
} /* parse_command_id_list() */
string *parse_command_plural_id_list() {
object thing = query_substance();
if ( !objectp( thing ) )
return ::parse_command_plural_id_list();
return ::parse_command_plural_id_list() +
({ ::query_plural( 0 ) +" of "+ (string)thing->short( 0 ) });
} /* parse_command_plural_id_list() */
string *parse_command_adjectiv_id_list() {
object thing = query_substance();
if ( !objectp( thing ) )
return ::parse_command_adjectiv_id_list();
return ::parse_command_adjectiv_id_list() +
(string *)thing->parse_command_adjectiv_id_list() +
(string *)thing->parse_command_id_list();
} /* parse_command_adjectiv_id_list() */
