ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/server/server/apply.C

Comparing deliantra/server/server/apply.C (file contents):
Revision 1.189 by elmex, Sun Feb 22 17:10:06 2009 UTC vs.
Revision 1.213 by elmex, Mon Nov 9 13:38:36 2009 UTC

…		…
3	*	3	*
4	* Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team	4	* Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (©) 2001,2007 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2001,2007 Mark Wedel & Crossfire Development Team
6	* Copyright (©) 1992,2007 Frank Tore Johansen	6	* Copyright (©) 1992,2007 Frank Tore Johansen
7	*	7	*
8	* Deliantra is free software: you can redistribute it and/or modify	8	* 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	9	* 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	10	* Free Software Foundation, either version 3 of the License, or (at your
11	* (at your option) any later version.	11	* option) any later version.
12	*	12	*
13	* This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
14	* but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16	* GNU General Public License for more details.	16	* GNU General Public License for more details.
17	*	17	*
18	* You should have received a copy of the GNU General Public License	18	* 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/>.	19	* and the GNU General Public License along with this program. If not, see
		20	* <http://www.gnu.org/licenses/>.
20	*	21	*
21	* The authors can be reached via e-mail to <support@deliantra.net>	22	* The authors can be reached via e-mail to <support@deliantra.net>
22	*/	23	*/
23		24
24	#include <cmath>	25	#include <cmath>
25		26
…		…
92	* Return value: 1 if money was destroyed, 0 if not.	93	* Return value: 1 if money was destroyed, 0 if not.
93	*/	94	*/
94	static int	95	static int
95	apply_id_altar (object *money, object *altar, object *pl)	96	apply_id_altar (object *money, object *altar, object *pl)
96	{	97	{
97	dynbuf_text buf;	98	dynbuf_text &buf = msg_dynbuf; buf.clear ();
98		99
99	if (!pl || pl->type != PLAYER)	100	if (!pl || pl->type != PLAYER)
100	return 0;	101	return 0;
101		102
102	/* Check for MONEY type is a special hack - it prevents 'nothing needs	103	/* Check for MONEY type is a special hack - it prevents 'nothing needs
103	* identifying' from being printed out more than it needs to be.	104	* identifying' from being printed out more than it needs to be.
104	*/	105	*/
105	if (!check_altar_sacrifice (altar, money) || money->type != MONEY)	106	if (!check_altar_sacrifice (altar, money, pl) || money->type != MONEY)
106	return 0;	107	return 0;
107		108
108	/* if the player has a marked item, identify that if it needs to be	109	/* if the player has a marked item, identify that if it needs to be
109	* identified. If it doesn't, then go through the player inventory.	110	* identified. If it doesn't, then go through the player inventory.
110	*/	111	*/
111	if (object *marked = find_marked_object (pl))	112	if (object *marked = find_marked_object (pl))
112	if (!QUERY_FLAG (marked, FLAG_IDENTIFIED) && need_identify (marked))	113	if (!QUERY_FLAG (marked, FLAG_IDENTIFIED) && need_identify (marked))
113	{	114	{
114	if (operate_altar (altar, &money))	115	if (operate_altar (altar, &money, pl))
115	{	116	{
116	identify (marked);	117	identify (marked);
117		118
118	buf.printf ("You have %s.\r", long_desc (marked, pl));	119	buf.printf ("You have %s.\r", long_desc (marked, pl));
119	if (marked->msg)	120	if (marked->msg)
…		…
125		126
126	for (object *id = pl->inv; id; id = id->below)	127	for (object *id = pl->inv; id; id = id->below)
127	{	128	{
128	if (!QUERY_FLAG (id, FLAG_IDENTIFIED) && !id->invisible && need_identify (id))	129	if (!QUERY_FLAG (id, FLAG_IDENTIFIED) && !id->invisible && need_identify (id))
129	{	130	{
130	if (operate_altar (altar, &money))	131	if (operate_altar (altar, &money, pl))
131	{	132	{
132	identify (id);	133	identify (id);
133		134
134	buf.printf ("You have %s.\r", long_desc (id, pl));	135	buf.printf ("You have %s.\r", long_desc (id, pl));
135	if (id->msg)	136	if (id->msg)
…		…
203	op->update_stats ();	204	op->update_stats ();
204	tmp->decrease ();	205	tmp->decrease ();
205	return 1;	206	return 1;
206	}	207	}
207		208
208	if (!(at = archetype::find (ARCH_DEPLETION)))	209	if (!(at = archetype::find (shstr_depletion)))
209	{	210	{
210	LOG (llevError, "Could not find archetype depletion\n");	211	LOG (llevError, "Could not find archetype depletion\n");
211	return 0;	212	return 0;
212	}	213	}
213		214
…		…
230	}	231	}
231		232
232	/* improvement potion - only for players */	233	/* improvement potion - only for players */
233	if (op->type == PLAYER && (tmp->attacktype & AT_GODPOWER))	234	if (op->type == PLAYER && (tmp->attacktype & AT_GODPOWER))
234	{	235	{
235	for (i = 1; i < MIN (11, op->level); i++)	236	for (i = 1; i < min (11, op->level); i++)
236	{	237	{
237	if (QUERY_FLAG (tmp, FLAG_CURSED) || QUERY_FLAG (tmp, FLAG_DAMNED))	238	if (QUERY_FLAG (tmp, FLAG_CURSED) || QUERY_FLAG (tmp, FLAG_DAMNED))
238	{	239	{
239	if (op->contr->levhp[i] != 1)	240	if (op->contr->levhp[i] != 1)
240	{	241	{
…		…
275	}	276	}
276	}	277	}
277	}	278	}
278		279
279	/* Just makes checking easier */	280	/* Just makes checking easier */
280	if (i < MIN (11, op->level))	281	if (i < min (11, op->level))
281	got_one = 1;	282	got_one = 1;
282		283
283	if (!QUERY_FLAG (tmp, FLAG_CURSED) && !QUERY_FLAG (tmp, FLAG_DAMNED))	284	if (!QUERY_FLAG (tmp, FLAG_CURSED) && !QUERY_FLAG (tmp, FLAG_DAMNED))
284	{	285	{
285	if (got_one)	286	if (got_one)
…		…
399		400
400	/**	401	/**
401	* This function just checks whether who can handle equipping an item	402	* This function just checks whether who can handle equipping an item
402	* with item_power.	403	* with item_power.
403	*/	404	*/
404		405	static bool
405	bool
406	check_item_power (object *who, int item_power)	406	check_item_power (object *who, int item_power)
407	{	407	{
408	if (who->type == PLAYER	408	if (who->type == PLAYER
409	&& item_power	409	&& item_power
410	&& item_power + who->contr->item_power > settings.item_power_factor * who->level)	410	&& item_power + who->contr->item_power > settings.item_power_factor * who->level)
…		…
531		531
532	/**	532	/**
533	* This does the prepare weapon scroll.	533	* This does the prepare weapon scroll.
534	* Checks for sacrifice, and so on.	534	* Checks for sacrifice, and so on.
535	*/	535	*/
536	int	536	static int
537	prepare_weapon (object *op, object *improver, object *weapon)	537	prepare_weapon (object *op, object *improver, object *weapon)
538	{	538	{
539	int sacrifice_count, i;	539	int sacrifice_count, i;
540	char buf[MAX_BUF];	540	char buf[MAX_BUF];
541		541
…		…
594	*	594	*
595	* We are hiding extra information about the weapon in the level and	595	* We are hiding extra information about the weapon in the level and
596	* last_eat numbers for an object. Hopefully this won't break anything ??	596	* last_eat numbers for an object. Hopefully this won't break anything ??
597	* level == max improve last_eat == current improve	597	* level == max improve last_eat == current improve
598	*/	598	*/
599	int	599	static int
600	improve_weapon (object *op, object *improver, object *weapon)	600	improve_weapon (object *op, object *improver, object *weapon)
601	{	601	{
602	int sacrifice_count, sacrifice_needed = 0;	602	int sacrifice_count, sacrifice_needed = 0;
603		603
604	if (improver->stats.sp == IMPROVE_PREPARE)	604	if (improver->stats.sp == IMPROVE_PREPARE)
…		…
706	/**	706	/**
707	* Handles the applying of improve/prepare/enchant weapon scroll.	707	* Handles the applying of improve/prepare/enchant weapon scroll.
708	* Checks a few things (not on a non-magic square, marked weapon, ...),	708	* Checks a few things (not on a non-magic square, marked weapon, ...),
709	* then calls improve_weapon to do the dirty work.	709	* then calls improve_weapon to do the dirty work.
710	*/	710	*/
711	int	711	static int
712	check_improve_weapon (object *op, object *tmp)	712	check_improve_weapon (object *op, object *tmp)
713	{	713	{
714	object *otmp;	714	object *otmp;
715		715
716	if (op->type != PLAYER)	716	if (op->type != PLAYER)
…		…
763	* the armour value of the piece of equipment exceed either	763	* the armour value of the piece of equipment exceed either
764	* the users level or 90)	764	* the users level or 90)
765	* Modified by MSW for partial resistance. Only support	765	* Modified by MSW for partial resistance. Only support
766	* changing of physical area right now.	766	* changing of physical area right now.
767	*/	767	*/
768	int	768	static int
769	improve_armour (object *op, object *improver, object *armour)	769	improve_armour (object *op, object *improver, object *armour)
770	{	770	{
771	object *tmp;	771	object *tmp;
772		772
773	if (armour->magic >= settings.armor_max_enchant)	773	if (armour->magic >= settings.armor_max_enchant)
…		…
857	* Takes one type of items and makes another.	857	* Takes one type of items and makes another.
858	* converter is the object that is doing the conversion.	858	* converter is the object that is doing the conversion.
859	* item is the object that triggered the converter - if it is not	859	* item is the object that triggered the converter - if it is not
860	* what the converter wants, this will not do anything.	860	* what the converter wants, this will not do anything.
861	*/	861	*/
862	static int	862	int
863	convert_item (object *item, object *converter)	863	convert_item (object *item, object *converter)
864	{	864	{
865	sint64 nr, price_in;	865	sint64 nr = 0, price_in;
866		866
867	if (item->flag [FLAG_UNPAID])	867	if (item->flag [FLAG_UNPAID])
868	return 0;	868	return 0;
869		869
870	shstr conv_from = converter->slaying;	870	shstr conv_from = converter->slaying;
871	archetype *conv_to = converter->other_arch;	871	archetype *conv_to = converter->other_arch;
872	sint64 need = converter->stats.food;	872	sint64 need = converter->stats.food;
873	sint64 give = converter->stats.sp;	873	sint64 give = converter->stats.sp;
874		874
…		…
984	* Handle apply on containers.	984	* Handle apply on containers.
985	* By Eneq(@csd.uu.se).	985	* By Eneq(@csd.uu.se).
986	* Moved to own function and added many features [Tero.Haatanen@lut.fi]	986	* Moved to own function and added many features [Tero.Haatanen@lut.fi]
987	* added the alchemical cauldron to the code -b.t.	987	* added the alchemical cauldron to the code -b.t.
988	*/	988	*/
989	int	989	static int
990	apply_container (object *op, object *sack)	990	apply_container (object *op, object *sack)
991	{	991	{
992	if (op->type != PLAYER || !op->contr->ns)	992	if (op->type != PLAYER || !op->contr->ns)
993	return 0; /* This might change */	993	return 0; /* This might change */
994		994
…		…
1007	}	1007	}
1008		1008
1009	// already applied == open on ground, or open in inv, or active in inv	1009	// already applied == open on ground, or open in inv, or active in inv
1010	if (sack->flag [FLAG_APPLIED])	1010	if (sack->flag [FLAG_APPLIED])
1011	{	1011	{
1012	if (op->container == sack)	1012	if (op->container_ () == sack)
1013	{	1013	{
1014	// open on ground or inv, so close	1014	// open on ground or inv, so close
1015	op->close_container ();	1015	op->close_container ();
1016	return 1;	1016	return 1;
1017	}	1017	}
…		…
1060	{	1060	{
1061	/* Only players can make sacrifices on spell casting altars. */	1061	/* Only players can make sacrifices on spell casting altars. */
1062	if (altar->inv && (!originator || originator->type != PLAYER))	1062	if (altar->inv && (!originator || originator->type != PLAYER))
1063	return 0;	1063	return 0;
1064		1064
1065	if (operate_altar (altar, &sacrifice))	1065	if (operate_altar (altar, &sacrifice, originator))
1066	{	1066	{
1067	/* Simple check. Unfortunately, it means you can't cast magic bullet	1067	/* Simple check. Unfortunately, it means you can't cast magic bullet
1068	* with an altar. We call it a Potion - altars are stationary - it	1068	* with an altar. We call it a Potion - altars are stationary - it
1069	* is up to map designers to use them properly.	1069	* is up to map designers to use them properly.
1070	*/	1070	*/
…		…
1106		1106
1107	SET_FLAG (op, FLAG_NO_APPLY); /* prevent loops */	1107	SET_FLAG (op, FLAG_NO_APPLY); /* prevent loops */
1108		1108
1109	bool has_unpaid = false;	1109	bool has_unpaid = false;
1110		1110
1111	// quite inefficient to do this here twice, but the api doesn'T lend itself to	1111	// quite inefficient to do this here twice, but the api doesn't lend itself to
1112	// a quick and small change :(	1112	// a quick and small change :(
1113	for (object::depth_iterator item = op->begin (); item != op->end (); ++item)	1113	for (object::depth_iterator item = op->begin (); item != op->end (); ++item)
1114	if (item->flag [FLAG_UNPAID])	1114	if (item->flag [FLAG_UNPAID])
1115	{	1115	{
1116	has_unpaid = true;	1116	has_unpaid = true;
…		…
1324	return;	1324	return;
1325		1325
1326	/* move_apply() is the most likely candidate for causing unwanted and	1326	/* move_apply() is the most likely candidate for causing unwanted and
1327	* possibly unlimited recursion.	1327	* possibly unlimited recursion.
1328	*/	1328	*/
1329	/* The following was changed because it was causing perfeclty correct	1329	/* The following was changed because it was causing perfectly correct
1330	* maps to fail. 1) it's not an error to recurse:	1330	* maps to fail. 1) it's not an error to recurse:
1331	* rune detonates, summoning monster. monster lands on nearby rune.	1331	* rune detonates, summoning monster. monster lands on nearby rune.
1332	* nearby rune detonates. This sort of recursion is expected and	1332	* nearby rune detonates. This sort of recursion is expected and
1333	* proper. This code was causing needless crashes.	1333	* proper. This code was causing needless crashes.
1334	*/	1334	*/
…		…
1341		1341
1342	recursion_depth++;	1342	recursion_depth++;
1343	if (trap->head)	1343	if (trap->head)
1344	trap = trap->head;	1344	trap = trap->head;
1345		1345
1346	if (INVOKE_OBJECT (MOVE_TRIGGER, trap, ARG_OBJECT (victim), ARG_OBJECT (originator)))	1346	if (!INVOKE_OBJECT (MOVE_TRIGGER, trap, ARG_OBJECT (victim), ARG_OBJECT (originator)))
1347	goto leave;
1348
1349	switch (trap->type)	1347	switch (trap->type)
1350	{	1348	{
1351	case PLAYERMOVER:	1349	case PLAYERMOVER:
1352	if (trap->attacktype && (trap->level || victim->type != PLAYER) && !should_director_abort (trap, victim))	1350	if (trap->attacktype && (trap->level || victim->type != PLAYER) && !should_director_abort (trap, victim))
		1351	{
		1352	if (!trap->stats.maxsp)
		1353	trap->stats.maxsp = 2;
		1354
		1355	/* Is this correct? From the docs, it doesn't look like it
		1356	* should be divided by trap->speed
		1357	*/
		1358	victim->speed_left = -fabs (trap->stats.maxsp * victim->speed / trap->speed);
		1359
		1360	/* Just put in some sanity check. I think there is a bug in the
		1361	* above with some objects have zero speed, and thus the player
		1362	* getting permanently paralyzed.
		1363	*/
		1364	if (victim->speed_left < -50.f)
		1365	victim->speed_left = -50.f;
		1366	/* LOG(llevDebug, "apply, playermove, player speed_left=%f\n", victim->speed_left); */
		1367	}
		1368	break;
		1369
		1370	case SPINNER:
		1371	if (victim->direction)
		1372	{
		1373	victim->direction = absdir (victim->direction - trap->stats.sp);
		1374	update_turn_face (victim);
		1375	}
		1376	break;
		1377
		1378	case DIRECTOR:
		1379	if (victim->direction && !should_director_abort (trap, victim))
		1380	{
		1381	victim->direction = trap->stats.sp;
		1382	update_turn_face (victim);
		1383	}
		1384	break;
		1385
		1386	case BUTTON:
		1387	case PEDESTAL:
		1388	case T_MATCH:
		1389	update_button (trap, originator);
		1390	break;
		1391
		1392	case ALTAR:
		1393	/* sacrifice victim on trap */
		1394	apply_altar (trap, victim, originator);
		1395	break;
		1396
		1397	case THROWN_OBJ:
		1398	if (trap->inv == NULL)
		1399	break;
		1400	/* fallthrough */
		1401
		1402	case ARROW:
		1403	/* bad bug: monster throw a object, make a step forwards, step on object ,
		1404	* trigger this here and get hit by own missile - and will be own enemy.
		1405	* Victim then is his own enemy and will start to kill herself (this is
		1406	* removed) but we have not synced victim and his missile. To avoid senseless
		1407	* action, we avoid hits here
		1408	*/
		1409	if ((QUERY_FLAG (victim, FLAG_ALIVE) && trap->has_active_speed ())
		1410	&& trap->owner != victim)
		1411	hit_with_arrow (trap, victim);
		1412	break;
		1413
		1414	case SPELL_EFFECT:
		1415	apply_spell_effect (trap, victim);
		1416	break;
		1417
		1418	case TRAPDOOR:
1353	{	1419	{
		1420	int max, sound_was_played;
		1421	object *ab, *ab_next;
		1422
1354	if (!trap->stats.maxsp)	1423	if (!trap->value)
1355	trap->stats.maxsp = 2;	1424	{
		1425	int tot;
1356		1426
1357	/* Is this correct? From the docs, it doesn't look like it	1427	for (ab = trap->above, tot = 0; ab; ab = ab->above)
1358	* should be divided by trap->speed	1428	if ((ab->move_type && trap->move_on) || ab->move_type == 0)
		1429	tot += ab->head_ ()->total_weight ();
		1430
		1431	if (!(trap->value = (tot > trap->weight) ? 1 : 0))
		1432	break;
		1433
		1434	SET_ANIMATION (trap, trap->value);
		1435	update_object (trap, UP_OBJ_FACE);
		1436	}
		1437
		1438	for (ab = trap->above, max = 100, sound_was_played = 0; --max && ab; ab = ab_next)
		1439	{
		1440	/* need to set this up, since if we do transfer the object,
		1441	* ab->above would be bogus
1359	*/	1442	*/
1360	victim->speed_left = -FABS (trap->stats.maxsp * victim->speed / trap->speed);	1443	ab_next = ab->above;
1361		1444
1362	/* Just put in some sanity check. I think there is a bug in the	1445	if ((ab->move_type && trap->move_on) || ab->move_type == 0)
1363	* above with some objects have zero speed, and thus the player	1446	{
1364	* getting permanently paralyzed.	1447	if (!sound_was_played)
		1448	{
		1449	trap->play_sound (trap->sound ? trap->sound : sound_find ("fall_hole"));
		1450	sound_was_played = 1;
		1451	}
		1452
		1453	ab->statusmsg ("You fall into a trapdoor!", NDI_RED);
		1454	transfer_ob (ab, EXIT_X (trap), EXIT_Y (trap), 0, ab);
		1455	}
1365	*/	1456	}
1366	if (victim->speed_left < -50.f)	1457	break;
1367	victim->speed_left = -50.f;
1368	/* LOG(llevDebug, "apply, playermove, player speed_left=%f\n", victim->speed_left); */
1369	}	1458	}
1370	goto leave;
1371		1459
1372	case SPINNER:	1460	case CONVERTER:
1373	if (victim->direction)	1461	if (convert_item (victim, trap) < 0)
1374	{
1375	victim->direction = absdir (victim->direction - trap->stats.sp);
1376	update_turn_face (victim);
1377	}
1378	goto leave;
1379
1380	case DIRECTOR:
1381	if (victim->direction && !should_director_abort (trap, victim))
1382	{
1383	victim->direction = trap->stats.sp;
1384	update_turn_face (victim);
1385	}
1386	goto leave;
1387
1388	case BUTTON:
1389	case PEDESTAL:
1390	update_button (trap, originator);
1391	goto leave;
1392
1393	case ALTAR:
1394	/* sacrifice victim on trap */
1395	apply_altar (trap, victim, originator);
1396	goto leave;
1397
1398	case THROWN_OBJ:
1399	if (trap->inv == NULL)
1400	goto leave;
1401	/* fallthrough */
1402
1403	case ARROW:
1404	/* bad bug: monster throw a object, make a step forwards, step on object ,
1405	* trigger this here and get hit by own missile - and will be own enemy.
1406	* Victim then is his own enemy and will start to kill herself (this is
1407	* removed) but we have not synced victim and his missile. To avoid senseless
1408	* action, we avoid hits here
1409	*/
1410	if ((QUERY_FLAG (victim, FLAG_ALIVE) && trap->speed) && trap->owner != victim)
1411	hit_with_arrow (trap, victim);
1412	goto leave;
1413
1414	case SPELL_EFFECT:
1415	apply_spell_effect (trap, victim);
1416	goto leave;
1417
1418	case TRAPDOOR:
1419	{
1420	int max, sound_was_played;
1421	object *ab, *ab_next;
1422
1423	if (!trap->value)
1424	{	1462	{
1425	int tot;	1463	originator->failmsg (format ("The %s seems to be broken!", query_name (trap)));
1426		1464	archetype::get (shstr_burnout)->insert_at (trap, trap);
1427	for (ab = trap->above, tot = 0; ab; ab = ab->above)
1428	if ((ab->move_type && trap->move_on) || ab->move_type == 0)
1429	tot += ab->head_ ()->total_weight ();
1430
1431	if (!(trap->value = (tot > trap->weight) ? 1 : 0))
1432	goto leave;
1433
1434	SET_ANIMATION (trap, trap->value);
1435	update_object (trap, UP_OBJ_FACE);
1436	}	1465	}
1437		1466
1438	for (ab = trap->above, max = 100, sound_was_played = 0; --max && ab; ab = ab_next)	1467	break;
		1468
		1469	case TRIGGER_BUTTON:
		1470	case TRIGGER_PEDESTAL:
		1471	case TRIGGER_ALTAR:
		1472	check_trigger (trap, victim, originator);
		1473	break;
		1474
		1475	case DEEP_SWAMP:
		1476	walk_on_deep_swamp (trap, victim);
		1477	break;
		1478
		1479	case CHECK_INV:
		1480	check_inv (victim, trap);
		1481	break;
		1482
		1483	case HOLE:
		1484	move_apply_hole (trap, victim);
		1485	break;
		1486
		1487	case EXIT:
		1488	if (victim->type == PLAYER && EXIT_PATH (trap))
1439	{	1489	{
1440	/* need to set this up, since if we do transfer the object,	1490	/* Basically, don't show exits leading to random maps the
1441	* ab->above would be bogus	1491	* players output.
1442	*/	1492	*/
1443	ab_next = ab->above;	1493	if (trap->msg && !EXIT_PATH (trap).starts_with ("/!"))
		1494	victim->statusmsg (trap->msg, NDI_NAVY);
1444		1495
1445	if ((ab->move_type && trap->move_on) || ab->move_type == 0)	1496	trap->play_sound (trap->sound);
1446	{	1497	victim->enter_exit (trap);
1447	if (!sound_was_played)
1448	{
1449	trap->play_sound (trap->sound ? trap->sound : sound_find ("fall_hole"));
1450	sound_was_played = 1;
1451	}
1452
1453	ab->statusmsg ("You fall into a trapdoor!", NDI_RED);
1454	transfer_ob (ab, EXIT_X (trap), EXIT_Y (trap), 0, ab);
1455	}
1456	}	1498	}
1457	goto leave;	1499	break;
1458	}
1459		1500
1460	case CONVERTER:
1461	if (convert_item (victim, trap) < 0)
1462	{
1463	originator->failmsg (format ("The %s seems to be broken!", query_name (trap)));
1464	archetype::get (shstr_burnout)->insert_at (trap, trap);
1465	}
1466
1467	goto leave;
1468
1469	case TRIGGER_BUTTON:
1470	case TRIGGER_PEDESTAL:
1471	case TRIGGER_ALTAR:
1472	check_trigger (trap, victim);
1473	goto leave;
1474
1475	case DEEP_SWAMP:
1476	walk_on_deep_swamp (trap, victim);
1477	goto leave;
1478
1479	case CHECK_INV:
1480	check_inv (victim, trap);
1481	goto leave;
1482
1483	case HOLE:
1484	move_apply_hole (trap, victim);
1485	goto leave;
1486
1487	case EXIT:
1488	if (victim->type == PLAYER && EXIT_PATH (trap))
1489	{
1490	/* Basically, don't show exits leading to random maps the
1491	* players output.
1492	*/
1493	if (trap->msg && !EXIT_PATH (trap).starts_with ("/!"))
1494	victim->statusmsg (trap->msg, NDI_NAVY);
1495
1496	trap->play_sound (trap->sound);
1497	victim->enter_exit (trap);
1498	}
1499	goto leave;
1500
1501	case ENCOUNTER:	1501	case ENCOUNTER:
1502	/* may be some leftovers on this */	1502	/* may be some leftovers on this */
1503	goto leave;	1503	break;
1504		1504
1505	case SHOP_MAT:	1505	case SHOP_MAT:
1506	apply_shop_mat (trap, victim);	1506	apply_shop_mat (trap, victim);
1507	goto leave;	1507	break;
1508		1508
1509	/* Drop a certain amount of gold, and have one item identified */	1509	/* Drop a certain amount of gold, and have one item identified */
1510	case IDENTIFY_ALTAR:	1510	case IDENTIFY_ALTAR:
1511	apply_id_altar (victim, trap, originator);	1511	apply_id_altar (victim, trap, originator);
1512	goto leave;	1512	break;
1513		1513
1514	case SIGN:	1514	case SIGN:
1515	if (victim->type != PLAYER && trap->stats.food > 0)	1515	if (victim->type != PLAYER && trap->stats.food > 0)
1516	goto leave; /* monsters musn't apply magic_mouths with counters */	1516	break; /* monsters musn't apply magic_mouths with counters */
1517		1517
1518	apply_sign (victim, trap, 1);	1518	apply_sign (victim, trap, 1);
1519	goto leave;	1519	break;
1520		1520
1521	case CONTAINER:	1521	case CONTAINER:
1522	apply_container (victim, trap);	1522	apply_container (victim, trap);
1523	goto leave;	1523	break;
1524		1524
1525	case RUNE:	1525	case RUNE:
1526	case TRAP:	1526	case TRAP:
1527	if (trap->level && QUERY_FLAG (victim, FLAG_ALIVE))	1527	if (trap->level && QUERY_FLAG (victim, FLAG_ALIVE))
1528	spring_trap (trap, victim);	1528	spring_trap (trap, victim);
1529	goto leave;	1529	break;
1530		1530
1531	default:	1531	default:
1532	LOG (llevDebug, "name %s, arch %s, type %d with fly/walk on/off not "	1532	LOG (llevDebug, "name %s, arch %s, type %d with fly/walk on/off not "
1533	"handled in move_apply()\n", &trap->name, &trap->arch->archname, trap->type);	1533	"handled in move_apply()\n", &trap->name, &trap->arch->archname, trap->type);
1534	goto leave;	1534	break;
1535	}	1535	}
1536		1536
1537	leave:
1538	recursion_depth--;	1537	recursion_depth--;
1539	}	1538	}
1540		1539
1541	/**	1540	/**
1542	* Handles reading a regular (ie not containing a spell) book.	1541	* Handles reading a regular (ie not containing a spell) book.
…		…
1553	return;	1552	return;
1554	}	1553	}
1555		1554
1556	if (!tmp->msg)	1555	if (!tmp->msg)
1557	{	1556	{
1558	op->failmsg (format ("You open the %s and find it empty.", &tmp->name));	1557	op->failmsg (format ("The %s contains nothing but meaningless gibberish. H<There is nothing interesting to read here.>", &tmp->name));
1559	return;	1558	return;
1560	}	1559	}
1561		1560
1562	/* need a literacy skill to read stuff! */	1561	/* need a literacy skill to read stuff! */
1563	skill_ob = find_skill_by_name (op, tmp->skill);	1562	skill_ob = find_skill_by_name (op, tmp->skill);
…		…
1603	SET_FLAG (tmp, FLAG_NO_SKILL_IDENT); /* so no more xp gained from this book */	1602	SET_FLAG (tmp, FLAG_NO_SKILL_IDENT); /* so no more xp gained from this book */
1604	}	1603	}
1605	}	1604	}
1606		1605
1607	/**	1606	/**
		1607	* op made some mistake with a scroll, this takes care of punishment.
		1608	* scroll_failure()- hacked directly from spell_failure
		1609	*/
		1610	static void
		1611	scroll_failure (object *op, int failure, int power)
		1612	{
		1613	if (abs (failure / 4) > power)
		1614	power = abs (failure / 4); /* set minimum effect */
		1615
		1616	if (failure <= -1 && failure > -15)
		1617	{ /* wonder */
		1618	object *tmp;
		1619
		1620	op->failmsg ("Your spell warps!");
		1621	tmp = get_archetype (SPELL_WONDER);
		1622	cast_wonder (op, op, 0, tmp);
		1623	tmp->destroy ();
		1624	}
		1625	else if (failure <= -15 && failure > -35)
		1626	{ /* drain mana */
		1627	op->failmsg ("Your mana is drained!");
		1628	op->stats.sp -= random_roll (0, power - 1, op, PREFER_LOW);
		1629	if (op->stats.sp < 0)
		1630	op->stats.sp = 0;
		1631	}
		1632	else if (settings.spell_failure_effects == TRUE)
		1633	{
		1634	if (failure <= -35 && failure > -60)
		1635	{ /* confusion */
		1636	op->failmsg ("The magic recoils on you!");
		1637	confuse_player (op, op, power);
		1638	}
		1639	else if (failure <= -60 && failure > -70)
		1640	{ /* paralysis */
		1641	op->failmsg ("The magic recoils and paralyzes you!");
		1642	paralyze_player (op, op, power);
		1643	}
		1644	else if (failure <= -70 && failure > -80)
		1645	{ /* blind */
		1646	op->failmsg ("The magic recoils on you!");
		1647	blind_player (op, op, power);
		1648	}
		1649	else if (failure <= -80)
		1650	{ /* blast the immediate area */
		1651	object *tmp = get_archetype (LOOSE_MANA);
		1652	cast_magic_storm (op, tmp, power);
		1653	op->failmsg ("You unleash uncontrolled mana!");
		1654	tmp->destroy ();
		1655	}
		1656	}
		1657	}
		1658
		1659	/**
1608	* Handles the applying of a skill scroll, calling learn_skill straight.	1660	* Handles the applying of a skill scroll, calling learn_skill straight.
1609	* op is the person learning the skill, tmp is the skill scroll object	1661	* op is the person learning the skill, tmp is the skill scroll object
1610	*/	1662	*/
1611	static void	1663	static void
1612	apply_skillscroll (object *op, object *tmp)	1664	apply_skillscroll (object *op, object *tmp)
…		…
1745	LOG (llevError, "apply_spellbook: Book %s has no spell in it!\n", &tmp->name);	1797	LOG (llevError, "apply_spellbook: Book %s has no spell in it!\n", &tmp->name);
1746	op->failmsg ("The spellbook symbols make no sense. This is a bug, please report!");	1798	op->failmsg ("The spellbook symbols make no sense. This is a bug, please report!");
1747	return;	1799	return;
1748	}	1800	}
1749		1801
1750	if (skop->level < int (sqrtf (spell->level) * 1.5f))	1802	int learn_level = sqrtf (spell->level) * 1.5f;
		1803	if (skop->level < learn_level)
1751	{	1804	{
1752	op->failmsg (format ("You are unable to decipher the strange symbols. H<Your %s level is too low.>", &tmp->skill));	1805	op->failmsg (format ("You are unable to decipher the strange symbols. H<Your %s level is too low, it must be at least %d.>",
		1806	&tmp->skill, learn_level));
1753	return;	1807	return;
1754	}	1808	}
1755		1809
1756	op->statusmsg (format ("The spellbook contains the %s level spell %s.", get_levelnumber (spell->level), &spell->name));	1810	op->statusmsg (format ("The spellbook contains the %s level spell %s.", get_levelnumber (spell->level), &spell->name));
1757		1811
…		…
1799	* literacy rate very useful! -b.t.	1853	* literacy rate very useful! -b.t.
1800	*/	1854	*/
1801	if (QUERY_FLAG (op, FLAG_CONFUSED))	1855	if (QUERY_FLAG (op, FLAG_CONFUSED))
1802	{	1856	{
1803	op->failmsg ("In your confused state you flub the wording of the text!");	1857	op->failmsg ("In your confused state you flub the wording of the text!");
1804	scroll_failure (op, 0 - random_roll (0, spell->level, op, PREFER_LOW), MAX (spell->stats.sp, spell->stats.grace));	1858	scroll_failure (op, 0 - random_roll (0, spell->level, op, PREFER_LOW), max (spell->stats.sp, spell->stats.grace));
1805	}	1859	}
1806	else if (QUERY_FLAG (tmp, FLAG_STARTEQUIP) ||	1860	else if (QUERY_FLAG (tmp, FLAG_STARTEQUIP) ||
1807	(random_roll (0, 100, op, PREFER_LOW) - (5 * skop->level)) < learn_spell[spell->stats.grace ? op->stats.Wis : op->stats.Int])	1861	(random_roll (0, 100, op, PREFER_LOW) - (5 * skop->level)) < learn_spell[spell->stats.grace ? op->stats.Wis : op->stats.Int])
1808	{	1862	{
1809	op->statusmsg ("You succeed in learning the spell!", NDI_GREEN);	1863	op->statusmsg ("You succeed in learning the spell!", NDI_GREEN);
…		…
1915	break;	1969	break;
1916	}	1970	}
1917		1971
1918	if (!tmp->destroyed () && !tmp->inv)	1972	if (!tmp->destroyed () && !tmp->inv)
1919	tmp->decrease (true);	1973	tmp->decrease (true);
1920	}
1921
1922	/**
1923	* op eats food.
1924	* If player, takes care of messages and dragon special food.
1925	*/
1926	static void
1927	apply_food (object *op, object *tmp)
1928	{
1929	int capacity_remaining;
1930
1931	if (op->type != PLAYER)
1932	op->stats.hp = op->stats.maxhp;
1933	else
1934	{
1935	/* check if this is a dragon (player), eating some flesh */
1936	if (tmp->type == FLESH && is_dragon_pl (op) && dragon_eat_flesh (op, tmp))
1937	;
1938	else
1939	{
1940	/* usual case - no dragon meal: */
1941	if (op->stats.food + tmp->stats.food > 999)
1942	{
1943	if (tmp->type == FOOD || tmp->type == FLESH)
1944	op->failmsg ("You feel full, but what a waste of food!");
1945	else
1946	op->statusmsg ("Most of the drink goes down your face not your throat!");
1947	}
1948
1949	tmp->play_sound (
1950	tmp->sound
1951	? tmp->sound
1952	: tmp->type == DRINK
1953	? sound_find ("eat_drink")
1954	: sound_find ("eat_food")
1955	);
1956
1957	if (!QUERY_FLAG (tmp, FLAG_CURSED))
1958	{
1959	const char *buf;
1960
1961	if (!is_dragon_pl (op))
1962	{
1963	/* eating message for normal players */
1964	if (tmp->type == DRINK)
1965	buf = format ("Ahhh...that %s tasted good.", &tmp->name);
1966	else
1967	buf = format ("The %s tasted %s", &tmp->name, tmp->type == FLESH ? "terrible!" : "good.");
1968	}
1969	else
1970	/* eating message for dragon players */
1971	buf = format ("The %s tasted terrible!", &tmp->name);
1972
1973	op->statusmsg (buf);
1974
1975	capacity_remaining = 999 - op->stats.food;
1976	op->stats.food += tmp->stats.food;
1977	if (capacity_remaining < tmp->stats.food)
1978	op->stats.hp += capacity_remaining / 50;
1979	else
1980	op->stats.hp += tmp->stats.food / 50;
1981
1982	if (op->stats.hp > op->stats.maxhp)
1983	op->stats.hp = op->stats.maxhp;
1984	if (op->stats.food > 999)
1985	op->stats.food = 999;
1986	}
1987
1988	/* special food hack -b.t. */
1989	if (tmp->title || QUERY_FLAG (tmp, FLAG_CURSED))
1990	eat_special_food (op, tmp);
1991	}
1992	}
1993
1994	handle_apply_yield (tmp);
1995	tmp->decrease ();
1996	}	1974	}
1997		1975
1998	/**	1976	/**
1999	* A dragon is eating some flesh. If the flesh contains resistances,	1977	* A dragon is eating some flesh. If the flesh contains resistances,
2000	* there is a chance for the dragon's skin to get improved.	1978	* there is a chance for the dragon's skin to get improved.
…		…
2003	* object *op the object (dragon player) eating the flesh	1981	* object *op the object (dragon player) eating the flesh
2004	* object *meal the flesh item, getting chewed in dragon's mouth	1982	* object *meal the flesh item, getting chewed in dragon's mouth
2005	* return:	1983	* return:
2006	* int 1 if eating successful, 0 if it doesn't work	1984	* int 1 if eating successful, 0 if it doesn't work
2007	*/	1985	*/
2008	int	1986	static int
2009	dragon_eat_flesh (object *op, object *meal)	1987	dragon_eat_flesh (object *op, object *meal)
2010	{	1988	{
2011	object *skin = NULL; /* pointer to dragon skin force */	1989	object *skin = NULL; /* pointer to dragon skin force */
2012	object *abil = NULL; /* pointer to dragon ability force */	1990	object *abil = NULL; /* pointer to dragon ability force */
2013	object *tmp = NULL; /* tmp. object */	1991	object *tmp = NULL; /* tmp. object */
…		…
2045	op->stats.hp += meal->stats.food / 50;	2023	op->stats.hp += meal->stats.food / 50;
2046		2024
2047	if (op->stats.hp > op->stats.maxhp)	2025	if (op->stats.hp > op->stats.maxhp)
2048	op->stats.hp = op->stats.maxhp;	2026	op->stats.hp = op->stats.maxhp;
2049		2027
2050	op->stats.food = MIN (999, op->stats.food + meal->stats.food);	2028	op->stats.food = min (999, op->stats.food + meal->stats.food);
2051		2029
2052	/*LOG(llevDebug, "-> player: %d, flesh: %d\n", op->level, meal->level); */	2030	/*LOG(llevDebug, "-> player: %d, flesh: %d\n", op->level, meal->level); */
2053		2031
2054	/* on to the interesting part: chances for adding resistance */	2032	/* on to the interesting part: chances for adding resistance */
2055	for (i = 0; i < NROFATTACKS; i++)	2033	for (i = 0; i < NROFATTACKS; i++)
…		…
2065		2043
2066	/* monster bonus increases with level, because high-level	2044	/* monster bonus increases with level, because high-level
2067	flesh is too rare */	2045	flesh is too rare */
2068	mbonus = op->level * 20. / ((double) settings.max_level);	2046	mbonus = op->level * 20. / ((double) settings.max_level);
2069		2047
2070	chance = (((double) MIN (op->level + bonus, meal->level + bonus + mbonus)) * 100. /	2048	chance = (((double)min (op->level + bonus, meal->level + bonus + mbonus)) * 100. /
2071	((double) settings.max_level)) - skin->resist[i];	2049	((double)settings.max_level)) - skin->resist[i];
2072		2050
2073	if (chance >= 0.)	2051	if (chance >= 0.)
2074	chance += 1.;	2052	chance += 1.;
2075	else	2053	else
2076	chance = (chance < -12) ? 0. : 1. / pow (2., -chance);	2054	chance = (chance < -12) ? 0. : 1. / pow (2., -chance);
2077		2055
2078	/* chance is proportional to amount of resistance (max. 50) */	2056	/* chance is proportional to amount of resistance (max. 50) */
2079	chance *= ((double) (MIN (meal->resist[i], 50))) / 50.;	2057	chance *= ((double)(min (meal->resist[i], 50))) / 50.;
2080		2058
2081	/* doubled chance for resistance of ability-focus */	2059	/* doubled chance for resistance of ability-focus */
2082	if (i == abil->stats.exp)	2060	if (i == abil->stats.exp)
2083	chance = MIN (100., chance * 2.);	2061	chance = min (100., chance * 2.);
2084		2062
2085	/* now make the throw and save all winners (Don't insert luck bonus here!) */	2063	/* now make the throw and save all winners (Don't insert luck bonus here!) */
2086	if (rndm (10000) < (unsigned int) (chance * 100))	2064	if (rndm (10000) < (unsigned int)(chance * 100))
2087	{	2065	{
2088	atnr_winner[winners] = i;	2066	atnr_winner[winners] = i;
2089	winners++;	2067	winners++;
2090	}	2068	}
2091		2069
…		…
2154		2132
2155	return 1;	2133	return 1;
2156	}	2134	}
2157		2135
2158	/**	2136	/**
		2137	* op eats food.
		2138	* If player, takes care of messages and dragon special food.
		2139	*/
		2140	static void
		2141	apply_food (object *op, object *tmp)
		2142	{
		2143	int capacity_remaining;
		2144
		2145	if (op->type != PLAYER)
		2146	op->stats.hp = op->stats.maxhp;
		2147	else
		2148	{
		2149	/* check if this is a dragon (player), eating some flesh */
		2150	if (tmp->type == FLESH && is_dragon_pl (op) && dragon_eat_flesh (op, tmp))
		2151	;
		2152	else
		2153	{
		2154	/* usual case - no dragon meal: */
		2155	if (op->stats.food + tmp->stats.food > 999)
		2156	{
		2157	if (tmp->type == FOOD || tmp->type == FLESH)
		2158	op->failmsg ("You feel full, but what a waste of food!");
		2159	else
		2160	op->statusmsg ("Most of the drink goes down your face not your throat!");
		2161	}
		2162
		2163	tmp->play_sound (
		2164	tmp->sound
		2165	? tmp->sound
		2166	: tmp->type == DRINK
		2167	? sound_find ("eat_drink")
		2168	: sound_find ("eat_food")
		2169	);
		2170
		2171	if (!QUERY_FLAG (tmp, FLAG_CURSED))
		2172	{
		2173	const char *buf;
		2174
		2175	if (!is_dragon_pl (op))
		2176	{
		2177	/* eating message for normal players */
		2178	if (tmp->type == DRINK)
		2179	buf = format ("Ahhh...that %s tasted good.", &tmp->name);
		2180	else
		2181	buf = format ("The %s tasted %s", &tmp->name, tmp->type == FLESH ? "terrible!" : "good.");
		2182	}
		2183	else
		2184	/* eating message for dragon players */
		2185	buf = format ("The %s tasted terrible!", &tmp->name);
		2186
		2187	op->statusmsg (buf);
		2188
		2189	capacity_remaining = 999 - op->stats.food;
		2190	op->stats.food += tmp->stats.food;
		2191	if (capacity_remaining < tmp->stats.food)
		2192	op->stats.hp += capacity_remaining / 50;
		2193	else
		2194	op->stats.hp += tmp->stats.food / 50;
		2195
		2196	if (op->stats.hp > op->stats.maxhp)
		2197	op->stats.hp = op->stats.maxhp;
		2198	if (op->stats.food > 999)
		2199	op->stats.food = 999;
		2200	}
		2201
		2202	/* special food hack -b.t. */
		2203	if (tmp->title || QUERY_FLAG (tmp, FLAG_CURSED))
		2204	eat_special_food (op, tmp);
		2205	}
		2206	}
		2207
		2208	handle_apply_yield (tmp);
		2209	tmp->decrease ();
		2210	}
		2211
		2212	/**
2159	* Handles applying an improve armor scroll.	2213	* Handles applying an improve armor scroll.
2160	* Does some sanity checks, then calls improve_armour.	2214	* Does some sanity checks, then calls improve_armour.
2161	*/	2215	*/
2162	static void	2216	static void
2163	apply_armour_improver (object *op, object *tmp)	2217	apply_armour_improver (object *op, object *tmp)
…		…
2225	*	2279	*
2226	* Note: a owner in a 2 way exit is saved as the owner's name	2280	* Note: a owner in a 2 way exit is saved as the owner's name
2227	* in the field exit->name cause the field exit->owner doesn't	2281	* in the field exit->name cause the field exit->owner doesn't
2228	* survive in the swapping (in fact the whole exit doesn't survive).	2282	* survive in the swapping (in fact the whole exit doesn't survive).
2229	*/	2283	*/
2230	int	2284	static int
2231	is_legal_2ways_exit (object *op, object *exit)	2285	is_legal_2ways_exit (object *op, object *exit)
2232	{	2286	{
2233	if (exit->stats.exp != 1)	2287	if (exit->stats.exp != 1)
2234	return 1; /*This is not a 2 way, so it is legal */	2288	return 1; /*This is not a 2 way, so it is legal */
2235		2289
…		…
2308	/**	2362	/**
2309	* This function will try to apply a lighter and in case no lighter	2363	* This function will try to apply a lighter and in case no lighter
2310	* is specified it will try to find a lighter in the players inventory,	2364	* is specified it will try to find a lighter in the players inventory,
2311	* and inform him about this requirement.	2365	* and inform him about this requirement.
2312	*	2366	*
2313	* who - the player	2367	* who - the player
2314	* op - the item we want to light	2368	* op - the item we want to light
2315	* ligher - the lighter or 0 if a lighter has yet to be found	2369	* lighter - the lighter or 0 if a lighter has yet to be found
2316	*/	2370	*/
		2371	static object *
2317	object *auto_apply_lighter (object *who, object *op, object *lighter)	2372	auto_apply_lighter (object *who, object *op, object *lighter)
2318	{	2373	{
2319	if (lighter == 0)	2374	if (lighter == 0)
2320	{	2375	{
2321	for (object *tmp = who->inv; tmp; tmp = tmp->below)	2376	for (object *tmp = who->inv; tmp; tmp = tmp->below)
2322	{	2377	{
…		…
2360	/**	2415	/**
2361	* Designed primarily to light torches/lanterns/etc.	2416	* Designed primarily to light torches/lanterns/etc.
2362	* Also burns up burnable material too. First object in the inventory is	2417	* Also burns up burnable material too. First object in the inventory is
2363	* the selected object to "burn". -b.t.	2418	* the selected object to "burn". -b.t.
2364	*/	2419	*/
2365	void	2420	static void
2366	apply_lighter (object *who, object *lighter)	2421	apply_lighter (object *who, object *lighter)
2367	{	2422	{
2368	object *item;	2423	object *item;
2369	int is_player_env = 0;	2424	int is_player_env = 0;
2370		2425
2371	item = find_marked_object (who);	2426	item = find_marked_object (who);
2372	if (item)	2427	if (item)
2373	{	2428	{
2374	if (!auto_apply_lighter (who, 0, lighter))	2429	if (!auto_apply_lighter (who, item, lighter))
2375	return;	2430	return;
2376		2431
2377	/* Perhaps we should split what we are trying to light on fire?	2432	/* Perhaps we should split what we are trying to light on fire?
2378	* I can't see many times when you would want to light multiple	2433	* I can't see many times when you would want to light multiple
2379	* objects at once.	2434	* objects at once.
…		…
2397	}	2452	}
2398		2453
2399	/**	2454	/**
2400	* This function generates a cursed effect for cursed lamps and torches.	2455	* This function generates a cursed effect for cursed lamps and torches.
2401	*/	2456	*/
		2457	static void
2402	void player_apply_lamp_cursed_effect (object *who, object *op)	2458	player_apply_lamp_cursed_effect (object *who, object *op)
2403	{	2459	{
2404	if (op->level)	2460	if (op->level)
2405	{	2461	{
2406	who->failmsg (format (	2462	who->failmsg (format (
2407	"The %s was cursed, it explodes in a big fireball!",	2463	"The %s was cursed, it explodes in a big fireball!",
…		…
2422	* Apply for players and lamps	2478	* Apply for players and lamps
2423	*	2479	*
2424	* who - the player	2480	* who - the player
2425	* op - the lamp	2481	* op - the lamp
2426	*/	2482	*/
		2483	static void
2427	void player_apply_lamp (object *who, object *op)	2484	player_apply_lamp (object *who, object *op)
2428	{	2485	{
2429	bool switch_on = op->glow_radius ? false : true;	2486	bool switch_on = op->glow_radius ? false : true;
2430		2487
2431	if (switch_on)	2488	if (switch_on)
2432	{	2489	{
…		…
2545	if (op->other_arch)	2602	if (op->other_arch)
2546	get_animation_from_arch (op, switch_on ? op->other_arch : op->arch);	2603	get_animation_from_arch (op, switch_on ? op->other_arch : op->arch);
2547		2604
2548	if (object *pl = op->visible_to ())	2605	if (object *pl = op->visible_to ())
2549	esrv_update_item (UPD_ANIM | UPD_FACE | UPD_NAME, pl, op);	2606	esrv_update_item (UPD_ANIM | UPD_FACE | UPD_NAME, pl, op);
		2607	}
		2608
		2609	/**
		2610	* This handles items of type 'transformer'.
		2611	* Basically those items, used with a marked item, transform both items into something
		2612	* else.
		2613	* "Transformer" item has food decreased by 1, removed if 0 (0 at start means illimited)..
		2614	* Change information is contained in the 'slaying' field of the marked item.
		2615	* The format is as follow: transformer:[number ]yield[;transformer:...].
		2616	* This way an item can be transformed in many things, and/or many objects.
		2617	* The 'slaying' field for transformer is used as verb for the action.
		2618	*/
		2619	static void
		2620	apply_item_transformer (object *pl, object *transformer)
		2621	{
		2622	object *marked;
		2623	object *new_item;
		2624	char *find;
		2625	char *separator;
		2626	int yield;
		2627	char got[MAX_BUF];
		2628	int len;
		2629
		2630	if (!pl || !transformer)
		2631	return;
		2632
		2633	marked = find_marked_object (pl);
		2634
		2635	if (!marked)
		2636	{
		2637	pl->failmsg (format ("Use the %s with what item?", query_name (transformer)));
		2638	return;
		2639	}
		2640
		2641	if (!marked->slaying)
		2642	{
		2643	pl->failmsg (format ("You can't use the %s with your %s!", query_name (transformer), query_name (marked)));
		2644	return;
		2645	}
		2646
		2647	/* check whether they are compatible or not */
		2648	find = strstr (&marked->slaying, transformer->arch->archname);
		2649	if (!find || (*(find + strlen (transformer->arch->archname)) != ':'))
		2650	{
		2651	pl->failmsg (format ("You can't use the %s with your %s!", query_name (transformer), query_name (marked)));
		2652	return;
		2653	}
		2654
		2655	find += strlen (transformer->arch->archname) + 1;
		2656	/* Item can be used, now find how many and what it yields */
		2657	if (isdigit (*(find)))
		2658	{
		2659	yield = atoi (find);
		2660	if (yield < 1)
		2661	{
		2662	LOG (llevDebug, "apply_item_transformer: item %s has slaying-yield %d.", query_base_name (marked, 0), yield);
		2663	yield = 1;
		2664	}
		2665	}
		2666	else
		2667	yield = 1;
		2668
		2669	while (isdigit (*find))
		2670	find++;
		2671
		2672	while (*find == ' ')
		2673	find++;
		2674
		2675	memset (got, 0, MAX_BUF);
		2676
		2677	if ((separator = strchr (find, ';')) != NULL)
		2678	len = separator - find;
		2679	else
		2680	len = strlen (find);
		2681
		2682	if (len > MAX_BUF - 1)
		2683	len = MAX_BUF - 1;
		2684
		2685	strcpy (got, find);
		2686	got[len] = '\0';
		2687
		2688	/* Now create new item, remove used ones when required. */
		2689	new_item = get_archetype (got);
		2690	if (!new_item)
		2691	{
		2692	pl->failmsg (format ("This %s is strange, better to not use it.", query_base_name (marked, 0)));
		2693	return;
		2694	}
		2695
		2696	new_item->nrof = yield;
		2697
		2698	pl->statusmsg (format ("You %s the %s.", &transformer->slaying, query_base_name (marked, 0)));
		2699
		2700	pl->insert (new_item);
		2701	/* Eat up one item */
		2702	marked->decrease ();
		2703
		2704	/* Eat one transformer if needed */
		2705	if (transformer->stats.food)
		2706	if (--transformer->stats.food == 0)
		2707	transformer->decrease ();
2550	}	2708	}
2551		2709
2552	/**	2710	/**
2553	* Main apply handler.	2711	* Main apply handler.
2554	*	2712	*
…		…
2585	if (INVOKE_OBJECT (APPLY, op, ARG_OBJECT (who)))	2743	if (INVOKE_OBJECT (APPLY, op, ARG_OBJECT (who)))
2586	return RESULT_INT (0);	2744	return RESULT_INT (0);
2587		2745
2588	switch (op->type)	2746	switch (op->type)
2589	{	2747	{
2590	case CF_HANDLE:	2748	case T_HANDLE:
2591	who->play_sound (sound_find ("turn_handle"));	2749	who->play_sound (sound_find ("turn_handle"));
2592	who->statusmsg ("You turn the handle.");	2750	who->statusmsg ("You turn the handle.");
2593	op->value = op->value ? 0 : 1;	2751	op->value = op->value ? 0 : 1;
2594	SET_ANIMATION (op, op->value);	2752	SET_ANIMATION (op, op->value);
2595	update_object (op, UP_OBJ_FACE);	2753	update_object (op, UP_OBJ_FACE);
2596	push_button (op, who);	2754	push_button (op, who);
2597	return 1;	2755	return 1;
2598		2756
2599	case TRIGGER:	2757	case TRIGGER:
2600	if (check_trigger (op, who))	2758	if (check_trigger (op, who, who))
2601	{	2759	{
2602	who->statusmsg ("You turn the handle.");	2760	who->statusmsg ("You turn the handle.");
2603	who->play_sound (sound_find ("turn_handle"));	2761	who->play_sound (sound_find ("turn_handle"));
2604	}	2762	}
2605	else	2763	else
…		…
2610	case EXIT:	2768	case EXIT:
2611	if (who->type != PLAYER)	2769	if (who->type != PLAYER)
2612	return 0;	2770	return 0;
2613		2771
2614	if (!EXIT_PATH (op) || !is_legal_2ways_exit (who, op))	2772	if (!EXIT_PATH (op) || !is_legal_2ways_exit (who, op))
2615	who->failmsg (format ("The %s is closed.", query_name (op)));	2773	who->failmsg (format ("The %s is closed. H<And will stay closed, until somebody fires up the map editor and adds it.>", query_name (op)));
2616	else	2774	else
2617	{	2775	{
2618	/* Don't display messages for random maps. */	2776	/* Don't display messages for random maps. */
2619	if (op->msg && !EXIT_PATH (op).starts_with ("/!"))	2777	if (op->msg && !EXIT_PATH (op).starts_with ("/!"))
2620	who->statusmsg (op->msg, NDI_NAVY);	2778	who->statusmsg (op->msg, NDI_NAVY);
…		…
2843	* we don't use a corrupt pointer for the next object, so we get the	3001	* we don't use a corrupt pointer for the next object, so we get the
2844	* next object in the stack before applying. This is can only be a	3002	* next object in the stack before applying. This is can only be a
2845	* problem if player_apply() has a bug in that it uses the object but does	3003	* problem if player_apply() has a bug in that it uses the object but does
2846	* not return a proper value.	3004	* not return a proper value.
2847	*/	3005	*/
2848	for (object *next, *tmp = pl->container ? pl->container->inv : pl->below; tmp; tmp = next)	3006	for (object *next, *tmp = pl->container_ () ? pl->container_ ()->inv : pl->below; tmp; tmp = next)
2849	{	3007	{
2850	next = tmp->below;	3008	next = tmp->below;
2851		3009
2852	if (QUERY_FLAG (tmp, FLAG_IS_FLOOR))	3010	if (QUERY_FLAG (tmp, FLAG_IS_FLOOR))
2853	floors++;	3011	floors++;
…		…
3031	#define CANNOT_REMOVE_CURSED \	3189	#define CANNOT_REMOVE_CURSED \
3032	"H<You cannot remove cursed or damned items, you first have to remove the curse. " \	3190	"H<You cannot remove cursed or damned items, you first have to remove the curse. " \
3033	"Praying over an altar, scrolls of remove curse/damnation, " \	3191	"Praying over an altar, scrolls of remove curse/damnation, " \
3034	"priests or even other players might help.>"	3192	"priests or even other players might help.>"
3035		3193
3036	int	3194	static int
3037	unapply_for_ob (object *who, object *op, int aflags)	3195	unapply_for_ob (object *who, object *op, int aflags)
3038	{	3196	{
3039	if (op->is_range ())	3197	if (op->is_range ())
3040	for (object *tmp = who->inv; tmp; tmp = tmp->below)	3198	for (object *tmp = who->inv; tmp; tmp = tmp->below)
3041	if (QUERY_FLAG (tmp, FLAG_APPLIED) && tmp->is_range ())	3199	if (QUERY_FLAG (tmp, FLAG_APPLIED) && tmp->is_range ())
…		…
3605		3763
3606	if (object *pl = op->visible_to ())	3764	if (object *pl = op->visible_to ())
3607	esrv_send_item (pl, op);	3765	esrv_send_item (pl, op);
3608		3766
3609	return 0;	3767	return 0;
3610	}
3611
3612	int
3613	monster_apply_special (object *who, object *op, int aflags)
3614	{
3615	if (QUERY_FLAG (op, FLAG_UNPAID) && !QUERY_FLAG (op, FLAG_APPLIED))
3616	return 1;
3617
3618	return apply_special (who, op, aflags);
3619	}	3768	}
3620		3769
3621	/**	3770	/**
3622	* Map was just loaded, handle op's initialisation.	3771	* Map was just loaded, handle op's initialisation.
3623	*	3772	*
…		…
3786	}	3935	}
3787		3936
3788	for (mapspace *ms = spaces + size (); ms-- > spaces; )	3937	for (mapspace *ms = spaces + size (); ms-- > spaces; )
3789	for (object *tmp = ms->bot; tmp; tmp = tmp->above)	3938	for (object *tmp = ms->bot; tmp; tmp = tmp->above)
3790	if (tmp->above && (tmp->type == TRIGGER_BUTTON || tmp->type == TRIGGER_PEDESTAL))	3939	if (tmp->above && (tmp->type == TRIGGER_BUTTON || tmp->type == TRIGGER_PEDESTAL))
3791	check_trigger (tmp, tmp->above);	3940	check_trigger (tmp, tmp->above, tmp->above);
3792	}	3941	}
3793		3942
3794	/**	3943	/**
3795	* Handles player eating food that temporarily changes status (resistances, stats).	3944	* Handles player eating food that temporarily changes status (resistances, stats).
3796	* This used to call cast_change_attr(), but	3945	* This used to call cast_change_attr(), but
…		…
3801	eat_special_food (object *who, object *food)	3950	eat_special_food (object *who, object *food)
3802	{	3951	{
3803	object *force;	3952	object *force;
3804	int i, did_one = 0;	3953	int i, did_one = 0;
3805		3954
3806	force = get_archetype (FORCE_NAME);	3955	char buf[64];
		3956	snprintf (buf, sizeof(buf), "sp_food_%s", &food->title);
		3957	shstr key (buf);
3807		3958
3808	for (i = 0; i < NUM_STATS; i++)
3809	if (sint8 k = food->stats.stat (i))
3810	{
3811	force->stats.stat (i) = k;
3812	did_one = 1;
3813	}
3814
3815	/* check if we can protect the eater */
3816	for (i = 0; i < NROFATTACKS; i++)
3817	{
3818	if (food->resist[i] > 0)
3819	{
3820	force->resist[i] = food->resist[i] / 2;
3821	did_one = 1;
3822	}
3823	}
3824
3825	if (did_one)
3826	{
3827	force->set_speed (0.1);
3828	/* bigger morsel of food = longer effect time */	3959	/* bigger morsel of food = longer effect time */
3829	force->duration = food->stats.food / 5;	3960	int duration = TIME2TICK (food->stats.food);
3830	SET_FLAG (force, FLAG_APPLIED);	3961
3831	change_abil (who, force);	3962	if (force = who->force_find (key))
3832	insert_ob_in_ob (force, who);	3963	{
		3964	if (duration > abs (force->speed_left / force->speed))
		3965	{
		3966	new_draw_info_format (NDI_UNIQUE, 0, who, "More magical force spreads through you. H<The effect will last for about %.10g more seconds.>", TICK2TIME (duration));
		3967	force->force_set_timer (duration);
		3968	}
		3969	else
		3970	new_draw_info (NDI_UNIQUE, 0, who, "It had no additional effect.");
		3971
		3972	return;
3833	}	3973	}
3834	else	3974	else
		3975	{
		3976	force = who->force_add (key, duration);
		3977	force->name = key;
		3978
		3979	/* check if the food affects a stat */
		3980	for (i = 0; i < NUM_STATS; i++)
		3981	if (sint8 k = food->stats.stat (i))
		3982	{
		3983	force->stats.stat (i) = k;
		3984	did_one = 1;
		3985	}
		3986
		3987	/* check if we can protect the eater */
		3988	for (i = 0; i < NROFATTACKS; i++)
		3989	{
		3990	if (food->resist[i] > 0)
		3991	{
		3992	force->resist[i] = food->resist[i];
		3993	did_one = 1;
		3994	}
		3995	}
		3996
		3997	if (did_one)
		3998	{
		3999	new_draw_info_format (NDI_UNIQUE, 0, who, "You are suffused with magical force. H<The effect will last for about %.10g seconds.>", TICK2TIME (duration));
		4000
		4001	/* make the force take effect and report effects to user */
		4002	change_abil (who, force);
		4003	}
		4004	else
3835	force->destroy ();	4005	force->destroy ();
		4006	}
3836		4007
3837	/* check for hp, sp change */	4008	/* check for hp, sp change */
3838	if (food->stats.hp != 0)	4009	if (food->stats.hp != 0)
3839	{	4010	{
3840	if (QUERY_FLAG (food, FLAG_CURSED))	4011	if (QUERY_FLAG (food, FLAG_CURSED))
…		…
3870	/* place limit on max sp from food? */	4041	/* place limit on max sp from food? */
3871	}	4042	}
3872	}	4043	}
3873		4044
3874	who->update_stats ();	4045	who->update_stats ();
3875	}
3876
3877
3878	/**
3879	* op made some mistake with a scroll, this takes care of punishment.
3880	* scroll_failure()- hacked directly from spell_failure
3881	*/
3882	void
3883	scroll_failure (object *op, int failure, int power)
3884	{
3885	if (abs (failure / 4) > power)
3886	power = abs (failure / 4); /* set minimum effect */
3887
3888	if (failure <= -1 && failure > -15)
3889	{ /* wonder */
3890	object *tmp;
3891
3892	op->failmsg ("Your spell warps!");
3893	tmp = get_archetype (SPELL_WONDER);
3894	cast_wonder (op, op, 0, tmp);
3895	tmp->destroy ();
3896	}
3897	else if (failure <= -15 && failure > -35)
3898	{ /* drain mana */
3899	op->failmsg ("Your mana is drained!");
3900	op->stats.sp -= random_roll (0, power - 1, op, PREFER_LOW);
3901	if (op->stats.sp < 0)
3902	op->stats.sp = 0;
3903	}
3904	else if (settings.spell_failure_effects == TRUE)
3905	{
3906	if (failure <= -35 && failure > -60)
3907	{ /* confusion */
3908	op->failmsg ("The magic recoils on you!");
3909	confuse_player (op, op, power);
3910	}
3911	else if (failure <= -60 && failure > -70)
3912	{ /* paralysis */
3913	op->failmsg ("The magic recoils and paralyzes you!");
3914	paralyze_player (op, op, power);
3915	}
3916	else if (failure <= -70 && failure > -80)
3917	{ /* blind */
3918	op->failmsg ("The magic recoils on you!");
3919	blind_player (op, op, power);
3920	}
3921	else if (failure <= -80)
3922	{ /* blast the immediate area */
3923	object *tmp = get_archetype (LOOSE_MANA);
3924	cast_magic_storm (op, tmp, power);
3925	op->failmsg ("You unleash uncontrolled mana!");
3926	tmp->destroy ();
3927	}
3928	}
3929	}	4046	}
3930		4047
3931	void	4048	void
3932	apply_changes_to_player (object *pl, object *change)	4049	apply_changes_to_player (object *pl, object *change)
3933	{	4050	{
…		…
4010	break;	4127	break;
4011	}	4128	}
4012	}	4129	}
4013	}	4130	}
4014		4131
4015	/**
4016	* This handles items of type 'transformer'.
4017	* Basically those items, used with a marked item, transform both items into something
4018	* else.
4019	* "Transformer" item has food decreased by 1, removed if 0 (0 at start means illimited)..
4020	* Change information is contained in the 'slaying' field of the marked item.
4021	* The format is as follow: transformer:[number ]yield[;transformer:...].
4022	* This way an item can be transformed in many things, and/or many objects.
4023	* The 'slaying' field for transformer is used as verb for the action.
4024	*/
4025	void
4026	apply_item_transformer (object *pl, object *transformer)
4027	{
4028	object *marked;
4029	object *new_item;
4030	char *find;
4031	char *separator;
4032	int yield;
4033	char got[MAX_BUF];
4034	int len;
4035
4036	if (!pl || !transformer)
4037	return;
4038
4039	marked = find_marked_object (pl);
4040
4041	if (!marked)
4042	{
4043	pl->failmsg (format ("Use the %s with what item?", query_name (transformer)));
4044	return;
4045	}
4046
4047	if (!marked->slaying)
4048	{
4049	pl->failmsg (format ("You can't use the %s with your %s!", query_name (transformer), query_name (marked)));
4050	return;
4051	}
4052
4053	/* check whether they are compatible or not */
4054	find = strstr (&marked->slaying, transformer->arch->archname);
4055	if (!find || (*(find + strlen (transformer->arch->archname)) != ':'))
4056	{
4057	pl->failmsg (format ("You can't use the %s with your %s!", query_name (transformer), query_name (marked)));
4058	return;
4059	}
4060
4061	find += strlen (transformer->arch->archname) + 1;
4062	/* Item can be used, now find how many and what it yields */
4063	if (isdigit (*(find)))
4064	{
4065	yield = atoi (find);
4066	if (yield < 1)
4067	{
4068	LOG (llevDebug, "apply_item_transformer: item %s has slaying-yield %d.", query_base_name (marked, 0), yield);
4069	yield = 1;
4070	}
4071	}
4072	else
4073	yield = 1;
4074
4075	while (isdigit (*find))
4076	find++;
4077
4078	while (*find == ' ')
4079	find++;
4080
4081	memset (got, 0, MAX_BUF);
4082
4083	if ((separator = strchr (find, ';')) != NULL)
4084	len = separator - find;
4085	else
4086	len = strlen (find);
4087
4088	if (len > MAX_BUF - 1)
4089	len = MAX_BUF - 1;
4090
4091	strcpy (got, find);
4092	got[len] = '\0';
4093
4094	/* Now create new item, remove used ones when required. */
4095	new_item = get_archetype (got);
4096	if (!new_item)
4097	{
4098	pl->failmsg (format ("This %s is strange, better to not use it.", query_base_name (marked, 0)));
4099	return;
4100	}
4101
4102	new_item->nrof = yield;
4103
4104	pl->statusmsg (format ("You %s the %s.", &transformer->slaying, query_base_name (marked, 0)));
4105
4106	pl->insert (new_item);
4107	/* Eat up one item */
4108	marked->decrease ();
4109
4110	/* Eat one transformer if needed */
4111	if (transformer->stats.food)
4112	if (--transformer->stats.food == 0)
4113	transformer->decrease ();
4114	}
4115

Diff Legend

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