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

Comparing deliantra/server/server/apply.C (file contents):
Revision 1.215 by root, Sun Nov 29 09:41:28 2009 UTC vs.
Revision 1.229 by root, Fri Mar 26 20:17:48 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 (©) 2001,2007 Mark Wedel & Crossfire Development Team
+ * Copyright (©) 2001 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 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.
  */
 int
 apply_potion (object *op, object *tmp)
 {
   int got_one = 0, i;
-  object *force = 0, *floor = 0;
+  object *force = 0;
-  floor = GET_MAP_OB (op->map, op->x, op->y);
+  object *floor = GET_MAP_OB (op->map, op->x, op->y);
   if (get_map_flags (op->map, NULL, op->x, op->y, NULL, NULL) & P_SAFE)
     {
       op->failmsg ("Gods prevent you from using this here, it's sacred ground!");
           if (victim->type == PLAYER && EXIT_PATH (trap))
             {
               /* Basically, don't show exits leading to random maps the
                * players output.
                */
-              if (trap->msg && !EXIT_PATH (trap).starts_with ("/!"))
+              if (trap->msg && EXIT_PATH (trap) != shstr_random_map_exit)
                 victim->statusmsg (trap->msg, NDI_NAVY);
               trap->play_sound (trap->sound);
               victim->enter_exit (trap);
             }
                   : lev_diff < 15 ? "This book is way beyond your comprehension."
                   :                 "This book is totally beyond your comprehension.");
       return;
     }
+  // we currently don't use the message types for anything.
-  readable_message_type *msgType = get_readable_message_type (tmp);
+  // readable_message_type *msgType = get_readable_message_type (tmp);
+  tmp->play_sound (tmp->sound ? tmp->sound : sound_find ("apply_book"));
   if (player *pl = op->contr)
     if (client *ns = pl->ns)
       pl->infobox (MSG_CHANNEL ("book"), format ("T<%s>\n\n%s", (char *)long_desc (tmp, op), &tmp->msg));
    * instead of having their spell stored in stats.sp.  These are
    * legacy spellbooks
    */
   if (tmp->slaying)
     {
-      spell = arch_to_object (find_archetype_by_object_name (tmp->slaying));
+      spell = find_archetype_by_object_name (tmp->slaying)->instance ();
       if (!spell)
         {
           op->failmsg (format ("The book's formula for %s is incomplete.", &tmp->slaying));
           return;
         }
   int atnr_winner[NROFATTACKS]; /* winning candidates for resistance improvement */
   int winners = 0;              /* number of winners */
   int i;                        /* index */
   /* let's make sure and doublecheck the parameters */
-  if (meal->type != FLESH || !is_dragon_pl (op))
+  if (meal->type != FLESH || !op->is_dragon ())
     return 0;
   /* now grab the 'dragon_skin'- and 'dragon_ability'-forces
      from the player's inventory */
   for (tmp = op->inv; tmp; tmp = tmp->below)
   if (op->type != PLAYER)
     op->stats.hp = op->stats.maxhp;
   else
     {
       /* check if this is a dragon (player), eating some flesh */
-      if (tmp->type == FLESH && is_dragon_pl (op) && dragon_eat_flesh (op, tmp))
+      if (tmp->type == FLESH && op->is_dragon () && dragon_eat_flesh (op, tmp))
         ;
       else
         {
           /* usual case - no dragon meal: */
           if (op->stats.food + tmp->stats.food > 999)
           if (!QUERY_FLAG (tmp, FLAG_CURSED))
             {
               const char *buf;
-              if (!is_dragon_pl (op))
+              if (!op->is_dragon ())
                 {
                   /* eating message for normal players */
                   if (tmp->type == DRINK)
                     buf = format ("Ahhh...that %s tasted good.", &tmp->name);
                   else
       hit_player (op, poison->stats.hp, tmp, AT_POISON, 1);
     }
   op->stats.food -= op->stats.food / 4;
   poison->destroy ();
-}
-/**
- * This function return true if the exit is not a 2 ways one or it is 2 ways, valid exit.
- * A valid 2 way exit means:
- *   -You can come back (there is another exit at the other side)
- *   -You are
- *         ° the owner of the exit
- *         ° or in the same party as the owner
- *
- * Note: a owner in a 2 way exit is saved as the owner's name
- * in the field exit->name cause the field exit->owner doesn't
- * survive in the swapping (in fact the whole exit doesn't survive).
- */
-static int
-is_legal_2ways_exit (object *op, object *exit)
-{
-  if (exit->stats.exp != 1)
-    return 1;                   /*This is not a 2 way, so it is legal */
-#if 0 //TODO
-  if (!has_been_loaded (EXIT_PATH (exit)) && exit->race)
-    return 0;                   /* This is a reset town portal */
-#endif
-  LOG (llevError | logBacktrace, "sync map load due to %s\n", exit->debug_desc ());
-  maptile *exitmap = maptile::find_sync (EXIT_PATH (exit), exit->map);
-  if (exitmap)
-    {
-      exitmap->load_sync ();
-      object *tmp = exitmap->at (EXIT_X (exit), EXIT_Y (exit)).bot;
-      if (!tmp)
-        return 0;
-      for (; tmp; tmp = tmp->above)
-        {
-          if (tmp->type != EXIT)
-            continue;           /*Not an exit */
-          if (!EXIT_PATH (tmp))
-            continue;           /*Not a valid exit */
-          if ((EXIT_X (tmp) != exit->x) || (EXIT_Y (tmp) != exit->y))
-            continue;           /*Not in the same place */
-          if (exit->map->path != EXIT_PATH (tmp))
-            continue;           /*Not in the same map */
-          /* From here we have found the exit is valid. However we do
-           * here the check of the exit owner. It is important for the
-           * town portals to prevent strangers from visiting your appartments
-           */
-          if (!exit->race)
-            return 1;           /*No owner, free for all! */
-          object *exit_owner = 0;
-          for_all_players (pp)
-            {
-              if (!pp->ob)
-                continue;
-              if (pp->ob->name != exit->race)
-                continue;
-              exit_owner = pp->ob;      /*We found a player which correspond to the player name */
-              break;
-            }
-          if (!exit_owner)
-            return 0;           /* No more owner */
-          if (exit_owner->contr == op->contr)
-            return 1;           /*It is your exit */
-          if (exit_owner &&     /*There is a owner */
-              (op->contr) &&    /*A player tries to pass */
-              ((exit_owner->contr->party == NULL) ||    /*No pass if controller has no party */
-               (exit_owner->contr->party != op->contr->party))) /* Or not the same as op */
-            return 0;
-          return 1;
-        }
-    }
-  return 0;
 }
 /**
  * This function will try to apply a lighter and in case no lighter
  * is specified it will try to find a lighter in the players inventory,
 static void
 apply_item_transformer (object *pl, object *transformer)
 {
   object *marked;
   object *new_item;
-  char *find;
+  const char *find;
   char *separator;
   int yield;
   char got[MAX_BUF];
   int len;
   while (*find == ' ')
     find++;
   memset (got, 0, MAX_BUF);
-  if ((separator = strchr (find, ';')) != NULL)
+  if ((separator = (char *) strchr (find, ';')))
     len = separator - find;
   else
     len = strlen (find);
-  if (len > MAX_BUF - 1)
+  min_it (len, MAX_BUF - 1);
-    len = MAX_BUF - 1;
   strcpy (got, find);
   got[len] = '\0';
   /* Now create new item, remove used ones when required. */
       case EXIT:
         if (who->type != PLAYER)
           return 0;
-        if (!EXIT_PATH (op) || !is_legal_2ways_exit (who, op))
+        if (!EXIT_PATH (op))
           who->failmsg (format ("The %s is closed. H<And will stay closed, until somebody fires up the map editor and adds it.>", query_name (op)));
         else
           {
             /* Don't display messages for random maps. */
-            if (op->msg && !EXIT_PATH (op).starts_with ("/!"))
+            if (op->msg && EXIT_PATH (op) != shstr_random_map_exit)
               who->statusmsg (op->msg, NDI_NAVY);
             who->enter_exit (op);
           }
       case SKILL:
         if (player *pl = who->contr)
           {
             if (IS_COMBAT_SKILL (op->subtype))
               {
-                if (skill_flags [op->subtype] & SF_NEED_WEAPON)
+                if (skill_flags [op->subtype] & SF_NEED_ITEM)
                   {
                     for (object *item = who->inv; item; item = item->below)
-                      if (item->type == WEAPON && item->flag [FLAG_APPLIED])
+                      if (item->type == item->weapontype && item->flag [FLAG_APPLIED])
                         {
                           if (item->skill == op->skill)
                             {
                               who->change_weapon (pl->combat_ob = item);
                               goto found_weapon;
                 else
                   who->change_weapon (pl->combat_ob = op);
               }
             else if (IS_RANGED_SKILL (op->subtype))
               {
-                if (skill_flags [op->subtype] & SF_NEED_BOW)
+                if (skill_flags [op->subtype] & SF_NEED_ITEM)
                   {
                     for (object *item = who->inv; item; item = item->below)
-                      if (item->type == BOW && item->flag [FLAG_APPLIED])
+                      if (item->type == item->weapontype && item->flag [FLAG_APPLIED])
                         {
                           //TODO: bows should/must all have skill missile weapon right now
                           who->change_weapon (pl->ranged_ob = item);
                           goto found_bow;
                         }

Diff Legend

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

Comparing deliantra/server/server/apply.C (file contents): Revision 1.215 by root, Sun Nov 29 09:41:28 2009 UTC vs. Revision 1.229 by root, Fri Mar 26 20:17:48 2010 UTC

Diff Legend

Comparing deliantra/server/server/apply.C (file contents):
Revision 1.215 by root, Sun Nov 29 09:41:28 2009 UTC vs.
Revision 1.229 by root, Fri Mar 26 20:17:48 2010 UTC