--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/tool-mes.c	Sat Dec 06 04:37:05 1997 +0000
@@ -0,0 +1,210 @@
+/*--------------------------------------------------------------------------
+NETREK II -- Paradise
+
+Permission to use, copy, modify, and distribute this software and its
+documentation, or any derivative works thereof, for any NON-COMMERCIAL
+purpose and without fee is hereby granted, provided that this copyright
+notice appear in all copies.  No representations are made about the
+suitability of this software for any purpose.  This software is provided
+"as is" without express or implied warranty.
+
+    Xtrek Copyright 1986                            Chris Guthrie
+    Netrek (Xtrek II) Copyright 1989                Kevin P. Smith
+                                                    Scott Silvey
+    Paradise II (Netrek II) Copyright 1993          Larry Denys
+                                                    Kurt Olsen
+                                                    Brandon Gillespie
+--------------------------------------------------------------------------*/
+
+
+#include "config.h"
+
+#include <stdio.h>
+#include "defs.h"
+#include "data.h"
+#include "shmem.h"
+
+void 
+usage(char name[])
+{
+  char *message[255] = {
+    "\nSend messages (accepted from stdin).\n",
+    "\n\t'%s <recipient> [options]'\n\n",
+    "Recipients can be:\n",
+    "\ta number from 0-9 or a letter from a-j to send to one player\n",
+    "\ta team letter [FRKO] to send to that team\n",
+    "\tthe letter 'A' to send to ALL.\n",
+    "\nOptions:\n",
+    "\t-w          without the 'who' part of the message ('GOD->ALL')\n",
+    "\t-n string   from somebody other than 'GOD'\n\n",
+    ""
+  };
+  int x;
+
+  fprintf(stderr, "-- Netrek II (Paradise), %s --\n", PARAVERS);
+  for (x = 0; *message[x] != '\0'; x++)
+    fprintf(stderr, message[x], name);
+
+  exit(1);
+}
+
+void 
+pmessage(from_to, str, recip, group)
+/* ==[ printing of message func ]== */
+  char *from_to;
+  char *str;
+  int recip;
+  int group;
+{
+  struct message *cur;
+  if (++(mctl->mc_current) >= MAXMESSAGE)
+    mctl->mc_current = 0;
+  cur = &messages[mctl->mc_current];
+  cur->m_no = mctl->mc_current;
+  cur->m_flags = group;
+  cur->m_time = 0;
+  cur->m_recpt = recip;
+  cur->m_from = 255;
+  (void) sprintf(cur->m_data, "%s%s", from_to, str);
+  cur->m_flags |= MVALID;
+}
+
+int 
+main(int argc, char **argv)
+{
+  char ch;
+  char to[80];
+  char from[80];
+  char buf2[80];
+  int target;
+  int flag;
+  char name[32];
+
+  strcpy(from, "GOD");
+  strcpy(to, "ALL");
+
+  strcpy(name, argv[0]);
+
+  if (argc == 1)
+    usage(name);
+
+  if ((target = letter_to_pnum(argv[1][0])) >= 0)
+  {				/*--[ personal ]--*/
+    flag = MINDIV;
+    /*
+     * r = &players[target]; printf("debug: 1"); to[0] =
+     * team_to_letter(r->p_team); to[1] = 0;
+     */
+    strcpy(to, argv[1]);
+  }
+  else
+    switch (ch = argv[1][0])
+    {				/*--[ better be a team ]--*/
+     case 'A':
+      target = 0;
+      flag = MALL;
+      break;
+     case 'F':
+      target = FED;
+      flag = MTEAM;
+      strcpy(to, "FED");
+      break;
+     case 'R':
+      target = ROM;
+      flag = MTEAM;
+      strcpy(to, "ROM");
+      break;
+     case 'K':
+      target = KLI;
+      flag = MTEAM;
+      strcpy(to, "KLI");
+      break;
+     case 'O':
+      target = ORI;
+      flag = MTEAM;
+      strcpy(to, "ORI");
+      break;
+     case 'S':
+      printf("+> This options is not compatable yet");
+      exit(1);
+      flag = 0;
+      break;
+     default:
+      usage(name);
+      flag = 0;
+      break;
+    }
+
+  /*
+   * =========================[ check for options ]=========================
+   */
+
+  if (argc >= 3)
+  {
+    if (strcmp(argv[2], "-w") == 0)
+    {				/*-----[ without to/from ]-----*/
+      from[0] = 0;
+    }
+    else if (strcmp(argv[2], "-n") == 0)
+    {				/*--[ different from name ]---*/
+      if (argc <= 2)		/*--[ other than GOD ]--------*/
+	usage(name);
+      if (argc >= 3)
+      {
+	strcpy(from, argv[3]);
+      }
+      else
+      {
+	usage(name);
+      }
+    }
+    else if (strcmp(argv[1], "-u") == 0 || strcmp(argv[1], "-h") == 0)
+    {
+      usage(name);
+    }
+  }
+
+  /*
+   * ===[ merge the to/from strings, make sure they are the same length ]===
+   */
+
+  if (from[0] == 0 || to[0] == 0)
+  {
+    strcpy(buf2, "");
+  }
+  else
+  {
+    if (strlen(from) <= 2)
+    {
+      strcpy(buf2, " ");
+    }
+    strcat(buf2, from);
+    strcat(buf2, "->");
+    strcat(buf2, to);
+
+    while (strlen(buf2) < 9)
+    {				/*---[ if it's too short, extend it ]---*/
+      strcat(buf2, " ");
+    }
+    strcat(buf2, " ");		/*---[ throw in an extra space ]---*/
+  }
+  /*
+   * =========================[ send it on its way ]========================
+   */
+
+  openmem(0);
+
+  while (1)
+  {
+    char buf[80];
+    int len;
+
+    printf(buf2);
+    if (0 == fgets(buf, sizeof(buf), stdin))
+      break;
+    len = strlen(buf);
+    if (buf[len - 1] == '\n')
+      buf[--len] = 0;
+    pmessage(buf2, buf, target, flag);
+  }
+}