[ViewVC] Diff of: cvs/deliantra/server/server/disease.C

Comparing deliantra/server/server/disease.C (file contents):
Revision 1.37 by root, Thu Aug 23 18:55:02 2007 UTC vs.
Revision 1.74 by root, Sat Nov 17 23:40:03 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	/* This file contains all the code implementing diseases,	26	/* This file contains all the code implementing diseases,
25	* except for odds and ends in attack.c and in	27	* except for odds and ends in attack.c and in
26	* living.c	28	* living.c
27	*/	29	*/
28		30
29	/*	31	/*
30		32
35	other_arch Creation object created and dropped when symptom moved.	37	other_arch Creation object created and dropped when symptom moved.
36	title Message When the "disease" "infects" something, it will	38	title Message When the "disease" "infects" something, it will
37	print "title victim!!!" to the player who owns	39	print "title victim!!!" to the player who owns
38	the "disease".	40	the "disease".
39	wc+ Infectiousness How well the plague spreads person-to-person	41	wc+ Infectiousness How well the plague spreads person-to-person
40	magic+ Range range of infection	42	magic+ Range range of infection
41	Stats* Disability What stats are reduced by the disease (str con...)	43	Stats* Disability What stats are reduced by the disease (str con...)
42	maxhp+ Persistence How long the disease can last OUTSIDE the host.	44	maxhp+ Persistence How long the disease can last OUTSIDE the host.
43	value TimeLeft Counter for persistence	45	value TimeLeft Counter for persistence
44	dam^ Damage How much damage it does (%?).	46	dam^ Damage How much damage it does (%?).
45	maxgrace+ Duration How long before the disease is naturally cured.	47	maxgrace+ Duration How long before the disease is naturally cured.
46	food DurCount Counter for Duration	48	food DurCount Counter for Duration
47		49
48	speed Speed How often the disease moves.	50	speed Speed How often the disease moves.
49	last_sp^ Lethargy Percentage of max speed. 10 = 10% speed.	51	last_sp^ Lethargy Percentage of max speed. 10 = 10% speed.
50		52
51	maxsp^ Mana deplete Saps mana.	53	maxsp^ Mana deplete Saps mana.
52	ac^ Progressiveness How the diseases increases in severity.	54	ac^ Progressiveness How the diseases increases in severity.
53	last_eat*^ Deplete food saps food if negative	55	last_eat*^ Deplete food saps food if negative
54	last_heal GrantImmunity If nonzero, disease does NOT grant immunity	56	last_heal GrantImmunity If nonzero, disease does NOT grant immunity
55	when it runs out	57	when it runs out
56		58
57	exp experience experience awarded when plague cured	59	exp experience experience awarded when plague cured
58	hp*^ ReduceRegen reduces regeneration of disease-bearer	60	hp*^ ReduceRegen reduces regeneration of disease-bearer
59	sp*^ ReduceSpRegen reduces spellpoint regeneration	61	sp*^ ReduceSpRegen reduces spellpoint regeneration
60		62
61	name Name Name of the plague	63	name Name Name of the plague
62	msg message What the plague says when it strikes.	64	msg message What the plague says when it strikes.
63	race those affected species/race the plague strikes (* = everything)	65	race those affected species/race the plague strikes (* = everything)
64	level Plague Level General description of the plague's deadliness	66	level Plague Level General description of the plague's deadliness
65	armour Attenuation reduction in wc per generation of disease.	67	armour Attenuation reduction in wc per generation of disease.
66	This builds in a self-limiting factor.	68	This builds in a self-limiting factor.
67
68		69
69	Explanations:	70	Explanations:
70	* means this # should be negative to cause adverse effect.	71	* means this # should be negative to cause adverse effect.
71	+ means that this effect is modulated in spells by ldur	72	+ means that this effect is modulated in spells by ldur
72	^ means that this effect is modulated in spells by ldam	73	^ means that this effect is modulated in spells by ldam
…		…
130	#include <sproto.h>	131	#include <sproto.h>
131	#include <spells.h>	132	#include <spells.h>
132	#include <sounds.h>	133	#include <sounds.h>
133	#include <skills.h>	134	#include <skills.h>
134		135
135	/* IMPLEMENTATION NOTES	136	/* IMPLEMENTATION NOTES
136		137
137	Diseases may be contageous. They are objects which exist in a player's	138	Diseases may be contageous. They are objects which exist in a player's
138	inventory. They themselves do nothing, except modify Symptoms, or	139	inventory. They themselves do nothing, except modify Symptoms, or
139	spread to other live objects. Symptoms are what actually damage the player:	140	spread to other live objects. Symptoms are what actually damage the player:
140	these are their own object. */	141	these are their own object. */
141		142
142	/* check if victim is susceptible to disease. */	143	/* grants immunity to plagues we've seen before. */
143	static int	144	static int
144	is_susceptible_to_disease (object victim, object disease)	145	grant_immunity (object *disease)
145	{	146	{
146	if (!QUERY_FLAG (victim, FLAG_ALIVE))	147	object *immunity;
		148	object *walk;
		149
		150	/* Don't give immunity to this disease if last_heal is set. */
		151	if (disease->last_heal)
147	return 0;	152	return 0;
148		153
149	if (strstr (disease->race, "*") && !QUERY_FLAG (victim, FLAG_UNDEAD))	154	/* first, search for an immunity of the same name */
		155	for (walk = disease->env->inv; walk; walk = walk->below)
		156	if (disease->name == walk->name && walk->is_immunity ())
		157	{
		158	walk->level = disease->level;
		159	return 1; /* just update the existing immunity. */
		160	}
		161
		162	immunity = archetype::get (shstr_immunity);
		163
		164	immunity->name = disease->name;
		165	immunity->level = disease->level;
		166	immunity->move_block = 0;
		167
		168	insert_ob_in_ob (immunity, disease->env);
		169
150	return 1;	170	return 1;
		171	}
151		172
152	if ((disease->race == shstr_undead) && QUERY_FLAG (victim, FLAG_UNDEAD))	173	/* argument is a disease */
		174	static object *
		175	find_symptom (object *disease)
		176	{
		177	/* check the inventory for symptoms */
		178	for (object *walk = disease->env->inv; walk; walk = walk->below)
		179	if (walk->name == disease->name && walk->type == SYMPTOM)
153	return 1;	180	return walk;
154		181
155	if ((victim->race && strstr (disease->race, victim->race)) \|\| strstr (disease->race, victim->name))
156	return 1;
157
158	return 0;	182	return NULL;
159	}
160
161	int
162	move_disease (object *disease)
163	{
164	/* first task is to determine if the disease is inside or outside of someone.
165	* If outside, we decrement 'value' until we're gone.
166	*/
167
168	if (!disease->env)
169	{ /* we're outside of someone */
170	if (disease->stats.maxhp > 0)
171	disease->value--;
172
173	if (!disease->value)
174	{
175	disease->destroy ();
176	return 1;
177	}
178	}
179	else
180	{
181	/* if we're inside a person, have the disease run its course */
182	/* negative/zero food denotes "perpetual" diseases. */
183	if (disease->stats.food > 0)
184	{
185	disease->stats.food--;
186
187	if (!disease->stats.food)
188	{
189	remove_symptoms (disease); /* remove the symptoms of this disease */
190	grant_immunity (disease);
191	disease->destroy ();
192	return 1;
193	}
194	}
195	}
196
197	/* check to see if we infect others */
198	check_infection (disease);
199
200	/* impose or modify the symptoms of the disease */
201	if (disease->env && is_susceptible_to_disease (disease->env, disease))
202	do_symptoms (disease);
203
204	return 0;
205	}	183	}
206		184
207	/* remove any symptoms of disease	185	/* remove any symptoms of disease
208	* Modified by MSW 2003-03-28 do try to find all the symptom the	186	* Modified by MSW 2003-03-28 do try to find all the symptom the
209	* player may have - I think through some odd interactoins with	187	* player may have - I think through some odd interactoins with
210	* disease level and player level and whatnot, a player could get	188	* disease level and player level and whatnot, a player could get
211	* more than one symtpom to a disease.	189	* more than one symtpom to a disease.
212	*/	190	*/
213		191	static int
214	int
215	remove_symptoms (object *disease)	192	remove_symptoms (object *disease)
216	{	193	{
217	object symptom, victim = NULL;	194	object symptom, victim = NULL;
218		195
219	while ((symptom = find_symptom (disease)) != NULL)	196	while ((symptom = find_symptom (disease)) != NULL)
…		…
228	victim->update_stats ();	205	victim->update_stats ();
229		206
230	return 0;	207	return 0;
231	}	208	}
232		209
233	/* argument is a disease */
234	object *
235	find_symptom (object *disease)
236	{
237	/* check the inventory for symptoms */
238	for (object *walk = disease->env->inv; walk; walk = walk->below)
239	if (walk->name == disease->name && walk->type == SYMPTOM)
240	return walk;
241
242	return NULL;
243	}
244
245	/* searches around for more victims to infect */	210	/* searches around for more victims to infect */
246	int	211	static int
247	check_infection (object *disease)	212	check_infection (object *disease)
248	{	213	{
249	int x, y, range, mflags;
250	maptile map, map2;
251	object *tmp;
252
253	range = abs (disease->magic);	214	int range = abs (disease->magic);
254		215
255	if (disease->env)	216	object *op = disease->outer_env_or_self ();
256	{
257	x = disease->env->x;
258	y = disease->env->y;
259	map = disease->env->map;
260	}
261	else
262	{
263	x = disease->x;
264	y = disease->y;
265	map = disease->map;
266	}
267		217
268	if (!map)	218	if (!op->is_on_map ())
269	return 0;	219	return 0;
270		220
271	for (int i = x - range; i <= x + range; i++)	221	dynbuf buf;
272	for (int j = y - range; j <= y + range; j++)	222	unordered_mapwalk (buf, op, -range, -range, range, range)
273	{	223	{
274	sint16 i2, j2;	224	mapspace &ms = m->at (nx, ny);
275	mflags = get_map_flags (map, &map2, i, j, &i2, &j2);
276		225
277	if (!(mflags & P_OUT_OF_MAP) && (mflags & P_IS_ALIVE))	226	if (ms.flags () & P_IS_ALIVE)
278	for (tmp = GET_MAP_OB (map2, i2, j2); tmp; tmp = tmp->above)	227	for (object *tmp = ms.bot; tmp; tmp = tmp->above)
279	infect_object (tmp, disease, 0);	228	infect_object (tmp, disease, 0);
280	}	229	}
281		230
282	return 1;	231	return 1;
283	}	232	}
284		233
285	/* check to see if an object is infectable:	234	/* check if victim is susceptible to disease. */
286	* objects with immunity aren't infectable.	235	static int
287	* objects already infected aren't infectable.	236	is_susceptible_to_disease (object victim, object disease)
288	* dead objects aren't infectable.
289	* undead objects are infectible only if specifically named.
290	*/
291	int
292	infect_object (object victim, object disease, int force)
293	{	237	{
294	object *tmp;	238	if (!victim->flag [FLAG_ALIVE])
295	object *new_disease;
296
297	/* don't infect inanimate objects */
298	if (!QUERY_FLAG (victim, FLAG_MONSTER) && !(victim->type == PLAYER))
299	return 0;	239	return 0;
300		240
301	/* check and see if victim can catch disease: diseases	241	if (victim->flag [FLAG_WIZ])
302	* are specific
303	*/
304	if (!is_susceptible_to_disease (victim, disease))
305	return 0;	242	return 0;
306		243
307	/* roll the dice on infection before doing the inventory check! */	244	if (disease->race.contains ("*") && !victim->flag [FLAG_UNDEAD])
308	if (!force && (random_roll (0, 126, victim, PREFER_HIGH) >= disease->stats.wc))
309	return 0;	245	return 1;
310		246
311	/* do an immunity check */	247	if ((disease->race == shstr_undead) && victim->flag [FLAG_UNDEAD])
312
313	/* There used to (IMO) be a flaw in the below - it used to be the case
314	* that if level check was done for both immunity and disease. This could
315	* result in a person with multiple afflictions of the same disease
316	* (eg, level 1 cold, level 2 cold, level 3 cold, etc), as long as
317	* they were cast in that same order. Instead, change it so that
318	* if you diseased, you can't get diseased more.
319	*/
320
321	for (tmp = victim->head_ ()->inv; tmp; tmp = tmp->below)
322	if (tmp->type == SIGN && tmp->name == disease->name && tmp->level >= disease->level)
323	return 0; /* Immune! */
324	else if (tmp->type == DISEASE && tmp->name == disease->name)
325	return 0; /* already diseased */
326
327	/* If we've gotten this far, go ahead and infect the victim. */
328
329	new_disease = disease->clone ();
330
331	new_disease->stats.food = disease->stats.maxgrace;
332	new_disease->value = disease->stats.maxhp;
333	new_disease->stats.wc -= disease->last_grace; /* self-limiting factor */
334
335	/* This appears to be a horrible case of overloading 'NO_PASS'
336	* for meaning in the diseases.
337	*/
338	new_disease->move_block = 0;
339
340	// insert before setting the owner
341	victim->head_ ()->insert (new_disease);
342
343	if (disease->owner)
344	new_disease->set_owner (disease->owner);
345	else if (object *pl = disease->in_player ())
346	/* for diseases which are passed by hitting, set owner and skill */
347	new_disease->set_owner (pl);
348
349	if (new_disease->owner && new_disease->owner->type == PLAYER)
350	{
351	const char *buf;
352
353	/* if the disease has a title, it has a special infection message
354	* This messages is printed in the form MESSAGE victim
355	*/
356	if (new_disease->title)
357	buf = format ("%s %s!!", &disease->title, &victim->name);
358	else
359	buf = format ("You infect %s with your disease, %s!", &victim->name, &new_disease->name);
360
361	if (victim->type == PLAYER)
362	new_draw_info (NDI_UNIQUE \| NDI_RED, 0, new_disease->owner, buf);
363	else
364	new_draw_info (0, 4, new_disease->owner, buf);
365	}
366
367	if (victim->type == PLAYER)
368	new_draw_info (NDI_UNIQUE \| NDI_RED, 0, victim, "You suddenly feel ill.");
369
370	return 1;	248	return 1;
		249
		250	if ((victim->race && disease->race.contains (victim->race)) \|\| disease->race.contains (victim->name))
		251	return 1;
		252
		253	return 0;
371	}	254	}
372		255
373	/* this function monitors the symptoms caused by the disease (if any),	256	/* this function monitors the symptoms caused by the disease (if any),
374	causes symptoms, and modifies existing symptoms in the case of	257	causes symptoms, and modifies existing symptoms in the case of
375	existing diseases. */	258	existing diseases. */
376	int	259	static int
377	do_symptoms (object *disease)	260	do_symptoms (object *disease)
378	{	261	{
379	object *symptom;	262	object *symptom;
380	object *victim;	263	object *victim;
381	object *tmp;	264	object *tmp;
…		…
406	return 0;	289	return 0;
407		290
408	/* check for an actual immunity */	291	/* check for an actual immunity */
409	/* do an immunity check */	292	/* do an immunity check */
410	for (tmp = victim->head_ ()->inv; tmp; tmp = tmp->below)	293	for (tmp = victim->head_ ()->inv; tmp; tmp = tmp->below)
411	if (tmp->type == SIGN) /* possibly an immunity, or diseased */	294	if (tmp->name == disease->name && tmp->is_immunity ()) /* possibly an immunity, or diseased */
412	if (tmp->name == disease->name && tmp->level >= disease->level)	295	if (tmp->level >= disease->level)
413	return 0; /* Immune! */	296	return 0; /* Immune! */
414		297
415	object *new_symptom = get_archetype ("symptom");	298	object *new_symptom = archetype::get (shstr_symptom);
416		299
417	/* Something special done with dam. We want diseases to be more	300	/* Something special done with dam. We want diseases to be more
418	* random in what they'll kill, so we'll make the damage they	301	* random in what they'll kill, so we'll make the damage they
419	* do random, note, this has a weird effect with progressive diseases.	302	* do random, note, this has a weird effect with progressive diseases.
420	*/	303	*/
…		…
435	new_symptom->stats.food = new_symptom->stats.maxgrace;	318	new_symptom->stats.food = new_symptom->stats.maxgrace;
436		319
437	new_symptom->name = new_symptom->name_pl = disease->name;	320	new_symptom->name = new_symptom->name_pl = disease->name;
438		321
439	new_symptom->level = disease->level;	322	new_symptom->level = disease->level;
440	new_symptom->speed = disease->speed;
441	new_symptom->value = 0;	323	new_symptom->value = 0;
		324
		325	new_symptom->set_speed (disease->speed);
442		326
443	for (int i = 0; i < NUM_STATS; ++i)	327	for (int i = 0; i < NUM_STATS; ++i)
444	new_symptom->stats.stat (i) = disease->stats.stat (i);	328	new_symptom->stats.stat (i) = disease->stats.stat (i);
445		329
446	new_symptom->stats.sp = disease->stats.sp;	330	new_symptom->stats.sp = disease->stats.sp;
…		…
487	symptom->msg = disease->msg;	371	symptom->msg = disease->msg;
488	symptom->attacktype = disease->attacktype;	372	symptom->attacktype = disease->attacktype;
489	symptom->other_arch = disease->other_arch;	373	symptom->other_arch = disease->other_arch;
490	}	374	}
491		375
492	SET_FLAG (symptom, FLAG_APPLIED);	376	symptom->set_flag (FLAG_APPLIED);
493	victim->update_stats ();	377	victim->update_stats ();
494		378
495	return 1;	379	return 1;
496	}	380	}
497		381
498	/* grants immunity to plagues we've seen before. */
499	int	382	int
500	grant_immunity (object *disease)	383	move_disease (object *disease)
501	{	384	{
502	object *immunity;	385	/* First task is to determine if the disease is inside or outside of someone.
		386	* If outside, we decrement 'value' until we're gone.
		387	*/
		388
		389	if (!disease->env)
		390	{ /* we're outside of someone */
		391	if (disease->stats.maxhp > 0)
		392	disease->value--;
		393
		394	if (!disease->value)
		395	{
		396	disease->destroy ();
		397	return 1;
		398	}
		399	}
		400	else
		401	{
		402	/* if we're inside a person, have the disease run its course */
		403	/* negative/zero food denotes "perpetual" diseases. */
		404	if (disease->stats.food > 0)
		405	{
		406	disease->stats.food--;
		407
		408	if (!disease->stats.food)
		409	{
		410	remove_symptoms (disease); /* remove the symptoms of this disease */
		411	grant_immunity (disease);
		412	disease->destroy ();
		413	return 1;
		414	}
		415	}
		416	}
		417
		418	/* check to see if we infect others */
		419	check_infection (disease);
		420
		421	/* impose or modify the symptoms of the disease */
		422	if (disease->env && is_susceptible_to_disease (disease->env, disease))
		423	do_symptoms (disease);
		424
		425	return 0;
		426	}
		427
		428	/* check to see if an object is infectable:
		429	* objects with immunity aren't infectable.
		430	* objects already infected aren't infectable.
		431	* dead objects aren't infectable.
		432	* undead objects are infectible only if specifically named.
		433	*/
		434	int
		435	infect_object (object victim, object disease, int force)
		436	{
503	object *walk;	437	object *tmp;
		438	object *new_disease;
504		439
505	/* Don't give immunity to this disease if last_heal is set. */	440	/* don't infect inanimate objects */
506	if (disease->last_heal)	441	if (!victim->flag [FLAG_MONSTER] && !(victim->type == PLAYER))
507	return 0;	442	return 0;
508		443
509	/* first, search for an immunity of the same name */	444	/* check and see if victim can catch disease: diseases
510	for (walk = disease->env->inv; walk; walk = walk->below)	445	* are specific
511	if (walk->type == 98 && disease->name == walk->name)	446	*/
		447	if (!is_susceptible_to_disease (victim, disease))
		448	return 0;
		449
		450	/* roll the dice on infection before doing the inventory check! */
		451	if (!force && (random_roll (0, 126, victim, PREFER_HIGH) >= disease->stats.wc))
		452	return 0;
		453
		454	/* do an immunity check */
		455
		456	/* There used to (IMO) be a flaw in the below - it used to be the case
		457	* that if level check was done for both immunity and disease. This could
		458	* result in a person with multiple afflictions of the same disease
		459	* (eg, level 1 cold, level 2 cold, level 3 cold, etc), as long as
		460	* they were cast in that same order. Instead, change it so that
		461	* if you diseased, you can't get diseased more.
		462	*/
		463
		464	for (tmp = victim->head_ ()->inv; tmp; tmp = tmp->below)
		465	if (tmp->name == disease->name && tmp->is_immunity () && tmp->level >= disease->level)
		466	return 0; /* Immune! */
		467	else if (tmp->type == DISEASE && tmp->name == disease->name)
		468	return 0; /* already diseased */
		469
		470	/* If we've gotten this far, go ahead and infect the victim. */
		471
		472	new_disease = disease->clone ();
		473
		474	new_disease->stats.food = disease->stats.maxgrace;
		475	new_disease->value = disease->stats.maxhp;
		476	new_disease->stats.wc -= disease->last_grace; /* self-limiting factor */
		477
		478	/* This appears to be a horrible case of overloading 'NO_PASS'
		479	* for meaning in the diseases.
		480	*/
		481	new_disease->move_block = 0;
		482
		483	// insert before setting the owner
		484	victim->head_ ()->insert (new_disease);
		485
		486	if (disease->owner)
		487	new_disease->set_owner (disease->owner);
		488	else if (object *pl = disease->in_player ())
		489	/* for diseases which are passed by hitting, set owner and skill */
		490	new_disease->set_owner (pl);
		491
		492	if (INVOKE_OBJECT (INFECT, victim, ARG_OBJECT (disease), ARG_OBJECT (new_disease)))
		493	return 1;
		494
		495	if (new_disease->owner && new_disease->owner->type == PLAYER)
512	{	496	{
513	walk->level = disease->level;	497	const char *buf;
514	return 1; /* just update the existing immunity. */	498
		499	/* if the disease has a title, it has a special infection message
		500	* This messages is printed in the form MESSAGE victim
		501	*/
		502	if (new_disease->title)
		503	buf = format ("%s %s!!", &disease->title, &victim->name);
		504	else
		505	buf = format ("You infect %s with your disease, %s!", &victim->name, &new_disease->name);
		506
		507	if (victim->type == PLAYER)
		508	new_draw_info (NDI_UNIQUE \| NDI_RED, 0, new_disease->owner, buf);
		509	else
		510	new_draw_info (0, 4, new_disease->owner, buf);
515	}	511	}
516		512
517	immunity = get_archetype ("immunity");	513	if (victim->type == PLAYER)
518		514	new_draw_info (NDI_UNIQUE \| NDI_RED, 0, victim, "You suddenly feel ill.");
519	immunity->name = disease->name;
520	immunity->level = disease->level;
521	immunity->move_block = 0;
522
523	insert_ob_in_ob (immunity, disease->env);
524		515
525	return 1;	516	return 1;
526	}	517	}
527		518
528	/* make the symptom do the nasty things it does */	519	/* make the symptom do the nasty things it does */
529	int	520	int
530	move_symptom (object *symptom)	521	move_symptom (object *symptom)
531	{	522	{
532	object *victim = symptom->env;	523	object *victim = symptom->env;
533	object *new_ob;
534	int sp_reduce;
535		524
536	if (!victim \|\| !victim->map)	525	if (!victim \|\| !victim->map)
537	{ /* outside a monster/player, die immediately */	526	{ /* outside a monster/player, die immediately */
538	symptom->destroy ();	527	symptom->destroy ();
539	return 0;	528	return 0;
540	}	529	}
541		530
		531	/* create the symptom "other arch" object and drop it here
		532	* under every part of the monster
		533	* The victim may well have died.
		534	*/
		535	if (victim->map)
		536	{
		537	victim->play_sound (symptom->sound);
		538
		539	if (symptom->other_arch)
		540	for (object *tmp = victim->head_ (); tmp; tmp = tmp->more)
		541	{
		542	object *new_ob = symptom->other_arch->instance ();
		543	new_ob->x = tmp->x;
		544	new_ob->y = tmp->y;
		545	new_ob->map = victim->map;
		546	insert_ob_in_map (new_ob, victim->map, victim, 0);
		547	}
		548	}
		549
		550	int damage =
542	if (symptom->stats.dam > 0)	551	symptom->stats.dam > 0
		552	? symptom->stats.dam
		553	: max (1, victim->stats.maxhp * -symptom->stats.dam / 100);
		554
543	hit_player (victim, symptom->stats.dam, symptom, symptom->attacktype, 1);	555	hit_player (victim, damage, symptom, symptom->attacktype, 1);
544	else
545	hit_player (victim, max (1, -victim->stats.maxhp * symptom->stats.dam / 100.0), symptom, symptom->attacktype, 1);
546		556
		557	int sp_reduce =
547	if (symptom->stats.maxsp > 0)	558	symptom->stats.maxsp > 0
548	sp_reduce = symptom->stats.maxsp;	559	? symptom->stats.maxsp
549	else
550	sp_reduce = max (1, victim->stats.maxsp * symptom->stats.maxsp / 100.0);	560	: max (1, victim->stats.maxsp * -symptom->stats.maxsp / 100);
551		561
552	victim->stats.sp = max (0, victim->stats.sp - sp_reduce);	562	victim->stats.sp = max (0, victim->stats.sp - sp_reduce);
553
554	/* create the symptom "other arch" object and drop it here
555	* under every part of the monster
556	* The victim may well have died.
557	*/
558	if (symptom->other_arch && victim->map)
559	for (object *tmp = victim->head_ (); tmp; tmp = tmp->more)
560	{
561	new_ob = arch_to_object (symptom->other_arch);
562	new_ob->x = tmp->x;
563	new_ob->y = tmp->y;
564	new_ob->map = victim->map;
565	insert_ob_in_map (new_ob, victim->map, victim, 0);
566	}
567		563
568	new_draw_info (NDI_UNIQUE \| NDI_RED, 0, victim, symptom->msg);	564	new_draw_info (NDI_UNIQUE \| NDI_RED, 0, victim, symptom->msg);
569		565
570	return 1;	566	return 1;
571	}	567	}
…		…
581	infect_object (victim, disease, 0);	577	infect_object (victim, disease, 0);
582		578
583	return 1;	579	return 1;
584	}	580	}
585		581
586	// find a disease in someone
587	object *
588	find_disease (object *victim)
589	{
590	for (object *disease = victim->inv; disease; disease = disease->below)
591	if (disease->type == DISEASE)
592	return disease;
593
594	return 0;
595	}
596
597	/* do the cure disease stuff, from the spell "cure disease" */	582	/* do the cure disease stuff, from the spell "cure disease" */
598	int	583	int
599	cure_disease (object sufferer, object caster)	584	cure_disease (object sufferer, object caster, object *spell)
600	{	585	{
601	object disease, next;	586	object disease, next;
602	int casting_level;
603	int cure = 0;	587	int cure = 0;
604		588
605	if (caster)
606	casting_level = caster->level;
607	else
608	casting_level = 1000; /* if null caster, CURE all. */	589	int casting_level = caster ? caster->level : 1000; /* if null caster, CURE all. */
609		590
610	for (disease = sufferer->inv; disease; disease = next)	591	for (disease = sufferer->inv; disease; disease = next)
611	{	592	{
612	next = disease->below;	593	next = disease->below;
613		594
…		…
621	if ((casting_level >= disease->level) \|\| (!(random_roll (0, (disease->level - casting_level - 1), caster, PREFER_LOW))))	602	if ((casting_level >= disease->level) \|\| (!(random_roll (0, (disease->level - casting_level - 1), caster, PREFER_LOW))))
622	{	603	{
623	remove_symptoms (disease);	604	remove_symptoms (disease);
624	cure = 1;	605	cure = 1;
625		606
626	if (caster)	607	if (caster && spell)
627	change_exp (caster, disease->stats.exp, caster->chosen_skill ? caster->chosen_skill->skill : (const char *) 0, 0);	608	change_exp (caster, disease->stats.exp, spell->skill, SK_EXP_SKILL_ONLY);
628		609
629	disease->destroy ();	610	disease->destroy ();
630	}	611	}
631	}	612	}
632	}	613	}
…		…
641	}	622	}
642		623
643	return 1;	624	return 1;
644	}	625	}
645		626
		627	#if 0 // unused, but seems interesting
646	/* reduces disease progression: reduce_symptoms	628	/* reduces disease progression: reduce_symptoms
647	* return true if we actually reduce a disease.	629	* return true if we actually reduce a disease.
648	*/	630	*/
649	int	631	static int
650	reduce_symptoms (object *sufferer, int reduction)	632	reduce_symptoms (object *sufferer, int reduction)
651	{	633	{
652	object *walk;	634	object *walk;
653	int success = 0;	635	int success = 0;
654		636
…		…
670	if (success)	652	if (success)
671	new_draw_info (NDI_UNIQUE, 0, sufferer, "Your illness seems less severe.");	653	new_draw_info (NDI_UNIQUE, 0, sufferer, "Your illness seems less severe.");
672		654
673	return success;	655	return success;
674	}	656	}
		657	#endif

Diff Legend

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

Comparing deliantra/server/server/disease.C (file contents): Revision 1.37 by root, Thu Aug 23 18:55:02 2007 UTC vs. Revision 1.74 by root, Sat Nov 17 23:40:03 2018 UTC

Diff Legend

Comparing deliantra/server/server/disease.C (file contents):
Revision 1.37 by root, Thu Aug 23 18:55:02 2007 UTC vs.
Revision 1.74 by root, Sat Nov 17 23:40:03 2018 UTC