License upgrade to GPL version 3 or later

[empserver] / src / lib / subs / shpsub.c

diff --git a/src/lib/subs/shpsub.c b/src/lib/subs/shpsub.c
index f1c6b6e19eb9186d252fa6a52aa2b92df8ee2a09..924ac8a48de8b7ff48866a7b094eb8cc00c9e0bc 100644 (file)
--- a/src/lib/subs/shpsub.c
+++ b/src/lib/subs/shpsub.c
@@ -1,11 +1,11 @@
 /*
  *  Empire - A multi-player, client/server Internet based war game.
- *  Copyright (C) 1986-2010, Dave Pare, Jeff Bailey, Thomas Ruschak,
- *                           Ken Stevens, Steve McClure
+ *  Copyright (C) 1986-2011, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ *                Ken Stevens, Steve McClure, Markus Armbruster
  *
- *  This program is free software; you can redistribute it and/or modify
+ *  Empire 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
+ *  the Free Software Foundation, either version 3 of the License, or
  *  (at your option) any later version.
  *
  *  This program is distributed in the hope that it will be useful,
@@ -14,8 +14,7 @@
  *  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
+ *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *
  *  ---
  *
@@ -589,7 +588,7 @@ shp_fort_interdiction(struct emp_qelem *list, coord newx, coord newy,
 
     /* Inform neutral and worse */
     for (i = 0; i < MAXNOC; ++i) {
-       if (getrel(getnatp(i), victim) <= NEUTRAL)
+       if (relations_with(i, victim) <= NEUTRAL)
            notified[i] = 0;
        else
            notified[i] = 1;
@@ -611,7 +610,7 @@ shp_fort_interdiction(struct emp_qelem *list, coord newx, coord newy,
        return 0;               /* Only coastwatch notify in nofortfire */
     /* Only fire at Hostile ships */
     for (i = 0; i < MAXNOC; ++i) {
-       if (getrel(getnatp(i), victim) >= NEUTRAL)
+       if (relations_with(i, victim) >= NEUTRAL)
            notified[i] = 0;
     }
     snxtsct_dist(&ns, newx, newy, fort_max_interdiction_range);
@@ -732,8 +731,6 @@ shp_nav_one_sector(struct emp_qelem *list, int dir, natid actor,
     coord newy;
     int stopping = 0;
     double mobcost;
-    double tech;               /* for mapping */
-    double tf;                 /* for mapping */
     char dp[80];
     int navigate;
 
@@ -751,8 +748,8 @@ shp_nav_one_sector(struct emp_qelem *list, int dir, natid actor,
        getsect(newx, newy, &sect);
        navigate = shp_check_nav(&sect, &mlp->unit.ship);
        if (navigate != CN_NAVIGABLE ||
-           (sect.sct_own && actor != sect.sct_own &&
-            getrel(getnatp(sect.sct_own), actor) < FRIENDLY)) {
+           (sect.sct_own
+            && relations_with(sect.sct_own, actor) < FRIENDLY)) {
            if (dchr[sect.sct_type].d_nav == NAV_CANAL &&
                !(((struct mchrstr *)mlp->chrp)->m_flags & M_CANAL) &&
                navigate == CN_LANDLOCKED)
@@ -786,15 +783,10 @@ shp_nav_one_sector(struct emp_qelem *list, int dir, natid actor,
        putship(mlp->unit.ship.shp_uid, &mlp->unit.ship);
 
        /* Now update the map for this ship */
-       tech = techfact(mlp->unit.ship.shp_tech,
-                       ((struct mchrstr *)mlp->chrp)->m_vrnge);
-       if (((struct mchrstr *)mlp->chrp)->m_flags & M_SONAR)
-           tf = techfact(mlp->unit.ship.shp_tech, 1.0);
-       else
-           tf = 0.0;
-       radmapupd(mlp->unit.ship.shp_own,
-                 mlp->unit.ship.shp_x, mlp->unit.ship.shp_y,
-                 (int)mlp->unit.ship.shp_effic, (int)tech, tf);
+       rad_map_set(mlp->unit.ship.shp_own,
+                   mlp->unit.ship.shp_x, mlp->unit.ship.shp_y,
+                   mlp->unit.ship.shp_effic, mlp->unit.ship.shp_tech,
+                   ((struct mchrstr *)mlp->chrp)->m_vrnge);
     }
     if (QEMPTY(list))
        return stopping;
@@ -856,7 +848,7 @@ shp_missile_defense(coord dx, coord dy, natid bombown, int hardtarget)
        if (!(mchr[(int)ship.shp_type].m_flags & M_ANTIMISSILE))
            continue;
 
-       if (getrel(getnatp(ship.shp_own), bombown) >= NEUTRAL)
+       if (relations_with(ship.shp_own, bombown) >= NEUTRAL)
            continue;
 
        if (ship.shp_effic < 60)