/*
 *	Item generator 2, a simpler approch to the creation system
 */

#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "interp.h"
#include "magic.h"
#include "recycle.h"
#include "tables.h"

OBJ_DATA *
gen_ring_relic (OBJ_DATA * obj, int level)
{
	int ring_type = number_range(1, 2);
	char name_set[MSL];
	char shor_set[MSL];
	char long_set[MSL];
	obj = create_object (get_obj_index (923), 0);

	switch(ring_type)
	{	default:
		case 1:
		sprintf(name_set, "relic red demonic ring");
		sprintf(shor_set, "a red demonic ring");
		sprintf(long_set, "a red demonic ring is on the ground here");
		obj->name        = str_dup (name_set);
		obj->short_descr = str_dup (shor_set);
		obj->description  = str_dup (long_set);

		gen_util_relic_res_fire(obj, 4);
		gen_util_relic_res_cold(obj, 4);
		gen_util_relic_res_holy(obj, 4);
		gen_util_relic_res_negi(obj, 4);
		gen_util_relic_res_pierce(obj, 4);
		gen_util_relic_res_slash(obj, 4);
		gen_util_relic_res_bash(obj, 4);
		gen_util_relic_res_magic(obj, 4);
		gen_util_relic_saves(obj, -5);
		break;

		case 2:
		sprintf(name_set, "relic black demonic ring");
		sprintf(shor_set, "a black demonic ring");
		sprintf(long_set, "a black demonic ring is on the ground here");
		obj->name        = str_dup (name_set);
		obj->short_descr = str_dup (shor_set);
		obj->description  = str_dup (long_set);

		gen_util_relic_force(obj, 1);
		gen_util_relic_speed(obj, 1);
		gen_util_relic_luck(obj, 1);
		gen_util_relic_resil(obj, 1);
		gen_util_relic_intui(obj, 1);
		gen_util_relic_saves(obj, -5);
		break;
	}
	return(obj);
}



OBJ_DATA *
gen_ammy_relic (OBJ_DATA * obj, int level)
{
	int ring_type = number_range(1, 2);
	char name_set[MSL];
	char shor_set[MSL];
	char long_set[MSL];
	obj = create_object (get_obj_index (924), 0);

	switch(ring_type)
	{	default:
		case 1:
		sprintf(name_set, "relic black drow amulet");
		sprintf(shor_set, "a blackened drow amulet");
		sprintf(long_set, "a blackened drow amulet is on the ground here");
		obj->name        = str_dup (name_set);
		obj->short_descr = str_dup (shor_set);
		obj->description  = str_dup (long_set);

		gen_util_relic_res_fire(obj, 8);
		gen_util_relic_res_cold(obj, 8);
		gen_util_relic_res_holy(obj, 8);
		gen_util_relic_res_negi(obj, 8);
		gen_util_relic_saves(obj, -5);
		break;

		case 2:
		sprintf(name_set, "relic Unholy symbol");
		sprintf(shor_set, "an Unholy symbol");
		sprintf(long_set, "an Unholy symbol is on the ground here");
		obj->name        = str_dup (name_set);
		obj->short_descr = str_dup (shor_set);
		obj->description  = str_dup (long_set);

		gen_util_relic_intui(obj, 2);
		gen_util_relic_res_holy(obj, 10);
		gen_util_relic_hitpoint(obj, 100);
		gen_util_relic_mana(obj, 100);
		break;
	}
	return(obj);
}