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

Comparing deliantra/server/server/alchemy.C (file contents):
Revision 1.35 by elmex, Sun Jan 4 16:30:39 2009 UTC vs.
Revision 1.63 by root, Sun Jan 29 02:47:05 2017 UTC

…		…
1	/*	1	/*
2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team	4	* 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	5	* Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6	* Copyright (©) 1992,2007 Frank Tore Johansen	6	* Copyright (©) 1992 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	/* March 96 - Laid down original code. -b.t. thomas@astro.psu.edu */	25	/* March 96 - Laid down original code. -b.t. thomas@astro.psu.edu */
25		26
55	"rattles",	56	"rattles",
56	"makes chugging sounds",	57	"makes chugging sounds",
57	"smokes heavily for a while"	58	"smokes heavily for a while"
58	};	59	};
59		60
60
61	static int is_defined_recipe (const recipe rp, const object cauldron, object *caster);	61	static int is_defined_recipe (const recipe rp, const object cauldron, object *caster);
62	static recipe find_recipe (recipelist fl, int formula, object *ingredients);	62	static recipe find_recipe (recipelist fl, int formula, object *ingredients);
63		63
64
65	/** Returns a random selection from cauldron_effect[] */	64	/** Returns a random selection from cauldron_effect[] */
66	static const char *	65	static const char *
67	cauldron_sound (void)	66	cauldron_sound ()
68	{	67	{
69	int size = sizeof (cauldron_effect) / sizeof (char *);	68	return cauldron_effect [rndm (array_length (cauldron_effect))];
70
71	return cauldron_effect[rndm (0, size - 1)];
72	}	69	}
73		70
74	/**	71	/**
75	* Main part of the ALCHEMY code. From this we call fctns
76	* that take a look at the contents of the 'cauldron' and, using these ingredients,
77	* we construct an integer formula value which is referenced (randomly) against a
78	* formula list (the formula list chosen is based on the # contents of the cauldron).
79	*
80	* If we get a match between the recipe indicated in cauldron contents and a
81	* randomly chosen one, an item is created and experience awarded. Otherwise
82	* various failure effects are possible (getting worse and worse w/ # cauldron
83	* ingredients). Note that the 'item' to be made can be anything listed on
84	* the artifacts list in lib/artifacts which has a recipe listed in lib/formulae.
85	*
86	* To those wondering why I am using the funky formula index method:
87	* 1) I want to match recipe to ingredients regardless of ordering.
88	* 2) I want a fast search for the 'right' recipe.
89	*
90	* Note: it is just possible that a totally different combination of
91	* ingredients will result in a match with a given recipe. This is not a bug!
92	* There is no good reason (in my mind) why alchemical processes have to be
93	* unique -- such a 'feature' is one reason why players might want to experiment
94	* around. :)
95	* -b.t.
96	*/
97
98	void
99	attempt_do_alchemy (object caster, object cauldron, object *skill)
100	{
101	recipelist *fl;
102	recipe *rp = NULL;
103	float success_chance;
104	int numb, ability = 1;
105	int formula = 0;
106	float ave_chance;
107	object item, skop;
108
109	if (caster->type != PLAYER)
110	return; /* only players for now */
111
112	if (get_map_flags (caster->map, NULL, caster->x, caster->y, NULL, NULL) & P_SAFE)
113	{
114	new_draw_info (NDI_UNIQUE, 0, caster, "This is sacred ground, the gods prevent you from using this device.");
115	return;
116	}
117
118	/* if no ingredients, no formula! lets forget it */
119	if (!(formula = content_recipe_value (cauldron)))
120	return;
121
122	numb = numb_ob_inside (cauldron);
123	if ((fl = get_formulalist (numb)))
124	{
125	if (QUERY_FLAG (caster, FLAG_WIZ))
126	{
127	rp = find_recipe (fl, formula, cauldron->inv);
128	if (rp != NULL)
129	{
130	#ifdef ALCHEMY_DEBUG
131	if (strcmp (rp->title, "NONE"))
132	LOG (llevDebug, "WIZ got formula: %s of %s\n", rp->arch_name[0], rp->title);
133	else
134	LOG (llevDebug, "WIZ got formula: %s (nbatches:%d)\n", rp->arch_name[0], formula / rp->index);
135	#endif
136	attempt_recipe (caster, cauldron, ability, rp, formula / rp->index);
137	}
138	else
139	LOG (llevDebug, "WIZ couldn't find formula for ingredients.\n");
140	return;
141	} /* End of WIZ alchemy */
142
143	/* find the recipe */
144	rp = find_recipe (fl, formula, cauldron->inv);
145	if (rp
146	&& rp->skill == skill->skill
147	&& (!rp->cauldron
148	\|\| rp->cauldron == cauldron->arch->archname))
149	{
150	uint64 value_ingredients;
151	uint64 value_item;
152	object *tmp;
153	int attempt_shadow_alchemy;
154
155	ave_chance = fl->total_chance / (float) fl->number;
156
157	ability += (int) (skill->level * ((4.0 + cauldron->magic) / 4.0));
158
159	/* determine value of ingredients */
160	value_ingredients = 0;
161	for (tmp = cauldron->inv; tmp != NULL; tmp = tmp->below)
162	value_ingredients += query_cost (tmp, NULL, F_TRUE);
163
164	attempt_shadow_alchemy = !is_defined_recipe (rp, cauldron, caster);
165
166	/* create the object FIRST, then decide whether to keep it. */
167	if ((item = attempt_recipe (caster, cauldron, ability, rp, formula / rp->index)) != NULL)
168	{
169	/* compute base chance of recipe success */
170	success_chance = ((float) ability / (float) (rp->diff * (item->level + 2)));
171	if (ave_chance == 0)
172	ave_chance = 1;
173
174	#ifdef ALCHEMY_DEBUG
175	LOG (llevDebug, "percent success chance = %f ab%d / diff%d*lev%d\n", success_chance, ability, rp->diff, item->level);
176	#endif
177
178	value_item = query_cost (item, NULL, F_TRUE \| F_IDENTIFIED \| F_NOT_CURSED);
179	if (attempt_shadow_alchemy && value_item > value_ingredients)
180	{
181	#ifdef ALCHEMY_DEBUG
182	LOG (llevDebug,
183	"Forcing failure for shadow alchemy recipe because price of ingredients (%llu) is less than price of result (%llu).\n",
184	value_ingredients, value_item);
185	#endif
186	}
187	/* roll the dice */
188	else if ((float) (random_roll (0, 101, caster, PREFER_LOW)) <= 100.0 * success_chance)
189	{
190	change_exp (caster, rp->exp, rp->skill, SK_EXP_NONE);
191
192	// let alchemy consume some time, so that exploits are less easy
193	caster->speed_left -= 1.0;
194
195	return;
196	}
197	}
198	}
199	}
200
201	/* if we get here, we failed!! */
202	alchemy_failure_effect (caster, cauldron, rp, calc_alch_danger (caster, cauldron, rp));
203	}
204
205	/**
206	* Recipe value of the entire contents of a container.	72	* Recipe value of the entire contents of a container.
207	* This appears to just generate a hash value, which I guess for now works	73	* This appears to just generate a hash value, which I guess for now works
208	* ok, but the possibility of duplicate hashes is certainly possible - msw	74	* ok, but the possibility of duplicate hashes is certainly possible - msw
209	*/	75	*/
210		76	static int
211	int
212	content_recipe_value (object *op)	77	content_recipe_value (object *op)
213	{	78	{
214	char name[MAX_BUF];
215	object *tmp = op->inv;	79	object *tmp = op->inv;
216	int tval = 0, formula = 0;	80	int formula = 0;
217		81
218	while (tmp)	82	while (tmp)
219	{	83	{
220	tval = 0;	84	const char *name = tmp->title
221	assign (name, tmp->name);
222	if (tmp->title)
223	sprintf (name, "%s %s", &tmp->name, &tmp->title);	85	? (const char *)format ("%s %s", &tmp->name, &tmp->title)
		86	: tmp->name;
		87
224	tval = (strtoint (name) * (tmp->nrof ? tmp->nrof : 1));	88	int tval = strtoint (name) * tmp->number_of ();
225	#ifdef ALCHEMY_DEBUG	89	#ifdef ALCHEMY_DEBUG
226	LOG (llevDebug, "Got ingredient %d %s(%d)\n", tmp->nrof ? tmp->nrof : 1, name, tval);	90	LOG (llevDebug, "Got ingredient %d %s(%d)\n", tmp->nrof ? tmp->nrof : 1, name, tval);
227	#endif	91	#endif
228	formula += tval;	92	formula += tval;
229	tmp = tmp->below;	93	tmp = tmp->below;
230	}	94	}
231	#ifdef ALCHEMY_DEBUG	95	#ifdef ALCHEMY_DEBUG
232	LOG (llevDebug, " Formula value=%d\n", formula);	96	LOG (llevDebug, " Formula value=%d\n", formula);
233	#endif	97	#endif
		98
234	return formula;	99	return formula;
235	}	100	}
236		101
237	/**	102	/**
238	* Returns total number of items in op	103	* Returns total number of items in op
239	*/	104	*/
240		105	static int
241	int
242	numb_ob_inside (object *op)	106	numb_ob_inside (object *op)
243	{	107	{
244	object *tmp = op->inv;	108	object *tmp = op->inv;
245	int number = 0, o_number = 0;	109	int number = 0, o_number = 0;
246		110
…		…
252	number++;	116	number++;
253	o_number++;	117	o_number++;
254	tmp = tmp->below;	118	tmp = tmp->below;
255	}	119	}
256	#ifdef ALCHEMY_DEBUG	120	#ifdef ALCHEMY_DEBUG
257	LOG (llevDebug, "numb_ob_inside(%s): found %d ingredients\n", op->name, o_number);	121	LOG (llevDebug, "numb_ob_inside(%s): found %d ingredients\n", &op->name, o_number);
258	#endif	122	#endif
259	return o_number;	123	return o_number;
260	}	124	}
261		125
262	/**	126	/**
		127	* Looks through the ingredient list. If we find a
		128	* suitable object in it - we will use that to make the requested artifact.
		129	* Otherwise the code returns a 'generic' item if create_item is set. -b.t.
		130	*
		131	* @param rp_arch_index pointer to return value; set to arch index for recipe;
		132	* set to zero if not using a transmution formula
		133	*/
		134	static object *
		135	find_transmution_ob (object first_ingred, recipe rp, size_t *rp_arch_index, int create_item)
		136	{
		137	object *prod_item = 0;
		138	*rp_arch_index = 0;
		139
		140	if (rp->transmute) /* look for matching ingredient/prod archs */
		141	for (object *item = first_ingred; item; item = item->below)
		142	{
		143	for (int i = 0; i < rp->arch_names; i++)
		144	//TODO: should be a shstr comparison
		145	if (!strcmp(&item->arch->archname,rp->arch_name[i]))
		146	{
		147	*rp_arch_index = i;
		148	prod_item = item;
		149	break;
		150	}
		151
		152	if (prod_item)
		153	break;
		154	}
		155
		156	/* failed, create a fresh object. Note no nrof>1 because that would
		157	* allow players to create massive amounts of artifacts easily */
		158	if (create_item && (!prod_item \|\| prod_item->nrof > 1))
		159	{
		160	#ifdef ALCHEMY_DEBUG
		161	LOG (llevDebug, "creating a new item.\n");
		162	if (prod_item != NULL)
		163	{
		164	LOG (llevDebug, " had item: arch %s(nrof:%d)\n",
		165	&prod_item->arch->archname, prod_item->nrof);
		166	}
		167	#endif
		168	if (!prod_item)
		169	*rp_arch_index = rndm (rp->arch_names);
		170	prod_item = archetype::get (rp->arch_name[*rp_arch_index]);
		171	}
		172
		173	#ifdef ALCHEMY_DEBUG
		174	LOG (llevDebug, "recipe calls for%stransmution.\n", rp->transmute ? " " : " no ");
		175	if (prod_item != NULL)
		176	{
		177	LOG (llevDebug, " find_transmutable_ob(): returns arch %s(sp:%d)\n",
		178	&prod_item->arch->archname, prod_item->stats.sp);
		179	}
		180	#endif
		181
		182	return prod_item;
		183	}
		184
		185	/**
		186	* Using a list of items and a recipe to make an artifact.
		187	*
		188	* @param cauldron the cauldron (including the ingredients) used to make the item
		189	*
		190	* @param rp the recipe to make the artifact from
		191	*
		192	* @return the newly created object, NULL if something failed
		193	*/
		194	static object *
		195	make_item_from_recipe (object cauldron, recipe rp)
		196	{
		197	artifact *art = NULL;
		198	object *item = NULL;
		199	size_t rp_arch_index;
		200
		201	if (rp == NULL)
		202	return (object *) NULL;
		203
		204	/* Find the appropriate object to transform... */
		205	if ((item = find_transmution_ob (cauldron->inv, rp, &rp_arch_index, 1)) == NULL)
		206	{
		207	LOG (llevDebug, "make_alchemy_item(): failed to create alchemical object.\n");
		208	return (object *) NULL;
		209	}
		210
		211	/* Find the appropriate artifact template... */
		212	if (rp->title != shstr_NONE)
		213	{
		214	if ((art = locate_recipe_artifact (rp, rp_arch_index)) == NULL)
		215	{
		216	LOG (llevError, "make_alchemy_item(): failed to locate recipe artifact.\n");
		217	LOG (llevDebug, " --requested recipe: %s of %s.\n", rp->arch_name[0], &rp->title);
		218	return (object *) NULL;
		219	}
		220
		221	transmute_materialname (item, art->item);
		222	give_artifact_abilities (item, art->item);
		223	}
		224
		225	if (cauldron->flag [FLAG_CURSED])
		226	item->set_flag (FLAG_CURSED);
		227	if (cauldron->flag [FLAG_DAMNED])
		228	item->set_flag (FLAG_DAMNED);
		229
		230	return item;
		231	}
		232
		233	/*
		234	* All but object "save_item" are elimentated from
		235	* the container list. Note we have to becareful to remove the inventories
		236	* of objects in the cauldron inventory (ex icecube has stuff in it).
		237	*/
		238	static void
		239	remove_contents (object first_ob, object save_item)
		240	{
		241	// this cries for a cleaner rewrite, removing save_item first possibly
		242	object next, tmp = first_ob;
		243
		244	while (tmp)
		245	{
		246	next = tmp->below;
		247
		248	if (tmp == save_item)
		249	{
		250	if (!(tmp = next))
		251	break;
		252	else
		253	next = next->below;
		254	}
		255
		256	if (tmp->inv)
		257	remove_contents (tmp->inv, NULL);
		258
		259	tmp->destroy ();
		260	tmp = next;
		261	}
		262	}
		263
		264	/**
		265	* We adjust the nrof, exp and level of the final product, based
		266	* on the item's default parameters, and the relevant caster skill level.
		267	*/
		268	static void
		269	adjust_product (object *item, int lvl, int yield)
		270	{
		271	int nrof = 1;
		272
		273	if (!yield)
		274	yield = 1;
		275
		276	if (lvl <= 0)
		277	lvl = 1; /* lets avoid div by zero! */
		278
		279	if (item->nrof)
		280	{
		281	nrof = (int) ((1.0 - 1.0 / (lvl / 10.0 + 1.0)) * (rndm (0, yield - 1) + rndm (0, yield - 1) + rndm (0, yield - 1)) + 1);
		282
		283	if (nrof > yield)
		284	nrof = yield;
		285
		286	item->nrof = nrof;
		287	}
		288	}
		289
		290	/**
263	* Essentially a wrapper for make_item_from_recipe() and	291	* Essentially a wrapper for make_item_from_recipe() and
264	* insert_ob_in_ob. If the caster has some alchemy skill, then they might	292	* insert_ob_in_ob. If the caster has some alchemy skill, then they might
265	* gain some exp from (successfull) fabrication of the product.	293	* gain some exp from (successfull) fabrication of the product.
266	* If nbatches==-1, don't give exp for this creation (random generation/	294	* If nbatches==-1, don't give exp for this creation (random generation/
267	* failed recipe)	295	* failed recipe)
268	*/	296	*/
269		297	static object *
270	object *
271	attempt_recipe (object caster, object cauldron, int ability, recipe *rp, int nbatches)	298	attempt_recipe (object caster, object cauldron, int ability, recipe *rp, int nbatches)
272	{	299	{
273		300
274	object item = NULL, skop;	301	object item = NULL, skop;
275		302
…		…
303	}	330	}
304	}	331	}
305		332
306	#ifdef EXTREME_ALCHEMY_DEBUG	333	#ifdef EXTREME_ALCHEMY_DEBUG
307	LOG (llevDebug, "attempt_recipe(): got %d nbatches\n", nbatches);	334	LOG (llevDebug, "attempt_recipe(): got %d nbatches\n", nbatches);
308	LOG (llevDebug, "attempt_recipe(): using recipe %s\n", rp->title ? rp->title : "unknown");	335	LOG (llevDebug, "attempt_recipe(): using recipe %s\n", *rp->title ? &rp->title : "unknown");
309	#endif	336	#endif
310		337
311	if ((item = make_item_from_recipe (cauldron, rp)) != NULL)	338	if ((item = make_item_from_recipe (cauldron, rp)) != NULL)
312	{	339	{
313	remove_contents (cauldron->inv, item);	340	remove_contents (cauldron->inv, item);
314	/* Recalc carrying of the cauldron, in case recipe did not conserve mass */	341	/* Recalc carrying of the cauldron, in case recipe did not conserve mass */
315	cauldron->update_weight ();	342	cauldron->update_weight ();
316	/* adj lvl, nrof on caster level */	343	/* adj lvl, nrof on caster level */
317	adjust_product (item, ability, rp->yield ? (rp->yield * batches) : batches);	344	adjust_product (item, ability, rp->yield ? rp->yield * batches : batches);
		345
318	if (!item->env && (item = insert_ob_in_ob (item, cauldron)) == NULL)	346	if (!item->env && (item = insert_ob_in_ob (item, cauldron)) == NULL)
319	{	347	{
320	new_draw_info (NDI_UNIQUE, 0, caster, "Nothing happened.");	348	new_draw_info (NDI_UNIQUE, 0, caster, "Nothing happened.");
321	/* new_draw_info_format(NDI_UNIQUE, 0,caster,	349	/* new_draw_info_format(NDI_UNIQUE, 0,caster,
322	"Your spell causes the %s to explode!",&cauldron->name); */	350	"Your spell causes the %s to explode!",&cauldron->name); */
…		…
327	}	355	}
328		356
329	return item;	357	return item;
330	}	358	}
331		359
332
333
334	/**
335	* We adjust the nrof, exp and level of the final product, based
336	* on the item's default parameters, and the relevant caster skill level.
337	*/
338	void
339	adjust_product (object *item, int lvl, int yield)
340	{
341	int nrof = 1;
342
343	if (!yield)
344	yield = 1;
345
346	if (lvl <= 0)
347	lvl = 1; /* lets avoid div by zero! */
348
349	if (item->nrof)
350	{
351	nrof = (int) ((1.0 - 1.0 / (lvl / 10.0 + 1.0)) * (rndm (0, yield - 1) + rndm (0, yield - 1) + rndm (0, yield - 1)) + 1);
352
353	if (nrof > yield)
354	nrof = yield;
355
356	item->nrof = nrof;
357	}
358	}
359
360
361	/**
362	* Using a list of items and a recipe to make an artifact.
363	*
364	* @param cauldron the cauldron (including the ingredients) used to make the item
365	*
366	* @param rp the recipe to make the artifact from
367	*
368	* @return the newly created object, NULL if something failed
369	*/
370
371	object *
372	make_item_from_recipe (object cauldron, recipe rp)
373	{
374	artifact *art = NULL;
375	object *item = NULL;
376	size_t rp_arch_index;
377
378	if (rp == NULL)
379	return (object *) NULL;
380
381	/* Find the appropriate object to transform... */
382	if ((item = find_transmution_ob (cauldron->inv, rp, &rp_arch_index, 1)) == NULL)
383	{
384	LOG (llevDebug, "make_alchemy_item(): failed to create alchemical object.\n");
385	return (object *) NULL;
386	}
387
388	/* Find the appropriate artifact template... */
389	if (rp->title != shstr_NONE)
390	{
391	if ((art = locate_recipe_artifact (rp, rp_arch_index)) == NULL)
392	{
393	LOG (llevError, "make_alchemy_item(): failed to locate recipe artifact.\n");
394	LOG (llevDebug, " --requested recipe: %s of %s.\n", rp->arch_name[0], &rp->title);
395	return (object *) NULL;
396	}
397
398	transmute_materialname (item, art->item);
399	give_artifact_abilities (item, art->item);
400	}
401
402	if (QUERY_FLAG (cauldron, FLAG_CURSED))
403	SET_FLAG (item, FLAG_CURSED);
404	if (QUERY_FLAG (cauldron, FLAG_DAMNED))
405	SET_FLAG (item, FLAG_DAMNED);
406
407	return item;
408	}
409
410
411	/**	360	/**
412	* Looks through the ingredient list. If we find a
413	* suitable object in it - we will use that to make the requested artifact.
414	* Otherwise the code returns a 'generic' item if create_item is set. -b.t.
415	*
416	* @param rp_arch_index pointer to return value; set to arch index for recipe;
417	* set to zero if not using a transmution formula
418	*/
419
420	object *
421	find_transmution_ob (object first_ingred, recipe rp, size_t * rp_arch_index, int create_item)
422	{
423	object *item = NULL;
424
425	*rp_arch_index = 0;
426
427	if (rp->transmute) /* look for matching ingredient/prod archs */
428	for (item = first_ingred; item; item = item->below)
429	{
430	int i;
431
432	for (int i = 0; i < rp->arch_names; i++)
433	//TODO: should be a shstr comparison
434	if (&item->arch->archname == rp->arch_name[i])
435	{
436	*rp_arch_index = i;
437	break;
438	}
439
440	if (i < rp->arch_names)
441	break;
442	}
443
444	/* failed, create a fresh object. Note no nrof>1 because that would
445	* allow players to create massive amounts of artifacts easily */
446	if (create_item && (!item \|\| item->nrof > 1))
447	{
448	*rp_arch_index = rndm (rp->arch_names);
449	item = get_archetype (rp->arch_name[*rp_arch_index]);
450	}
451
452	#ifdef ALCHEMY_DEBUG
453	LOG (llevDebug, "recipe calls for%stransmution.\n", rp->transmute ? " " : " no ");
454	if (item != NULL)
455	{
456	LOG (llevDebug, " find_transmutable_ob(): returns arch %s(sp:%d)\n", item->arch->name, item->stats.sp);
457	}
458	#endif
459
460	return item;
461	}
462
463
464	/**
465	* Ouch. We didnt get the formula we wanted.	361	* Ouch. We didnt get the formula we wanted.
466	* This fctn simulates the backfire effects--worse effects as the level	362	* This fctn simulates the backfire effects--worse effects as the level
467	* increases. If SPELL_FAILURE_EFFECTS is defined some really evil things	363	* increases. If SPELL_FAILURE_EFFECTS is defined some really evil things
468	* can happen to the would be alchemist. This table probably needs some	364	* can happen to the would be alchemist. This table probably needs some
469	* adjustment for playbalance. -b.t.	365	* adjustment for playbalance. -b.t.
470	*/	366	*/
471		367	static void
472	void
473	alchemy_failure_effect (object op, object cauldron, recipe *rp, int danger)	368	alchemy_failure_effect (object op, object cauldron, recipe *rp, int danger)
474	{	369	{
475	int level = 0;	370	int level = 0;
476		371
477	if (!op \|\| !cauldron)	372	if (!op \|\| !cauldron)
…		…
492	if (rndm (0, 2))	387	if (rndm (0, 2))
493	{ /* slag created */	388	{ /* slag created */
494	object *tmp = cauldron->inv;	389	object *tmp = cauldron->inv;
495	int weight = 0;	390	int weight = 0;
496		391
497	tmp = get_archetype ("rock");	392	tmp = archetype::get (shstr_rock);
498	tmp->weight = weight;	393	tmp->weight = weight;
499	tmp->value = 0;	394	tmp->value = 0;
500	tmp->materialname = "stone";	395	tmp->material = name_to_material (shstr_stone);
501	tmp->name = "slag";	396	tmp->name = shstr_slag;
502	tmp->name_pl = "slags";	397	tmp->name_pl = shstr_slags;
503	item = insert_ob_in_ob (tmp, cauldron);	398	item = insert_ob_in_ob (tmp, cauldron);
504	CLEAR_FLAG (tmp, FLAG_CAN_ROLL);	399	tmp->clr_flag (FLAG_CAN_ROLL);
505	CLEAR_FLAG (tmp, FLAG_NO_PICK);	400	tmp->set_flag (FLAG_NO_DROP);
506	tmp->move_block = 0;	401	tmp->move_block = 0;
507	}	402	}
508		403
509	remove_contents (cauldron->inv, item);	404	remove_contents (cauldron->inv, item);
510	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s %s.", &cauldron->name, cauldron_sound ());	405	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s %s.", &cauldron->name, cauldron_sound ());
…		…
518	if ((rp = get_random_recipe ((recipelist *) NULL)) == NULL)	413	if ((rp = get_random_recipe ((recipelist *) NULL)) == NULL)
519	return;	414	return;
520		415
521	if ((tmp = attempt_recipe (op, cauldron, 1, rp, -1)))	416	if ((tmp = attempt_recipe (op, cauldron, 1, rp, -1)))
522	{	417	{
523	if (!QUERY_FLAG (tmp, FLAG_CURSED)) /* curse it */	418	if (!tmp->flag [FLAG_CURSED]) /* curse it */
524	SET_FLAG (tmp, FLAG_CURSED);	419	tmp->set_flag (FLAG_CURSED);
525		420
526	/* the apply code for potions already deals with cursed	421	/* the apply code for potions already deals with cursed
527	* potions, so any code here is basically ignored.	422	* potions, so any code here is basically ignored.
528	*/	423	*/
529	if (tmp->type == FOOD)	424	if (tmp->type == FOOD)
…		…
548	int numb = numb_ob_inside (cauldron);	443	int numb = numb_ob_inside (cauldron);
549		444
550	fl = get_formulalist (numb - 1); /* take a lower recipe list */	445	fl = get_formulalist (numb - 1); /* take a lower recipe list */
551	if (fl && (rp = get_random_recipe (fl)))	446	if (fl && (rp = get_random_recipe (fl)))
552	/* even though random, don't grant user any EXP for it */	447	/* even though random, don't grant user any EXP for it */
553	(void) attempt_recipe (op, cauldron, 1, rp, -1);	448	attempt_recipe (op, cauldron, 1, rp, -1);
554	else	449	else
555	alchemy_failure_effect (op, cauldron, rp, level - 1);	450	alchemy_failure_effect (op, cauldron, rp, level - 1);
556	}	451	}
557	else if (level < 45)	452	else if (level < 45)
558	{ /* INFURIATE NPC's */	453	{ /* INFURIATE NPC's */
…		…
569		464
570	remove_contents (cauldron->inv, NULL);	465	remove_contents (cauldron->inv, NULL);
571	switch (rndm (0, 2))	466	switch (rndm (0, 2))
572	{	467	{
573	case 0:	468	case 0:
574	tmp = get_archetype ("bomb");	469	tmp = archetype::get (shstr_bomb);
575	tmp->stats.dam = random_roll (1, level, op, PREFER_LOW);	470	tmp->stats.dam = random_roll (1, level, op, PREFER_LOW);
576	tmp->stats.hp = random_roll (1, level, op, PREFER_LOW);	471	tmp->stats.hp = random_roll (1, level, op, PREFER_LOW);
577	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s creates a bomb!", &cauldron->name);	472	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s creates a bomb!", &cauldron->name);
578	break;	473	break;
579		474
580	default:	475	default:
581	tmp = get_archetype ("fireball");	476	tmp = archetype::get (shstr_fireball);
582	tmp->stats.dam = random_roll (1, level, op, PREFER_LOW) / 5 + 1;	477	tmp->stats.dam = random_roll (1, level, op, PREFER_LOW) / 5 + 1;
583	tmp->stats.hp = random_roll (1, level, op, PREFER_LOW) / 10 + 2;	478	tmp->stats.hp = random_roll (1, level, op, PREFER_LOW) / 10 + 2;
584	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s erupts in flame!", &cauldron->name);	479	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s erupts in flame!", &cauldron->name);
585	break;	480	break;
586	}	481	}
…		…
592	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s %s.", &cauldron->name, cauldron_sound ());	487	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s %s.", &cauldron->name, cauldron_sound ());
593	remove_contents (cauldron->inv, NULL);	488	remove_contents (cauldron->inv, NULL);
594	}	489	}
595	else if (level < 80)	490	else if (level < 80)
596	{ /* MAJOR FIRE */	491	{ /* MAJOR FIRE */
597	object *fb = get_archetype (SP_MED_FIREBALL);	492	object *fb = archetype::get (SP_MED_FIREBALL);
598		493
599	remove_contents (cauldron->inv, NULL);	494	remove_contents (cauldron->inv, NULL);
600	fire_arch_from_position (cauldron, cauldron, cauldron->x, cauldron->y, 0, fb);	495	fire_arch_from_position (cauldron, cauldron, cauldron->x, cauldron->y, 0, fb);
601	fb->destroy ();	496	fb->destroy ();
602	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s erupts in flame!", &cauldron->name);	497	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s erupts in flame!", &cauldron->name);
603	}	498	}
604	else if (level < 100)	499	else if (level < 100)
605	{ /* WHAMMY the CAULDRON */	500	{ /* WHAMMY the CAULDRON */
606	if (!QUERY_FLAG (cauldron, FLAG_CURSED))	501	if (!cauldron->flag [FLAG_CURSED])
607	SET_FLAG (cauldron, FLAG_CURSED);	502	cauldron->set_flag (FLAG_CURSED);
608	else	503	else
609	cauldron->magic--;	504	cauldron->magic--;
610		505
611	cauldron->magic -= random_roll (0, 4, op, PREFER_LOW);	506	cauldron->magic -= random_roll (0, 4, op, PREFER_LOW);
612		507
…		…
641	}	536	}
642	else if (level == 151)	537	else if (level == 151)
643	{ /* CREATE RANDOM ARTIFACT */	538	{ /* CREATE RANDOM ARTIFACT */
644	object *tmp;	539	object *tmp;
645		540
646	/* this is meant to be better than prior possiblity,	541	/* this is meant to be better than prior possiblity,
647	* in this one, we allow any valid alchemy artifact	542	* in this one, we allow any valid alchemy artifact
648	* to be made (rather than only those on the given	543	* to be made (rather than only those on the given
649	* formulalist) */	544	* formulalist) */
650	if (!rp)	545	if (!rp)
651	rp = get_random_recipe ((recipelist *) NULL);	546	rp = get_random_recipe ((recipelist *) NULL);
652		547
653	if (rp && (tmp = get_archetype (rp->arch_name [rndm (rp->arch_names)])))	548	if (rp && (tmp = archetype::get (rp->arch_name [rndm (rp->arch_names)])))
654	{	549	{
655	generate_artifact (tmp, random_roll (1, op->level / 2 + 1, op, PREFER_HIGH) + 1);	550	generate_artifact (tmp, random_roll (1, op->level / 2 + 1, op, PREFER_HIGH) + 1);
656	if ((tmp = insert_ob_in_ob (tmp, cauldron)))	551	if ((tmp = insert_ob_in_ob (tmp, cauldron)))
657	{	552	{
658	remove_contents (cauldron->inv, tmp);	553	remove_contents (cauldron->inv, tmp);
…		…
660	}	555	}
661	}	556	}
662	}	557	}
663	else	558	else
664	{ /* MANA STORM - watch out!! */	559	{ /* MANA STORM - watch out!! */
665	object *tmp = get_archetype (LOOSE_MANA);	560	object *tmp = archetype::get (LOOSE_MANA);
666		561
667	new_draw_info (NDI_UNIQUE, 0, op, "You unwisely release potent forces!");	562	new_draw_info (NDI_UNIQUE, 0, op, "You unwisely release potent forces!");
668	remove_contents (cauldron->inv, NULL);	563	remove_contents (cauldron->inv, NULL);
669	cast_magic_storm (op, tmp, level);	564	cast_magic_storm (op, tmp, level);
670	}
671	}
672
673	/*
674	* All but object "save_item" are elimentated from
675	* the container list. Note we have to becareful to remove the inventories
676	* of objects in the cauldron inventory (ex icecube has stuff in it).
677	*/
678	void
679	remove_contents (object first_ob, object save_item)
680	{
681	// this cries for a cleaner rewrite, removing save_item first possibly
682	object next, tmp = first_ob;
683
684	while (tmp)
685	{
686	next = tmp->below;
687
688	if (tmp == save_item)
689	{
690	if (!(tmp = next))
691	break;
692	else
693	next = next->below;
694	}
695
696	if (tmp->inv)
697	remove_contents (tmp->inv, NULL);
698
699	tmp->destroy ();
700	tmp = next;
701	}	565	}
702	}	566	}
703		567
704	/**	568	/**
705	*"Danger" level, will determine how bad the backfire	569	*"Danger" level, will determine how bad the backfire
706	* could be if the user fails to concoct a recipe properly. Factors include	570	* could be if the user fails to concoct a recipe properly. Factors include
707	* the number of ingredients, the length of the name of each ingredient,	571	* the number of ingredients, the length of the name of each ingredient,
708	* the user's effective level, the user's Int and the enchantment on the	572	* the user's effective level, the user's Int and the enchantment on the
709	* mixing device (aka "cauldron"). Higher values of 'danger' indicate more	573	* mixing device (aka "cauldron"). Higher values of 'danger' indicate more
710	* danger. Note that we assume that we have had the caster ready the alchemy	574	* danger. Note that we assume that we have had the caster ready the alchemy
711	* skill before this routine is called. (no longer auto-readies that skill)	575	* skill before this routine is called. (no longer auto-readies that skill)
712	* -b.t.	576	* -b.t.
713	*/	577	*/
714	int	578	static int
715	calc_alch_danger (object caster, object cauldron, recipe *rp)	579	calc_alch_danger (object caster, object cauldron, object skill, recipe rp)
716	{	580	{
717	object *item;
718	char name[MAX_BUF];
719	int danger = 0, nrofi = 0;	581	int danger = 0;
720		582
721	/* Knowing alchemy skill reduces yer risk */	583	/* Knowing alchemy skill reduces yer risk */
722	danger -= caster->chosen_skill ? caster->chosen_skill->level : caster->level;	584	danger -= skill->level;
723
724	if (!caster->chosen_skill)
725	LOG (llevError \| logBacktrace, "calc_alch_danger called without a chosen skill, caster %s, cauldron %s\n",
726	caster->debug_desc (), cauldron->debug_desc ());
727		585
728	/* better cauldrons reduce risk */	586	/* better cauldrons reduce risk */
729	danger -= cauldron->magic;	587	danger -= cauldron->magic;
730		588
731	/* Higher Int, lower the risk */	589	/* Higher Int, lower the risk */
…		…
733		591
734	/* Ingredients. Longer names usually mean rarer stuff.	592	/* Ingredients. Longer names usually mean rarer stuff.
735	* Thus the backfire is worse. Also, more ingredients	593	* Thus the backfire is worse. Also, more ingredients
736	* means we are attempting a more powerfull potion,	594	* means we are attempting a more powerfull potion,
737	* and thus the backfire will be worse. */	595	* and thus the backfire will be worse. */
738	for (item = cauldron->inv; item; item = item->below)	596	for (object *item = cauldron->inv; item; item = item->below)
739	{	597	{
740	assign (name, item->name);	598	const char *name = item->title
741	if (item->title)
742	sprintf (name, "%s %s", &item->name, &item->title);	599	? format ("%s %s", &item->name, &item->title)
		600	: &item->name;
		601
743	danger += (strtoint (name) / 1000) + 3;	602	danger += strtoint (name) / 1000 + 3;
744	nrofi++;
745	}	603	}
746		604
747	if (rp == NULL)	605	if (!rp)
748	danger += 110;	606	danger += 110;
749	else	607	else
750	danger += rp->diff * 3;	608	danger += rp->diff * 3;
751		609
752	/* Using a bad device is majorly stupid */	610	/* Using a bad device is majorly stupid */
753	if (QUERY_FLAG (cauldron, FLAG_CURSED))	611	if (cauldron->flag [FLAG_CURSED]) danger += 80;
754	danger += 80;	612	if (cauldron->flag [FLAG_DAMNED]) danger += 200;
755	if (QUERY_FLAG (cauldron, FLAG_DAMNED))
756	danger += 200;
757		613
758	#ifdef ALCHEMY_DEBUG	614	#ifdef ALCHEMY_DEBUG
759	LOG (llevDebug, "calc_alch_danger() returned danger=%d\n", danger);	615	LOG (llevDebug, "calc_alch_danger() returned danger=%d\n", danger);
760	#endif	616	#endif
761		617
…		…
881	{	737	{
882	/* check if recipe matches at all */	738	/* check if recipe matches at all */
883	if (formula % rp->index != 0)	739	if (formula % rp->index != 0)
884	{	740	{
885	#ifdef EXTREME_ALCHEMY_DEBUG	741	#ifdef EXTREME_ALCHEMY_DEBUG
886	LOG (llevDebug, " formula %s of %s (%d) does not match\n", rp->arch_name[0], rp->title, rp->index);	742	LOG (llevDebug, " formula %s of %s (%d) does not match\n", rp->arch_name[0], &rp->title, rp->index);
887	#endif	743	#endif
888	continue;	744	continue;
889	}	745	}
890		746
891	if (rp->transmute && find_transmution_ob (ingredients, rp, &rp_arch_index, 0) != NULL)	747	if (rp->transmute && find_transmution_ob (ingredients, rp, &rp_arch_index, 0) != NULL)
892	{	748	{
893	#ifdef EXTREME_ALCHEMY_DEBUG	749	#ifdef EXTREME_ALCHEMY_DEBUG
894	LOG (llevDebug, " formula %s of %s (%d) is a matching transmuting formula\n", rp->arch_name[rp_arch_index], rp->title, rp->index);	750	LOG (llevDebug, " formula %s of %s (%d) is a matching transmuting formula\n", rp->arch_name[rp_arch_index], &rp->title, rp->index);
895	#endif	751	#endif
896	/* transmution recipe with matching base ingredient */	752	/* transmution recipe with matching base ingredient */
897	if (!transmute_found)	753	if (!transmute_found)
898	{	754	{
899	transmute_found = 1;	755	transmute_found = 1;
…		…
901	}	757	}
902	}	758	}
903	else if (transmute_found)	759	else if (transmute_found)
904	{	760	{
905	#ifdef EXTREME_ALCHEMY_DEBUG	761	#ifdef EXTREME_ALCHEMY_DEBUG
906	LOG (llevDebug, " formula %s of %s (%d) matches but is not a matching transmuting formula\n", rp->arch_name[0], rp->title,	762	LOG (llevDebug, " formula %s of %s (%d) matches but is not a matching transmuting formula\n", rp->arch_name[0], &rp->title,
907	rp->index);	763	rp->index);
908	#endif	764	#endif
909	/* "normal" recipe found after previous transmution recipe => ignore this recipe */	765	/* "normal" recipe found after previous transmution recipe => ignore this recipe */
910	continue;	766	continue;
911	}	767	}
912	#ifdef EXTREME_ALCHEMY_DEBUG	768	#ifdef EXTREME_ALCHEMY_DEBUG
913	else	769	else
914	{	770	{
915	LOG (llevDebug, " formula %s of %s (%d) matches\n", rp->arch_name[0], rp->title, rp->index);	771	LOG (llevDebug, " formula %s of %s (%d) matches\n", rp->arch_name[0], &rp->title, rp->index);
916	}	772	}
917	#endif	773	#endif
918		774
919	if (rndm (0, recipes_matching) == 0)	775	if (rndm (0, recipes_matching) == 0)
920	result = rp;	776	result = rp;
…		…
930	return NULL;	786	return NULL;
931	}	787	}
932		788
933	#ifdef ALCHEMY_DEBUG	789	#ifdef ALCHEMY_DEBUG
934	if (strcmp (result->title, "NONE") != 0)	790	if (strcmp (result->title, "NONE") != 0)
935	LOG (llevDebug, "got formula: %s of %s (nbatches:%d)\n", result->arch_name[0], result->title, formula / result->index);	791	LOG (llevDebug, "got formula: %s of %s (nbatches:%d)\n", result->arch_name[0], &result->title, formula / result->index);
936	else	792	else
937	LOG (llevDebug, "got formula: %s (nbatches:%d)\n", result->arch_name[0], formula / result->index);	793	LOG (llevDebug, "got formula: %s (nbatches:%d)\n", result->arch_name[0], formula / result->index);
938	#endif	794	#endif
939	return result;	795	return result;
940	}	796	}
		797
		798	/**
		799	* Main part of the ALCHEMY code. From this we call fctns
		800	* that take a look at the contents of the 'cauldron' and, using these ingredients,
		801	* we construct an integer formula value which is referenced (randomly) against a
		802	* formula list (the formula list chosen is based on the # contents of the cauldron).
		803	*
		804	* If we get a match between the recipe indicated in cauldron contents and a
		805	* randomly chosen one, an item is created and experience awarded. Otherwise
		806	* various failure effects are possible (getting worse and worse w/ # cauldron
		807	* ingredients). Note that the 'item' to be made can be anything listed on
		808	* the artifacts list in lib/artifacts which has a recipe listed in lib/formulae.
		809	*
		810	* To those wondering why I am using the funky formula index method:
		811	* 1) I want to match recipe to ingredients regardless of ordering.
		812	* 2) I want a fast search for the 'right' recipe.
		813	*
		814	* Note: it is just possible that a totally different combination of
		815	* ingredients will result in a match with a given recipe. This is not a bug!
		816	* There is no good reason (in my mind) why alchemical processes have to be
		817	* unique -- such a 'feature' is one reason why players might want to experiment
		818	* around. :)
		819	* -b.t.
		820	*/
		821	void
		822	attempt_do_alchemy (object caster, object cauldron, object *skill)
		823	{
		824	recipelist *fl;
		825	recipe *rp = NULL;
		826	float success_chance;
		827	int numb, ability = 1;
		828	int formula = 0;
		829	float ave_chance;
		830	object *item;
		831
		832	if (caster->type != PLAYER)
		833	return; /* only players for now */
		834
		835	if (get_map_flags (caster->map, NULL, caster->x, caster->y, NULL, NULL) & P_SAFE)
		836	{
		837	new_draw_info (NDI_UNIQUE, 0, caster, "This is sacred ground, the gods prevent you from using this device.");
		838	return;
		839	}
		840
		841	/* if no ingredients, no formula! lets forget it */
		842	if (!(formula = content_recipe_value (cauldron)))
		843	return;
		844
		845	numb = numb_ob_inside (cauldron);
		846	if ((fl = get_formulalist (numb)))
		847	{
		848	if (caster->flag [FLAG_WIZ])
		849	{
		850	rp = find_recipe (fl, formula, cauldron->inv);
		851	if (rp != NULL)
		852	{
		853	#ifdef ALCHEMY_DEBUG
		854	if (strcmp (rp->title, "NONE"))
		855	LOG (llevDebug, "WIZ got formula: %s of %s\n", rp->arch_name[0], &rp->title);
		856	else
		857	LOG (llevDebug, "WIZ got formula: %s (nbatches:%d)\n", rp->arch_name[0], formula / rp->index);
		858	#endif
		859	attempt_recipe (caster, cauldron, ability, rp, formula / rp->index);
		860	}
		861	else
		862	LOG (llevDebug, "WIZ couldn't find formula for ingredients.\n");
		863	return;
		864	} /* End of WIZ alchemy */
		865
		866	/* find the recipe */
		867	rp = find_recipe (fl, formula, cauldron->inv);
		868	if (rp
		869	&& rp->skill == skill->skill
		870	&& (!rp->cauldron
		871	\|\| rp->cauldron == cauldron->arch->archname))
		872	{
		873	uint64 value_ingredients;
		874	uint64 value_item;
		875	object *tmp;
		876	int attempt_shadow_alchemy;
		877
		878	ave_chance = fl->total_chance / (float)fl->number;
		879
		880	ability += skill->level * ((4.0 + cauldron->magic) / 4.0);
		881
		882	/* determine value of ingredients */
		883	value_ingredients = 0;
		884	for (tmp = cauldron->inv; tmp; tmp = tmp->below)
		885	value_ingredients += query_cost (tmp, NULL, F_TRUE);
		886
		887	attempt_shadow_alchemy = !is_defined_recipe (rp, cauldron, caster);
		888
		889	/* create the object FIRST, then decide whether to keep it. */
		890	if ((item = attempt_recipe (caster, cauldron, ability, rp, formula / rp->index)) != NULL)
		891	{
		892	/* compute base chance of recipe success */
		893	success_chance = ((float)ability / (float)(rp->diff * (item->level + 2)));
		894	if (ave_chance == 0)
		895	ave_chance = 1;
		896
		897	#ifdef ALCHEMY_DEBUG
		898	LOG (llevDebug, "percent success chance = %f ab%d / diff%d*lev%d\n", success_chance, ability, rp->diff, item->level);
		899	#endif
		900
		901	value_item = query_cost (item, NULL, F_TRUE \| F_IDENTIFIED \| F_NOT_CURSED);
		902	if (attempt_shadow_alchemy && value_item > value_ingredients)
		903	{
		904	#ifdef ALCHEMY_DEBUG
		905	LOG (llevDebug,
		906	"Forcing failure for shadow alchemy recipe because price of ingredients (%llu) is less than price of result (%llu).\n",
		907	value_ingredients, value_item);
		908	#endif
		909	}
		910	/* roll the dice */
		911	else if (random_roll (0, 101, caster, PREFER_LOW) <= 100.0 * success_chance)
		912	{
		913	change_exp (caster, rp->exp, rp->skill, SK_EXP_NONE);
		914
		915	// let alchemy consume some time, so that exploits are less easy
		916	caster->speed_left -= 1.0;
		917
		918	return;
		919	}
		920	}
		921	}
		922	}
		923
		924	/* if we get here, we failed!! */
		925	alchemy_failure_effect (caster, cauldron, rp, calc_alch_danger (caster, cauldron, skill, rp));
		926	}
		927

Diff Legend

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

Comparing deliantra/server/server/alchemy.C (file contents): Revision 1.35 by elmex, Sun Jan 4 16:30:39 2009 UTC vs. Revision 1.63 by root, Sun Jan 29 02:47:05 2017 UTC

Diff Legend

Comparing deliantra/server/server/alchemy.C (file contents):
Revision 1.35 by elmex, Sun Jan 4 16:30:39 2009 UTC vs.
Revision 1.63 by root, Sun Jan 29 02:47:05 2017 UTC