// File : /cmds/ghost/_go.c // Creator : Buddha@TMI (09/92) // Updated : Watcher@TMI (03/28/93) for new ghost body. // // This is the ghost go command, which is similar to the standard // player go command, except it allows things like passing through // doors, etc... Typical ghost behaviour. :) #include <mudlib.h> inherit DAEMON ; int cmd_go(string dir) { string str; object env; mapping exits, tmp; mapping doors ; string tstr ; env = environment(this_player()); if (!env) { write("You are in the void. There's no way out!\n"); return 1; } exits = env->query("exits"); if (!mapp(exits) || member_array(dir, keys(exits)) == -1) { notify_fail("You can't go that way!\n"); return 0; } // let's see if it's ok to move -- is there a pre-exit function to call? // if the preexit function returns 1, then the exit will be prevented! // otherwise the preexit function can be void or return 0, and the exit // will occur after it's called. tmp = env->query("pre_exit_func"); if (tmp && tmp[dir] && call_other(env, tmp[dir])) return 1; // Now we find out if there's a special message to use when they leave. // if there is, we'll use it instead of the default. tmp = env->query("exit_msg"); if (tmp && mapp(tmp) && tmp[dir]) tstr = replace_string(tmp[dir], "$N", (string)this_player()->query("cap_name") ); else tstr = (string)this_player()->query_mout(dir); // Check to see if there is a closed door in the way. If so, // override the previous set exit message with a new one. doors = env->query("doors") ; if (doors && doors[dir]) { if(member_array(doors[dir]["status"], ({"closed","locked"})) > -1) { tstr = "The ghost of " + (string)this_player()->query("cap_name") + " passes through the " + dir + " door."; write("You pass through the closed door.\n\n"); } } // Now complete the ghost's move to the new room. this_player()->move_player(exits[dir], tstr, dir); // We check for a post-exit function before we're done. // note that the player is no longer in the room, and this is also // our last chance to do anything before our control of the player is // lost. It doesn't matter what the post-exit function returns. tmp = env->query("post_exit_func"); if (tmp && mapp(tmp) && tmp[dir]) call_other(env, tmp[dir]); // Finally we are finished. return 1; } string help() { return ("Usage: go <direction>\n\n"+ "The go command will move you in the direction specified, ie \"go west\" will\n"+ "move you through the room's west exit. You can also type \"west\" and that\n"+ "will work. For the standard directions, \"w\" or other one-letter abbreviations\n"+ "will also work.\n") ; }