server/random_maps/decor.C

/*
 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
 * 
 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
 * Copyright (©) 1992,2007 Frank Tore Johansen
 * 
 * Crossfire TRT is free software: you can redistribute it and/or modify
 * it under the terms of the 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 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 <crossfire@schmorp.de>
 */

#include <global.h>
#include <random_map.h>
#include <rproto.h>

#define NR_DECOR_OPTIONS 1

/* return a simple count of objects in the map at x,y. */

int
obj_count_in_map (maptile *map, int x, int y)
{
  int count = 0;
  object *tmp;

  for (tmp = GET_MAP_OB (map, x, y); tmp != NULL; tmp = tmp->above)
    count++;
  return count;
}

/* put the decor into the map.  Right now, it's very primitive. */

void
put_decor (maptile *map, char **maze, char *decorstyle, int decor_option, random_map_params *RP)
{
  maptile *decor_map;
  char style_name[1024];

  sprintf (style_name, "/styles/decorstyles");

  decor_map = find_style (style_name, decorstyle, -1);
  if (!decor_map)
    return;

  /* pick a random option, only 1 option right now. */
  if (decor_option == 0)
    decor_option = rndm (NR_DECOR_OPTIONS) + 1;

  switch (decor_option)
    {
      case 0:
        break;
      case 1:
        {                       /* random placement of decor objects. */
          int number_to_place = rndm (RP->Xsize * RP->Ysize / 5);
          int failures = 0;
          object *new_decor_object;

          while (failures < 100 && number_to_place > 0)
            {
              int x, y;

              x = rndm (RP->Xsize - 2) + 1;
              y = rndm (RP->Ysize - 2) + 1;
              if (maze[x][y] == 0 && obj_count_in_map (map, x, y) < 2)
                {               /* empty */
                  object *this_object;

                  new_decor_object = decor_map->pick_random_object ();
                  this_object = arch_to_object (new_decor_object->arch);
                  new_decor_object->copy_to (this_object);
                  this_object->x = x;
                  this_object->y = y;
                  /* it screws things up if decor can stop people */
                  this_object->move_block = 0;
                  insert_ob_in_map (this_object, map, NULL, 0);
                  number_to_place--;
                }
              else
                failures++;
            }
          break;
        }
      default:
        {                       /* place decor objects everywhere: tile the map. */
          int i, j;

          for (i = 1; i < RP->Xsize - 1; i++)
            for (j = 1; j < RP->Ysize - 1; j++)
              {
                if (maze[i][j] == 0)
                  {
                    object *new_decor_object, *this_object;

                    new_decor_object = decor_map->pick_random_object ();
                    this_object = arch_to_object (new_decor_object->arch);
                    new_decor_object->copy_to (this_object);
                    this_object->x = i;
                    this_object->y = j;
                    /* it screws things up if decor can stop people */
                    this_object->move_block = 0;
                    insert_ob_in_map (this_object, map, NULL, 0);
                  }
              }
          break;
        }
    }
}
Revision:	1.16
Committed:	Sun Jul 1 05:00:19 2007 UTC (16 years, 11 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_2, rel-2_3
Changes since 1.15:	+10 -12 lines
Log Message:	- upgrade crossfire trt to the GPL version 3 (hopefully correctly). - add a single file covered by the GNU Affero General Public License (which is not yet released, so I used the current draft, which is legally a bit wavy, but its likely better than nothing as it expresses direct intent by the authors, and we can upgrade as soon as it has been released). * this should ensure availability of source code for the server at least and hopefully also archetypes and maps even when modified versions are not being distributed, in accordance of section 13 of the agplv3.
#	User	Rev	Content
1	elmex	1.1	/*
2	root	1.16	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3	pippijn	1.11	*
4	root	1.16	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
5			* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6			* Copyright (©) 1992,2007 Frank Tore Johansen
7	pippijn	1.11	*
8	root	1.16	* Crossfire TRT is free software: you can redistribute it and/or modify
9	pippijn	1.11	* it under the terms of the GNU General Public License as published by
10	root	1.16	* the Free Software Foundation, either version 3 of the License, or
11	pippijn	1.11	* (at your 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	root	1.16	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16	pippijn	1.11	* GNU General Public License for more details.
17			*
18			* You should have received a copy of the GNU General Public License
19	root	1.16	* along with this program. If not, see <http://www.gnu.org/licenses/>.
20			*
21			* The authors can be reached via e-mail to <crossfire@schmorp.de>
22	pippijn	1.11	*/
23	elmex	1.1
24			#include <global.h>
25			#include <random_map.h>
26			#include <rproto.h>
27
28			#define NR_DECOR_OPTIONS 1
29
30			/* return a simple count of objects in the map at x,y. */
31
32	root	1.2	int
33	root	1.4	obj_count_in_map (maptile *map, int x, int y)
34	root	1.2	{
35			int count = 0;
36	elmex	1.1	object *tmp;
37	root	1.2
38	root	1.6	for (tmp = GET_MAP_OB (map, x, y); tmp != NULL; tmp = tmp->above)
39	root	1.2	count++;
40	elmex	1.1	return count;
41			}
42	root	1.2
43	elmex	1.1	/* put the decor into the map. Right now, it's very primitive. */
44
45	root	1.2	void
46	root	1.8	put_decor (maptile map, char maze, char decorstyle, int decor_option, random_map_params *RP)
47	root	1.2	{
48	root	1.4	maptile *decor_map;
49	root	1.9	char style_name[1024];
50	elmex	1.1
51	root	1.2	sprintf (style_name, "/styles/decorstyles");
52	elmex	1.1
53	root	1.2	decor_map = find_style (style_name, decorstyle, -1);
54	root	1.12	if (!decor_map)
55	root	1.2	return;
56	root	1.12
57	elmex	1.1	/* pick a random option, only 1 option right now. */
58	root	1.2	if (decor_option == 0)
59	root	1.13	decor_option = rndm (NR_DECOR_OPTIONS) + 1;
60	root	1.12
61	root	1.2	switch (decor_option)
62			{
63	root	1.8	case 0:
64			break;
65			case 1:
66			{ /* random placement of decor objects. */
67	root	1.13	int number_to_place = rndm (RP->Xsize * RP->Ysize / 5);
68	root	1.8	int failures = 0;
69			object *new_decor_object;
70
71			while (failures < 100 && number_to_place > 0)
72			{
73			int x, y;
74
75	root	1.13	x = rndm (RP->Xsize - 2) + 1;
76			y = rndm (RP->Ysize - 2) + 1;
77	root	1.8	if (maze[x][y] == 0 && obj_count_in_map (map, x, y) < 2)
78			{ /* empty */
79			object *this_object;
80
81	root	1.14	new_decor_object = decor_map->pick_random_object ();
82	root	1.8	this_object = arch_to_object (new_decor_object->arch);
83			new_decor_object->copy_to (this_object);
84			this_object->x = x;
85			this_object->y = y;
86			/* it screws things up if decor can stop people */
87	elmex	1.15	this_object->move_block = 0;
88	root	1.8	insert_ob_in_map (this_object, map, NULL, 0);
89			number_to_place--;
90			}
91			else
92			failures++;
93			}
94	root	1.2	break;
95	root	1.8	}
96			default:
97			{ /* place decor objects everywhere: tile the map. */
98			int i, j;
99	root	1.2
100	root	1.8	for (i = 1; i < RP->Xsize - 1; i++)
101			for (j = 1; j < RP->Ysize - 1; j++)
102	root	1.2	{
103	root	1.8	if (maze[i][j] == 0)
104			{
105			object new_decor_object, this_object;
106	root	1.2
107	root	1.14	new_decor_object = decor_map->pick_random_object ();
108	root	1.2	this_object = arch_to_object (new_decor_object->arch);
109	root	1.5	new_decor_object->copy_to (this_object);
110	root	1.8	this_object->x = i;
111			this_object->y = j;
112	root	1.2	/* it screws things up if decor can stop people */
113	elmex	1.15	this_object->move_block = 0;
114	root	1.2	insert_ob_in_map (this_object, map, NULL, 0);
115			}
116			}
117	root	1.8	break;
118			}
119	elmex	1.1	}
120			}