/***************************************************************************
 *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
 *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
 *                                                                         *
 *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
 *  Chastain, Michael Quan, and Mitchell Tse.                              *
 *                                                                         *
 *  In order to use any part of this Merc Diku Mud, you must comply with   *
 *  both the original Diku license in 'license.doc' as well the Merc       *
 *  license in 'license.txt'.  In particular, you may not remove either of *
 *  these copyright notices.                                               *
 *                                                                         *
 *  Dystopia Mud improvements copyright (C) 2000, 2001 by Brian Graversen  *
 *                                                                         *
 *  Much time and thought has gone into this software and you are          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 ***************************************************************************/

#include <sys/types.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>

#include "merc.h"


void load_leaderboard()
{
  FILE *fp;

  if ((fp = fopen("../txt/leader.txt", "r")) == NULL)
  {   
    log_string("Error: leader.txt not found!");
    exit(1);
  }
  leader_board.pk_name         = fread_string(fp);
  leader_board.pk_number       = fread_number(fp);
  leader_board.time_name       = fread_string(fp);
  leader_board.time_number     = fread_number(fp);
  leader_board.quest_name      = fread_string(fp);
  leader_board.quest_number    = fread_number(fp);
  leader_board.mobkills_name   = fread_string(fp);
  leader_board.mobkills_number = fread_number(fp);
  leader_board.pkscore_name    = fread_string(fp);
  leader_board.pkscore_number  = fread_number(fp);
  leader_board.arena_name      = fread_string(fp);
  leader_board.arena_number    = fread_number(fp);
  fclose(fp);
}

void save_leaderboard()
{
  FILE *fp;

  if ((fp = fopen("../txt/leader.txt","w")) == NULL)
  {
    log_string("Error writing to leader.txt");
    return;
  }
  fprintf(fp, "%s~\n", leader_board.pk_name); 
  fprintf(fp, "%d\n",  leader_board.pk_number);
  fprintf(fp, "%s~\n", leader_board.time_name); 
  fprintf(fp, "%d\n",  leader_board.time_number);
  fprintf(fp, "%s~\n", leader_board.quest_name); 
  fprintf(fp, "%d\n",  leader_board.quest_number);
  fprintf(fp, "%s~\n", leader_board.mobkills_name); 
  fprintf(fp, "%d\n",  leader_board.mobkills_number);
  fprintf(fp, "%s~\n", leader_board.pkscore_name); 
  fprintf(fp, "%d\n",  leader_board.pkscore_number);
  fprintf(fp, "%s~\n", leader_board.arena_name);
  fprintf(fp, "%d\n",  leader_board.arena_number);
  fclose (fp);
}

void check_leaderboard( CHAR_DATA *ch )
{
  bool changed = FALSE;

  if (IS_NPC(ch)) return;
  if (ch->level > 6) return;
  if (get_ratio(ch) > leader_board.pkscore_number || !str_cmp(leader_board.pkscore_name, ch->name))
  {
    leader_board.pkscore_number = get_ratio(ch);
    free_string(leader_board.pkscore_name);
    leader_board.pkscore_name = str_dup(ch->name);
    changed = TRUE;
  }
  if (ch->mkill > leader_board.mobkills_number)
  {
    leader_board.mobkills_number = ch->mkill;
    free_string(leader_board.mobkills_name);
    leader_board.mobkills_name = str_dup(ch->name);
    changed = TRUE;
  }
  if (ch->pkill > leader_board.pk_number)
  {
    leader_board.pk_number = ch->pkill;
    free_string(leader_board.pk_name);
    leader_board.pk_name = str_dup(ch->name);
    changed = TRUE;
  }
  if (ch->pcdata->questtotal > leader_board.quest_number)
  {
    leader_board.quest_number = ch->pcdata->questtotal;
    free_string(leader_board.quest_name);
    leader_board.quest_name = str_dup(ch->name);
    changed = TRUE;
  }
  if ((get_age(ch)-17) * 2 > leader_board.time_number)
  {
    leader_board.time_number = (get_age(ch) - 17) * 2;
    free_string(leader_board.time_name);
    leader_board.time_name = str_dup(ch->name);
    changed = TRUE;
  }
  if (ch->pcdata->awins > leader_board.arena_number)
  {
    leader_board.arena_number = ch->pcdata->awins;
    free_string(leader_board.arena_name);
    leader_board.arena_name = str_dup(ch->name);
    changed = TRUE;
  }
  if (changed) save_leaderboard();
  return;
}

void load_mudinfo()
{
  FILE *fp;
  int i;

  if ((fp = fopen("../txt/mudinfo.txt", "r")) == NULL)
  {
    log_string("Error: mudinfo.txt not found!");
    exit(1);
  }

  for (i = 0; i < (MUDINFO_MAX - 2); i++)
  {
    mudinfo[i] = fread_number(fp);
  }
  mudinfo[MUDINFO_MAX - 2] = 0;
  mudinfo[MUDINFO_MAX - 1] = 0;
  fclose(fp);
}

void load_ccenter()
{
  FILE *fp;
  int i;

  if ((fp = fopen("../txt/ccenter.txt", "r")) == NULL)
  {
    log_string("Error: ccenter.txt not found!");
    exit(1);
  }
  for (i = 0; i < CCENTER_MAX; i++)
  {
    ccenter[i] = fread_number(fp);
  }
  fclose(fp);
}

void save_ccenter()
{
  FILE *fp;
  int i;

  if ((fp = fopen("../txt/ccenter.txt", "w")) == NULL)
  {
    bug("could not write to ccenter.txt!", 0);
    return;
  }
  for (i = 0; i < CCENTER_MAX; i++)
  {
    fprintf(fp, "%d\n", ccenter[i]);
  }
  fclose(fp);
}

void write_mudinfo_database()
{
  FILE *fp;
  int ratio, mspusers, avusers, a, b, c;

  if ((fp = fopen("../txt/mud_data.txt","a")) == NULL)
  {
    log_string("Error writing to mud_data.txt");
    return;
  }

  /* Calculate the ratio of users that use msp */
  mspusers =
    (100 * mudinfo[MUDINFO_MSP_USERS] /
    (mudinfo[MUDINFO_MCCP_USERS] +
     mudinfo[MUDINFO_OTHER_USERS]));

  /* Calculate the ratio of users that use mccp */
  ratio =
    (100 * mudinfo[MUDINFO_MCCP_USERS] /
    (mudinfo[MUDINFO_MCCP_USERS] +
     mudinfo[MUDINFO_OTHER_USERS]));

  /* Calculate the amount of average players online */
  avusers =
    (mudinfo[MUDINFO_MCCP_USERS] +  
     mudinfo[MUDINFO_OTHER_USERS]) /
     mudinfo[MUDINFO_UPDATED];

  /* Calculate the average tranfer rate in kbyte */
  a = mudinfo[MUDINFO_MBYTE] * 1024 + mudinfo[MUDINFO_BYTE] / 1024;
  b = a / (mudinfo[MUDINFO_UPDATED] * 3);
  c = b / 10;
  c = c * 10;
  c = b - c;

  /* Append it all to the file */
  fprintf(fp, "\nMudinfo Database Entry\n");
  fprintf(fp, "Average Online Users       %d\n", avusers);
  fprintf(fp, "Peak Users Online          %d\n", mudinfo[MUDINFO_PEAK_USERS]);
  fprintf(fp, "Mccp Ratio                 %d %%\n", ratio);
  fprintf(fp, "MSP Ratio                  %d %%\n", mspusers);
  fprintf(fp, "Amount of MB send          %d MB\n", mudinfo[MUDINFO_MBYTE]);
  fprintf(fp, "Datatransfer Average       %d.%d\n", b/10, c);

  /* Calculating the peak transfer rate */
  b =  mudinfo[MUDINFO_DATA_PEAK] / (3 * 1024);
  c = b / 10;
  c = c * 10;
  c = b - c;

  fprintf(fp, "Datatransfer Peak          %d.%d\n", b/10, c);

  fclose(fp);
}

void save_mudinfo()
{
  FILE *fp;
  int i;

  if ((fp = fopen("../txt/mudinfo.txt","w")) == NULL)
  {
    log_string("Error writing to mudinfo.txt");
    return;
  }
  for (i = 0; i < (MUDINFO_MAX - 2); i++)
  {
    fprintf(fp, "%d\n", mudinfo[i]);
  }
  fclose(fp);
}

void load_coreinfo()
{
  FILE *fp;

  if ((fp = fopen("../txt/coreinfo.txt", "r")) == NULL)
  {
    log_string("Error: coreinfo.txt not found!");
    exit(1);
  }

  top_playerid = fread_number(fp);

  fclose(fp);
}

void save_coreinfo()
{
  FILE *fp;
  int i;

  for (i = 0; i < 2; i++)
  {
    if (i == 0)
    {
      if ((fp = fopen("../txt/coreinfo.bck","w")) == NULL)
      {
        log_string("Error writing to coreinfo.bck");
        return;
      }
    }
    else
    {
      if ((fp = fopen("../txt/coreinfo.txt","w")) == NULL)
      {
        log_string("Error writing to coreinfo.txt");
        return;
      }
    }

    fprintf(fp, "%d\n", top_playerid);
    fclose(fp);
  }
}

void load_newbiebans()
{
  FILE *fp;
  BAN_DATA *p;
  char *name;

  newbieban_list = NULL;
  fp = fopen (NEWBIEBAN_LIST, "r");
  if (!fp) return;
  name = fread_word(fp);
  while (str_cmp(name, END_MARKER))
  {
    p = alloc_mem(sizeof(BAN_DATA));
    p->name = str_dup(name);
    p->reason = fread_string(fp);
    p->next = newbieban_list;
    newbieban_list = p;
    name = fread_word(fp);
  }
  fclose(fp);
}

void save_newbiebans()
{
  FILE *fp;
  BAN_DATA *p;

  if (!newbieban_list)
  {
    unlink (BAN_LIST);
    return;
  }
  fp = fopen (NEWBIEBAN_LIST, "w");
  if (!fp)
  {
    bug("could not open newban.txt",0);
    return;
  }
  for (p = newbieban_list; p; p = p->next)
  {
    fprintf(fp, "%s\n", p->name);
    fprintf(fp, "%s~\n", p->reason);
  }
  fprintf (fp, "%s\n",END_MARKER);
  fclose (fp); 
}



void load_bans()
{
  FILE *fp;
  BAN_DATA *p;
  char *name;

  ban_list = NULL;
  fp = fopen (BAN_LIST, "r");
  if (!fp) return;

  name = fread_word(fp);
  while (str_cmp(name, END_MARKER))
  {
    p = alloc_mem(sizeof(BAN_DATA));
    p->name = str_dup(name);
    p->reason = fread_string(fp);
    p->next = ban_list;
    ban_list = p;
    name = fread_word(fp);
  }
  fclose(fp); 
}

void save_bans()
{        
  FILE *fp;
  BAN_DATA *p;

  if (!ban_list)
  {
    unlink (BAN_LIST);
    return;
  }
  if ((fp = fopen(BAN_LIST, "w")) == NULL)
  {
    bug("could not open ban.txt",0);
    return;
  }
  for (p = ban_list; p; p = p->next)
  {
    fprintf(fp, "%s\n", p->name);
    fprintf(fp, "%s~\n", p->reason);
  }
  fprintf (fp, "%s\n",END_MARKER);
  fclose (fp);
}