/* Baldrick: Added stat modifier for extreme strength */ inherit "/std/guild"; int query_skill_cost(string skill) { return 0; /* Need a list of possible skills first. Awaiting Dank */ } void setup() { set_name("fighter"); set_short("fighter"); set_long( "Warriors are the best fighters, and can take an enourous amount " "of damage, but have no magical skill at all. Warriors can use all " "weapons and armour available on Magisk Jord. " "The Warriors guild teaches one principle of survival: beating " "people to a pulp! It gives you skills that relate to finding " "out how good a weapon or armour is. Warriors hack and slash " "their way through life, and do not appear to be much good at " "anything else.\n"); reset_get(); add_guild_command("judge", 1); add_guild_command("focus", 1); add_guild_command("fix", 1); add_guild_command("smash",1); add_guild_command("wrestle",1); add_guild_command("parry",1); add_guild_command("disarm",1); add_guild_command("rush",1); } void create() { ::create(); set_main_skill("str"); } string query_main_skill() {return "str";} int query_advance_cost() { return 500; } int query_xp_cost() { return 2000; } int query_dice() { return 10; } int query_legal_race(string race) { return 1; } int query_thac0_step() { return 6; } int query_extr_str() { return 1; } int query_bing() { return 1; } int query_extra_con_bonus() { return 1; } /* void set_gp(object ob) { ob->set_max_gp(level+(((int)ob->query_str()+(int)ob->query_con())/2)); } void set_hp(object ob) { int lvl; lvl = (int)ob->query_level(); ob->set_max_hp(query_dice()*lvl); } */ int query_legal_armour(string ignore) { return 1; } int query_legal_weapon(string ignore) { return 1; } int query_dual_wield_penalty(object me, object w1, object w2) { int bon; bon = 50 - (int)me->query_level()*2; bon = ( bon<0 ? 0 : bon ); return bon; } void on_death(object player, object killer) { }