// Petrarch // Merentha Lib 1.0 // <tail> varargs int command(string fname) { string str; int i; if(!fname) return notify_fail("Syntax: tail <file>\n"); if(fname[0..0]!="/") fname=this_player()->query_cwd()+fname; if (sizeof(fname) < 0) return notify_fail("File does not exist.\n"); if(!i=this_player()->getenv("LINES")) i=20; message("command", implode(explode(read_file(fname), "\n")[<i..<1],"\n"), this_player()); return 1; }