/****************************************************************************
* [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame | \\._.// *
* -----------------------------------------------------------| (0...0) *
* SMAUG 1.4 (C) 1994, 1995, 1996, 1998 by Derek Snider | ).:.( *
* -----------------------------------------------------------| {o o} *
* SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, | / ' ' \ *
* Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek, |~'~.VxvxV.~'~*
* Tricops and Fireblade | *
* ------------------------------------------------------------------------ *
* Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* ------------------------------------------------------------------------ *
* Colorize module by Altrag *
****************************************************************************/
#include <sys/types.h>
#include <stdio.h>
#include <time.h>
#include "mud.h"
struct at_color_type at_color_table[AT_MAXCOLOR];
void load_colors( void )
{
extern char strArea[MAX_INPUT_LENGTH];
extern FILE *fpArea;
char buf[20];
int at;
for (at = 0; at < AT_MAXCOLOR; ++at)
{
sprintf(buf, "%d", at);
at_color_table[at].name = str_dup(buf);
at_color_table[at].def_color = AT_GREY;
}
strcpy(strArea, COLOR_FILE);
if (!(fpArea = fopen(COLOR_FILE, "r")))
{
bug("Load_colors: can't open color file -- bland city time!");
return;
}
for (;;)
{
at = (feof(fpArea) ? -1 : fread_number(fpArea));
if (at < 0)
break;
if (at < AT_COLORBASE || at >= AT_TOPCOLOR)
{
bug("Load_colors: color %d invalid.", at);
fread_to_eol(fpArea);
continue;
}
at -= AT_COLORBASE;
DISPOSE(at_color_table[at].name);
at_color_table[at].name = fread_string_nohash(fpArea);
at_color_table[at].def_color = fread_number(fpArea);
}
fclose(fpArea);
fpArea = NULL;
return;
}
void save_colors( void )
{
FILE *fp;
int at;
fclose(fpReserve);
if (!(fp = fopen(COLOR_FILE, "w")))
{
bug("Save_colors: can't open color file.");
fpReserve = fopen(NULL_FILE, "r");
return;
}
for (at = 0; at < AT_MAXCOLOR; ++at)
fprintf(fp, "%d %s~ %d\n", at+AT_COLORBASE, at_color_table[at].name,
at_color_table[at].def_color);
fprintf(fp, "-1\n");
fclose(fp);
fpReserve = fopen(NULL_FILE, "r");
return;
}
void do_colorize( CHAR_DATA *ch, char *argument )
{
#define MAX_COLOR 16
static const char colors[MAX_COLOR] = "xrgObpcwzRGYBPCW";
static const char *color_names[MAX_COLOR] =
{ "black", "blood", "dgreen", "orange", "dblue", "purple", "cyan",
"grey", "dgrey", "red", "green", "yellow", "blue", "pink", "lblue",
"white" };
char arg[MAX_INPUT_LENGTH], *a;
int color;
int at;
bool blink = FALSE;
CHAR_DATA *victim;
bool def = FALSE;
int level = get_trust(ch);
argument = one_argument(argument, arg);
if (level >= LEVEL_SUB_IMPLEM &&
(!str_cmp(arg, "def") || !str_cmp(arg, "default")))
{
def = TRUE;
argument = one_argument(argument, arg);
victim = NULL;
}
else if (level >= LEVEL_SUB_IMPLEM &&
(victim = get_char_room(ch, arg)) != NULL)
{
if (level < get_trust(victim))
{
send_to_char("They might not like that.\n\r", ch);
return;
}
argument = one_argument(argument, arg);
}
else
victim = ch;
if (!def && IS_NPC(victim))
{
send_to_char("Not on NPCs.\n\r", ch);
return;
}
if (!*arg)
{
for (at = 0; at < AT_MAXCOLOR; ++at)
{
if (def || victim->pcdata->colorize[at] == -1)
color = at_color_table[at].def_color;
else
color = victim->pcdata->colorize[at];
if (color >= AT_BLINK)
{
blink = TRUE;
color -= AT_BLINK;
}
else
blink = FALSE;
pager_printf_color(ch, "%-8s: %s%c%-15s&D",
at_color_table[at].name,
(blink ? "+}" : " &"), colors[color],
color_names[color]);
if (at%3 == 2)
send_to_pager("\n\r", ch);
}
if (at%3 != 0)
send_to_pager("\n\r", ch);
send_to_pager("\n\rValid colors are:\n\r", ch);
for (color = 0; color < MAX_COLOR; ++color)
{
if (color)
set_pager_color(color, ch);
else
set_pager_color(AT_PLAIN, ch);
pager_printf(ch, "%-9s", color_names[color]);
if (color%8 == 7)
send_to_pager("\n\r", ch);
}
if (color%8 != 0)
send_to_pager("\n\r", ch);
set_pager_color(AT_GREY + AT_BLINK, ch);
send_to_pager("\n\rBlinking ", ch);
set_pager_color(AT_GREY, ch);
send_to_pager("can be specified by prefixing the color name with a +."
"\n\r", ch);
set_pager_color(AT_PLAIN, ch);
return;
}
for (at = 0; at < AT_MAXCOLOR; ++at)
if (!str_prefix(arg, at_color_table[at].name))
break;
if (at == AT_MAXCOLOR)
{
send_to_char("Not a settable color.\n\r", ch);
return;
}
argument = one_argument(argument, arg);
if (!*arg)
{
send_to_char("Set it to what color?\n\r", ch);
return;
}
if (!str_cmp(arg, "def") || !str_cmp(arg, "default"))
{
if (def)
send_to_char("That *IS* the default!\n\r", ch);
else
{
victim->pcdata->colorize[at] = -1;
send_to_char("Color set to default.\n\r", ch);
}
return;
}
if (*arg == '+')
{
a = arg+1;
if (!*a)
{
if (def)
{
if (at_color_table[at].def_color >= AT_BLINK)
{
at_color_table[at].def_color -= AT_BLINK;
send_to_char("Default color will no longer blink.\n\r", ch);
}
else
{
at_color_table[at].def_color += AT_BLINK;
send_to_char("Default color will now blink.\n\r", ch);
}
save_colors();
}
else
{
if (victim->pcdata->colorize[at] == -1)
victim->pcdata->colorize[at] = at_color_table[at].def_color;
if (victim->pcdata->colorize[at] >= AT_BLINK)
{
victim->pcdata->colorize[at] -= AT_BLINK;
send_to_char("Color will no longer blink.\n\r", ch);
}
else
{
victim->pcdata->colorize[at] += AT_BLINK;
send_to_char("Color will now blink.\n\r", ch);
}
}
return;
}
blink = TRUE;
}
else
a = arg;
for (color = 0; color < MAX_COLOR; ++color)
if (!str_prefix(a, color_names[color]))
break;
if (color == MAX_COLOR)
{
send_to_char("Invalid color name.\n\r", ch);
return;
}
if (blink)
color += AT_BLINK;
if (def)
{
at_color_table[at].def_color = color;
send_to_char("Default color set.\n\r", ch);
save_colors();
}
else
{
victim->pcdata->colorize[at] = color;
send_to_char("Color set.\n\r", ch);
}
return;
}