| … | |
… | |
| 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 | } |
