/***************************************************************************
* 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. *
* *
* 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. *
***************************************************************************/
/*********************************
* New immortal commands by Jobo *
*********************************/
#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
void do_logstat(CHAR_DATA * ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
int ratio, mspusers, a, b, c;
if (IS_NPC(ch))
return;
sprintf(buf, "Total Players Created : %d players\n\r",
top_playerid);
send_to_char(buf, ch);
a = mudinfo[MUDINFO_UPDATED] / 120;
b = a / 24;
c = a - b * 24;
sprintf(buf,
"Mudinfo : Days running : %d days and %d hours\n\r",
b, c);
send_to_char(buf, ch);
sprintf(buf, "Players : Average Online : %d\n\r",
(mudinfo[MUDINFO_MCCP_USERS] +
mudinfo[MUDINFO_OTHER_USERS]) / mudinfo[MUDINFO_UPDATED]);
send_to_char(buf, ch);
sprintf(buf, "Players : Peak Online : %d\n\r",
mudinfo[MUDINFO_PEAK_USERS]);
send_to_char(buf, ch);
if (mudinfo[MUDINFO_MCCP_USERS] + mudinfo[MUDINFO_OTHER_USERS] == 0)
ratio = 0;
else
ratio = (100 * mudinfo[MUDINFO_MCCP_USERS] /
(mudinfo[MUDINFO_MCCP_USERS] +
mudinfo[MUDINFO_OTHER_USERS]));
sprintf(buf, "Players : Mccp Users : %d %%\n\r",
ratio);
send_to_char(buf, ch);
if (mudinfo[MUDINFO_MCCP_USERS] + mudinfo[MUDINFO_OTHER_USERS] == 0)
mspusers = 0;
else
mspusers = (100 * mudinfo[MUDINFO_MSP_USERS] /
(mudinfo[MUDINFO_MCCP_USERS] +
mudinfo[MUDINFO_OTHER_USERS]));
sprintf(buf, "Players : MSP Users : %d %%\n\r",
mspusers);
send_to_char(buf, ch);
/*
* a : Amount of kbit data send totally.
* b : Amount of kbit data send each 10 seconds
* c : The fractional part
*/
a = mudinfo[MUDINFO_MBYTE] * 1024 + mudinfo[MUDINFO_BYTE] / 1024;
b = a / (mudinfo[MUDINFO_UPDATED] * 3);
c = b / 10;
c = c * 10;
c = b - c;
sprintf(buf,
"Datatransfer : Average Rate : %d.%d kb/sec\n\r",
b / 10, c);
send_to_char(buf, ch);
b = mudinfo[MUDINFO_DATA_PEAK] / (3 * 1024);
c = b / 10;
c = c * 10;
c = b - c;
sprintf(buf,
"Datatransfer : Peak Rate : %d.%d kb/sec\n\r",
b / 10, c);
send_to_char(buf, ch);
sprintf(buf, "Datatransfer : This Week : %d MB\n\r",
mudinfo[MUDINFO_MBYTE]);
send_to_char(buf, ch);
sprintf(buf, "Datatransfer : This Boot : %d MB\n\r",
mudinfo[MUDINFO_MBYTE_S]);
send_to_char(buf, ch);
return;
}
void do_logstatclear(CHAR_DATA * ch, char *argument)
{
int i;
if (IS_NPC(ch))
return;
for (i = 0; i < MUDINFO_MAX; i++)
{
mudinfo[i] = 0;
}
update_mudinfo();
send_to_char("Cleared.\n\r", ch);
return;
}
/*
void do_tourney(CHAR_DATA *ch, char *argument)
{
if (tourney)
{
tourney = FALSE;
send_to_char("Off.\n\r", ch);
return;
}
tourney = TRUE;
send_to_char("On.\n\r", ch);
return;
}
*/
void do_ccenter(CHAR_DATA * ch, char *argument)
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
argument = one_argument(argument, arg1);
one_argument(argument, arg2);
if (arg1[0] == '\0')
{
sprintf(buf, " #0[#G***#0] #Y%s Control Center #0[#G***#0]#n\n\r\n\r", MUDNAME);
send_to_char(buf, ch);
sprintf(buf, " #R(#0lexp#R) #YMinimum Experience #G%7d#n\n\r", ccenter[CCENTER_MIN_EXP]);
send_to_char(buf, ch);
sprintf(buf, " #R(#0uexp#R) #YMaximum Experience #G%7d#n\n\r", ccenter[CCENTER_MAX_EXP]);
send_to_char(buf, ch);
sprintf(buf, " #R(#0elvl#R) #YExperience Level #G%3d#n\n\r", ccenter[CCENTER_EXP_LEVEL]);
send_to_char(buf, ch);
sprintf(buf, " #R(#0qlvl#R) #YQuestpoint Level #G%3d#n\n\r", ccenter[CCENTER_QPS_LEVEL]);
send_to_char(buf, ch);
sprintf(buf, " #R(#0artm#R) #YLoad artifact on #G%3d#n #Ymob kills\n\r", ccenter[CCENTER_ARTI_MKILLS]);
send_to_char(buf, ch);
sprintf(buf, " #R(#0rload#R) #YLoad Rares at a ratio of #G1:%4d#n\n\r", ccenter[CCENTER_RARELOAD]);
send_to_char(buf, ch);
send_to_char("\n\r\n\r'ccenter reset' to restore default values.\n\r", ch);
return;
}
if (!str_cmp(arg1, "lexp"))
{
ccenter[CCENTER_MIN_EXP] = atoi(arg2);
send_to_char("Ok. Value Changed.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
return;
}
else if (!str_cmp(arg1, "uexp"))
{
ccenter[CCENTER_MAX_EXP] = atoi(arg2);
send_to_char("Ok. Value Changed.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
return;
}
else if (!str_cmp(arg1, "elvl"))
{
ccenter[CCENTER_EXP_LEVEL] = atoi(arg2);
send_to_char("Ok. Value Changed.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
return;
}
else if (!str_cmp(arg1, "qlvl"))
{
ccenter[CCENTER_QPS_LEVEL] = atoi(arg2);
send_to_char("Ok. Value Changed.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
return;
}
else if (!str_cmp(arg1, "artm"))
{
ccenter[CCENTER_ARTI_MKILLS] = atoi(arg2);
send_to_char("Ok. Value Changed.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
// artimkills = ccenter[CCENTER_ARTI_MKILLS];
return;
}
else if (!str_cmp(arg1, "rload"))
{
ccenter[CCENTER_RARELOAD] = atoi(arg2);
send_to_char("Ok. Value Changed.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
return;
}
else if (!str_cmp(arg1, "reset"))
{
ccenter[CCENTER_MIN_EXP] = 4000;
ccenter[CCENTER_MAX_EXP] = 3000000;
ccenter[CCENTER_EXP_LEVEL] = 100;
ccenter[CCENTER_QPS_LEVEL] = 100;
ccenter[CCENTER_RARELOAD] = 4000;
// ccenter[CCENTER_ARTI_MKILLS] = 2500;
send_to_char("Ok. Values Reset.\n\r", ch);
save_ccenter();
do_ccenter(ch, "");
return;
}
else
{
send_to_char("Nope.\n\r", ch);
return;
}
}
void do_multicheck(CHAR_DATA *ch, char *argument)
{
DESCRIPTOR_DATA *d;
DESCRIPTOR_DATA *d2;
char buf[MAX_STRING_LENGTH];
bool found = FALSE;
for ( d = descriptor_list; d != NULL; d = d->next )
{
if (d->lookup_status != STATUS_DONE) continue;
if (d->connected != CON_PLAYING) continue;
for ( d2 = d->next; d2 != NULL; d2 = d2->next )
{
if (d2->lookup_status != STATUS_DONE) continue;
if (!str_cmp(d->host, d2->host))
{
if (d2->connected != CON_PLAYING) continue;
if (d2->character == NULL || d->character == NULL) continue;
found = TRUE;
sprintf(buf, "%s and %s are multiplaying bitches\n\r",d2->character->name, d->character->name);
send_to_char(buf,ch);
}
}
}
if (!found) send_to_char("Noone is multiplaying atm.\n\r",ch);
return;
}
void do_slay2(CHAR_DATA *ch, char *argument)
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
one_argument(argument, arg);
if (IS_NPC(ch)) return;
if (ch->level < 12) return;
if ((victim = get_char_room(ch, arg)) == NULL)
{
send_to_char("Garotte whom?\n\r", ch );
return;
}
if (victim == ch)
{
send_to_char("That would be a bad idea.\n\r", ch );
return;
}
if (is_safe(ch, victim)) return;
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
one_hit(ch,victim, gsn_supreme,1);
return;
}
void do_openthearena( CHAR_DATA *ch, char *argument )
{
if (IS_NPC(ch)) return;
if (arena_open) return;
arena_open = TRUE;
return;
}
void do_showsilence( CHAR_DATA *ch, char *argument )
{
DESCRIPTOR_DATA *d;
CHAR_DATA *gch;
char buf[MAX_STRING_LENGTH];
bool found = FALSE;
if (IS_NPC(ch)) return;
for ( d = descriptor_list; d != NULL; d = d->next )
{
if ( d->connected != CON_PLAYING) continue;
if ( d->character != NULL ) gch = d->character;
else continue;
if (gch->level > 6) continue;
if (IS_SET(gch->act, PLR_SILENCE))
{
found = TRUE;
sprintf(buf,"%-15s is silenced\n\r",gch->name);
send_to_char(buf,ch);
}
}
if (!found) send_to_char("Noone is silenced.\n\r",ch);
return;
}
void do_asperson(CHAR_DATA *ch, char *argument)
{
CHAR_DATA *victim;
DESCRIPTOR_DATA *tmp;
char arg[MAX_INPUT_LENGTH];
bool afk = FALSE;
argument = one_argument(argument, arg);
if (IS_NPC(ch)) return;
if (ch->level < 12) return;
if ((victim = get_char_world(ch, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch );
return;
}
if (victim == ch)
{
send_to_char("That would be a bad idea.\n\r", ch );
return;
}
if (IS_NPC(victim))
{
send_to_char("Not on mobiles.\n\r",ch);
return;
}
tmp = victim->desc;
victim->desc = ch->desc;
if (IS_SET(victim->extra, EXTRA_AFK))
{
afk = TRUE;
REMOVE_BIT(victim->extra, EXTRA_AFK);
}
interpret(victim, argument);
victim->desc = tmp;
if (afk) SET_BIT(victim->extra, EXTRA_AFK);
return;
}
void do_bully(CHAR_DATA *ch, char *argument)
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
argument = one_argument(argument, arg);
if (IS_NPC(ch)) return;
if (ch->level < MAX_LEVEL) return;
if ((victim = get_char_world(ch, arg)) == NULL)
{
send_to_char("They are not here.\n\r", ch );
return;
}
if (victim == ch)
{
send_to_char("That would be a bad idea.\n\r", ch );
return;
}
if (IS_NPC(victim))
{
send_to_char("Not on mobiles.\n\r",ch);
return;
}
if (IS_SET(victim->pcdata->jflags, JFLAG_BULLY))
{
REMOVE_BIT(victim->pcdata->jflags, JFLAG_BULLY);
send_to_char("You are to nice.\n\r",ch);
}
else
{
SET_BIT(victim->pcdata->jflags, JFLAG_BULLY);
send_to_char("Take that bully.\n\r",ch);
}
return;
}
void do_offline(CHAR_DATA *ch, char *argument)
{
DESCRIPTOR_DATA *dummy;
DESCRIPTOR_DATA *temp;
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
argument = one_argument(argument, arg);
if (IS_NPC(ch)) return;
if (ch->level < MAX_LEVEL)
{
send_to_char("This action is restricted.\n\r", ch);
return;
}
if (strlen(arg) < 3)
{
send_to_char("What player do you wish to load?\n\r", ch);
return;
}
if (argument[0] == '\0')
{
send_to_char("What do you want the player to do?\n\r", ch);
return;
}
arg[0] = UPPER(arg[0]);
if (descriptor_free == NULL )
{
dummy = alloc_perm(sizeof(*dummy));
}
else
{
dummy = descriptor_free;
descriptor_free = descriptor_free->next;
}
if (load_char_obj(dummy, arg))
{
victim = dummy->character;
temp = victim->desc;
victim->desc = ch->desc;
interpret(victim, argument);
victim->desc = temp;
}
else
{
send_to_char("Player doesn't exist.\n\r", ch);
dummy->next = descriptor_free;
descriptor_free = dummy;
return;
}
/*
* Clean up.
*/
save_char_obj(victim);
free_char(victim);
dummy->next = descriptor_free;
descriptor_free = dummy;
return;
}