inherit "/obj/vessel";
void setup() {
set_name( "phial" );
set_short( "crystal phial" );
add_adjective( "crystal" );
set_main_plural( "crystal phials" );
set_long( "This is a small tube-like bottle made of some sort of "+
"crystal. A stopper is attached at one end on a bit of wire.\n" );
set_weight( 1 );
set_value( 1000 );
set_max_weight( 1 );
set_max_volume( 10 );
set_transparent();
} /* 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_adjectiv_id_list() {
object thing = query_substance();
if ( !objectp( thing ) )
return ::parse_command_adjectiv_id_list();
return ::parse_command_adjectiv_id_list() + ({ "of" }) +
(string *)thing->query_adjectives();
} /* parse_command_adjectiv_id_list() */
