/* Online setting of skill/spell levels, 
 * (c) 1996 Erwin S. Andreasen <erwin@pip.dknet.dk>
 *
 */

#include "include.h" /* This includes all the usual include files */

/* 

 Class table levels loading/saving

 */

/* Save this class */
void save_class(int num)
{
	FILE *fp;
	char buf[MAX_STRING_LENGTH], buf2[MAX_STRING_LENGTH];
	int lev, i;

	int rtng = 0;

	sprintf(buf, "%sclasses/%s", DATA_DIR, class_table[num].name);

	if (!(fp = get_temp_file()))
	{
		sprintf(buf2, "Could not open file %s in order to save.", buf);
		printf_debug(buf2, 0);
		return;
	}

	for (lev = 0; lev < MAX_LEVEL; lev++)
		for (i = 0; i < MAX_SKILL; i++)
		{
			if (!skill_table[i].name || !skill_table[i].name[0])
				continue;

			rtng = skill_table[i].rating[num];
			if (skill_table[i].skill_level[num] == lev)
				fprintf(fp, "%d %d %s\n", lev, rtng, skill_table[i].name);
		}

	fprintf(fp, "-1"); /* EOF -1 */
	close_write_file(buf);
}

void save_classes()
{
	int i;

	for (i = 0; i < MAX_CLASS; i++)
		save_class(i);
}

/* Load a class */
void load_class(int num)
{
	char buf[MAX_STRING_LENGTH], buf2[MAX_STRING_LENGTH];
	int level, n, rtng;
	FILE *fp;

	sprintf(buf, "%sclasses/%s", DATA_DIR, class_table[num].name);

	if (!(fp = fopen(buf, "r")))
	{
		sprintf(buf2, "Could not open file %s in order to save.", buf);
		printf_debug(buf2, 0);
		return;
	}

	fscanf(fp, "%d", &level);
	while (level != -1)
	{
		fscanf(fp, " %d", &rtng);

		fscanf(fp, " %[^\n]\n", buf); /* read name of skill into buf - problems here Marduk */

		n = skill_lookup(buf); /* find index */

		if (n == -1)
		{
			char buf2[200];
			sprintf(buf2, "Class %s: unknown spell %s", class_table[num].name,
					buf);
			printf_debug(buf2, 0);
		}
		else
			skill_table[n].skill_level[num] = level;
		skill_table[n].rating[num] = rtng;

		fscanf(fp, "%d", &level);
	}

	fclose(fp);
}

void load_classes()
{
	int i, j;

	for (i = 0; i < MAX_CLASS; i++)
	{
		for (j = 0; j < MAX_SKILL; j++)
			skill_table[j].skill_level[i] = MAX_LEVEL;
		//#if defined(SKYN_DEBUG)
		//  printf_debug("Loading %d class", i);
		//#endif

		load_class(i);
	}
}

void do_modskill(CHAR_DATA *ch, char * argument)
{
	char classarg[MIL], skillarg[MIL], levelarg[MIL], rtngarg[MIL];
	int sn, level, class_no, rtng; /* temp; */
	char buf[MSL], lvl[MSL];
	/* CHAR_DATA *wch; not used anymore */

	argument = one_argument(argument, classarg);
	argument = one_argument(argument, skillarg);
	argument = one_argument(argument, levelarg);
	argument = one_argument(argument, rtngarg);

	if (classarg[0] == '\0' || skillarg[0] == '\0' || levelarg[0] == '\0'
			|| rtngarg[0] == '\0')
	{
		send_to_char("Syntax is: SKILL <class> <skill> <level> <rating>.\n\r",
				ch);
		return;
	}

	level = atoi(levelarg);
	rtng = atoi(rtngarg);

	if (!is_number(levelarg) || level < 0 || level > MAX_LEVEL)
	{
		strcpy(buf, "Level range is from 0 to 110.\n\r");
		send_to_char(buf, ch);
		return;
	}

	if (!is_number(rtngarg) || rtng < 0)
	{
		strcpy(buf, "Rating must be a number above zero.\n\r");
		send_to_char(buf, ch);
		return;
	}

	if ((sn = skill_lookup(skillarg)) == -1)
	{
		strcpy(buf, "There is no such spell/skill as ");
		strcat(buf, skillarg);
		strcat(buf, ".\n\r");
		send_to_char(buf, ch);
		return;
	}

	for (class_no = 0; class_no < MAX_CLASS; class_no++)
		if (!str_cmp(classarg, class_table[class_no].who_name))
			break;

	if (class_no == MAX_CLASS)
	{
		strcpy(buf, "No class named '");
		strcat(buf, classarg);
		strcat(buf, "' exists. Use the 3-letter WHO names");
		strcat(buf, "(Psi, Mag etc.)\n\r");
		send_to_char(buf, ch);
		return;
	}

	skill_table[sn].skill_level[class_no] = level;
	skill_table[sn].rating[class_no] = rtng;
	strcpy(buf, "OK, ");
	strcat(buf, class_table[class_no].name);
	strcat(buf, "'s will now gain ");
	strcat(buf, skill_table[sn].name);
	strcat(buf, " at level ");
	sprintf(lvl, "%d", level);
	strcat(buf, lvl);
	strcat(buf, level > 101 ? " (i.e. never)" : "");
	send_to_char(buf, ch);
	save_classes();

	// Check online players and reassign
	/*   for ( wch = char_list; wch != NULL; wch = wch->next )
	 {
	 if(IS_NPC(wch))
	 continue;

	 if(wch->class == class_no)
	 {
	 for(temp = 0; temp < MAX_SKILL; temp++)
	 {
	 if(has_skill(wch,temp) && !class_has_skill(wch->class,temp))
	 lose_skill(wch,temp);
	 if(class_has_skill(wch->class,temp) &&
	 !has_skill(wch,temp) && has_gain(ch,temp))
	 gain_skill(wch,temp);
	 if(class_has_skill(wch->class,temp) && !has_skill(wch,temp)
	 && !has_gain(wch,temp))
	 gain_skill_gain(wch,temp);
	 }
	 }
	 else
	 continue;
	 }    */

}