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

Comparing deliantra/server/common/treasure.C (file contents):
Revision 1.50 by root, Thu Apr 19 16:23:46 2007 UTC vs.
Revision 1.64 by root, Sun Jul 1 05:00:18 2007 UTC

…		…
1	/*	1	/*
2	* CrossFire, A Multiplayer game for X-windows	2	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3	*	3	*
4	* Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team	4	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
5	* Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6	* Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992,2007 Frank Tore Johansen
7	*	7	*
8	* This program is free software; you can redistribute it and/or modify	8	* Crossfire TRT is free software: you can redistribute it and/or modify
9	* it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
10	* the Free Software Foundation; either version 2 of the License, or	10	* the Free Software Foundation, either version 3 of the License, or
11	* (at your option) any later version.	11	* (at your 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 GNU General Public License
19	* along with this program; if not, write to the Free Software	19	* along with this program. If not, see <http://www.gnu.org/licenses/>.
20	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21	*	20	*
22	* The authors can be reached via e-mail at <crossfire@schmorp.de>	21	* The authors can be reached via e-mail to <crossfire@schmorp.de>
23	*/	22	*/
24		23
25	/* TREASURE_DEBUG does some checking on the treasurelists after loading.	24	/* TREASURE_DEBUG does some checking on the treasurelists after loading.
26	* It is useful for finding bugs in the treasures file. Since it only	25	* It is useful for finding bugs in the treasures file. Since it only
27	* slows the startup some (and not actual game play), it is by default	26	* slows the startup some (and not actual game play), it is by default
197		196
198	/* This is a one of the many items on the list should be generated.	197	/* This is a one of the many items on the list should be generated.
199	* Add up the chance total, and check to make sure the yes & no	198	* Add up the chance total, and check to make sure the yes & no
200	* fields of the treasures are not being used.	199	* fields of the treasures are not being used.
201	*/	200	*/
202	tl->total_chance = 0;
203
204	if (one)	201	if (one)
205	{	202	{
206	for (treasure *t = tl->items; t; t = t->next)	203	for (treasure *t = tl->items; t; t = t->next)
207	{	204	{
208	if (t->next_yes \|\| t->next_no)	205	if (t->next_yes \|\| t->next_no)
209	{	206	{
210	LOG (llevError, "Treasure %s is one item, but on treasure %s\n", &tl->name, t->item ? &t->item->name : &t->name);	207	LOG (llevError, "Treasure %s is one item, but on treasure %s\n", &tl->name, t->item ? &t->item->archname : &t->name);
211	LOG (llevError, " the next_yes or next_no field is set\n");	208	LOG (llevError, " the next_yes or next_no field is set\n");
212	}	209	}
213		210
214	tl->total_chance += t->chance;	211	tl->total_chance += t->chance;
215	}	212	}
…		…
230	* start with equipment, but only their abilities).	227	* start with equipment, but only their abilities).
231	*/	228	*/
232	static void	229	static void
233	put_treasure (object op, object creator, int flags)	230	put_treasure (object op, object creator, int flags)
234	{	231	{
235	object *tmp;	232	if (flags & GT_ENVIRONMENT)
236		233	{
237	/* Bit of a hack - spells should never be put onto the map. The entire	234	/* Bit of a hack - spells should never be put onto the map. The entire
238	* treasure stuff is a problem - there is no clear idea of knowing	235	* treasure stuff is a problem - there is no clear idea of knowing
239	* this is the original object, or if this is an object that should be created	236	* this is the original object, or if this is an object that should be created
240	* by another object.	237	* by another object.
241	*/	238	*/
242	if (flags & GT_ENVIRONMENT && op->type != SPELL)	239	//TODO: flag such as objects... as such (no drop, anybody?)
243	{	240	if (op->type == SPELL)
		241	{
		242	op->destroy ();
		243	return;
		244	}
		245
		246	op->expand_tail ();
		247
		248	if (ob_blocked (op, creator->map, creator->x, creator->y))
		249	op->destroy ();
		250	else
		251	{
244	SET_FLAG (op, FLAG_OBJ_ORIGINAL);	252	SET_FLAG (op, FLAG_OBJ_ORIGINAL);
245	op->insert_at (creator, creator, INS_NO_MERGE \| INS_NO_WALK_ON);	253	op->insert_at (creator, creator, INS_NO_MERGE \| INS_NO_WALK_ON);
		254	}
246	}	255	}
247	else	256	else
248	{	257	{
249	op = creator->insert (op);	258	op = creator->insert (op);
250		259
251	if ((flags & GT_APPLY) && QUERY_FLAG (creator, FLAG_MONSTER))	260	if ((flags & GT_APPLY) && QUERY_FLAG (creator, FLAG_MONSTER))
252	monster_check_apply (creator, op);	261	monster_check_apply (creator, op);
253		262
254	if ((flags & GT_UPDATE_INV) && (tmp = creator->in_player ()))	263	if (flags & GT_UPDATE_INV)
		264	if (object *tmp = creator->in_player ())
255	esrv_send_item (tmp, op);	265	esrv_send_item (tmp, op);
256	}	266	}
257	}	267	}
258		268
259	/* if there are change_xxx commands in the treasure, we include the changes	269	/* if there are change_xxx commands in the treasure, we include the changes
260	* in the generated object	270	* in the generated object
…		…
289	else	299	else
290	LOG (llevError, "create_all_treasures: undefined reference to treasurelist '%s'.\n", &t->name);	300	LOG (llevError, "create_all_treasures: undefined reference to treasurelist '%s'.\n", &t->name);
291	}	301	}
292	else	302	else
293	{	303	{
294	if (t->item && (t->item->clone.invisible != 0 \|\| !(flag & GT_INVISIBLE)))	304	if (t->item && (t->item->invisible != 0 \|\| !(flag & GT_INVISIBLE)))
295	{	305	{
296	object *tmp = arch_to_object (t->item);	306	object *tmp = arch_to_object (t->item);
297		307
298	if (t->nrof && tmp->nrof <= 1)	308	if (t->nrof && tmp->nrof <= 1)
299	tmp->nrof = rndm (t->nrof) + 1;	309	tmp->nrof = rndm (t->nrof) + 1;
…		…
346	create_treasure (tl, op, flag, difficulty, tries);	356	create_treasure (tl, op, flag, difficulty, tries);
347	}	357	}
348	else if (t->nrof)	358	else if (t->nrof)
349	create_one_treasure (tl, op, flag, difficulty, tries);	359	create_one_treasure (tl, op, flag, difficulty, tries);
350	}	360	}
351	else if (t->item && (t->item->clone.invisible != 0 \|\| flag != GT_INVISIBLE))	361	else if (t->item && (t->item->invisible != 0 \|\| flag != GT_INVISIBLE))
352	{	362	{
353	if (object *tmp = arch_to_object (t->item))	363	if (object *tmp = arch_to_object (t->item))
354	{	364	{
355	if (t->nrof && tmp->nrof <= 1)	365	if (t->nrof && tmp->nrof <= 1)
356	tmp->nrof = rndm (t->nrof) + 1;	366	tmp->nrof = rndm (t->nrof) + 1;
…		…
358	fix_generated_item (tmp, op, difficulty, t->magic, flag);	368	fix_generated_item (tmp, op, difficulty, t->magic, flag);
359	change_treasure (t, tmp);	369	change_treasure (t, tmp);
360	put_treasure (tmp, op, flag);	370	put_treasure (tmp, op, flag);
361	}	371	}
362	}	372	}
		373	}
		374
		375	void
		376	object::create_treasure (treasurelist *tl, int flags)
		377	{
		378	::create_treasure (tl, this, flags, map ? map->difficulty : 0);
363	}	379	}
364		380
365	/* This calls the appropriate treasure creation function. tries is passed	381	/* This calls the appropriate treasure creation function. tries is passed
366	* to determine how many list transitions or attempts to create treasure	382	* to determine how many list transitions or attempts to create treasure
367	* have been made. It is really in place to prevent infinite loops with	383	* have been made. It is really in place to prevent infinite loops with
…		…
378		394
379	if (tries++ > 100)	395	if (tries++ > 100)
380	{	396	{
381	LOG (llevDebug, "createtreasure: tries exceeded 100, returning without making treasure\n");	397	LOG (llevDebug, "createtreasure: tries exceeded 100, returning without making treasure\n");
382	return;	398	return;
		399	}
		400
		401	if (op->flag [FLAG_TREASURE_ENV])
		402	{
		403	// do not generate items when there already is something above the object
		404	if (op->flag [FLAG_IS_FLOOR] && op->above)
		405	return;
		406
		407	flag \|= GT_ENVIRONMENT;
383	}	408	}
384		409
385	if (tl->total_chance)	410	if (tl->total_chance)
386	create_one_treasure (tl, op, flag, difficulty, tries);	411	create_one_treasure (tl, op, flag, difficulty, tries);
387	else	412	else
…		…
546		571
547	op->magic = magic;	572	op->magic = magic;
548	if (op->arch)	573	if (op->arch)
549	{	574	{
550	if (op->type == ARMOUR)	575	if (op->type == ARMOUR)
551	ARMOUR_SPEED (op) = (ARMOUR_SPEED (&op->arch->clone) * (100 + magic * 10)) / 100;	576	ARMOUR_SPEED (op) = (ARMOUR_SPEED (op->arch) * (100 + magic * 10)) / 100;
552		577
553	if (magic < 0 && !(rndm (3))) /* You can't just check the weight always */	578	if (magic < 0 && !(rndm (3))) /* You can't just check the weight always */
554	magic = (-magic);	579	magic = (-magic);
555	op->weight = (op->arch->clone.weight * (100 - magic * 10)) / 100;	580	op->weight = (op->arch->weight * (100 - magic * 10)) / 100;
556	}	581	}
557	else	582	else
558	{	583	{
559	if (op->type == ARMOUR)	584	if (op->type == ARMOUR)
560	ARMOUR_SPEED (op) = (ARMOUR_SPEED (op) * (100 + magic * 10)) / 100;	585	ARMOUR_SPEED (op) = (ARMOUR_SPEED (op) * (100 + magic * 10)) / 100;
…		…
622	case 2:	647	case 2:
623	case 3:	648	case 3:
624	case 4:	649	case 4:
625	case 5:	650	case 5:
626	case 6:	651	case 6:
627	set_attr_value (&op->stats, r, (signed char) (bonus + get_attr_value (&op->stats, r)));	652	op->stats.stat (r) += bonus;
628	break;	653	break;
629		654
630	case 7:	655	case 7:
631	op->stats.dam += bonus;	656	op->stats.dam += bonus;
632	break;	657	break;
…		…
1198	else	1223	else
1199	{	1224	{
1200	for (i = 0; i < depth; i++)	1225	for (i = 0; i < depth; i++)
1201	fprintf (logfile, " ");	1226	fprintf (logfile, " ");
1202		1227
1203	if (t->item && t->item->clone.type == FLESH)	1228	if (t->item && t->item->type == FLESH)
1204	fprintf (logfile, "%s's %s\n", name, &t->item->clone.name);	1229	fprintf (logfile, "%s's %s\n", name, &t->item->object::name);
1205	else	1230	else
1206	fprintf (logfile, "%s\n", &t->item->clone.name);	1231	fprintf (logfile, "%s\n", &t->item->object::name);
1207	}	1232	}
1208		1233
1209	if (t->next_yes)	1234	if (t->next_yes)
1210	{	1235	{
1211	for (i = 0; i < depth; i++)	1236	for (i = 0; i < depth; i++)
…		…
1239	int found;	1264	int found;
1240		1265
1241	found = 0;	1266	found = 0;
1242	fprintf (logfile, "\n");	1267	fprintf (logfile, "\n");
1243		1268
1244	for (at = first_archetype; at != NULL; at = at->next)	1269	for_all_archetypes (at)
1245	if (!strcasecmp (at->clone.name, name) && at->clone.title == NULL)	1270	if (!strcasecmp (at->object::name, name) && at->title == NULL)
1246	{	1271	{
1247	fprintf (logfile, "treasures for %s (arch: %s)\n", &at->clone.name, &at->name);	1272	fprintf (logfile, "treasures for %s (arch: %s)\n", &at->object::name, &at->archname);
1248	if (at->clone.randomitems != NULL)	1273	if (at->randomitems != NULL)
1249	dump_monster_treasure_rec (at->clone.name, at->clone.randomitems->items, 1);	1274	dump_monster_treasure_rec (at->object::name, at->randomitems->items, 1);
1250	else	1275	else
1251	fprintf (logfile, "(nothing)\n");	1276	fprintf (logfile, "(nothing)\n");
1252		1277
1253	fprintf (logfile, "\n");	1278	fprintf (logfile, "\n");
1254	found++;	1279	found++;
…		…
1392	#endif	1417	#endif
1393	op->face = change->face;	1418	op->face = change->face;
1394	}	1419	}
1395		1420
1396	for (i = 0; i < NUM_STATS; i++)	1421	for (i = 0; i < NUM_STATS; i++)
1397	change_attr_value (&(op->stats), i, get_attr_value (&(change->stats), i));	1422	change_attr_value (&(op->stats), i, change->stats.stat (i));
1398		1423
1399	op->attacktype \|= change->attacktype;	1424	op->attacktype \|= change->attacktype;
1400	op->path_attuned \|= change->path_attuned;	1425	op->path_attuned \|= change->path_attuned;
1401	op->path_repelled \|= change->path_repelled;	1426	op->path_repelled \|= change->path_repelled;
1402	op->path_denied \|= change->path_denied;	1427	op->path_denied \|= change->path_denied;
…		…
1566	if (change->msg)	1591	if (change->msg)
1567	op->msg = change->msg;	1592	op->msg = change->msg;
1568	}	1593	}
1569		1594
1570	static int	1595	static int
1571	legal_artifact_combination (object op, artifact art)	1596	legal_artifact_combination (object op, artifact art)
1572	{	1597	{
1573	int neg, success = 0;	1598	int neg, success = 0;
1574	linked_char *tmp;	1599	linked_char *tmp;
1575	const char *name;	1600	const char *name;
1576		1601
1577	if (art->allowed == (linked_char *) NULL)	1602	if (!art->allowed)
1578	return 1; /* Ie, "all" */	1603	return 1; /* Ie, "all" */
		1604
1579	for (tmp = art->allowed; tmp; tmp = tmp->next)	1605	for (tmp = art->allowed; tmp; tmp = tmp->next)
1580	{	1606	{
1581	#ifdef TREASURE_VERBOSE	1607	#ifdef TREASURE_VERBOSE
1582	LOG (llevDebug, "legal_art: %s\n", &tmp->name);	1608	LOG (llevDebug, "legal_art: %s\n", &tmp->name);
1583	#endif	1609	#endif
…		…
1585	name = tmp->name + 1, neg = 1;	1611	name = tmp->name + 1, neg = 1;
1586	else	1612	else
1587	name = tmp->name, neg = 0;	1613	name = tmp->name, neg = 0;
1588		1614
1589	/* If we match name, then return the opposite of 'neg' */	1615	/* If we match name, then return the opposite of 'neg' */
1590	if (!strcmp (name, op->name) \|\| (op->arch && !strcmp (name, op->arch->name)))	1616	if (!strcmp (name, op->name) \|\| (op->arch && !strcmp (name, op->arch->archname)))
1591	return !neg;	1617	return !neg;
1592		1618
1593	/* Set success as true, since if the match was an inverse, it means	1619	/* Set success as true, since if the match was an inverse, it means
1594	* everything is allowed except what we match	1620	* everything is allowed except what we match
1595	*/	1621	*/
1596	else if (neg)	1622	else if (neg)
1597	success = 1;	1623	success = 1;
1598	}	1624	}
		1625
1599	return success;	1626	return success;
1600	}	1627	}
1601		1628
1602	/*	1629	/*
1603	* Fixes the given object, giving it the abilities and titles	1630	* Fixes the given object, giving it the abilities and titles

Diff Legend

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

Comparing deliantra/server/common/treasure.C (file contents): Revision 1.50 by root, Thu Apr 19 16:23:46 2007 UTC vs. Revision 1.64 by root, Sun Jul 1 05:00:18 2007 UTC

Diff Legend

Comparing deliantra/server/common/treasure.C (file contents):
Revision 1.50 by root, Thu Apr 19 16:23:46 2007 UTC vs.
Revision 1.64 by root, Sun Jul 1 05:00:18 2007 UTC