/****************************************************************************
* [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. *
* ------------------------------------------------------------------------ *
* Slay V2.0 - Online editable configurable slay options *
****************************************************************************/
/* -----------------------------------------------------------------------
The following snippet was written by Gary McNickle (dharvest) for
Rom 2.4 specific MUDs and is released into the public domain. My thanks to
the originators of Diku, and Rom, as well as to all those others who have
released code for this mud base. Goes to show that the freeware idea can
actually work. ;) In any case, all I ask is that you credit this code
properly, and perhaps drop me a line letting me know it's being used.
from: gary@dharvest.com
website: http://www.dharvest.com
or http://www.dharvest.com/resource.html (rom related)
Ported to Smaug 1.02a code by Samson
Updated to Smaug 1.4 code by Samson
Email: samson1@aviastar.net
Web: http://www.solan.org
Send any comments, flames, bug-reports, suggestions, requests, etc...
to the above email address.
----------------------------------------------------------------------- */
#include <sys/types.h>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include "mud.h"
SLAY_DATA *first_slay;
SLAY_DATA *last_slay;
SLAY_DATA *get_slay(char *name)
{
SLAY_DATA *slay;
for (slay = first_slay; slay; slay = slay->next)
if (!str_cmp(name, slay->type))
return slay;
return NULL;
}
#if defined(KEY)
#undef KEY
#endif
#define KEY( literal, field, value ) \
if ( !str_cmp( word, literal ) ) \
{ \
field = value; \
fMatch = TRUE; \
break; \
}
/* Online editing of slays added by Samson 8-3-98 */
/* Read in an individual slaytype */
void fread_slay(SLAY_DATA * slay, FILE * fp)
{
char buf[MSL];
char *word;
bool fMatch;
for (;;)
{
word = feof(fp) ? "End" : fread_word(fp);
fMatch = FALSE;
switch (UPPER(word[0]))
{
case '*':
fMatch = TRUE;
fread_to_eol(fp);
break;
case 'C':
KEY("Cmessage", slay->cmsg, fread_string(fp));
KEY("Color", slay->color, fread_number(fp));
break;
case 'E':
if (!str_cmp(word, "End"))
{
if (!slay->owner)
slay->owner = STRALLOC("Any");
return;
}
break;
case 'O':
KEY("Owner", slay->owner, fread_string(fp));
break;
case 'R':
KEY("Rmessage", slay->rmsg, fread_string(fp));
break;
case 'T':
KEY("Type", slay->type, fread_string(fp));
break;
case 'V':
KEY("Vmessage", slay->vmsg, fread_string(fp));
break;
}
if (!fMatch)
{
sprintf(buf, "Fread_slay: no match: %s", word);
bug(buf, 0);
}
}
}
/* Load the slay file */
void load_slays()
{
char filename[256];
SLAY_DATA *slay;
FILE *fp;
int slaycount;
sprintf(filename, "%s%s", SYSTEM_DIR, SLAY_FILE);
if ((fp = fopen(filename, "r")) != NULL)
{
slaycount = 0;
for (;;)
{
char letter;
char *word;
letter = fread_letter(fp);
if (letter == '*')
{
fread_to_eol(fp);
continue;
}
if (letter != '#')
{
bug("Load_slay_file: # not found.", 0);
break;
}
word = fread_word(fp);
if (!str_cmp(word, "SLAY"))
{
if (slaycount >= MAX_SLAY_TYPES)
{
bug("load_slays: more slaytypes than MAX_SLAY_TYPES %d", MAX_SLAY_TYPES);
fclose(fp);
return;
}
CREATE(slay, SLAY_DATA, 1);
fread_slay(slay, fp);
slaycount++;
LINK(slay, first_slay, last_slay, next, prev);
continue;
}
else if (!str_cmp(word, "END"))
break;
else
{
char buf[MSL];
sprintf(buf, "Load_slay_file: bad section: %s.", word);
bug(buf, 0);
continue;
}
}
FCLOSE(fp);
}
return;
}
/* Online slay editing, save the slay table to disk - Samson 8-3-98 */
void save_slays()
{
SLAY_DATA *tslay;
FILE *fp;
char filename[256];
sprintf(filename, "%s%s", SYSTEM_DIR, SLAY_FILE);
FCLOSE(fpReserve);
if ((fp = fopen(filename, "w")) == NULL)
{
bug("save_slay: fopen", 0);
perror(filename);
}
else
{
for (tslay = first_slay; tslay; tslay = tslay->next)
{
fprintf(fp, "#SLAY\n");
fprintf(fp, "Type %s~\n", tslay->type);
fprintf(fp, "Owner %s~\n", tslay->owner);
fprintf(fp, "Color %d\n", tslay->color);
fprintf(fp, "Cmessage %s~\n", tslay->cmsg);
fprintf(fp, "Vmessage %s~\n", tslay->vmsg);
fprintf(fp, "Rmessage %s~\n", tslay->rmsg);
fprintf(fp, "End\n\n");
}
fprintf(fp, "#END\n");
FCLOSE(fp);
}
fpReserve = fopen(NULL_FILE, "r");
return;
}
/** Function: do_slay
* Descr : Slays (kills) a player, optionally sending one of several
* predefined "slay option" messages to those involved.
* Returns : (void)
* Syntax : slay (who) [option]
* Written : v1.0 12/97
* Author : Gary McNickle <gary@dharvest.com>
* Ported to Smaug 1.02a by: Samson <samson1@aviastar.net>
* Updated to work with Smaug 1.4 by Samson 8-3-98
* v2.0 added support for online editing
*/
void do_slay(CHAR_DATA * ch, char *argument)
{
CHAR_DATA *victim;
SLAY_DATA *slay;
char type[MIL];
char who[MIL];
char buf[MSL];
int color = AT_IMMORT;
bool found = FALSE;
if (IS_NPC(ch))
{
send_to_char("Mobs can't use the slay command.\n\r", ch);
return;
}
argument = one_argument(argument, who);
argument = one_argument(argument, type);
if (!str_prefix(who, "list") || who == NULL)
{
set_char_color(AT_GREEN, ch);
send_to_char("Syntax: slay <victim> [type]\n\r", ch);
send_to_char("Where type is one of the above...\n\r", ch);
send_to_pager_color("&YSlay &ROwner\n\r", ch);
send_to_pager_color("&g-------------------------+---------------\n\r", ch);
for (slay = first_slay; slay; slay = slay->next)
pager_printf_color(ch, "&G%-14s &g%13s\n\r", slay->type, slay->owner);
send_to_char("\n\rTyping just 'slay <player>' will work too...\n\r", ch);
return;
}
if ((victim = get_char_room_new(ch, who, 1)) == NULL)
{
send_to_char("They aren't here.\n\r", ch);
return;
}
if (ch == victim)
{
send_to_char("Suicide is a mortal sin.\n\r", ch);
return;
}
if (!IS_NPC(victim) && victim->level > ch->level)
{
send_to_char("You cannot slay someone who is above your level.\n\r", ch);
return;
}
if (IS_NPC(victim) && (xIS_SET(victim->act, ACT_PROTECT)) && (get_trust(ch) < LEVEL_ADMIN))
{
send_to_char("This mob is protected against forces, transfers, slays, and purges\n\r", ch);
return;
}
if (type[0] == '\0')
{
act(AT_IMMORT, "You brutally slay $N!", ch, NULL, victim, TO_CHAR);
act(AT_IMMORT, "$n chops you up into little pieces!", ch, NULL, victim, TO_VICT);
act(AT_IMMORT, "$n brutally slays $N!", ch, NULL, victim, TO_NOTVICT);
set_cur_char(victim);
raw_kill(ch, victim);
return;
}
else
{
for (slay = first_slay; slay; slay = slay->next)
{
if ((!str_prefix(type, slay->type) && !str_prefix("Any", slay->owner)) || !str_prefix(slay->owner, ch->name))
{
found = TRUE;
color = slay->color;
sprintf(buf, "%s", slay->cmsg);
act(color, buf, ch, NULL, victim, TO_CHAR);
sprintf(buf, "%s", slay->vmsg);
act(color, buf, ch, NULL, victim, TO_VICT);
sprintf(buf, "%s", slay->rmsg);
act(color, buf, ch, NULL, victim, TO_NOTVICT);
set_cur_char(victim);
raw_kill(ch, victim);
return;
}
}
}
if (!found)
send_to_char("&RSlay type not defined, or not owned by you. Type \"slay list\" for a complete listing of types available to you.\n\r", ch);
return;
} /* end of func: "do_slay" */
/* Create a slaytype online - Samson 8-3-98 */
void do_makeslay(CHAR_DATA * ch, char *argument)
{
SLAY_DATA *slay;
if (IS_NPC(ch))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (!argument || argument[0] == '\0')
{
send_to_char("Usage: makeslay <slaytype>\n\r", ch);
return;
}
/* Glaring oversight just noticed - Samson 7-5-99 */
if ((slay = get_slay(argument)) != NULL)
{
send_to_char("That slay type already exists.\n\r", ch);
return;
}
CREATE(slay, SLAY_DATA, 1);
LINK(slay, first_slay, last_slay, next, prev);
slay->type = STRALLOC(argument);
slay->owner = STRALLOC("Any");
slay->color = AT_IMMORT;
slay->cmsg = STRALLOC("You brutally slay $N!");
slay->vmsg = STRALLOC("$n chops you up into little pieces!");
slay->rmsg = STRALLOC("$n brutally slays $N!");
ch_printf(ch, "New slaytype %s added. Set to default values.\n\r", slay->type);
return;
}
/* Set slay values online - Samson 8-3-98 */
void do_setslay(CHAR_DATA * ch, char *argument)
{
char arg1[MIL];
char arg2[MIL];
SLAY_DATA *slay;
if (IS_NPC(ch))
{
send_to_char("Huh?\n\r", ch);
return;
}
switch (ch->substate)
{
default:
break;
case SUB_RESTRICTED:
send_to_char("You cannot do this while in another command.\n\r", ch);
return;
case SUB_SLAYCMSG:
slay = ch->dest_buf;
STRFREE(slay->cmsg);
slay->cmsg = copy_buffer(ch);
stop_editing(ch);
ch->substate = ch->tempnum;
return;
case SUB_SLAYVMSG:
slay = ch->dest_buf;
STRFREE(slay->vmsg);
slay->vmsg = copy_buffer(ch);
stop_editing(ch);
ch->substate = ch->tempnum;
return;
case SUB_SLAYRMSG:
slay = ch->dest_buf;
STRFREE(slay->rmsg);
slay->rmsg = copy_buffer(ch);
stop_editing(ch);
ch->substate = ch->tempnum;
return;
}
argument = one_argument(argument, arg1);
argument = one_argument(argument, arg2);
if (arg1[0] == '\0')
{
send_to_char("Usage: setslay <slaytype> <field> <value>\n\r", ch);
send_to_char("Usage: setslay save\n\r", ch);
send_to_char("\n\rField being one of:\n\r", ch);
send_to_char("owner color cmsg vmsg rmsg\n\r", ch);
return;
}
if (!str_cmp(arg1, "save"))
{
save_slays();
send_to_char("Slay table saved.\n\r", ch);
return;
}
if ((slay = get_slay(arg1)) == NULL)
{
send_to_char("No such slaytype.\n\r", ch);
return;
}
if (!str_cmp(arg2, "owner"))
{
STRFREE(slay->owner);
slay->owner = STRALLOC(argument);
send_to_char("New owner set.\n\r", ch);
return;
}
if (!str_cmp(arg2, "cmsg"))
{
if (ch->substate == SUB_REPEATCMD)
ch->tempnum = SUB_REPEATCMD;
else
ch->tempnum = SUB_NONE;
ch->substate = SUB_SLAYCMSG;
ch->dest_buf = slay;
start_editing(ch, slay->cmsg);
set_editor_desc(ch, "A custom slay message.");
return;
}
if (!str_cmp(arg2, "vmsg"))
{
if (ch->substate == SUB_REPEATCMD)
ch->tempnum = SUB_REPEATCMD;
else
ch->tempnum = SUB_NONE;
ch->substate = SUB_SLAYVMSG;
ch->dest_buf = slay;
start_editing(ch, slay->vmsg);
set_editor_desc(ch, "A custom slay message.");
return;
}
if (!str_cmp(arg2, "rmsg"))
{
if (ch->substate == SUB_REPEATCMD)
ch->tempnum = SUB_REPEATCMD;
else
ch->tempnum = SUB_NONE;
ch->substate = SUB_SLAYRMSG;
ch->dest_buf = slay;
start_editing(ch, slay->rmsg);
set_editor_desc(ch, "A custom slay message.");
return;
}
if (!str_cmp(arg2, "color"))
{
slay->color = atoi(argument);
send_to_char("Slay color set.\n\r", ch);
return;
}
do_setslay(ch, "");
return;
}
/* Online slay editor, show details of a slaytype - Samson 8-3-98 */
void do_showslay(CHAR_DATA * ch, char *argument)
{
SLAY_DATA *slay;
if (IS_NPC(ch))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (argument[0] == '\0')
{
send_to_char("Usage: showslay <slaytype>\n\r", ch);
return;
}
if ((slay = get_slay(argument)) == NULL)
{
send_to_char("No such slaytype.\n\r", ch);
return;
}
ch_printf(ch, "\n\rSlaytype: %s\n\r", slay->type);
ch_printf(ch, "Owner: %s\n\r", slay->owner);
ch_printf(ch, "Color: %d\n\r", slay->color);
ch_printf(ch, "&RCmessage: \n\r%s", slay->cmsg);
ch_printf(ch, "\n\r&YVmessage: \n\r%s", slay->vmsg);
ch_printf(ch, "\n\r&GRmessage: \n\r%s", slay->rmsg);
return;
}
/* Of course, to create means you need to be able to destroy as well :P - Samson 8-3-98 */
void do_destroyslay(CHAR_DATA * ch, char *argument)
{
char arg[MIL];
SLAY_DATA *pslay;
if (IS_NPC(ch))
{
send_to_char("Huh?\n\r", ch);
return;
}
one_argument(argument, arg);
if (arg[0] == '\0')
{
send_to_char("Destroy which slaytype?\n\r", ch);
return;
}
for (pslay = first_slay; pslay; pslay = pslay->next)
{
if (!str_cmp(arg, pslay->type))
{
UNLINK(pslay, first_slay, last_slay, next, prev);
STRFREE(pslay->owner);
STRFREE(pslay->type);
STRFREE(pslay->cmsg);
STRFREE(pslay->vmsg);
STRFREE(pslay->rmsg);
ch_printf(ch, "Slaytype \"%s\" has beed deleted. Be sure to save the slay table.\n\r", arg);
return;
}
}
send_to_char("No such slaytype.\n\r", ch);
return;
}