server/common/holy.C

  
/* Started file Sept 1996 - initialization of gods in form of a
 * linked list -b.t.
 */ 

#include <global.h>
#include <living.h>
#include <spells.h>

static godlink *init_godslist(void) {
    godlink *gl = (godlink *) malloc(sizeof(godlink));
    if(gl==NULL)
      fatal(OUT_OF_MEMORY);
    gl->name=NULL;        /* how to describe the god to the player */
    gl->arch=NULL;      /* pointer to the archetype of this god */
    gl->id=0;             /* id of the god */
    gl->pantheon=NULL;    /* the group to which the god belongs (not implemented) */
    gl->next=NULL;        /* next god in this linked list */
   
    return gl;
}
   
/* init_gods() - this takes a look at all of the archetypes to find
 * the objects which correspond to the GODS (type GOD) */
   
void init_gods (void) {
  archetype *at=NULL;
   
  LOG(llevDebug, "Initializing gods...");
  for(at=first_archetype;at!=NULL;at=at->next)
    if(at->clone.type==GOD) add_god_to_list(at);
  
  LOG(llevDebug,"done.\n");
}
  
/* add_god_to_list()- called only from init_gods */
void add_god_to_list (archetype *god_arch) {
  godlink *god;
  
  if(!god_arch) {
    LOG(llevError,"ERROR: Tried to add null god to list!\n");
    return;
  }
   
  god = init_godslist();
  
  god->arch = god_arch;
  god->name=add_string(god_arch->clone.name);
  if(!first_god)
    god->id = 1;
  else {
    god->id = first_god->id + 1;
    god->next = first_god;
  }
  first_god = god;
   
#ifdef DEBUG_GODS 
  LOG(llevDebug,"Adding god %s (%d) to list\n",god->name,god->id);
#endif
}

/* baptize_altar() - (cosmetically) change the name to that of the
 * god in question, then set the title for later use. -b.t.
 */
 
int baptize_altar(object *op) {
   char buf[MAX_BUF];
   
   /* if the title field is pre-set, then that altar is
    * already dedicated. */
   if(!op->title) {
     godlink *god=get_rand_god();
     if(!god||!god->name) {
        LOG(llevError,"baptise_altar(): bizarre nameless god!\n");
        return 0;
     }   
     /* if the object name hasnt' been changed, we tack on the gods name */
     if(!strcmp(op->name,op->arch->clone.name)) {
        if(op->name!=NULL) free_string(op->name);
        sprintf(buf,"%s of %s",op->name,god->name);
        op->name = add_string(buf);
     }
     op->title=add_string(god->name);
     return 1;
   }
   return 0;
}
 
godlink * get_rand_god ( void ) {
  godlink *god=first_god;
  int i;
 
  if(god)
    for(i=RANDOM()%(god->id)+1;god;god=god->next)
      if(god->id==i) break;
 
  if(!god) LOG(llevError,"get_rand_god(): can't find a random god!\n");
  return god;
}
 
/* pntr_to_god_obj() - returns a pointer to the object
 * We need to be VERY carefull about using this, as we
 * are returning a pointer to the CLONE object. -b.t.
 */
object *pntr_to_god_obj(godlink *godlnk) {
  object *god=NULL;
 
  if(godlnk && godlnk->arch)
    god=&godlnk->arch->clone;
  return god;
}

void free_all_god(void) {
    godlink *god, *godnext;

    LOG(llevDebug,"Freeing god information\n");
    for (god=first_god; god; god=godnext) {
        godnext=god->next;
        if (god->name) free_string(god->name);
        free(god);
    }
}


void dump_gods(void) {
    godlink *glist;
  
    fprintf(stderr,"\n");
    for(glist=first_god;glist;glist=glist->next) {
      object *god=pntr_to_god_obj(glist);
      char tmpbuf[HUGE_BUF];
      int tmpvar,gifts=0;

      fprintf(stderr,"GOD: %s\n",god->name);
      fprintf(stderr," avatar stats:\n");
      fprintf(stderr,"  S:%d C:%d D:%d I:%d W:%d P:%d\n", 
        god->stats.Str,god->stats.Con,god->stats.Dex, 
        god->stats.Int,god->stats.Wis,god->stats.Pow);
      fprintf(stderr,"  lvl:%d speed:%4.2f\n", 
        god->level,god->speed);
      fprintf(stderr,"  wc:%d ac:%d hp:%d dam:%d \n",
        god->stats.wc,god->stats.ac,god->stats.hp,god->stats.dam);
      fprintf(stderr," enemy: %s\n",god->title?god->title:"NONE");
      if(god->other_arch) {
        object *serv = &god->other_arch->clone;
        fprintf(stderr," servant stats: (%s)\n",god->other_arch->name);
        fprintf(stderr,"  S:%d C:%d D:%d I:%d W:%d P:%d\n", 
          serv->stats.Str,serv->stats.Con,serv->stats.Dex, 
          serv->stats.Int,serv->stats.Wis,serv->stats.Pow);
        fprintf(stderr,"  lvl:%d speed:%4.2f\n", 
          serv->level,serv->speed);
        fprintf(stderr,"  wc:%d ac:%d hp:%d dam:%d \n",
          serv->stats.wc,serv->stats.ac,serv->stats.hp,serv->stats.dam);
      } else
        fprintf(stderr," servant: NONE\n");
      fprintf(stderr," aligned_race(s): %s\n",god->race);
      fprintf(stderr," enemy_race(s): %s\n",(god->slaying?god->slaying:"none"));
      fprintf(stderr,"%s", describe_resistance(god, 1));
      sprintf(tmpbuf," attacktype:");
      if((tmpvar=god->attacktype)) { 
        strcat(tmpbuf,"\n  ");
        DESCRIBE_ABILITY(tmpbuf, tmpvar, "Attacks");
      }
      strcat(tmpbuf,"\n aura:");

      strcat(tmpbuf,"\n paths:");
      if((tmpvar=god->path_attuned)) { 
        strcat(tmpbuf,"\n  ");
        DESCRIBE_PATH(tmpbuf, tmpvar, "Attuned");
      }
      if((tmpvar=god->path_repelled)) { 
        strcat(tmpbuf,"\n  ");
        DESCRIBE_PATH(tmpbuf, tmpvar, "Repelled");
      }
      if((tmpvar=god->path_denied)) { 
        strcat(tmpbuf,"\n  ");
        DESCRIBE_PATH(tmpbuf, tmpvar, "Denied");
      }
      fprintf(stderr,"%s\n",tmpbuf);
      fprintf(stderr," Desc: %s",god->msg?god->msg:"---\n");
      fprintf(stderr," Priest gifts/limitations: ");
      if(!QUERY_FLAG(god,FLAG_USE_WEAPON)) {gifts=1; fprintf(stderr,"\n  weapon use is forbidden");} 
      if(!QUERY_FLAG(god,FLAG_USE_ARMOUR)) {gifts=1; fprintf(stderr,"\n  no armour may be worn");} 
      if(QUERY_FLAG(god,FLAG_UNDEAD)) {gifts=1; fprintf(stderr,"\n  is undead");} 
      if(QUERY_FLAG(god,FLAG_SEE_IN_DARK)) {gifts=1; fprintf(stderr,"\n  has infravision ");} 
      if(QUERY_FLAG(god,FLAG_XRAYS)) {gifts=1; fprintf(stderr,"\n  has X-ray vision");} 
      if(QUERY_FLAG(god,FLAG_REFL_MISSILE)) {gifts=1; fprintf(stderr,"\n  reflect missiles");} 
      if(QUERY_FLAG(god,FLAG_REFL_SPELL)) {gifts=1; fprintf(stderr,"\n  reflect spells");} 
      if(QUERY_FLAG(god,FLAG_STEALTH)) {gifts=1; fprintf(stderr,"\n  is stealthy");} 
      if(QUERY_FLAG(god,FLAG_MAKE_INVIS)) {gifts=1; fprintf(stderr,"\n  is (permanently) invisible");} 
      if(QUERY_FLAG(god,FLAG_BLIND)) {gifts=1; fprintf(stderr,"\n  is blind");} 
      if(god->last_heal) {gifts=1; fprintf(stderr,"\n  hp regenerate at %d",god->last_heal);} 
      if(god->last_sp) {gifts=1; fprintf(stderr,"\n  sp regenerate at %d",god->last_sp);} 
      if(god->last_eat) {gifts=1; fprintf(stderr,"\n  digestion is %s (%d)",
        god->last_eat<0?"slowed":"faster",god->last_eat);} 
      if(god->last_grace) {gifts=1; fprintf(stderr,"\n  grace regenerates at %d",god->last_grace);} 
      if(god->stats.luck) {gifts=1; fprintf(stderr,"\n  luck is %d",god->stats.luck);} 
      if(!gifts) fprintf(stderr,"NONE");
      fprintf(stderr,"\n\n");
    }
}

Revision:	1.1
Committed:	Sun Aug 13 17:16:00 2006 UTC (17 years, 9 months ago) by elmex
Content type:	text/plain
Branch:	MAIN
Log Message:	Made server compile with C++. Removed cfanim plugin and crossedit. C++ here we come.
#	User	Rev	Content
1	elmex	1.1
2			/* Started file Sept 1996 - initialization of gods in form of a
3			* linked list -b.t.
4			*/
5
6			#include <global.h>
7			#include <living.h>
8			#include <spells.h>
9
10			static godlink *init_godslist(void) {
11			godlink gl = (godlink ) malloc(sizeof(godlink));
12			if(gl==NULL)
13			fatal(OUT_OF_MEMORY);
14			gl->name=NULL; /* how to describe the god to the player */
15			gl->arch=NULL; /* pointer to the archetype of this god */
16			gl->id=0; /* id of the god */
17			gl->pantheon=NULL; /* the group to which the god belongs (not implemented) */
18			gl->next=NULL; /* next god in this linked list */
19
20			return gl;
21			}
22
23			/* init_gods() - this takes a look at all of the archetypes to find
24			* the objects which correspond to the GODS (type GOD) */
25
26			void init_gods (void) {
27			archetype *at=NULL;
28
29			LOG(llevDebug, "Initializing gods...");
30			for(at=first_archetype;at!=NULL;at=at->next)
31			if(at->clone.type==GOD) add_god_to_list(at);
32
33			LOG(llevDebug,"done.\n");
34			}
35
36			/* add_god_to_list()- called only from init_gods */
37			void add_god_to_list (archetype *god_arch) {
38			godlink *god;
39
40			if(!god_arch) {
41			LOG(llevError,"ERROR: Tried to add null god to list!\n");
42			return;
43			}
44
45			god = init_godslist();
46
47			god->arch = god_arch;
48			god->name=add_string(god_arch->clone.name);
49			if(!first_god)
50			god->id = 1;
51			else {
52			god->id = first_god->id + 1;
53			god->next = first_god;
54			}
55			first_god = god;
56
57			#ifdef DEBUG_GODS
58			LOG(llevDebug,"Adding god %s (%d) to list\n",god->name,god->id);
59			#endif
60			}
61
62			/* baptize_altar() - (cosmetically) change the name to that of the
63			* god in question, then set the title for later use. -b.t.
64			*/
65
66			int baptize_altar(object *op) {
67			char buf[MAX_BUF];
68
69			/* if the title field is pre-set, then that altar is
70			* already dedicated. */
71			if(!op->title) {
72			godlink *god=get_rand_god();
73			if(!god\|\|!god->name) {
74			LOG(llevError,"baptise_altar(): bizarre nameless god!\n");
75			return 0;
76			}
77			/* if the object name hasnt' been changed, we tack on the gods name */
78			if(!strcmp(op->name,op->arch->clone.name)) {
79			if(op->name!=NULL) free_string(op->name);
80			sprintf(buf,"%s of %s",op->name,god->name);
81			op->name = add_string(buf);
82			}
83			op->title=add_string(god->name);
84			return 1;
85			}
86			return 0;
87			}
88
89			godlink * get_rand_god ( void ) {
90			godlink *god=first_god;
91			int i;
92
93			if(god)
94			for(i=RANDOM()%(god->id)+1;god;god=god->next)
95			if(god->id==i) break;
96
97			if(!god) LOG(llevError,"get_rand_god(): can't find a random god!\n");
98			return god;
99			}
100
101			/* pntr_to_god_obj() - returns a pointer to the object
102			* We need to be VERY carefull about using this, as we
103			* are returning a pointer to the CLONE object. -b.t.
104			*/
105			object pntr_to_god_obj(godlink godlnk) {
106			object *god=NULL;
107
108			if(godlnk && godlnk->arch)
109			god=&godlnk->arch->clone;
110			return god;
111			}
112
113			void free_all_god(void) {
114			godlink god, godnext;
115
116			LOG(llevDebug,"Freeing god information\n");
117			for (god=first_god; god; god=godnext) {
118			godnext=god->next;
119			if (god->name) free_string(god->name);
120			free(god);
121			}
122			}
123
124
125			void dump_gods(void) {
126			godlink *glist;
127
128			fprintf(stderr,"\n");
129			for(glist=first_god;glist;glist=glist->next) {
130			object *god=pntr_to_god_obj(glist);
131			char tmpbuf[HUGE_BUF];
132			int tmpvar,gifts=0;
133
134			fprintf(stderr,"GOD: %s\n",god->name);
135			fprintf(stderr," avatar stats:\n");
136			fprintf(stderr," S:%d C:%d D:%d I:%d W:%d P:%d\n",
137			god->stats.Str,god->stats.Con,god->stats.Dex,
138			god->stats.Int,god->stats.Wis,god->stats.Pow);
139			fprintf(stderr," lvl:%d speed:%4.2f\n",
140			god->level,god->speed);
141			fprintf(stderr," wc:%d ac:%d hp:%d dam:%d \n",
142			god->stats.wc,god->stats.ac,god->stats.hp,god->stats.dam);
143			fprintf(stderr," enemy: %s\n",god->title?god->title:"NONE");
144			if(god->other_arch) {
145			object *serv = &god->other_arch->clone;
146			fprintf(stderr," servant stats: (%s)\n",god->other_arch->name);
147			fprintf(stderr," S:%d C:%d D:%d I:%d W:%d P:%d\n",
148			serv->stats.Str,serv->stats.Con,serv->stats.Dex,
149			serv->stats.Int,serv->stats.Wis,serv->stats.Pow);
150			fprintf(stderr," lvl:%d speed:%4.2f\n",
151			serv->level,serv->speed);
152			fprintf(stderr," wc:%d ac:%d hp:%d dam:%d \n",
153			serv->stats.wc,serv->stats.ac,serv->stats.hp,serv->stats.dam);
154			} else
155			fprintf(stderr," servant: NONE\n");
156			fprintf(stderr," aligned_race(s): %s\n",god->race);
157			fprintf(stderr," enemy_race(s): %s\n",(god->slaying?god->slaying:"none"));
158			fprintf(stderr,"%s", describe_resistance(god, 1));
159			sprintf(tmpbuf," attacktype:");
160			if((tmpvar=god->attacktype)) {
161			strcat(tmpbuf,"\n ");
162			DESCRIBE_ABILITY(tmpbuf, tmpvar, "Attacks");
163			}
164			strcat(tmpbuf,"\n aura:");
165
166			strcat(tmpbuf,"\n paths:");
167			if((tmpvar=god->path_attuned)) {
168			strcat(tmpbuf,"\n ");
169			DESCRIBE_PATH(tmpbuf, tmpvar, "Attuned");
170			}
171			if((tmpvar=god->path_repelled)) {
172			strcat(tmpbuf,"\n ");
173			DESCRIBE_PATH(tmpbuf, tmpvar, "Repelled");
174			}
175			if((tmpvar=god->path_denied)) {
176			strcat(tmpbuf,"\n ");
177			DESCRIBE_PATH(tmpbuf, tmpvar, "Denied");
178			}
179			fprintf(stderr,"%s\n",tmpbuf);
180			fprintf(stderr," Desc: %s",god->msg?god->msg:"---\n");
181			fprintf(stderr," Priest gifts/limitations: ");
182			if(!QUERY_FLAG(god,FLAG_USE_WEAPON)) {gifts=1; fprintf(stderr,"\n weapon use is forbidden");}
183			if(!QUERY_FLAG(god,FLAG_USE_ARMOUR)) {gifts=1; fprintf(stderr,"\n no armour may be worn");}
184			if(QUERY_FLAG(god,FLAG_UNDEAD)) {gifts=1; fprintf(stderr,"\n is undead");}
185			if(QUERY_FLAG(god,FLAG_SEE_IN_DARK)) {gifts=1; fprintf(stderr,"\n has infravision ");}
186			if(QUERY_FLAG(god,FLAG_XRAYS)) {gifts=1; fprintf(stderr,"\n has X-ray vision");}
187			if(QUERY_FLAG(god,FLAG_REFL_MISSILE)) {gifts=1; fprintf(stderr,"\n reflect missiles");}
188			if(QUERY_FLAG(god,FLAG_REFL_SPELL)) {gifts=1; fprintf(stderr,"\n reflect spells");}
189			if(QUERY_FLAG(god,FLAG_STEALTH)) {gifts=1; fprintf(stderr,"\n is stealthy");}
190			if(QUERY_FLAG(god,FLAG_MAKE_INVIS)) {gifts=1; fprintf(stderr,"\n is (permanently) invisible");}
191			if(QUERY_FLAG(god,FLAG_BLIND)) {gifts=1; fprintf(stderr,"\n is blind");}
192			if(god->last_heal) {gifts=1; fprintf(stderr,"\n hp regenerate at %d",god->last_heal);}
193			if(god->last_sp) {gifts=1; fprintf(stderr,"\n sp regenerate at %d",god->last_sp);}
194			if(god->last_eat) {gifts=1; fprintf(stderr,"\n digestion is %s (%d)",
195			god->last_eat<0?"slowed":"faster",god->last_eat);}
196			if(god->last_grace) {gifts=1; fprintf(stderr,"\n grace regenerates at %d",god->last_grace);}
197			if(god->stats.luck) {gifts=1; fprintf(stderr,"\n luck is %d",god->stats.luck);}
198			if(!gifts) fprintf(stderr,"NONE");
199			fprintf(stderr,"\n\n");
200			}
201			}
202