mixed *query_verb_info( void ) { return( ({ "", "OBJE", "LIV", "OBJC from OBJ", "OBJA" }) ); } mixed can_get( void ) { return( "Get what?" ); } mixed can_get_str( string str ) { if( lowercase(str) == "all" || lowercase(str) == "everything" ) return( 1 ); else return( "You can't seem to find the " + str + "." ); } mixed can_get_obj( object obj ) { if( obj->is_gettable() ) return( 1 ); return( "You can't get the " + obj->query_id() + "." ); } mixed can_get_liv( object liv ) { return( "You can't get that." ); } mixed can_get_obj_from_obj( object target, string s, object obj ) { if( s == "from" && obj->is_container() ) { if( obj->is_closed() ) { return( "It's closed." ); } return( 1 ); } return( "You can't get " + target->query_id() + " from " + obj->query_id() + "." ); } mixed do_get( void ) { write( "You get something. Report this to a wiz." ); } mixed do_get_str( string str ) { object *inv; int i; inv = this_environment()->query_inventory(); for( i=0; i < sizeof( inv ); i++ ) { if( inv[i]->is_gettable() ) { if( inv[i]->move( this_player() ) ) { this_player()->targetted_action( "$N $vpick up $o.", 0, inv[i] ); } else { this_player()->targetted_action( "$N $vtry to pick up $o, but $vfail.", 0, inv[i] ); } } else { if( !inv[i]->is_player() ) { this_player()->targetted_action( "$N $vare unable to get $o.", 0, inv[i] ); } } } } mixed do_get_obj( object obj ) { if( obj->move( this_player() ) ) { this_player()->targetted_action( "$N $vpick up $o.", 0, obj ); } else { this_player()->targetted_action( "$N $vtry to pick up $o, but $vfail.", 0, obj ); } } mixed do_get_liv( object obj ) { write( "You get the " + obj->query_id() + ", report to Fudge." ); } mixed do_get_obj_from_obj( object target, string s, object obj ) { int i; object *inv; if( s == "all" || s == "everything" ) { inv = obj->query_inventory(); for( i = 0; i < sizeof( inv ); i ++ ) { if( inv[i]->move( this_player() ) ) { this_player()->targetted_action( "$N $vget $o from $o1.", 0, inv[i], obj ); } else { this_player()->targetted_action( "$N $vtry to get $o from $o1, but $vfail.", 0, inv[i], obj ); } } } else { if( target->move( this_player() ) ) { this_player()->targetted_action( "$N $vget $o from $o1.", 0, target, obj ); } else { this_player()->targetted_action( "$N $vtry to get $o from $o1, but $vfail.", 0, target, obj ); } } }