#include <config.h>

inherit "/lib/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();
}