server/common/region.C

/*
 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
 *
 * Copyright (©) 2017,2018 Marc Alexander Lehmann / 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 (©) 2001-2003 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>
#include <unistd.h>

regionvec regions;

region *
region::default_region ()
{
  for_all_regions (rgn)
    if (rgn->fallback)
      return rgn;

  return regions [0];
}

region *
region::find (shstr_cmp name)
{
  for_all_regions (rgn)
    if (rgn->name == name)
      return rgn;

  return default_region ();
}

void
object_thawer::get (region_ptr &r) const
{
  shstr_cmp name = get_str ();

  for_all_regions (rgn)
    if (rgn->name == name)
      {
        r = rgn;
        return;
      }

  parse_error (format ("region called %s requested, but not found, using fallback.\n", get_str ()));

  r = region::default_region ();
}

void
region::do_destroy ()
{
  regions.erase (this);

  attachable::do_destroy ();

  refcnt_dec ();
}

//+GPL

/*
 * returns 1 if the player is in the region reg, or a child region thereof
 * otherwise returns 0
 * if passed a NULL region returns -1
 */
static int
region_is_child_of_region (const region * child, const region * r)
{
  if (!r)
    return -1;

  if (!child)
    return 0;

  if (child->name == r->name)
    return 1;

  if (child->parent)
    return region_is_child_of_region (child->parent, r);

  return 0;
}

/** Returns an object which is an exit through which the player represented by op should be
 *  sent in order to be imprisoned. If there is no suitable place to which an exit can be
 *  constructed, then NULL will be returned. The caller is responsible for freeing the object
 *  created by this function.
 */
object *
get_jail_exit (object *op)
{
  if (op->type != PLAYER)
    {
      LOG (llevError, "region.c: get_jail_exit called against non-player object.\n");
      return NULL;
    }

  region *reg = op->region ();
  while (reg)
    {
      if (reg->jailmap)
        {
          object *exit = object::create ();
          EXIT_PATH (exit) = reg->jailmap;
          /* damned exits reset savebed and remove teleports, so the prisoner can't escape */
          exit->set_flag (FLAG_DAMNED);
          EXIT_X (exit) = reg->jailx;
          EXIT_Y (exit) = reg->jaily;
          return exit;
        }
      else
        reg = reg->parent;
    }

  LOG (llevError, "No suitable jailmap for region %s was found.\n", &reg->name);

  return 0;
}

//-GPL

region *
region::read (object_thawer &f)
{
  assert (f.kw == KW_region);

  region *rgn = new region;
  rgn->refcnt_inc ();

  f.get (rgn->name);
  f.next ();

  for (;;)
    {
      switch (f.kw)
        {
          case KW_parent:
            f.get (rgn->parent);
            break;

          case KW_msg:        f.get_ml (KW_endmsg, rgn->msg); break;
          case KW_longname:   f.get (rgn->longname); break;
          case KW_jail_map:   f.get (rgn->jailmap);  break;
          case KW_jail_x:     f.get (rgn->jailx);    break;
          case KW_jail_y:     f.get (rgn->jaily);    break;
          case KW_portal_map: f.get (rgn->portalmap);break;
          case KW_fallback:   f.get (rgn->fallback); break;
          case KW_chance:     f.get (rgn->treasure_density); break;

          case KW_randomitems:
            rgn->treasure = treasurelist::get (f.get_str ());
            break;

          case KW_end:
            f.next ();

            // cannot use find as that will request the default region
            for_all_regions (old)
              if (old->name == rgn->name)
                {
                  old->destroy ();
                  break;
                }

            // just append
            regions.push_back (rgn);
            return rgn;

          case KW_ERROR:
            rgn->set_key_text (f.kw_str, f.value);
            //fprintf (stderr, "region addkv(%s,%s)\n", f.kw_str, f.value);//D
            break;

          default:
            if (!f.parse_error ("region", rgn->name))
              {
                rgn->destroy ();
                return 0;
              }
            break;
        }

      f.next ();
    }
}

Revision:	1.58
Committed:	Sat Nov 17 23:40:00 2018 UTC (5 years, 6 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.57:	+1 -0 lines
Log Message:	copyright update 2018
#	User	Rev	Content
1	elmex	1.1	/*
2	root	1.37	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	root	1.55	*
4	root	1.58	* Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
5	root	1.56	* Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
6	root	1.47	* Copyright (©) 2001-2003 Mark Wedel & Crossfire Development Team
7			* Copyright (©) 1992 Frank Tore Johansen
8	root	1.55	*
9	root	1.43	* Deliantra is free software: you can redistribute it and/or modify it under
10			* the terms of the Affero GNU General Public License as published by the
11			* Free Software Foundation, either version 3 of the License, or (at your
12			* option) any later version.
13	root	1.55	*
14	root	1.33	* This program is distributed in the hope that it will be useful,
15			* but WITHOUT ANY WARRANTY; without even the implied warranty of
16			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17			* GNU General Public License for more details.
18	root	1.55	*
19	root	1.43	* You should have received a copy of the Affero GNU General Public License
20			* and the GNU General Public License along with this program. If not, see
21			* <http://www.gnu.org/licenses/>.
22	root	1.55	*
23	root	1.37	* The authors can be reached via e-mail to <support@deliantra.net>
24	pippijn	1.16	*/
25	elmex	1.1
26			#include <global.h>
27	pippijn	1.8	#include <unistd.h>
28	root	1.4
29	root	1.21	regionvec regions;
30
31	root	1.18	region *
32			region::default_region ()
33			{
34	root	1.21	for_all_regions (rgn)
35			if (rgn->fallback)
36			return rgn;
37	root	1.18
38	root	1.21	return regions [0];
39	root	1.18	}
40
41	root	1.4	region *
42	root	1.41	region::find (shstr_cmp name)
43	root	1.4	{
44	root	1.21	for_all_regions (rgn)
45	root	1.41	if (rgn->name == name)
46	root	1.21	return rgn;
47	root	1.4
48	root	1.50	return default_region ();
49			}
50
51	root	1.52	void
52			object_thawer::get (region_ptr &r) const
53	root	1.50	{
54	root	1.52	shstr_cmp name = get_str ();
55	root	1.50
56			for_all_regions (rgn)
57			if (rgn->name == name)
58	root	1.52	{
59			r = rgn;
60			return;
61			}
62	root	1.50
63	root	1.52	parse_error (format ("region called %s requested, but not found, using fallback.\n", get_str ()));
64	root	1.4
65	root	1.52	r = region::default_region ();
66	elmex	1.1	}
67
68	root	1.35	void
69			region::do_destroy ()
70			{
71			regions.erase (this);
72
73			attachable::do_destroy ();
74
75			refcnt_dec ();
76			}
77
78	root	1.44	//+GPL
79
80	root	1.57	/*
81	elmex	1.1	* returns 1 if the player is in the region reg, or a child region thereof
82			* otherwise returns 0
83			* if passed a NULL region returns -1
84			*/
85	root	1.19	static int
86	root	1.4	region_is_child_of_region (const region * child, const region * r)
87			{
88	root	1.40	if (!r)
89	root	1.4	return -1;
90	root	1.19
91	root	1.40	if (!child)
92	root	1.4	return 0;
93	root	1.19
94	root	1.40	if (child->name == r->name)
95	root	1.4	return 1;
96	root	1.19
97	root	1.40	if (child->parent)
98	root	1.4	return region_is_child_of_region (child->parent, r);
99	root	1.40
100			return 0;
101	elmex	1.1	}
102
103			/** Returns an object which is an exit through which the player represented by op should be
104	root	1.57	* sent in order to be imprisoned. If there is no suitable place to which an exit can be
105	elmex	1.1	* constructed, then NULL will be returned. The caller is responsible for freeing the object
106			* created by this function.
107			*/
108	root	1.4	object *
109			get_jail_exit (object *op)
110			{
111			if (op->type != PLAYER)
112			{
113			LOG (llevError, "region.c: get_jail_exit called against non-player object.\n");
114			return NULL;
115			}
116	root	1.19
117	root	1.38	region *reg = op->region ();
118	root	1.19	while (reg)
119	root	1.4	{
120			if (reg->jailmap)
121			{
122	root	1.38	object *exit = object::create ();
123	root	1.4	EXIT_PATH (exit) = reg->jailmap;
124			/* damned exits reset savebed and remove teleports, so the prisoner can't escape */
125	root	1.49	exit->set_flag (FLAG_DAMNED);
126	root	1.4	EXIT_X (exit) = reg->jailx;
127			EXIT_Y (exit) = reg->jaily;
128			return exit;
129	root	1.2	}
130	root	1.4	else
131			reg = reg->parent;
132	elmex	1.1	}
133	root	1.19
134	root	1.21	LOG (llevError, "No suitable jailmap for region %s was found.\n", &reg->name);
135
136			return 0;
137	elmex	1.1	}
138
139	root	1.44	//-GPL
140
141	root	1.25	region *
142	root	1.26	region::read (object_thawer &f)
143	root	1.19	{
144	root	1.26	assert (f.kw == KW_region);
145
146	root	1.21	region *rgn = new region;
147	root	1.35	rgn->refcnt_inc ();
148
149	root	1.25	f.get (rgn->name);
150	root	1.26	f.next ();
151	root	1.19
152	root	1.20	for (;;)
153			{
154	root	1.25	switch (f.kw)
155	root	1.20	{
156			case KW_parent:
157	root	1.52	f.get (rgn->parent);
158	root	1.20	break;
159
160	root	1.31	case KW_msg: f.get_ml (KW_endmsg, rgn->msg); break;
161			case KW_longname: f.get (rgn->longname); break;
162			case KW_jail_map: f.get (rgn->jailmap); break;
163			case KW_jail_x: f.get (rgn->jailx); break;
164			case KW_jail_y: f.get (rgn->jaily); break;
165			case KW_portal_map: f.get (rgn->portalmap);break;
166			case KW_fallback: f.get (rgn->fallback); break;
167			case KW_chance: f.get (rgn->treasure_density); break;
168	root	1.30
169			case KW_randomitems:
170			rgn->treasure = treasurelist::get (f.get_str ());
171			break;
172	root	1.20
173	root	1.21	case KW_end:
174	root	1.29	f.next ();
175
176	root	1.35	// cannot use find as that will request the default region
177	root	1.25	for_all_regions (old)
178			if (old->name == rgn->name)
179			{
180	root	1.35	old->destroy ();
181			break;
182	root	1.25	}
183
184			// just append
185			regions.push_back (rgn);
186			return rgn;
187	root	1.21
188	root	1.34	case KW_ERROR:
189	root	1.36	rgn->set_key_text (f.kw_str, f.value);
190	root	1.34	//fprintf (stderr, "region addkv(%s,%s)\n", f.kw_str, f.value);//D
191			break;
192
193	root	1.21	default:
194	root	1.25	if (!f.parse_error ("region", rgn->name))
195			{
196	root	1.35	rgn->destroy ();
197	root	1.25	return 0;
198			}
199	root	1.21	break;
200	root	1.20	}
201	root	1.25
202	root	1.26	f.next ();
203	root	1.20	}
204			}
205