#include <lib.h>
inherit STD_ROOM;
int get_exp(int lev);
int train_player(object tp, string which, int amount);
int get_stat_cost(int x, int lev);
void create() {
object ob;
::create();
SetProperty("light", 2);
SetProperty("indoors", 1);
SetNoClean(1);
SetShort( "the adventurer's hall");
SetLong(
"This is the adventurer's hall of the town of Praxis. It "
"is a large wooden building which looks worn from all the use "
"over the years. A large bulletin board stands in the center of the "
"room, filled with notes from the many adventurers of this reality. "
"In front of the building Boc La Road runs north of here. To the "
"south is a small passage illuminated by a shimmering "
"%^BLUE%^blue%^RESET%^ light.");
SetExits(
(["north" : "/domains/Praxis/e_boc_la2",
"east" : "/domains/Praxis/lpmud_room",
"south" : "/domains/Praxis/adv_inner",
"down" : "/domains/Praxis/ombud_hall"]) );
SetItems(
(["hall" : "A place for a rowdy time!",
"road" : "A small dirt path going through Praxis.",
"passage" : "A %^BLUE%^blue%^RESET%^ light illuminates it.",
"light" : "It is probably a force field."]) );
ob = new("/lib/bboard");
ob->SetKeyName("board");
ob->SetId( ({ "board", "bulletin board", "reality board" }) );
ob->set_board_id("main_board");
ob->SetShort("The Nightmare Reality Board");
// ob->SetShort( "The Nightmare Reality Board");
ob->SetLong( "An old cork board where the adventurers "
"who pass through Praxis post information on the "
"reality they have discovered.\n");
ob->set_max_posts(75);
ob->move(this_object());
SetProperty("no steal", 1);
SetProperty("no attack", 1);
}
int go_south() {
if(!creatorp(this_player())) {
write("%^BLUE%^%^BOLD%^You cannot penetrate the force of the blue light.");
say(this_player()->query_cap_name()+" tries to get through the "
"passage, but fails.", this_player());
return 0;
}
return 1;
}
int get_exp(int lev) {
int val;
switch(lev) {
case 0: val = 0; break;
case 1: val = 1014; break;
case 2: val = 2028; break;
case 3: val = 3056; break;
case 4: val = 4800; break;
case 5: val = 6200; break;
case 6: val = 9100; break;
case 7: val = 12500; break;
case 8: val = 15000; break;
case 9: val = 20000; break;
case 10: val = 28000; break;
case 11: val = 40000; break;
case 12: val = 55000; break;
case 13: val = 72000; break;
case 14: val = 104000; break;
case 15: val = 150000; break;
default: val = (lev-12)*(lev-15)*28000 + 150000;
}
return val;
}
int train_player(object tp, string which, int amount) {
int exp, amt;
if(amount < 1) {
notify_fail("You cannot train that amount.\n");
return 0;
}
exp = (int)tp->query_exp();
if(exp-amount < get_exp((int)tp->query_level())) {
notify_fail("You do not have the experience to train that much.\n");
return 0;
}
if((int)tp->query_max_skill(which) <= (int)tp->query_skill(which)) {
notify_fail("You can train no more in that skill.\n");
return 0;
}
amt = ( (int)tp->query_level() * 4 ) + 20;
if(amt <= (int)tp->query_skill(which) )
{
notify_fail("You must advance your level to train more in that skill"+
".\n");
return 0;
}
tp->add_skill_points(which, amount/4);
tp->add_exp(-amount);
tell_object(tp, "You train in the skill of "+which+".");
return 1;
}
int get_stat_cost(int x, int lev) {
if(x==1) return ((lev/10)*(lev/10)*10000) + (lev/3)*1000;
else return (lev/7)*(lev/7)*(lev*900);
}
void init(){
::init();
}
