/***************************************************************************
* 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"
LEADER_BOARD leader_board;
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_polls()
{
POLL_DATA *poll;
FILE *fp;
char *name;
int i;
if ((fp = fopen("../txt/votes.txt", "r")) == NULL)
{
log_string("Non-fatal error: votes.txt not found!");
return;
}
name = fread_word(fp);
while (str_cmp(name, END_MARKER))
{
poll = alloc_perm(sizeof(POLL_DATA));
poll->name = str_dup(name);
poll->expire = fread_number(fp);
for (i = 0; i < MAX_VOTE_OPTIONS; i++)
{
poll->options[i] = fread_string(fp);
poll->vcount[i] = fread_number(fp);
}
load_subvotes(poll);
poll->next = poll_list;
poll_list = poll;
name = fread_word(fp);
}
fclose(fp);
}
void load_subvotes(POLL_DATA *poll)
{
FILE *fp;
VOTE_DATA *vote;
char strsave[200];
char *name;
sprintf(strsave, "../votes/%s", poll->name);
if ((fp = fopen(strsave, "r")) == NULL)
{
log_string("Fatal error: vote file not found!");
exit(1);
}
name = fread_word(fp);
while (str_cmp(name, END_MARKER))
{
vote = alloc_perm(sizeof(VOTE_DATA));
vote->pname = str_dup(name);
vote->phost = fread_string(fp);
vote->choice = fread_number(fp);
vote->next = poll->votes;
poll->votes = vote;
name = fread_word(fp);
}
fclose(fp);
}
void save_polls()
{
FILE *fp;
POLL_DATA *poll;
int i;
if ((fp = fopen("../txt/votes.txt", "w")) == NULL)
{
log_string("Non-fatal error: could not save votes.txt!");
return;
}
for (poll = poll_list; poll; poll = poll->next)
{
fprintf(fp, "%s\n", poll->name);
fprintf(fp, "%ld\n", poll->expire);
for (i = 0; i < MAX_VOTE_OPTIONS; i++)
{
fprintf(fp, "%s~\n", poll->options[i]);
fprintf(fp, "%d\n", poll->vcount[i]);
}
}
fprintf(fp, "%s\n", END_MARKER);
fclose(fp);
}
void save_subvotes(POLL_DATA *poll)
{
FILE *fp;
VOTE_DATA *vote;
char strsave[200];
sprintf(strsave, "../votes/%s", poll->name);
if ((fp = fopen(strsave, "w")) == NULL)
{
log_string("Non-fatal error: could not save vote file!");
return;
}
for (vote = poll->votes; vote; vote = vote->next)
{
fprintf(fp, "%-12s %-40s~ %2d\n", vote->pname, vote->phost, vote->choice);
}
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);
}
void load_changes()
{
CHANGE_DATA *change;
FILE *fp;
char *name;
if ((fp = fopen("../txt/changes.txt", "r")) == NULL)
{
log_string("Non-fatal error: changes.txt not found!");
return;
}
name = fread_word(fp);
while (str_cmp(name, END_MARKER))
{
change = alloc_perm(sizeof(CHANGE_DATA));
change->imm = str_dup(name);
change->date = fread_string(fp);
change->text = fread_string(fp);
if (change_list)
change_list->prev = change;
change->next = change_list;
change_list = change;
if (!change_last) change_last = change;
name = fread_word(fp);
}
fclose(fp);
}
void save_changes()
{
FILE *fp;
CHANGE_DATA *change;
int i = 0;
if ((fp = fopen("../txt/changes.txt","w")) == NULL)
{
log_string("Error writing to changes.txt");
return;
}
for (change = change_last; change; change = change->prev)
{
if (++i > MAX_CHANGE) break;
fprintf(fp, "%s\n", change->imm);
fprintf(fp, "%s~\n", change->date);
fprintf(fp, "%s~\n", change->text);
}
fprintf(fp, "%s\n", END_MARKER);
fclose(fp);
}
ACCOUNT_DATA *load_account(char *name)
{
ACCOUNT_DATA *account = NULL;
FILE *fp;
char pfile[256];
char *word;
bool done = FALSE, found;
/* open the account so we can read from it */
sprintf(pfile, "../accounts/%s/account.dat", capitalize(name));
if ((fp = fopen(pfile, "r")) == NULL)
return NULL;
/* create new account data */
account = alloc_account();
/* load data */
word = fread_word(fp);
while (!done)
{
found = FALSE;
switch (word[0])
{
case 'D':
IREAD( "Denied", account->denied );
break;
case 'E':
if (!str_cmp(word, "EOF")) {done = TRUE; found = TRUE; break;}
break;
case 'L':
IREAD( "Level", account->level );
break;
case 'O':
SREAD( "Owner", account->owner );
break;
case 'P':
SREAD( "Password", account->password );
IREAD( "PCount", account->p_count );
SREAD( "Players", account->players );
break;
}
if (!found)
{
char buf[MAX_STRING_LENGTH];
sprintf(buf, "Load_account: unexpected '%s' in /%s/account.dat.", word, name);
bug(buf, 0);
close_account(account);
return NULL;
}
/* read one more */
if (!done) word = fread_word(fp);
}
fclose(fp);
return account;
}
void save_account(ACCOUNT_DATA *account)
{
FILE *fp;
char pfile[256];
/* open the account file so we can write to it */
sprintf(pfile, "../accounts/%s/account.dat", account->owner);
if ((fp = fopen(pfile, "w")) == NULL)
{
char buf[MAX_STRING_LENGTH];
sprintf(buf, "Unable to write to %s's account file", account->owner);
bug(buf, 0);
return;
}
/* save the account data */
fprintf(fp, "Denied %ld\n", account->denied );
fprintf(fp, "Level %d\n", account->level );
fprintf(fp, "Owner %s~\n", account->owner );
fprintf(fp, "Password %s~\n", account->password );
fprintf(fp, "PCount %d\n", account->p_count );
fprintf(fp, "Players %s~\n", account->players );
/* terminate the file */
fprintf(fp, "EOF\n");
fclose(fp);
}