[ViewVC] Diff of: cvs/deliantra/server/server/move.C

Comparing deliantra/server/server/move.C (file contents):
Revision 1.38 by root, Fri Mar 26 00:59:22 2010 UTC vs.
Revision 1.50 by root, Sat Nov 17 23:40:04 2018 UTC

 /*
  * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  *
+ * Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
- * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
+ * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
  * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
  * Copyright (©) 1992 Frank Tore Johansen
  *
  * Deliantra is free software: you can redistribute it and/or modify it under
  * the terms of the Affero GNU General Public License as published by 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,
  * 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 Affero GNU General Public License
  * and the GNU General Public License along with this program. If not, see
  * <http://www.gnu.org/licenses/>.
  *
  * The authors can be reached via e-mail to <support@deliantra.net>
  */
 #include <global.h>
 #ifndef __CEXTRACT__
 #endif
 int
 object::move (int dir, object *originator)
 {
-  sint16 newx = x + freearr_x[dir];
+  sint16 newx = x + DIRX (dir);
-  sint16 newy = y + freearr_y[dir];
+  sint16 newy = y + DIRY (dir);
   mapxy pos (this);
   pos.move (dir);
   /* If the space the object is moving to is out of the map,
       if (INVOKE_MAP (LEAVE, map, ARG_PLAYER (contr)))
         return 0;
       remove ();
+      pos.m->activate ();
       if (INVOKE_PLAYER (MAP_CHANGE, contr, ARG_MAP (pos.m), ARG_INT (pos.x), ARG_INT (pos.y)))
         return 0;
       if (INVOKE_MAP (ENTER, pos.m, ARG_PLAYER (contr), ARG_INT (pos.x), ARG_INT (pos.y)))
         return 0;
 int
 transfer_ob (object *op, int x, int y, int randomly, object *originator)
 {
   int i;
-  object *tmp;
   if (randomly)
     i = find_free_spot (op, op->map, x, y, 0, SIZEOFFREE);
   else
     i = find_first_free_spot (op, op->map, x, y);
   op = op->head_ ();
   op->remove ();
   for (object *tmp = op; tmp; tmp = tmp->more)
     {
-      tmp->x = x + freearr_x[i] + tmp->arch->x;
+      tmp->x = x + DIRX (i) + tmp->arch->x;
-      tmp->y = y + freearr_y[i] + tmp->arch->y;
+      tmp->y = y + DIRY (i) + tmp->arch->y;
     }
   op = insert_ob_in_map (op, op->map, originator, 0);
   return !op;
       LOG (llevError, "%s: no alternative teleporters around (user %s).\n",
            teleporter->debug_desc (), user->debug_desc ());
       return 0;
     }
-  int k = find_free_spot (user, other_teleporter->map, other_teleporter->x, other_teleporter->y, 1, 9);
+  int k = find_free_spot (user, other_teleporter->map, other_teleporter->x, other_teleporter->y, 1, SIZEOFFREE1 + 1);
   /* if k==-1, unable to find a free spot.  If this is shop
    * mat that the player is using, find someplace to move
    * the player - otherwise, player can get trapped in the shops
    * that appear in random dungeons.  We basically just make
             {
               maptile *m;
               sint16 sx, sy;
               if (get_map_flags (other_teleporter->map, &m,
-                                 other_teleporter->x + freearr_x[k], other_teleporter->y + freearr_y[k], &sx, &sy) & P_OUT_OF_MAP)
+                                 other_teleporter->x + DIRX (k), other_teleporter->y + DIRY (k), &sx, &sy) & P_OUT_OF_MAP)
                 continue;
               if (!OB_TYPE_MOVE_BLOCK (user, GET_MAP_MOVE_BLOCK (m, sx, sy)))
                 break;
             }
       else
         return 0;
     }
   return !other_teleporter->map->insert (
-            user, other_teleporter->x + freearr_x[k], other_teleporter->y + freearr_y[k]
+            user, other_teleporter->x + DIRX (k), other_teleporter->y + DIRY (k)
          );
 }
 /*
  * This is a new version of blocked, this one handles objects
       for (tmp = GET_MAP_OB (m2, tx, ty); tmp; tmp = tmp->above)
         {
           if (tmp->head == op || tmp == op)
             continue;
-          if ((QUERY_FLAG (tmp, FLAG_ALIVE) && tmp->type != DOOR))
+          if ((tmp->flag [FLAG_ALIVE] && tmp->type != DOOR))
             return 1;
           if (OB_MOVE_BLOCK (op, tmp))
             return 1;
     }
   return 0;
 }
 /*
  * this is not perfect yet.
  * it does not roll objects behind multipart objects properly.
  * Support for rolling multipart objects is questionable.
  */
 static int
 roll_ob (object *op, int dir, object *pusher)
   MoveType move_block;
   if (op->head)
     op = op->head;
-  x = op->x + freearr_x[dir];
+  x = op->x + DIRX (dir);
-  y = op->y + freearr_y[dir];
+  y = op->y + DIRY (dir);
-  if (!QUERY_FLAG (op, FLAG_CAN_ROLL)
+  if (!op->flag [FLAG_CAN_ROLL]
       || (op->weight && random_roll (0, op->weight / 50000 - 1, pusher, PREFER_LOW)
           > pusher->stats.Str))
     return 0;
   m = op->map;
   if (who->head != NULL)
     who = who->head;
   owner = who->owner;
   /* Wake up sleeping monsters that may be pushed */
-  CLEAR_FLAG (who, FLAG_SLEEP);
+  who->clr_flag (FLAG_SLEEP);
   /* player change place with his pets or summoned creature */
   /* TODO: allow multi arch pushing. Can't be very difficult */
   if (who->more == NULL
       && ((owner && owner->contr && pusher->contr && same_party (owner->contr->party, pusher->contr->party))
   /* We want ONLY become enemy of evil, unaggressive monster. We must RUN in them */
   /* In original we have here a unaggressive check only - that was the reason why */
   /* we so often become an enemy of friendly monsters... */
   /* funny: was they set to unaggressive 0 (= not so nice) they don't attack */
   if (owner != pusher && pusher->type == PLAYER && who->type != PLAYER &&
-      !QUERY_FLAG (who, FLAG_FRIENDLY) && !QUERY_FLAG (who, FLAG_NEUTRAL))
+      !who->flag [FLAG_FRIENDLY] && !who->flag [FLAG_NEUTRAL])
     {
       if (pusher->contr->run_on)        /* only when we run */
         {
           new_draw_info_format (NDI_UNIQUE, 0, pusher, "You start to attack %s!!", &who->name);
-          CLEAR_FLAG (who, FLAG_UNAGGRESSIVE);  /* the sucker don't like you anymore */
+          who->clr_flag (FLAG_UNAGGRESSIVE);  /* the sucker don't like you anymore */
           who->enemy = pusher;
           return 1;
         }
       else
         new_draw_info_format (NDI_UNIQUE, 0, pusher, "You avoid attacking %s. H<You have to run if you wish to attack unnagressive NPCs.>", &who->name);
     }
   /* now, let's test stand still. we NEVER can push stand_still monsters. */
-  if (QUERY_FLAG (who, FLAG_STAND_STILL))
+  if (who->flag [FLAG_STAND_STILL])
     {
       new_draw_info_format (NDI_UNIQUE, 0, pusher, "You can't push %s. H<You simply can't.>", &who->name);
       return 0;
     }
    * this pushes the other person away - its not a swap.
    */
   str1 = (who->stats.Str > 0 ? who->stats.Str : who->level);
   str2 = (pusher->stats.Str > 0 ? pusher->stats.Str : pusher->level);
-  if (QUERY_FLAG (who, FLAG_WIZ) ||
+  if (who->flag [FLAG_WIZ] ||
       random_roll (str1, str1 * 5 / 2, who, PREFER_HIGH) >=
       random_roll (str2, str2 * 5 / 2, pusher, PREFER_HIGH) || !who->move (dir))
     {
       if (who->type == PLAYER)
         new_draw_info_format (NDI_UNIQUE, 0, who, "%s tried to push you.", &pusher->name);

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/server/move.C (file contents): Revision 1.38 by root, Fri Mar 26 00:59:22 2010 UTC vs. Revision 1.50 by root, Sat Nov 17 23:40:04 2018 UTC

Diff Legend

Comparing deliantra/server/server/move.C (file contents):
Revision 1.38 by root, Fri Mar 26 00:59:22 2010 UTC vs.
Revision 1.50 by root, Sat Nov 17 23:40:04 2018 UTC