/**
* This is a specialisation of the craft shop inheritable. It adds in the
* ability to read specified pages from books.
* @author Pinkfish
* @started Thu Sep 10 23:51:01 PDT 1998
*/
#include <shops/craft_shop.h>
#define READ_PAGE_PROP "browse page"
inherit CRAFT_SHOP_INHERIT;
/**
* This finishes the choose page thingy.
*/
private void finish_choose( string page_num, function end_func, int value,
string name, object *sellables ) {
int page;
object *invalid;
if( page_num == "quit" || page_num == "q") {
write("Aborting sale.\n");
return;
}
if( sscanf( page_num, "%d", page ) != 1 ) {
write("You need to enter a number.\n");
write("Which page of "+query_multiple_short(sellables)+" would you "
"like to let people browse? ");
input_to( (: finish_choose :), 0, end_func, value, name, sellables );
return;
}
if( page < 0 ) {
write("You need to specify a page number greator than zero.\n");
write("Which page of "+query_multiple_short(sellables)+" would you "
"like to let people browse? ");
input_to( (: finish_choose :), 0, end_func, value, name, sellables );
return;
}
invalid = filter( sellables, (: $1->query_num_pages() < $(page) :) );
if( sizeof(invalid) ) {
write("Page Number "+page+" is larger the number of pages in "+
query_multiple_short(invalid)+".\n");
write("Which page of "+query_multiple_short(sellables)+" would you "
"like to let people browse? ");
input_to( (: finish_choose :), 0, end_func, value, name, sellables );
return;
}
sellables->add_property( READ_PAGE_PROP, page );
sellables->set_open_page(0);
evaluate( end_func, value, name, sellables );
} /* finish_choose() */
/**
* This method gets the player to choose a page to allow to browse
* @param end_func the function to evaluate when finished
* @param value the value of the sellables
* @param name the name to sell the object for
* @param sellables the objects to sell
*/
protected int choose_which_page( function end_func, int value,
string name, object *sellables ) {
write("Which page of "+query_multiple_short(sellables)+" would you like "
"to let people browse (0 for the cover only)? ");
input_to( (: finish_choose :), 0, end_func, value, name, sellables );
} /* choose_which_page() */
/** @ignore yes */
void create() {
set_allowed_to_sell( (: $1->query_book() :) );
set_extra_sell_check( (: choose_which_page :) );
set_when_sold_function( (: $1->remove_property(READ_PAGE_PROP) :) );
::create();
} /* create() */
/**
* This is like a normal browse, but it allows us to
* look at specific pages in the book.
* @param number the page number to browse
* @param obs the objects whose pages to browse
* @return 0 on failure, 1 on success
*/
int browse_pages( object *obs ) {
object *real_obs, *no_pages, *ok, ob;
int number, i;
string mess, read;
if( !check_open(TP) )
return 0;
real_obs = query_controller()->create_all_real_objects( TP, obs );
mess = "$P$Browse page$P$";
no_pages = ({ });
ok = ({ });
for( i = 0; i < sizeof(obs); i++ ) {
ob = real_obs[i];
number = ob->query_property(READ_PAGE_PROP);
if( number > ob->query_num_pages() ) {
no_pages += ({ ob });
} else {
ob->set_open_page(number);
mess += ob->the_short()+":\n"+ob->long();
if( read = ob->query_readable_message() ) {
mess += "You read "+replace( ob->query_read_short( TP ),
"$name$", ob->a_short() )+":\n"+
ob->query_readable_message();
}
ok += ({ ob });
}
}
if( sizeof(ok) ) {
add_succeeded_mess( ({ mess, "$N browses a page of $I.\n"}), ok );
return 1;
}
add_failed_mess("There are not enough pages in $I to open to page "+
number+".\n", no_pages );
return 0;
} /* browse_pages() */
/** @ignore yes */
void init() {
string storeroom;
::init();
storeroom = file_name( query_controller()->query_sell_list() );
add_command("browse", "page of <indirect:object:"+storeroom+">",
(: browse_pages($1) :) );
} /* init() */
