// The goblin Newbie Area // Made by Tek and Allonon May 1995 #include "path.h"; inherit "/std/room"; void setup() { // Descriptions... set_short("Realm of the Goblin: Tunnels"); set_light(20); set_zone("newbie_tunnels"); set_long("\nRealm of the Goblin: Tunnels\n\n" " You stand outside of a really large gate. " "It is locked and no matter how much you pound on it, it " "will not open. The tunnel you stand in is bare and damp. " "It continues south to who knows where.\n\n"); add_item(({"wall", "rock"}), "The walls here are dark and damp. They are covered " "with moss and fungus. Some places there are " "bodily wastes smeared up on the walls. The " "sight of it is disgusting.\n"); add_item(({"moss", "fungus"}), "The moss and fungus probably grow here " "because the walls are so damp and wet.\n"); add_item("north wall","This wall has a section in it where " "the rock has been dug out. It appears to have been the start " "of a tunnel extension, but the work must have been abandoned.\n"); // Items.... add_exit("south",ROOM+"cave2.c","path"); modify_exit("south",({"function","pick_tribe"})); /* took npc out since tribe is found in modify_exit now, Tek 11-97 add_clone("/d/mm/Cities/caldera/monster/tribe_giver.c",1); */ // Exits.... } /*setup() */ int pick_tribe() { if(this_player()->query_race() == "goblin") { if(!this_player()->query_race_group_ob()) { write("Determining what tribe you belong to.........." "\n\n"); //This is the code to add clans to the player switch(random(100) ) { case 0..50: this_player()->set_race_group_ob("/std/race_groups/garona"); write("Tribe Garona has you in their records.\n"); write_file("/d/newbie/logs/GARONA",this_player()->query_cap_name()+" is a member Garona tribe, on "+ctime(time())+"\n"); break; case 51..99: this_player()->set_race_group_ob("/std/race_groups/chiptooth"); write("Tribe Chiptooth has you in their records.\n"); write_file("/d/newbie/logs/CHIPTOOTH",this_player()->query_cap_name()+ " is a member of Chiptooth tribe, on "+ctime(time())+"\n"); break; } //end code to add clans write("Type race on to turn on your race channel.\n\n"); return(1); } write("You have a Tribe all ready, quit wasting my time.\n"); return 1; } //end If("goblin") write("You are not a Goblin, don't waste my time.\n"); return 1; }