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

Comparing deliantra/server/server/resurrection.C (file contents):
Revision 1.1 by elmex, Sun Aug 13 17:16:04 2006 UTC vs.
Revision 1.25 by root, Sun May 4 18:24:11 2008 UTC

1/* 1/*
2 * static char *rcsid_resurrection_c = 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * "$Id: resurrection.C,v 1.1 2006/08/13 17:16:04 elmex Exp $"; 3 *
4 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen
7 *
8 * Deliantra is free software: you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation, either version 3 of the License, or
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 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program. If not, see <http://www.gnu.org/licenses/>.
20 *
21 * The authors can be reached via e-mail to <support@deliantra.net>
4 */ 22 */
5
6/*
7 CrossFire, A Multiplayer game for X-windows
8
9 Copyright (C) 2002 Mark Wedel & Crossfire Development Team
10 Copyright (C) 1992 Frank Tore Johansen
11
12 This program is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 2 of the License, or
15 (at your option) any later version.
16
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
21
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software
24 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25
26 The authors can be reached via e-mail at crossfire-devel@real-time.com
27*/
28 23
29/* the contents of this file were create solely by peterm@soda.berkeley.edu 24/* the contents of this file were create solely by peterm@soda.berkeley.edu
30 all of the above disclaimers apply. */ 25 all of the above disclaimers apply. */
31 26
32#include <global.h> 27#include <global.h>
33#ifndef __CEXTRACT__
34#include <sproto.h> 28#include <sproto.h>
35#endif
36#include <spells.h> 29#include <spells.h>
37#include <errno.h> 30#include <errno.h>
38#ifdef sequent
39/* stoopid sequent includes don't do this like they should */
40extern char * sys_errlist[];
41extern int sys_nerr;
42#endif
43extern char **classname;
44extern object *objects;
45
46
47 31
48/* name of the person to resurrect and which spell was used 32/* name of the person to resurrect and which spell was used
49 * to resurrect 33 * to resurrect
50 */ 34 */
35static int
51static int resurrect_player(object *op,char *playername,object *spell) 36resurrect_player (object *op, char *playername, object *spell)
52{ 37{
53 FILE *deadplayer,*liveplayer; 38 FILE *deadplayer, *liveplayer;
54 39
55 char oldname[MAX_BUF]; 40 char oldname[MAX_BUF];
56 char newname[MAX_BUF]; 41 char newname[MAX_BUF];
57 char path[MAX_BUF]; 42 char path[MAX_BUF];
58 char buf[MAX_BUF]; 43 char buf[MAX_BUF];
59 char buf2[MAX_BUF]; 44 char buf2[MAX_BUF];
60 const char *race=NULL; 45 const char *race = NULL;
61 sint64 exp; 46 sint64 exp;
62 int Con; 47 int Con;
63 48
64
65 /* reincarnation, which changes the race */ 49 /* reincarnation, which changes the race */
66 if (spell->race) { 50 if (spell->race)
51 {
67 treasurelist *tl = find_treasurelist(spell->race); 52 treasurelist *tl = treasurelist::find (spell->race);
68 treasure *t; 53 treasure *t;
69 int value; 54 int value;
70 if (!tl) { 55
56 if (!tl)
57 {
71 LOG(llevError,"resurrect_player: race set to %s, but no treasurelist of that name!\n", spell->race); 58 LOG (llevError, "resurrect_player: race set to %s, but no treasurelist of that name!\n", &spell->race);
72 return 0; 59 return 0;
73 } 60 }
61
74 value = RANDOM() % tl->total_chance; 62 value = RANDOM () % tl->total_chance;
63
75 for (t=tl->items; t; t=t->next) { 64 for (t = tl->items; t; t = t->next)
65 {
76 value -= t->chance; 66 value -= t->chance;
77 if (value<0) break; 67 if (value < 0)
78 } 68 break;
79 if (!t) { 69 }
70
71 if (!t || !t->item)
72 {
80 LOG(llevError,"resurrect_player: got null treasure from treasurelist %s!\n", spell->race); 73 LOG (llevError, "resurrect_player: got null treasure from treasurelist %s!\n", &spell->race);
81 return 0; 74 return 0;
82 } 75 }
76
83 race = t->item->name; 77 race = t->item->archname;
84 } 78 }
85 79
86 /* set up our paths/strings... */ 80 /* set up our paths/strings... */
87 sprintf(path,"%s/%s/%s/%s",settings.localdir,settings.playerdir,playername, 81 sprintf (path, "%s/%s/%s/%s", settings.localdir, settings.playerdir, playername, playername);
88 playername);
89 82
90 strcpy(newname,path); 83 strcpy (newname, path);
91 strcat(newname,".pl"); 84 strcat (newname, ".pl");
92 85
93 strcpy(oldname,newname); 86 strcpy (oldname, newname);
94 strcat(oldname,".dead"); 87 strcat (oldname, ".dead");
95 88
96 if(! (deadplayer=fopen(oldname,"r"))) { 89 if (!(deadplayer = fopen (oldname, "r")))
97 new_draw_info_format(NDI_UNIQUE, 0, op,
98 "The soul of %s cannot be reached.",playername);
99 return 0;
100 } 90 {
101 91 new_draw_info_format (NDI_UNIQUE, 0, op, "The soul of %s cannot be reached.", playername);
102 if(!access(newname,0)) { 92 return 0;
103 new_draw_info_format(NDI_UNIQUE, 0, op,
104 "The soul of %s has already been reborn!",playername);
105 fclose(deadplayer);
106 return 0;
107 }
108
109 if(! (liveplayer=fopen(newname,"w"))) {
110 new_draw_info_format(NDI_UNIQUE, 0, op,
111 "The soul of %s cannot be re-embodied at the moment.",playername);
112 LOG(llevError,"Cannot write player in resurrect_player!\n");
113 fclose(deadplayer);
114 return 0;
115 }
116
117 while (!feof(deadplayer)) {
118 fgets(buf,255,deadplayer);
119 sscanf(buf,"%s",buf2);
120 if( ! (strcmp(buf2,"exp"))) {
121#ifndef WIN32
122 sscanf(buf,"%s %lld",buf2,&exp);
123#else
124 sscanf(buf,"%s %I64d",buf2,&exp);
125#endif
126 if (spell->stats.exp) {
127 exp-=exp/spell->stats.exp;
128#ifndef WIN32
129 sprintf(buf,"exp %lld\n",exp);
130#else
131 sprintf(buf,"exp %I64d\n",exp);
132#endif
133 } 93 }
134 } 94
135 if(! (strcmp(buf2,"Con"))) { 95 if (!access (newname, 0))
136 sscanf(buf,"%s %d",buf2,&Con);
137 Con -= spell->stats.Con;
138 if (Con < 1) Con = 1;
139 sprintf(buf,"Con %d\n",Con);
140 }
141 if(race && !strcmp(buf2,"race")) {
142 sprintf(buf,"race %s\n",race);
143 }
144 fputs(buf,liveplayer);
145 } 96 {
146 fclose(liveplayer); 97 new_draw_info_format (NDI_UNIQUE, 0, op, "The soul of %s has already been reborn!", playername);
147 fclose(deadplayer); 98 fclose (deadplayer);
99 return 0;
100 }
101
102 if (!(liveplayer = fopen (newname, "w")))
103 {
104 new_draw_info_format (NDI_UNIQUE, 0, op, "The soul of %s cannot be re-embodied at the moment.", playername);
105 LOG (llevError, "Cannot write player in resurrect_player!\n");
106 fclose (deadplayer);
107 return 0;
108 }
109
110 while (!feof (deadplayer))
111 {
112 fgets (buf, 255, deadplayer);
113 sscanf (buf, "%s", buf2);
114 if (!(strcmp (buf2, "exp")))
115 {
116 sscanf (buf, "%s %" SCNd64, buf2, &exp);
117 if (spell->stats.exp)
118 {
119 exp -= exp / spell->stats.exp;
120 sprintf (buf, "exp %" PRId64 "\n", exp);
121 }
122 }
123 if (!(strcmp (buf2, "Con")))
124 {
125 sscanf (buf, "%s %d", buf2, &Con);
126 Con -= spell->stats.Con;
127 if (Con < 1)
128 Con = 1;
129 sprintf (buf, "Con %d\n", Con);
130 }
131 if (race && !strcmp (buf2, "race"))
132 {
133 sprintf (buf, "race %s\n", race);
134 }
135 fputs (buf, liveplayer);
136 }
137 fclose (liveplayer);
138 fclose (deadplayer);
148 unlink(oldname); 139 unlink (oldname);
149 new_draw_info_format(NDI_UNIQUE, 0, op, 140 new_draw_info_format (NDI_UNIQUE, 0, op, "%s lives again!", playername);
150 "%s lives again!",playername);
151 141
152 return 1; 142 return 1;
153} 143}
154 144
155 145
156/* raise_dead by peterm and mehlhaff@soda.berkeley.edu 146/* raise_dead by peterm and mehlhaff@soda.berkeley.edu
157 * op -- who is doing the resurrecting 147 * op -- who is doing the resurrecting
158 * spell - spell object 148 * spell - spell object
159 * dir -- direction the spell is cast 149 * dir -- direction the spell is cast
160 * corpseobj - corpse to raise - can be null, in which case this function will find it 150 * corpseobj - corpse to raise - can be null, in which case this function will find it
161 */ 151 */
152int
162int cast_raise_dead_spell(object *op, object *caster, object *spell, int dir, const char *arg) 153cast_raise_dead_spell (object *op, object *caster, object *spell, int dir, const char *arg)
163{ 154{
164 object *temp, *newob; 155 object *temp, *newob;
165 char name_to_resurrect[MAX_BUF]; 156 char name_to_resurrect[MAX_BUF];
166 int leveldead=25, mflags, clevel; 157 int leveldead = 25, mflags, clevel;
167 sint16 sx, sy; 158 sint16 sx, sy;
168 mapstruct *m; 159 maptile *m;
169 160
170 clevel = caster_level(caster, spell); 161 clevel = caster_level (caster, spell);
171 162
172 if (spell->last_heal) { 163 if (spell->last_heal)
173 if (!arg) { 164 {
165 if (!arg)
166 {
174 new_draw_info_format(NDI_UNIQUE, 0,op,"Cast %s on who?", spell->name); 167 new_draw_info_format (NDI_UNIQUE, 0, op, "Cast %s on who?", &spell->name);
175 return 0; 168 return 0;
176 } 169 }
177 strcpy(name_to_resurrect, arg); 170 strcpy (name_to_resurrect, arg);
178 temp = NULL; 171 temp = NULL;
179 } else { 172 }
173 else
174 {
180 sx = op->x+freearr_x[dir]; 175 sx = op->x + freearr_x[dir];
181 sy = op->y+freearr_y[dir]; 176 sy = op->y + freearr_y[dir];
182 m = op->map; 177 m = op->map;
183 mflags = get_map_flags(m, &m, sx, sy, &sx, &sy); 178 mflags = get_map_flags (m, &m, sx, sy, &sx, &sy);
184 if (mflags & P_OUT_OF_MAP) 179 if (mflags & P_OUT_OF_MAP)
185 temp=NULL; 180 temp = NULL;
186 else { 181 else
182 {
187 /* First we need to find a corpse, if any. */ 183 /* First we need to find a corpse, if any. */
188 /* If no object, temp will be set to NULL */ 184 /* If no object, temp will be set to NULL */
189 for(temp=get_map_ob(m, sx, sy); temp!=NULL; temp=temp->above) 185 for (temp = GET_MAP_OB (m, sx, sy); temp != NULL; temp = temp->above)
190 /* If it is corpse, this must be what we want to raise */ 186 /* If it is corpse, this must be what we want to raise */
191 if(temp->type == CORPSE) 187 if (temp->type == CORPSE)
192 break; 188 break;
193 } 189 }
194 190
195 if(temp == NULL) { 191 if (temp == NULL)
192 {
196 new_draw_info(NDI_UNIQUE, 0,op, "You need a body for this spell."); 193 new_draw_info (NDI_UNIQUE, 0, op, "You need a body for this spell.");
197 return 0; 194 return 0;
198 } 195 }
199 strcpy(name_to_resurrect, temp->name ); 196 strcpy (name_to_resurrect, temp->name);
200 } 197 }
201 198
202 /* no matter what, we fry the corpse. */ 199 /* no matter what, we fry the corpse. */
203 if( temp && temp->map){ 200 if (temp && temp->map)
201 {
204 /* replace corpse object with a burning object */ 202 /* replace corpse object with a burning object */
205 newob = arch_to_object(find_archetype("burnout")); 203 newob = archetype::get (shstr_burnout);
206 if(newob != NULL){ 204 if (newob)
207 newob->x = temp->x; 205 newob->insert_at (temp, op);
208 newob->y = temp->y; 206
209 insert_ob_in_map( newob, temp->map, op,0);
210 }
211 leveldead=temp->level; 207 leveldead = temp->level;
212 remove_ob(temp); 208 temp->destroy ();
213 free_object(temp);
214 } 209 }
215 210
216 if(resurrection_fails(clevel,leveldead)) { 211 if (resurrection_fails (clevel, leveldead))
212 {
217 if (spell->randomitems) { 213 if (spell->randomitems)
218 treasure *t;
219
220 for (t=spell->randomitems->items; t; t=t->next) { 214 for (treasure *t = spell->randomitems->items; t; t = t->next)
215 if (t->item)
221 summon_hostile_monsters(op, t->nrof, t->item->name); 216 summon_hostile_monsters (op, t->nrof, t->item->archname);
217
218 return 1;
219
222 } 220 }
223 221 else
224 }
225 return 1;
226
227 } else {
228 return resurrect_player(op,name_to_resurrect,spell); 222 return resurrect_player (op, name_to_resurrect, spell);
229 }
230
231 return 1;
232} 223}
233 224
234 225
226int
235int resurrection_fails(int levelcaster,int leveldead) 227resurrection_fails (int levelcaster, int leveldead)
236{ 228{
237 int chance=9; 229 int chance = 9;
230
238 /* scheme: equal in level, 50% success. 231 /* scheme: equal in level, 50% success.
239 * +5 % for each level below, -5% for each level above. 232 * +5 % for each level below, -5% for each level above.
240 * minimum 20% 233 * minimum 20%
241 */ 234 */
242 chance+=levelcaster-leveldead; 235 chance += levelcaster - leveldead;
243 if(chance<4) chance=4; 236 if (chance < 4)
244 if(chance>rndm(0, 19)) return 0; /* resurrection succeeds */ 237 chance = 4;
238 if (chance > rndm (0, 19))
239 return 0; /* resurrection succeeds */
245 return 1; 240 return 1;
246} 241}
247 242
243void
248void dead_player(object *op) 244dead_player (object *op)
249{ 245{
250 char filename[MAX_BUF]; 246 char filename[MAX_BUF];
251 char newname[MAX_BUF]; 247 char newname[MAX_BUF];
252 char path[MAX_BUF]; 248 char path[MAX_BUF];
253 249
254 /* set up our paths/strings... */ 250 /* set up our paths/strings... */
255 sprintf(path,"%s/%s/%s/%s",settings.localdir,settings.playerdir,op->name, 251 sprintf (path, "%s/%s/%s/%s", settings.localdir, settings.playerdir, &op->name, &op->name);
256 op->name);
257 252
258 strcpy(filename,path); 253 strcpy (filename, path);
259 strcat(filename,".pl"); 254 strcat (filename, ".pl");
260 strcpy(newname,filename); 255 strcpy (newname, filename);
261 strcat(newname,".dead"); 256 strcat (newname, ".dead");
262 257
263 if(rename(filename,newname) != 0) { 258 if (rename (filename, newname) != 0)
259 {
264 LOG(llevError, "Cannot rename dead player's file %s into %s: %s\n", filename, newname, strerror_local(errno)); 260 LOG (llevError, "Cannot rename dead player's file %s into %s: %s\n", filename, newname, strerror (errno));
265 } 261 }
266} 262}
267 263
268 264
269 265
266void
270void dead_character(const char *name) { 267dead_character (const char *name)
268{
271 char buf[MAX_BUF]; 269 char buf[MAX_BUF];
272 char buf2[MAX_BUF]; 270 char buf2[MAX_BUF];
273 271
274 sprintf(buf,"%s/%s/%s/%s.pl",settings.localdir,settings.playerdir,name, name); 272 sprintf (buf, "%s/%s/%s/%s.pl", settings.localdir, settings.playerdir, name, name);
275 /* peterm: create a .dead filename.... ***.pl.dead */ 273 /* peterm: create a .dead filename.... ***.pl.dead */
276 strcpy(buf2,buf); 274 strcpy (buf2, buf);
277 strcat(buf,".dead"); 275 strcat (buf, ".dead");
278 if(rename(buf2,buf)== -1){ 276 if (rename (buf2, buf) == -1)
277 {
279 LOG(llevError, "Cannot rename dead player's file %s into %s: %s\n", buf2, buf, strerror_local(errno)); 278 LOG (llevError, "Cannot rename dead player's file %s into %s: %s\n", buf2, buf, strerror (errno));
280 } 279 }
281} 280}
282 281
283 282
283int
284int dead_player_exists(const char *name) { 284dead_player_exists (const char *name)
285{
285 char buf[MAX_BUF]; 286 char buf[MAX_BUF];
286 287
287 sprintf(buf,"%s/%s/%s/%s",settings.localdir,settings.playerdir,name, name); 288 sprintf (buf, "%s/%s/%s/%s", settings.localdir, settings.playerdir, name, name);
288 strcat(buf,".pl.dead"); 289 strcat (buf, ".pl.dead");
289 return !(access(buf,0)); 290 return !(access (buf, 0));
290} 291}
291
292

Diff Legend

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