reset(arg) { if (!arg) set_light(1); extra_reset(); } extra_reset() { object orc, weapon; int n,i,class,value,weight; string w_name,alt_name; i = 0; if (!present("orc")) { while(i<8) { i += 1; orc = clone_object("obj/monster.talk"); call_other(orc, "set_name", "orc"); call_other(orc, "set_alias", "dirty crap"); call_other(orc, "set_race", "orc"); call_other(orc, "set_level", random(2) + 1); call_other(orc, "set_hp", 30); call_other(orc, "set_ep", 1014); call_other(orc, "set_al", -60); call_other(orc, "set_short", "An orc"); call_other(orc, "set_ac", 0); call_other(orc, "set_aggressive", 1); call_other(orc, "set_a_chat_chance", 50); call_other(orc, "load_a_chat", "Orc says: Kill him!\n"); call_other(orc, "load_a_chat", "Orc says: Bloody humans!\n"); call_other(orc, "load_a_chat", "Orc says: Stop him!\n"); call_other(orc, "load_a_chat", "Orc says: Get him!\n"); call_other(orc, "load_a_chat", "Orc says: Let's rip out his guts!\n"); call_other(orc, "load_a_chat", "Orc says: Kill him before he runs away!\n"); call_other(orc, "load_a_chat", "Orc says: What is that human doing here!\n"); n = random(3); weapon = clone_object("obj/weapon"); if (n == 0) { w_name = "small knife"; class = 5; value = 8; weight = 1; } if (n == 1) { w_name = "curved knife"; class = 7; value = 15; weight = 1; alt_name = "knife"; } if (n == 2) { w_name = "hand axe"; class = 9; value = 25; weight = 2; alt_name = "axe"; } call_other(weapon, "set_name", w_name); call_other(weapon, "set_class", class); call_other(weapon, "set_value", value); call_other(weapon, "set_weight", weight); call_other(weapon, "set_alt_name", alt_name); transfer(weapon, orc); call_other(weapon, "wield", w_name); move_object(orc, this_object()); } } } init() { add_action("south"); add_verb("south"); add_action("north"); add_verb("north"); } north() { if (present("orc")) { write("An orc bars your way.\n"); return 1; } call_other(this_player(), "move_player", "north#room/orc_treasure"); return 1; } south() { call_other(this_player(),"move_player", "south#room/orc_vall"); return 1; } long() { write("This is the local strong point of the orcs.\n"); write("There is an entrance to a small room to the north.\n"); } short() { return "The orc fortress"; }