ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/holy.C
(Generate patch)

Comparing deliantra/server/common/holy.C (file contents):
Revision 1.13 by root, Sun Jul 1 05:00:17 2007 UTC vs.
Revision 1.30 by root, Sat Nov 17 23:40:00 2018 UTC

1/* 1/*
2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team 4 * Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
5 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team 6 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 7 * Copyright (©) 1992 Frank Tore Johansen
7 * 8 *
8 * Crossfire TRT is free software: you can redistribute it and/or modify 9 * Deliantra is free software: you can redistribute it and/or modify it under
9 * it under the terms of the GNU General Public License as published by 10 * the terms of the Affero GNU General Public License as published by the
10 * the Free Software Foundation, either version 3 of the License, or 11 * Free Software Foundation, either version 3 of the License, or (at your
11 * (at your option) any later version. 12 * option) any later version.
12 * 13 *
13 * This program is distributed in the hope that it will be useful, 14 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details. 17 * GNU General Public License for more details.
17 * 18 *
18 * You should have received a copy of the GNU General Public License 19 * You should have received a copy of the Affero GNU General Public License
19 * along with this program. If not, see <http://www.gnu.org/licenses/>. 20 * and the GNU General Public License along with this program. If not, see
21 * <http://www.gnu.org/licenses/>.
20 * 22 *
21 * The authors can be reached via e-mail to <crossfire@schmorp.de> 23 * The authors can be reached via e-mail to <support@deliantra.net>
22 */ 24 */
23 25
24/* Started file Sept 1996 - initialization of gods in form of a 26/* Started file Sept 1996 - initialization of gods in form of a
25 * linked list -b.t. 27 * linked list -b.t.
26 */ 28 */
27 29
28#include <global.h> 30#include <global.h>
29#include <living.h> 31#include <living.h>
30#include <spells.h> 32#include <spells.h>
31 33
32/* init_gods() - this takes a look at all of the archetypes to find
33 * the objects which correspond to the GODS (type GOD) */
34
35void
36init_gods (void)
37{
38 LOG (llevDebug, "Initialising gods...\n");
39
40 for_all_archetypes (at)
41 if (at->type == GOD)
42 add_god_to_list (at);
43
44 LOG (llevDebug, "done.\n");
45}
46
47/* add_god_to_list()- called only from init_gods */ 34/* add_god_to_list()- called only from init_gods */
48void 35static void
49add_god_to_list (archetype *god_arch) 36add_god_to_list (archetype *god_arch)
50{ 37{
51 if (!god_arch) 38 if (!god_arch)
52 { 39 {
53 LOG (llevError, "ERROR: Tried to add null god to list!\n"); 40 LOG (llevError, "ERROR: Tried to add null god to list!\n");
… …
63 // next=NULL; /* next god in this linked list */ 50 // next=NULL; /* next god in this linked list */
64 51
65 god->arch = god_arch; 52 god->arch = god_arch;
66 god->name = god_arch->object::name; 53 god->name = god_arch->object::name;
67 54
55 // first_god->id MUST be the highest god number for other code to work currently
68 if (!first_god) 56 if (!first_god)
69 god->id = 1; 57 god->id = 1;
70 else 58 else
71 { 59 {
72 god->id = first_god->id + 1; 60 god->id = first_god->id + 1;
… …
78#ifdef DEBUG_GODS 66#ifdef DEBUG_GODS
79 LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id); 67 LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
80#endif 68#endif
81} 69}
82 70
83/* baptize_altar() - (cosmetically) change the name to that of the
84 * god in question, then set the title for later use. -b.t.
85 */
86
87int
88baptize_altar (object *op)
89{
90 char buf[MAX_BUF];
91
92 /* if the title field is pre-set, then that altar is
93 * already dedicated. */
94 if (!op->title)
95 {
96 godlink *god = get_rand_god ();
97
98 if (!god || !god->name)
99 {
100 LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
101 return 0;
102 }
103 /* if the object name hasnt' been changed, we tack on the gods name */
104 if (!strcmp (op->name, op->arch->object::name))
105 {
106 sprintf (buf, "%s of %s", &op->name, &god->name);
107 op->name = buf;
108 }
109 op->title = god->name;
110 return 1;
111 }
112 return 0;
113}
114
115godlink * 71godlink *
116get_rand_god (void) 72get_rand_god ()
117{ 73{
118 godlink *god = first_god; 74 godlink *god = first_god;
119 int i; 75 int i;
120 76
121 if (god) 77 if (god)
… …
139 return godlnk && godlnk->arch 95 return godlnk && godlnk->arch
140 ? godlnk->arch 96 ? godlnk->arch
141 : 0; 97 : 0;
142} 98}
143 99
100/* init_gods() - this takes a look at all of the archetypes to find
101 * the objects which correspond to the GODS (type GOD) */
144void 102void
145free_all_god (void) 103init_gods ()
146{ 104{
147 godlink *god, *godnext; 105 LOG (llevDebug, "Initialising gods...\n");
148 106
149 LOG (llevDebug, "Freeing god information\n"); 107 for_all_archetypes (at)
150 for (god = first_god; god; god = godnext) 108 if (at->type == GOD)
151 { 109 add_god_to_list (at);
152 godnext = god->next; 110
153 delete god; 111 LOG (llevDebug, "done.\n");
154 }
155} 112}
113

Diff Legend

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