/* 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 = fopen (buf, "w")))
	{
                sprintf(buf2,"Could not open file %s in order to save.", buf );
                bug (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 */
	fclose (fp);
}



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 );
                bug (buf2, 0);
                return;
	}

//#if defined(SKYN_DEBUG)
    //log_string("In Load_class");
//#endif 

	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);
			bug (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)
  //  bug("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;
    }    */

}