/* -*- LPC -*- */ /* * $Locker: $ * $Id: mo_re.c,v 1.1 1998/01/06 05:25:41 ceres Exp $ * $Log: mo_re.c,v $ * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* more command, trial out by Turrican for a commands daemon. */ #include <creator.h> mixed cmd(string str) { object *things; seteuid(geteuid(this_player())); if(!str) { notify_fail("More which file(s)/object?\n"); return 0; } if(sizeof(things = WIZ_PRESENT->wiz_present(str, this_player()))) { str = file_name(things[0]); sscanf(str, "%s#%*d", str); if (file_size(str) <= 0) str += ".c"; } return this_player()->more_file(str); } void dest_me() { destruct(this_object()); } void clean_up() { dest_me(); } void reset() { dest_me(); }