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

Comparing deliantra/server/server/pets.C (file contents):
Revision 1.49 by root, Mon Dec 29 07:43:36 2008 UTC vs.
Revision 1.62 by root, Fri Mar 26 01:04:45 2010 UTC

 /*
  * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  *
- * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
+ * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
- * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
+ * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
- * Copyright (©) 1992,2007 Frank Tore Johansen
+ * Copyright (©) 1992 Frank Tore Johansen
  *
- * Deliantra is free software: you can redistribute it and/or modify
+ * Deliantra is free software: you can redistribute it and/or modify it under
- * it under the terms of the GNU General Public License as published by
+ * the terms of the Affero GNU General Public License as published by the
- * the Free Software Foundation, either version 3 of the License, or
+ * Free Software Foundation, either version 3 of the License, or (at your
- * (at your option) any later version.
+ * 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
+ * You should have received a copy of the Affero GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ * 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>
   if (!on_same_map (ob, owner) && !owner->flag [FLAG_REMOVED])
     {
       follow_owner (ob, owner);
       return;
     }
   /* Calculate Direction */
   if (owner->type == PLAYER && owner->contr->petmode == pet_sad)
     {
       /* in S&D mode, if we have no enemy, run randomly about. */
       for (i = 0; i < 15; i++)
       struct rv_vector rv;
       get_rangevector (ob, ob->owner, &rv, 0);
       dir = rv.direction;
     }
   ob->direction = dir;
   /* move_ob returns 0 if the object couldn't move.  If that is the
    * case, lets do some other work.
    */
-  if (!(move_ob (ob, dir, ob)))
+  if (!(ob->move (dir)))
     {
       object *part;
       /* the failed move_ob above may destroy the pet, so check here */
       if (ob->destroyed ())
           for (ob2 = GET_MAP_OB (m, dx, dy); ob2 != NULL; ob2 = ob2->above)
             {
               object *new_ob;
               new_ob = ob2->head ? ob2->head : ob2;
               if (new_ob == ob)
                 break;
               if (new_ob == ob->owner)
                 return;
               if (new_ob->owner == ob->owner)
                 break;
               /* Hmm.  Did we try to move into an enemy monster?  If so,
                * make it our enemy.
                 }
             }
         }
       /* Try a different course */
       dir = absdir (dir + 4 - (rndm (5)) - (rndm (5)));
-      (void) move_ob (ob, dir, ob);
+      ob->move (dir);
     }
-  return;
 }
 /****************************************************************************
  *
  * GOLEM SPELL CODE
  * proper for map insertion.
  * at is the archetype, op is the caster of the spell, dir is the
  * direction the monster should be placed in.
  * is_golem is to note that this is a golem spell.
  */
-object *
+static object *
 fix_summon_pet (archetype *at, object *op, int dir, int is_golem)
 {
   object *tmp = NULL, *prev = NULL, *head = NULL;
   for (archetype *atmp = at; atmp; atmp = (archetype *)atmp->more)
     {
-      tmp = arch_to_object (atmp);
+      tmp = atmp->instance ();
       if (atmp == at)
         {
           if (!is_golem)
             SET_FLAG (tmp, FLAG_MONSTER);
       return;
     }
   /* Do golem attacks/movement for single & multisq golems.
    * Assuming here that op is the 'head' object. Pass only op to
-   * move_ob (makes recursive calls to other parts)
+   * ->move (makes recursive calls to other parts)
    * move_ob returns 0 if the creature was not able to move.
    */
-  if (move_ob (op, op->direction, op))
+  if (op->move (op->direction, op))
     return;
   if (op->destroyed ())
     return;
         {
           /* for golems with race fields, we don't attack
            * aligned races
            */
-          if (victim->race && op->race && strstr (op->race, victim->race))
+          if (victim->race && op->race && op->race.contains (victim->race))
             {
               if (op->owner)
                 new_draw_info_format (NDI_UNIQUE, 0, op->owner, "%s avoids damaging %s.", &op->name, &victim->name);
             }
           else if (victim == op->owner)
 int
 summon_golem (object *op, object *caster, int dir, object *spob)
 {
   object *tmp, *god = NULL;
   archetype *at;
-  char buf[MAX_BUF];
   /* Because there can be different golem spells, player may want to
    * 'lose' their old golem.
    */
   if (op->type == PLAYER && op->contr->golem)
       op->contr->golem = tmp;
       /* give the player control of the golem */
       set_spell_skill (op, caster, spob, tmp);
     }
-  /* make the speed positive. */
-  tmp->speed = fabs (tmp->speed);
-  /*  This sets the level dependencies on dam and hp for monsters */
+  /* This sets the level dependencies on dam and hp for monsters */
   /* players can't cope with too strong summonings. */
   /* but monsters can.  reserve these for players. */
   if (op->type == PLAYER)
     {
       tmp->stats.hp += spob->duration + SP_level_duration_adjust (caster, spob);
   tmp->direction = dir;
   /* Holy spell - some additional tailoring */
   if (god)
     {
-      object *tmp2;
-      sprintf (buf, "%s of %s", &spob->name, &god->name);
+      char *buf = format ("%s of %s", &spob->name, &god->name);
       buf[0] = toupper (buf[0]);
-      for (tmp2 = tmp; tmp2; tmp2 = tmp2->more)
+      for (object *tmp2 = tmp; tmp2; tmp2 = tmp2->more)
         tmp2->name = buf;
       tmp->attacktype |= god->attacktype;
       memcpy (tmp->resist, god->resist, sizeof (tmp->resist));
       tmp->race = god->race;
 /* Returns a monster (chosen at random) that this particular player (and his
  * god) find acceptable.  This checks level, races allowed by god, etc
  * to determine what is acceptable.
  * This returns NULL if no match was found.
  */
-object *
+static object *
 choose_cult_monster (object *pl, object *god, int summon_level)
 {
   char buf[MAX_BUF];
   const char *race;
   int racenr, mon_nr, i;
 }
 int
 summon_object (object *op, object *caster, object *spell_ob, int dir, const char *stringarg)
 {
-  sint16 x, y, nrof = 1, i;
+  int nrof = 1;
   archetype *summon_arch;
   int ndir;
   if (spell_ob->other_arch)
     summon_arch = spell_ob->other_arch;
         }
       summon_arch = lasttr->item;
       nrof        = lasttr->nrof;
     }
-  else if (spell_ob->race && !strcmp (spell_ob->race, "GODCULTMON"))
+  else if (spell_ob->race == shstr_GODCULTMON)
     {
       object *god = find_god (determine_god (op)), *mon, *owner;
       int summon_level, tries;
       if (!god && ((owner = op->owner) != NULL))
     {
       new_draw_info (NDI_UNIQUE, 0, op, "There is no monsters available for summoning.");
       return 0;
     }
-  for (i = 1; i <= nrof; i++)
+  for (int i = 1; i <= nrof; i++)
     {
       object *prev = NULL, *head = NULL, *tmp;
       if (dir)
         {
           dir = absdir (dir + 1);
         }
       else
         ndir = find_free_spot (summon_arch, op->map, op->x, op->y, 1, SIZEOFFREE);
-      if (ndir > 0)
-        {
-          x = freearr_x[ndir];
+      sint16 x = freearr_x [ndir];
-          y = freearr_y[ndir];
+      sint16 y = freearr_y [ndir];
-        }
       if (ndir < 0 || summon_arch->blocked (op->map, op->x + x, op->y + y))
         {
           new_draw_info (NDI_UNIQUE, 0, op, "There is something in the way.");
           if (nrof > 1)
             new_draw_info (NDI_UNIQUE, 0, op, "No more pets for this casting.");
           return nrof > 1;
         }
-      for (archetype *atmp = summon_arch; atmp != NULL; atmp = (archetype *)atmp->more)
+      for (archetype *atmp = summon_arch; atmp; atmp = (archetype *)atmp->more)
         {
-          tmp = arch_to_object (atmp);
+          tmp = atmp->instance ();
           if (atmp == summon_arch)
             {
               if (QUERY_FLAG (tmp, FLAG_MONSTER))
                 {
                   tmp->set_owner (op);

Diff Legend

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

Comparing deliantra/server/server/pets.C (file contents): Revision 1.49 by root, Mon Dec 29 07:43:36 2008 UTC vs. Revision 1.62 by root, Fri Mar 26 01:04:45 2010 UTC

Diff Legend

Comparing deliantra/server/server/pets.C (file contents):
Revision 1.49 by root, Mon Dec 29 07:43:36 2008 UTC vs.
Revision 1.62 by root, Fri Mar 26 01:04:45 2010 UTC