#include "path.h" inherit "/std/outside"; int found; object vine; void setup() { add_property("no_undead",1); set_light(LIGHT); set_short("Isle of Havmand : Hilltop"); set_long("\nIsle of Havmand : Hilltop\n\n" " This is the top of the hill and above the treeline at last. You look down " "onto the canopy of trees from the jungle you have just climbed through. " "The ground here is very rocky and dry, but a few trees still manage to " "flourish. " "\n\n"); set_night_long("\nIsle of Havmand: Hilltop.\n" " Everything seems very dark and the few shapes you can make " "out are full of mystery. Far out on the horizon you see an intermittent " "flashing light, and closer in the dark shapes of trees loom at you in the " "gloom. " "\n\n"); add_item("canopy","You can look down on the tops of the jungle trees below " "you. They seem even thicker from here than when you were walking through " "them.\n"); add_item(({"tree","trees"}),"The trees of the jungle are below you. The few " "trees here are healthy looking, and have vines growing on them. \n"); add_item("vines","Strong rope like vines hang from the trees. " "They could be useful, if you can find something to chop them with.\n"); add_item(({"light","flashing","flashing light"}),"You can see a light flashing " "on and off steadily in the far distance. You assume it is a warning " "device of some sort, probably a lighthouse.\n"); add_exit("southeast",HAVMAND+"j29.c","path"); } void init() { add_action("do_cut","cut"); add_action("do_cut","slice"); add_action("do_cut","chop"); ::init(); } int do_cut(string str) { if (!str) { write("Cut what?"); return 1; } if(str == "vine") { object *ob; ob = find_match("hatchet",TP); if(sizeof(ob) <1) { write("You don't have anything that could cut through that. \n"); return 0; } else { vine = new(OBJ+"vine.c"); vine->move(this_object()); write("With a swift swing, you cleave the vine in two. It falls from the tree and " "crumples upon the ground. \n"); return 1; } } else { write("Cut what?\n"); } }