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

Comparing deliantra/server/server/player.C (file contents):
Revision 1.278 by root, Sun May 9 22:33:29 2010 UTC vs.
Revision 1.296 by root, Thu Nov 17 04:59:33 2016 UTC

 /*
  * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  *
- * Copyright (©) 2005,2006,2007,2008,2009,2010 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>
  */
 //+GPL
+#include <algorithm>
+#include <functional>
 #include <global.h>
 #include <sproto.h>
 #include <sounds.h>
 #include <living.h>
 #include <object.h>
 #include <spells.h>
 #include <skills.h>
-#include <algorithm>
-#include <functional>
 playervec players;
 /* This loads the first map an puts the player on it. */
 static void
 set_first_map (object *op)
 player::set_object (object *op)
 {
   ob = observe = viewpoint = op;
   ob->contr = this;              /* this aren't yet in archetype */
-  ob->set_speed (1.0f);
+  ob->speed = 1.0f; // object still inactive, keep it that way
   ob->speed_left = 0.5f;
   ob->direction  = 5;            /* So player faces south */
 }
  */
 int
 path_to_player (object *mon, object *pl, unsigned mindiff)
 {
   rv_vector rv;
-  int dir, i, diff, firstdir = 0, lastdir, max = MAX_SPACES, mflags, blocked;
+  int dir, i, diff, firstdir = 0, lastdir, max = MAX_SPACES;
   get_rangevector (mon, pl, &rv, 0);
   if (rv.distance < mindiff)
     return 0;
             }
         }
       /* Here we remove duplicated skills (as duplicated spell objects have
        * _very_ confusing effects for players), which could for instance be
-       * generated by bad treasurelists. - elmex
+       * generated by multiple treasurelists specifying the same skills.
        */
       if (op->type == SKILL)
         {
           for (object *tmp = op->below; tmp; tmp = tmp->below)
             if (tmp->type == op->type && tmp->name == op->name)
               {
                 op->destroy ();
-                LOG (llevError,
-                     "give_initial_items: Removing duplicate skill %s\n", &tmp->name);
                 break;
               }
           if (op->nrof > 1)
             op->nrof = 1;
    */
   if (*first_map_ext_path)
     ob->player_goto (format ("%s/%s", &first_map_ext_path, &ob->arch->archname), ob->x, ob->y);
   else
     LOG (llevDebug, "first_map_ext_path not set\n");
+}
+/*
+ * Returns true if the given player is a legal class.
+ * The function to add and remove class-bonuses to the stats doesn't
+ * check if the stat becomes negative, thus this function
+ * merely checks that all stats are 1 or more, and returns
+ * false otherwise.
+ */
+static int
+allowed_class (const object *op)
+{
+  return op->stats.Dex > 0
+      && op->stats.Str > 0
+      && op->stats.Con > 0
+      && op->stats.Int > 0
+      && op->stats.Wis > 0
+      && op->stats.Pow > 0
+      && op->stats.Cha > 0;
 }
 void
 player::chargen_race_next ()
 {
   SET_ANIMATION (arrow, arrow->direction);
   /* update the speed */
   arrow->speed_left = 0;
   arrow->set_speed (max (2.f,
     ((bow->flag [FLAG_NO_STRENGTH] ? 0 : dam_bonus[op->stats.Str]) + bow->magic + arrow->magic) / 5.f
     + bow->stats.dam / 7.f
   ));
   int wc = op->stats.wc + wc_mod - arrow->magic - arrow->stats.wc;
   arrow->stats.dam = clamp (arrow->stats.dam + op->stats.dam + arrow->magic, MIN_DAM, MAX_DAM);
   arrow->stats.wc = clamp (wc, MIN_WC, MAX_WC);
   arrow->move_type = MOVE_FLY_LOW;
   arrow->move_on = MOVE_FLY_LOW | MOVE_WALK;
+  arrow->set_flag (FLAG_NO_PICK);
   op->play_sound (sound_find ("fire_arrow"));
   m->insert (arrow, sx, sy, op);
   if (!arrow->destroyed ())
       if (item->type == WAND)
         {
           if (!(--item->stats.food))
             {
-              object *tmp;
               if (item->arch)
                 {
                   item->clr_flag (FLAG_ANIMATE);
                   item->face = item->arch->face;
                   item->set_speed (0);
            || mon->flag [FLAG_CAN_ROLL])
           && mon != op)
         break;
     }
-  if (!mon)          /* This happens anytime the player tries to move */
+  /* no monster == player tries to move into a wall or so */
-    return false;                 /* into a wall */
+  if (!mon)
+    {
+      for (object *ob = m->at (nx, ny).top; ob; ob = ob->below)
+        if (op->move_type & ob->move_block)
+          {
+            if (ob->move_block == MOVE_ALL)
+              move_into_wall (op, ob);
+            else
+              {
+                if (op->contr->ns->bumpmsg)
+                  {
+                    op->play_sound (sound_find ("blocked_move"));
+                    op->statusmsg (ob->invisible
+                       ? "Something blocks you."
+                       : format ("Something blocks you from entering the %s.", query_name (ob))
+                    );
+                  }
+              }
+            break;
+          }
+      return false;
+    }
   mon = mon->head_ ();
   if ((mon->type == DOOR && mon->stats.hp >= 0) || (mon->type == LOCKED_DOOR))
     if (op->contr->weapon_sp_left > 0.f)
 }
 bool
 move_player (object *op, int dir)
 {
-  if (!op->map || op->map->in_memory != MAP_ACTIVE)
+  if (!op->map || op->map->state != MAP_ACTIVE)
     return 0;
   /* Sanity check: make sure dir is valid */
   if (dir < 0 || dir > 8)
     {
 void
 do_some_living (object *op)
 {
   int last_food = op->stats.food;
   int gen_hp, gen_sp, gen_grace;
-  int i;
   int rate_hp = 1200;
   int rate_sp = 2500;
   int rate_grace = 2000;
   const int max_hp = 1;
   const int max_sp = 1;
   const int max_grace = 1;
+#if 0
   if (op->contr->hidden)
     {
       op->invisible = 1000;
       /* the socket code flashes the player visible/invisible
        * depending on the value of invisible, so we need to
        * alternate it here for it to work correctly.
        */
-      if (pticks & 2)
+      if (server_tick & 2)
         op->invisible--;
     }
+  else
+#endif
-  else if (op->invisible && !(op->flag [FLAG_MAKE_INVIS]))
+  if (op->invisible && !(op->flag [FLAG_MAKE_INVIS]))
     {
       if (!op->invisible--)
         {
           make_visible (op);
           new_draw_info (NDI_UNIQUE, 0, op, "Your invisibility spell runs out.");
   if (will_kill_again)
     {
       object *force;
       int at;
-      force = get_archetype (FORCE_NAME);
+      force = archetype::get (FORCE_NAME);
       /* 50 ticks should be enough time for the spell to abate */
       force->speed_left = -5.f;
       force->set_speed (0.1f);
       force->set_flag (FLAG_APPLIED);
 }
 static void
 loot_object (object *op)
 {                               /* Grab and destroy some treasure */
-  object *tmp, *tmp2, *next;
+  object *tmp, *next;
   op->close_container (); /* close open sack first */
   for (tmp = op->inv; tmp; tmp = next)
     {
 void
 fix_weight ()
 {
   for_all_players (pl)
     {
-      sint32 old = pl->ob->carrying;
+      weight_t old = pl->ob->carrying;
       pl->ob->update_weight ();
       if (old != pl->ob->carrying)
         {
       for (tmp = GET_MAP_OB (m, x, y); tmp; tmp = tmp->above)
         {
           if ((player ||friendly) &&tmp->flag [FLAG_MONSTER] && !tmp->flag [FLAG_UNAGGRESSIVE])
             return 1;
           else if (tmp->type == PLAYER)
-            {
-              /*don't let a hidden DM prevent you from hiding */
-              if (!tmp->flag [FLAG_WIZ] || tmp->contr->hidden == 0)
-                return 1;
+            return 1;
-            }
         }
     }
   return 0;
 }
 /* check the player los field for viewability of the
  * object op. This function works fine for monsters,
  * but we dont worry if the object isnt the top one in
  * a pile (say a coin under a table would return "viewable"
  * by this routine). Another question, should we be
  * concerned with the direction the player is looking
  * in? Realistically, most of us can't see stuff behind
  * our backs...on the other hand, does the "facing" direction
  * imply the way your head, or body is facing? It's possible
  * for them to differ. Sigh, this fctn could get a bit more complex.
  * -b.t.
  * This function is now map tiling safe.
  */
 int
 player_can_view (object *pl, object *op)
 {

Diff Legend

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

Comparing deliantra/server/server/player.C (file contents): Revision 1.278 by root, Sun May 9 22:33:29 2010 UTC vs. Revision 1.296 by root, Thu Nov 17 04:59:33 2016 UTC

Diff Legend

Comparing deliantra/server/server/player.C (file contents):
Revision 1.278 by root, Sun May 9 22:33:29 2010 UTC vs.
Revision 1.296 by root, Thu Nov 17 04:59:33 2016 UTC