#include "defs.h"
inherit ROOM_OBJ;
string marker, *keywords, *_exits;
void setup() {
set_short( "uninitialised search room" );
set_long( "You are in an uninitialized search room. "
"This is an example of a room that gets cloned and configured "
"afterwards. In this room, it's the function set_marker that's "
"used to define its look, and most if the exits as well. And "
"the function set_destination that is used to find, possibly "
"clone and configure, the rooms that fit the keywords you search "
"for. The handler called SEARCH in the code, is \""+
SEARCH +"\" and the one called QUIT_HANDLER, is \""+
QUIT_HANDLER +"\".\n" );
add_property( "no map", 1 );
/* set_light sets the amount of light the room has. See help light
* for a list of what the number means:)
*/
set_light( 50 );
_exits = ({ });
add_exit( "exit", LEARNING +"search", "path" );
/* add_property is used to add a value to an object, that can later be
* queried for with query_property.
* The "commented functions" and "keywords" properties are specific for
* rooms in the learning domain and is used to make it possible to search
* for subjects.
* See /d/learning/handlers/search.c for the way this is done.
*/
add_property( "commented functions",
({ "set_destination", "query_quit_handler",
"query_cloning_info" }) );
add_property( "keywords", ({ "room", "virtual" }) );
} /* setup() */
string query_marker() {
return marker;
} /* query_marker() */
string *query_keywords() {
if( !keywords ) {
return ({ });
}
return keywords;
} /* query_keywords() */
void set_marker( string word, string *words ) {
mixed search_result;
string description, exit;
int i;
set_short( "\""+ word +"\" search room" );
add_property( "determinate", "the " );
marker = word;
keywords = words;
description ="You are in one of the search rooms of the learning domain "
"and you have chosen the word"+
({ " \"", "s \"" })[ sizeof( words ) > 1 ] + word +"\" so far.";
search_result = SEARCH->get_keywords( words );
_exits = search_result[ 0 ];
if( sizeof( _exits ) ) {
description += " Take one of the keyword exits to narrow the search to "
"include that keyword.";
foreach( word in _exits ) {
add_exit( word, "/??", "path" );
}
}
description += "\n";
if( sizeof( search_result[ 1 ] ) < 6 ) {
description += "$I$5=Take one of the numbered exits to go to that room.";
for( i = 0; i < sizeof( search_result[ 1 ] ); i++ ) {
exit = sprintf( "%s: %s", ({ "1", "2", "3", "4", "5" })[ i ],
MAP_H->query_short( search_result[ 1 ][ i ] ) );
add_exit( ({ "1", "2", "3", "4", "5" })[ i ],
search_result[ 1 ][ i ], "path" );
description += "\n$C$"+ exit +".";
}
description += "$I$0=\n";
}
set_long( description );
} /* set_marker() */
/* set_destination is called whenever an exit is looked through or walked
* though.
* The search handler will see if there's already a room defined by the
* keywords, and if not, it'll make one.
*/
void set_destination( string keyword ) {
if( member_array( keyword, _exits ) != -1 ) {
/* the exit is a keyword, and need recalculation
*/
modify_exit( keyword, ({ "dest",
SEARCH->find_room( keywords + ({ keyword }) ) }) );
}
if ( find_call_out( "check_empty" ) == -1 )
call_out( "check_empty", 10 );
} /* set_destination() */
/* This is for cleanup, it's called 10 seconds after something left, and if
* nothing is in the room it's removed.
*/
void check_empty() {
if ( sizeof( all_inventory( this_object() ) ) )
return;
dest_me();
} /* check_empty() */
/* query_quit_handler() is a function called by the player to get the filename
* of the quit_handler.
* When quitting, the function player_quitting() is called in the quit_handler
* which will save the
*/
string query_quit_handler() { return QUIT_HANDLER; }
/* query_cloning_info() is called by things that need to be able to remare
* this room.
* It it an array of three or four elements, the first of which is the
* object, the second is a function called in it, with the third and if it's
* there, the fourth element as arguments.
*/
mixed *query_cloning_info() {
return ({ SEARCH, "find_room", keywords });
} /* query_cloning_info() */
/* This is for cleaning up the information saved by the quit_handler, to
* make sure that the players name is removed from the lists.
*
* event_exit is generally called whenever someone leaves the room.
*/
void event_exit( object thing, string mess, object to ) {
string handler;
if ( file_name( to ) == "/room/departures" )
return;
handler = query_quit_handler();
if ( (string)to->query_quit_handler() != handler )
handler->remove_from_list( thing );
} /* event_exit() */
