// /d/standard/sage_room
// by Valodin
// This is where you can learn new languages and fix old ones
#include <lib.h>
#include <daemons.h>
#include <clock.h>
// This is how many experience points == one second
#define SEC_TO_EXP 3
inherit "/lib/std/room";
#define OLD_LANGUAGES ({ "elvish", "giantish", "orcish", "artrellian", "mischief", "sensuous", "hobbitish", "pseudo-speak", "gnomish" })
mapping queue;
void create() {
::create();
queue = ([]);
SetProperty("light", 3);
SetProperty("indoors", 1);
SetProperty("no steal", 1);
SetProperty("no attack", 1);
SetProperty("no magic", 1);
SetShort( "Sage room");
SetLong( "The walls of this smoke-filled room are covered with trappings "
"from far off lands. In the center of a huge smoke cloud sits a small "
"white-haired man. He looks like he is very wise. There are books on "
"how to speak different languages.");
SetItems(
([({"sage", "man", "old man"}) : "The sage is a tiny little "
"wrinkled man. But he looks very wise.",
({"walls", "trappings"}) : "The walls are covered in strange "
"writings in many languages, but you can hardly see them "
"through all the smoke from the sage's pipe.",
"pipe" : "The sage puffs away on this small water pipe. "
"The wisps of smoke remind you of the man's beard.",
({"book", "books"}) : "As you flip through the books you "
"decide that you should study a new language."]) );
AddExit("south", "/domains/Praxis/w_boc_la2", (: "leave_the_room" :) );
}
void init() {
::init();
add_action("ask_sage", "ask");
add_action("study_lang", "study");
}
int remove_old_lang(object ob) {
string *langs;
int i, szl;
if(!function_exists("query_all_languages", ob))
return 0;
langs = ob->query_all_languages();
for(i = 0, szl = sizeof(langs); i < szl; i++)
if(member_array(langs[i], OLD_LANGUAGES) != -1)
ob->remove_language(langs[i]);
return 1;
}
int fix_languages() {
write("The sage peers at you intently.");
if(!remove_old_lang(this_player()))
{
write("The sage says: You need new flesh before I can help your mind.");
return 1;
}
//LANG_D->init_languages(this_player());
write("The sage says: You have been healed, my " +
(((string)this_player()->query_gender() == "male") ? "son" :
"daughter") + ".");
return 1;
}
int ask_sage(string str)
{
string trash;
notify_fail("Ask who, what?\n");
if(!str)
return 0;
if(sscanf(str, "sage%s", trash, trash) == 1)
notify_fail("What do you want to ask the sage?\n");
if(sscanf(str, "sage%sfix%s", trash, trash) == 2)
{
return fix_languages();
}
return 0;
}
int able_to_study(int amount)
{
int exp;
exp = (int)this_player()->query_exp();
if((exp - amount) <
(int)ADVANCE_D->get_exp((int)this_player()->query_level()))
return 0;
else
return 1;
}
int coclean(mixed *element, object ob)
{
if(element[0] != ob)
return 0;
else
return 1;
}
void clean_call_outs(object ob)
{
mixed *all_callouts;
int i, acsz;
all_callouts = call_out_info();
all_callouts = filter_array(all_callouts, "coclean", this_object(),
this_object());
for(i = 0, acsz = sizeof(all_callouts); i < acsz; i++)
remove_call_out(all_callouts[i][1]);
for(i = 0, acsz = sizeof(all_callouts); i < acsz; i++)
if(all_callouts[i][3] != ob)
call_out(all_callouts[i][1], all_callouts[i][2], all_callouts[i][3]);
}
int convert_time(string str)
{
string *times;
int ret, i, j, tln;
times = explode(str, " ");
ret = 0;
tln = sizeof(times) / 2;
for(i = 0; i < tln; i++)
{
j = to_int(times[2 * i]);
switch(times[2 * i + 1])
{
case "seconds":
case "second":
j = j * SECOND;
break;
case "minutes":
case "minute":
j = j * MINUTE;
break;
case "hours":
case "hour":
j = j * HOUR;
break;
case "days":
case "day":
j = j * DAY;
break;
case "week":
case "weeks":
j = j * WEEK;
break;
case "month":
case "months":
j = j * MONTH;
break;
case "year":
case "years":
j = j * YEAR;
break;
default:
return 0;
}
ret += j;
}
return ret;
}
int study_lang(string str)
{
string lang, timestr;
int nmtimespan;
if(!str)
{
write("Study which language for how long?");
return 1;
}
if(queue[this_player()])
{
write("The sage says: I cannot teach you two languages at once, my " +
(((string)this_player()->query_gender() == "male") ? "son." :
"daughter."));
return 1;
}
if(!function_exists("learn_language", this_player()))
{
write("The sage says: I am sorry, my " +
(((string)this_player()->query_gender() == "male") ? "son" :
"daughter") + ", but I cannot teach you in your current body.");
return 1;
}
if((sscanf(str, "%s for %s", lang, timestr) != 2) || (lang == "") ||
(timestr == "") || !(nmtimespan = convert_time(timestr)))
{
write("Study which language for how long?");
return 1;
}
lang = lower_case(lang);
if(nmtimespan <= 0)
{
write("The sage shakes his head at you in disgust.");
return 1;
}
if(nmtimespan > DAY)
{
write("You decide that you will get hungry and bored long before then.");
return 1;
}
if(!able_to_study(SEC_TO_EXP * nmtimespan))
{
write("The sage says: I am sorry, my " +
(((string)this_player()->query_gender() == "male") ? "son" :
"daughter") + ", but you are not experienced enough to study "
"for that long.");
return 1;
}
write("You begin studying " + capitalize(lang) + ". You must stay here and"
" study until your time has ended in order to learn the langauge.");
queue[this_player()] = ({ lang, (SEC_TO_EXP * nmtimespan) });
call_out("advance_em", nmtimespan, this_player());
//if(member_array(lang, (string *)(LANG_D->all_languages())) == -1)
//{
// write("The sage says: " + capitalize(lang) + " is an uncommon language. "
// "If you did not mean to study it, then you should leave now, my " +
// (((string)this_player()->query_gender() == "male") ? "son." :
// "daughter."));
// return 1;
//}
return 1;
}
int leave_the_room()
{
if(queue[this_player()])
{
write("You decide to quit studying and go do other things.");
map_delete(queue, this_player());
clean_call_outs(this_player());
}
return 1;
}
void advance_em(mixed arg)
{
object ob;
string lang;
int exp;
ob = (object)arg;
if(!ob || (environment(ob) != this_object()))
{
if(ob)
if(queue[ob])
map_delete(queue,ob);
return;
}
if(!queue[ob])
return;
lang = (string)queue[ob][0];
exp = (int)queue[ob][1];
ob->add_exp(-exp);
ob->learn_language(lang, exp);
write("You are done studying " + capitalize(lang) + ".");
map_delete(queue, ob);
}
