Added public files
Roughly added all public files. Probably missed some, though.
diff --git a/obj/tools/mudlink.c b/obj/tools/mudlink.c
new file mode 100644
index 0000000..209d546
--- /dev/null
+++ b/obj/tools/mudlink.c
@@ -0,0 +1,84 @@
+/*
+ * mudlink tool, offers several commands as an interface to the
+ * MUDLINK system.
+ *
+ * Commands offered:
+ * rpeers
+ * rwho <remotemud>
+ * rtell <player>@<remotemud>
+ *
+ * Deepthought, 19-Jan-93
+ */
+
+#include <config.h>
+#include <properties.h>
+
+inherit "/std/thing";
+
+create() {
+ string name, foo;
+
+ if (sizeof(old_explode(object_name(this_object()),"#")) != 2) return;
+
+ thing::create();
+ SetProp (P_SHORT,"a MUDLINK tool");
+ SetProp (P_LONG,
+ "This tool is used for communicating with MUDLINK. Commands are:\n"
++"rpeers Get a list of muds connected to MUDLINK\n"
++"rwho <mud> Show a list of players on the remote mud\n"
++"rtell <player>@<mud> <message> Tell something to a player on another mud\n"
+ );
+ AddId ("tool");
+ AddId ("mudlink");
+ AddAdjective("mudlink");
+ SetInfo ("Mudlink Tool V0.1 by Deepthought");
+}
+
+_query_read_msg() { return 0; }
+
+/*-------------------------------------------------------------------------
+** Add and decode our commands.
+*/
+
+init() {
+ thing::init();
+ add_action("rpeers","rpeers");
+ add_action("rwho","rwho");
+ add_action("rtell","rtell");
+}
+
+rpeers() {
+ string u;
+ u = geteuid(this_player());
+ if (stringp(u))
+ tell_object(find_player("mudlink"),"rpeers "+u+"\n");
+ return 1;
+}
+
+rwho(str) {
+ string u;
+ if (!str || str == "") {
+ write("Usage: rwho <mud>\n");
+ return 1;
+ }
+ if (stringp(u = geteuid(this_player())))
+ tell_object(find_player("mudlink"),"rwho "+u+"="+str+"\n");
+ return 1;
+}
+
+rtell(str) {
+ string u;
+ string a, b, c, d;
+
+ if (!str || str == "") {
+ write("Usage: rtell <player>@<mud> <message>\n");
+ return 1;
+ }
+ if (sscanf(str, "%s@%s %s", a, b, c) != 3) {
+ write("Usage: rtell <player>@<mud> <message>\n");
+ return 1;
+ }
+ if (stringp(u = geteuid(this_player())))
+ tell_object(find_player("mudlink"),"rpage "+u+"@"+a+"@"+b+"="+c+"\n");
+ return 1;
+}