Import of Empire 4.2.12

2003-08-23 12:23:04 +00:00 · 2003-08-23 12:23:04 +00:00 · d8b7fdfae1
commit d8b7fdfae1
817 changed files with 126589 additions and 0 deletions
--- a/src/lib/subs/rej.c
+++ b/src/lib/subs/rej.c
@ -0,0 +1,167 @@
+/*
+ *  Empire - A multi-player, client/server Internet based war game.
+ *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ *                           Ken Stevens, Steve McClure
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ *  ---
+ *
+ *  See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
+ *  related information and legal notices. It is expected that any future
+ *  projects/authors will amend these files as needed.
+ *
+ *  ---
+ *
+ *  rej.c: Various relations setting routines
+ * 
+ *  Known contributors to this file:
+ *     Dave Pare, 1994
+ */
+
+#include "misc.h"
+#include "nat.h"
+#include "file.h"
+#include "news.h"
+#include "player.h"
+#include "prototypes.h"
+#include "optlist.h"
+
+extern s_char *relates[];
+extern int update_pending;
+
+int
+setrel(natid us, natid them, int rel)
+{
+	struct	natstr *mynp;
+	struct	natstr *themnp;
+	s_char	*myname = cname(us);
+	s_char  *themname;
+	int	oldrel;
+	s_char *whichway;
+	int	n_up = 0;
+	int	n_down = 0;
+	s_char	*addendum = 0;
+	int	theirrel;
+	extern int	War_Cost;
+
+	if (rel < AT_WAR)
+		rel = AT_WAR;
+	if (rel > ALLIED)
+		rel = ALLIED;
+	if (!(mynp = getnatp(us)))
+		return RET_FAIL;
+	if (!(themnp = getnatp(them)))
+		return RET_FAIL;
+	if ((oldrel = getrel(mynp, them)) == rel)
+		return RET_FAIL;
+	themname = cname(them);
+	if (rel > oldrel)
+		whichway = "upgraded";
+	else
+		whichway = "downgraded";
+	if (rel == ALLIED) {
+		addendum = "Congratulations!";
+		n_up = N_DECL_ALLY;
+	} else if (rel == FRIENDLY) {
+		n_up = N_UP_FRIENDLY;
+		n_down = N_DOWN_FRIENDLY;
+	} else if (rel == NEUTRAL) {
+		n_up = N_UP_NEUTRAL;
+		n_down = N_DOWN_NEUTRAL;
+	} else if (rel == HOSTILE) {
+		addendum = "Another cold war...";
+		n_up = N_UP_HOSTILE;
+		n_down = N_DOWN_HOSTILE;
+	} else if (rel < HOSTILE) {
+	  if (opt_SLOW_WAR) {
+		struct  natstr  *natp2;
+		double  cost;
+
+		if (!player->god) {
+			natp2 = themnp;
+       			theirrel = getrel(natp2,us);
+			if (theirrel <= MOBILIZATION) {
+				rel = theirrel;
+				cost = 0;
+			} else if (us == player->cnum && !update_pending) {
+				if (mynp->nat_money < War_Cost){
+					mpr(us, "You don't have the money!\n");
+					return RET_FAIL;
+				}
+				rel = MOBILIZATION;
+				cost = War_Cost;
+			} else { /* nreport is forcing us to decl war */
+				return RET_FAIL;
+			}
+			if (rel >= oldrel) {
+				if (us == player->cnum && !update_pending)
+				    mpr(us, "No change required for that!\n");
+				return RET_FAIL;
+			}
+			player->dolcost += cost;
+		}
+	  }
+	  addendum = "Declaration made (give 'em hell).";
+	  n_down = N_DECL_WAR;
+	}
+
+	if (addendum && us == player->cnum && !update_pending)
+		pr("%s\n", addendum);
+	mpr(us, "Diplomatic relations with %s %s to \"%s\".\n", themname, whichway, relates[rel]);
+	if(!(getrejects(us, themnp) & REJ_TELE))
+		mpr(them,
+		    "Country %s (#%d) has %s their relations with you to \"%s\"!\n", myname, us, whichway, relates[rel]);
+
+	putrel(mynp, them, rel);
+	putnat(mynp);
+
+	if (!player->god) {
+		if (oldrel == ALLIED)
+			nreport(us, N_DIS_ALLY, them, 1);
+		else if (oldrel < HOSTILE && rel >= HOSTILE)
+			nreport(us, N_DIS_WAR, them, 1);
+		if (rel > oldrel)
+			nreport(us, n_up, them, 1);
+		else
+			nreport(us, n_down, them, 1);
+	}
+
+	return RET_OK;
+}
+
+int
+setcont(natid us, natid them, int contact)
+{
+	struct	natstr *np;
+
+	if ((np = getnatp(us)) == 0)
+		return 0;
+	putcontact(np, them, contact);
+	putnat(np);
+	return 1;
+}
+
+int
+setrej(natid us, natid them, int how, int what)
+{
+	struct	natstr *np;
+
+	if ((np = getnatp(us)) == 0)
+		return 0;
+	putreject(np, them, how, what);
+	putnat(np);
+	return 1;
+}