… | |
… | |
113 | void free_all_god(void) { |
113 | void free_all_god(void) { |
114 | godlink *god, *godnext; |
114 | godlink *god, *godnext; |
115 | |
115 | |
116 | LOG(llevDebug,"Freeing god information\n"); |
116 | LOG(llevDebug,"Freeing god information\n"); |
117 | for (god=first_god; god; god=godnext) { |
117 | for (god=first_god; god; god=godnext) { |
118 | godnext=god->next; |
118 | godnext=god->next; |
119 | if (god->name) free_string(god->name); |
119 | if (god->name) free_string(god->name); |
120 | free(god); |
120 | free(god); |
121 | } |
121 | } |
122 | } |
122 | } |
123 | |
123 | |
124 | |
124 | |
125 | void dump_gods(void) { |
125 | void dump_gods(void) { |
… | |
… | |
132 | int tmpvar,gifts=0; |
132 | int tmpvar,gifts=0; |
133 | |
133 | |
134 | fprintf(stderr,"GOD: %s\n",god->name); |
134 | fprintf(stderr,"GOD: %s\n",god->name); |
135 | fprintf(stderr," avatar stats:\n"); |
135 | fprintf(stderr," avatar stats:\n"); |
136 | fprintf(stderr," S:%d C:%d D:%d I:%d W:%d P:%d\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, |
137 | god->stats.Str,god->stats.Con,god->stats.Dex, |
138 | god->stats.Int,god->stats.Wis,god->stats.Pow); |
138 | god->stats.Int,god->stats.Wis,god->stats.Pow); |
139 | fprintf(stderr," lvl:%d speed:%4.2f\n", |
139 | fprintf(stderr," lvl:%d speed:%4.2f\n", |
140 | god->level,god->speed); |
140 | god->level,god->speed); |
141 | fprintf(stderr," wc:%d ac:%d hp:%d dam:%d \n", |
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); |
142 | god->stats.wc,god->stats.ac,god->stats.hp,god->stats.dam); |
143 | fprintf(stderr," enemy: %s\n",god->title?god->title:"NONE"); |
143 | fprintf(stderr," enemy: %s\n",god->title?god->title:"NONE"); |
144 | if(god->other_arch) { |
144 | if(god->other_arch) { |
145 | object *serv = &god->other_arch->clone; |
145 | object *serv = &god->other_arch->clone; |
146 | fprintf(stderr," servant stats: (%s)\n",god->other_arch->name); |
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", |
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, |
148 | serv->stats.Str,serv->stats.Con,serv->stats.Dex, |
149 | serv->stats.Int,serv->stats.Wis,serv->stats.Pow); |
149 | serv->stats.Int,serv->stats.Wis,serv->stats.Pow); |
150 | fprintf(stderr," lvl:%d speed:%4.2f\n", |
150 | fprintf(stderr," lvl:%d speed:%4.2f\n", |
151 | serv->level,serv->speed); |
151 | serv->level,serv->speed); |
152 | fprintf(stderr," wc:%d ac:%d hp:%d dam:%d \n", |
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); |
153 | serv->stats.wc,serv->stats.ac,serv->stats.hp,serv->stats.dam); |
… | |
… | |
190 | if(QUERY_FLAG(god,FLAG_MAKE_INVIS)) {gifts=1; fprintf(stderr,"\n is (permanently) invisible");} |
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");} |
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);} |
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);} |
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)", |
194 | if(god->last_eat) {gifts=1; fprintf(stderr,"\n digestion is %s (%d)", |
195 | god->last_eat<0?"slowed":"faster",god->last_eat);} |
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);} |
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);} |
197 | if(god->stats.luck) {gifts=1; fprintf(stderr,"\n luck is %d",god->stats.luck);} |
198 | if(!gifts) fprintf(stderr,"NONE"); |
198 | if(!gifts) fprintf(stderr,"NONE"); |
199 | fprintf(stderr,"\n\n"); |
199 | fprintf(stderr,"\n\n"); |
200 | } |
200 | } |