/* -*- LPC -*- */ /* * $Locker: $ * $Id: tra_ns.c,v 1.2 2003/04/11 00:46:24 wodan Exp $ * $Log: tra_ns.c,v $ * Revision 1.2 2003/04/11 00:46:24 wodan * Forcibly released due to inactivity * * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* trans command, trial out by Turrican for a commands daemon. */ #include <creator.h> mixed cmd(string str) { object *obs, ob; if (!str || !(sizeof(obs = WIZ_PRESENT->wiz_present(str, this_player())))) { write("Transport who ?\n"); return 1; } foreach (ob in obs) { if (environment(ob) == environment(this_player())) { write(WIZ_PRESENT->desc_object(ob)+" is already here.\n"); continue; } tell_object( ob, "You are magically transferred somewhere.\n" ); ob->move_with_look( environment( this_player() ), (string)ob->query_mmsgin(), (string)ob->query_mmsgout() ); log_file("/d/admin/log/trans", "%s transed %s to %s\n", this_player()->query_name(), str, base_name(environment(this_player()))); } return 1; } void dest_me() { destruct(this_object()); } void clean_up() { dest_me(); } void reset() { dest_me(); }