server/common/material.C

/*
 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
 * 
 * Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
 * Copyright (©) 1992,2007 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>
#include <material.h>

/* convert materialname to materialtype_t */

materialtype_t *
name_to_material (const shstr_cmp name)
{
  for (materialtype_t *mt = materialt; mt; mt = mt->next)
    if (name == mt->name)
      return mt;

  return 0;
}

/* when doing transmutation of objects, we have to recheck the resistances,
 * as some that did not apply previously, may apply now.
 */
void
transmute_materialname (object *op, const object *change)
{
  materialtype_t *mt;
  int j;

  if (!op->materialname)
    return;

  if (op->materialname != change->materialname)
    return;

  if (!op->is_armor ())
    return;

  mt = name_to_material (op->materialname);
  if (!mt)
    {
      LOG (llevError, "archetype '%s>%s' uses nonexistent material '%s'\n", &op->arch->archname, &op->name, &op->materialname);
      return;
    }

  for (j = 0; j < NROFATTACKS; j++)
    if (op->resist[j] == 0 && change->resist[j] != 0)
      {
        op->resist[j] += mt->mod[j];
        if (op->resist[j] > 100)
          op->resist[j] = 100;
        if (op->resist[j] < -100)
          op->resist[j] = -100;
      }
}

/* set the materialname and type for an item */
void
set_materialname (object *op, int difficulty, materialtype_t *nmt)
{
  materialtype_t *mt, *lmt;

  if (!op->materialname)
    return;

  if (nmt)
    lmt = nmt;
  else
    {
      lmt = 0;

      for (mt = materialt; mt; mt = mt->next)
        if (op->materials & mt->material && rndm (1, 100) <= mt->chance &&
            difficulty >= mt->difficulty && (op->magic >= mt->magic || mt->magic == 0))
          {
            lmt = mt;
            if (!(op->is_weapon () || op->is_armor ()))
              break;
          }
    }

  if (lmt)
    {
      if (op->stats.dam && op->is_weapon ())
        {
          op->stats.dam += lmt->damage;
          if (op->stats.dam < 1)
            op->stats.dam = 1;
        }

      if (op->stats.sp && op->type == BOW)
        op->stats.sp += lmt->sp;
      if (op->stats.wc && op->is_weapon ())
        op->stats.wc += lmt->wc;
      if (op->is_armor ())
        {
          if (op->stats.ac)
            op->stats.ac += lmt->ac;

          for (int j = 0; j < NROFATTACKS; j++)
            if (op->resist[j] != 0)
              {
                op->resist[j] += lmt->mod[j];
                if (op->resist[j] > 100)
                  op->resist[j] = 100;
                if (op->resist[j] < -100)
                  op->resist[j] = -100;
              }
        }

      op->materialname = lmt->name;
      /* dont make it unstackable if it doesn't need to be */
      if (op->is_weapon () || op->is_armor ())
        {
          op->weight = (op->weight * lmt->weight) / 100;
          op->value = (op->value * lmt->value) / 100;
        }
    }
}

Revision:	1.1
Committed:	Wed Nov 4 00:02:48 2009 UTC (14 years, 6 months ago) by root
Content type:	text/plain
Branch:	MAIN
Log Message:	agpl reorganisation
#	User	Rev	Content
1	root	1.1	/*
2			* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3			*
4			* Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5			* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6			* Copyright (©) 1992,2007 Frank Tore Johansen
7			*
8			* Deliantra is free software: you can redistribute it and/or modify it under
9			* the terms of the Affero GNU General Public License as published by the
10			* Free Software Foundation, either version 3 of the License, or (at your
11			* option) any later version.
12			*
13			* This program is distributed in the hope that it will be useful,
14			* but WITHOUT ANY WARRANTY; without even the implied warranty of
15			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16			* GNU General Public License for more details.
17			*
18			* You should have received a copy of the Affero GNU General Public License
19			* and the GNU General Public License along with this program. If not, see
20			* <http://www.gnu.org/licenses/>.
21			*
22			* The authors can be reached via e-mail to <support@deliantra.net>
23			*/
24
25			#include <global.h>
26			#include <material.h>
27
28			/* convert materialname to materialtype_t */
29
30			materialtype_t *
31			name_to_material (const shstr_cmp name)
32			{
33			for (materialtype_t *mt = materialt; mt; mt = mt->next)
34			if (name == mt->name)
35			return mt;
36
37			return 0;
38			}
39
40			/* when doing transmutation of objects, we have to recheck the resistances,
41			* as some that did not apply previously, may apply now.
42			*/
43			void
44			transmute_materialname (object op, const object change)
45			{
46			materialtype_t *mt;
47			int j;
48
49			if (!op->materialname)
50			return;
51
52			if (op->materialname != change->materialname)
53			return;
54
55			if (!op->is_armor ())
56			return;
57
58			mt = name_to_material (op->materialname);
59			if (!mt)
60			{
61			LOG (llevError, "archetype '%s>%s' uses nonexistent material '%s'\n", &op->arch->archname, &op->name, &op->materialname);
62			return;
63			}
64
65			for (j = 0; j < NROFATTACKS; j++)
66			if (op->resist[j] == 0 && change->resist[j] != 0)
67			{
68			op->resist[j] += mt->mod[j];
69			if (op->resist[j] > 100)
70			op->resist[j] = 100;
71			if (op->resist[j] < -100)
72			op->resist[j] = -100;
73			}
74			}
75
76			/* set the materialname and type for an item */
77			void
78			set_materialname (object op, int difficulty, materialtype_t nmt)
79			{
80			materialtype_t mt, lmt;
81
82			if (!op->materialname)
83			return;
84
85			if (nmt)
86			lmt = nmt;
87			else
88			{
89			lmt = 0;
90
91			for (mt = materialt; mt; mt = mt->next)
92			if (op->materials & mt->material && rndm (1, 100) <= mt->chance &&
93			difficulty >= mt->difficulty && (op->magic >= mt->magic \|\| mt->magic == 0))
94			{
95			lmt = mt;
96			if (!(op->is_weapon () \|\| op->is_armor ()))
97			break;
98			}
99			}
100
101			if (lmt)
102			{
103			if (op->stats.dam && op->is_weapon ())
104			{
105			op->stats.dam += lmt->damage;
106			if (op->stats.dam < 1)
107			op->stats.dam = 1;
108			}
109
110			if (op->stats.sp && op->type == BOW)
111			op->stats.sp += lmt->sp;
112			if (op->stats.wc && op->is_weapon ())
113			op->stats.wc += lmt->wc;
114			if (op->is_armor ())
115			{
116			if (op->stats.ac)
117			op->stats.ac += lmt->ac;
118
119			for (int j = 0; j < NROFATTACKS; j++)
120			if (op->resist[j] != 0)
121			{
122			op->resist[j] += lmt->mod[j];
123			if (op->resist[j] > 100)
124			op->resist[j] = 100;
125			if (op->resist[j] < -100)
126			op->resist[j] = -100;
127			}
128			}
129
130			op->materialname = lmt->name;
131			/* dont make it unstackable if it doesn't need to be */
132			if (op->is_weapon () \|\| op->is_armor ())
133			{
134			op->weight = (op->weight * lmt->weight) / 100;
135			op->value = (op->value * lmt->value) / 100;
136			}
137			}
138			}
139