/***************************************************************************
* 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. *
***************************************************************************/
/***************************************************************************
* God Wars Mud copyright (C) 1994, 1995, 1996 by Richard Woolcock *
* *
* Legend of Chrystancia copyright (C) 1999, 2000, 2001 by Matthew Little *
* This mud is NOT to be copied in whole or in part, or to be run without *
* the permission of Matthew Little. Nobody else has permission to *
* authorise the use of this code. *
***************************************************************************/
#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"
int col_str_len args ((char *text));
void show_char_to_char args ((CHAR_DATA * list, CHAR_DATA * ch));
void centre_text (char *text, CHAR_DATA * ch)
{
int number;
if (ch == NULL)
return;
if (col_str_len (text) > SCREEN_WIDTH - 2)
{
bug ("Centre Text - string too long!", 0);
send_to_char (text, ch);
return;
}
for (number = 0; number < SCREEN_WIDTH; number++)
{
send_to_char (" ", ch);
if (number == ((SCREEN_WIDTH - col_str_len (text)) / 2) - 1)
{
send_to_char (text, ch);
stc ("\n\r", ch);
return;
}
}
return;
}
void line2 (CHAR_DATA * ch)
{
int number;
if (ch == NULL)
return;
for (number = 0; number < SCREEN_WIDTH; number++)
send_to_char ("*", ch);
send_to_char ("\n\r", ch);
return;
}
void line (CHAR_DATA * ch)
{
int number;
if (ch == NULL)
return;
for (number = 0; number < SCREEN_WIDTH; number++)
{
stc ("#r", ch);
send_to_char ("#C-", ch);
}
send_to_char ("#n\n\r", ch);
return;
}
void do_immune (CHAR_DATA * ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
argument = one_argument (argument, arg);
if (IS_NPC (ch))
return;
send_to_char
("--------------------------------------------------------------------------------\n\r",
ch);
send_to_char (" -= Immunities =-\n\r", ch);
send_to_char
("--------------------------------------------------------------------------------\n\r",
ch);
/* Display weapon resistances */
send_to_char ("Weapons:", ch);
if (!(!IS_IMMUNE (ch, IMM_SLASH) && !IS_IMMUNE (ch, IMM_STAB) &&
!IS_IMMUNE (ch, IMM_SMASH) && !IS_IMMUNE (ch, IMM_ANIMAL) &&
!IS_IMMUNE (ch, IMM_MISC)))
{
if (IS_IMMUNE (ch, IMM_SLASH))
send_to_char (" Slash Slice", ch);
if (IS_IMMUNE (ch, IMM_STAB))
send_to_char (" Stab Pierce", ch);
if (IS_IMMUNE (ch, IMM_SMASH))
send_to_char (" Blast Crush Pound", ch);
if (IS_IMMUNE (ch, IMM_ANIMAL))
send_to_char (" Hit Claw Bite", ch);
if (IS_IMMUNE (ch, IMM_MISC))
send_to_char (" Grep Whip Suck", ch);
}
else
send_to_char (" None", ch);
send_to_char (".\n\r", ch);
/* Display spell immunities */
send_to_char ("Spells :", ch);
if (!(!IS_IMMUNE (ch, IMM_CHARM) && !IS_IMMUNE (ch, IMM_HEAT) &&
!IS_IMMUNE (ch, IMM_COLD) && !IS_IMMUNE (ch, IMM_LIGHTNING) &&
!IS_IMMUNE (ch, IMM_ACID) && !IS_IMMUNE (ch, IMM_SUMMON) &&
!IS_IMMUNE (ch, IMM_VOODOO) && !IS_IMMUNE (ch, IMM_SLEEP) &&
!IS_IMMUNE (ch, IMM_DRAIN)))
{
if (IS_IMMUNE (ch, IMM_CHARM))
send_to_char (" Charm", ch);
if (IS_IMMUNE (ch, IMM_HEAT))
send_to_char (" Heat", ch);
if (IS_IMMUNE (ch, IMM_COLD))
send_to_char (" Cold", ch);
if (IS_IMMUNE (ch, IMM_LIGHTNING))
send_to_char (" Lightning", ch);
if (IS_IMMUNE (ch, IMM_ACID))
send_to_char (" Acid", ch);
if (!IS_IMMUNE (ch, IMM_SUMMON))
send_to_char (" Summon", ch);
if (IS_IMMUNE (ch, IMM_VOODOO))
send_to_char (" Voodoo", ch);
if (IS_IMMUNE (ch, IMM_SLEEP))
send_to_char (" Sleep", ch);
if (IS_IMMUNE (ch, IMM_DRAIN))
send_to_char (" Drain", ch);
if (IS_IMMUNE (ch, IMM_TRANSPORT))
send_to_char (" Transport", ch);
}
else
send_to_char (" None", ch);
send_to_char (".\n\r", ch);
/* Display skill immunities */
send_to_char ("Skills :", ch);
if (!(!IS_IMMUNE (ch, IMM_HURL) && !IS_IMMUNE (ch, IMM_BACKSTAB) &&
!IS_IMMUNE (ch, IMM_KICK) && !IS_IMMUNE (ch, IMM_DISARM) &&
!IS_IMMUNE (ch, IMM_STEAL)))
{
if (IS_IMMUNE (ch, IMM_HURL))
send_to_char (" Hurl", ch);
if (IS_IMMUNE (ch, IMM_BACKSTAB))
send_to_char (" Backstab", ch);
if (IS_IMMUNE (ch, IMM_KICK))
send_to_char (" Kick", ch);
if (IS_IMMUNE (ch, IMM_DISARM))
send_to_char (" Disarm", ch);
if (IS_IMMUNE (ch, IMM_STEAL))
send_to_char (" Steal", ch);
}
else
send_to_char (" None", ch);
send_to_char (".\n\r", ch);
/* Display vampire immunities */
send_to_char ("Vampire:", ch);
if (!(IS_IMMUNE (ch, IMM_VAMPIRE) && !IS_IMMUNE (ch, IMM_STAKE) &&
!IS_IMMUNE (ch, IMM_SUNLIGHT)))
{
if (!IS_IMMUNE (ch, IMM_VAMPIRE))
send_to_char (" Bite", ch);
if (IS_IMMUNE (ch, IMM_STAKE))
send_to_char (" Stake", ch);
if (IS_IMMUNE (ch, IMM_SUNLIGHT))
send_to_char (" Sunlight", ch);
}
else
send_to_char (" None", ch);
send_to_char (".\n\r", ch);
send_to_char
("--------------------------------------------------------------------------------\n\r",
ch);
return;
}
void skillstance (CHAR_DATA * ch, CHAR_DATA * victim)
{
char buf[MAX_INPUT_LENGTH];
char bufskill[25];
char stancename[10];
int stance;
/*
if (IS_NPC (victim))
return;
*/
stance = victim->stance[0];
if (stance < 1 || stance > 10)
return;
if (victim->stance[stance] <= 0)
sprintf (bufskill, "completely unskilled in");
else if (victim->stance[stance] <= 25)
sprintf (bufskill, "an apprentice of");
else if (victim->stance[stance] <= 50)
sprintf (bufskill, "a trainee of");
else if (victim->stance[stance] <= 75)
sprintf (bufskill, "a student of");
else if (victim->stance[stance] <= 100)
sprintf (bufskill, "fairly experienced in");
else if (victim->stance[stance] <= 125)
sprintf (bufskill, "well trained in");
else if (victim->stance[stance] <= 150)
sprintf (bufskill, "highly skilled in");
else if (victim->stance[stance] <= 175)
sprintf (bufskill, "an expert of");
else if (victim->stance[stance] <= 199)
sprintf (bufskill, "a master of");
else if (victim->stance[stance] >= 200)
sprintf (bufskill, "a grand master of");
else
return;
if (stance == STANCE_VIPER)
sprintf (stancename, "viper");
else if (stance == STANCE_CRANE)
sprintf (stancename, "crane");
else if (stance == STANCE_CRAB)
sprintf (stancename, "crab");
else if (stance == STANCE_MONGOOSE)
sprintf (stancename, "mongoose");
else if (stance == STANCE_BULL)
sprintf (stancename, "bull");
else if (stance == STANCE_MANTIS)
sprintf (stancename, "mantis");
else if (stance == STANCE_DRAGON)
sprintf (stancename, "dragon");
else if (stance == STANCE_TIGER)
sprintf (stancename, "tiger");
else if (stance == STANCE_MONKEY)
sprintf (stancename, "monkey");
else if (stance == STANCE_SWALLOW)
sprintf (stancename, "swallow");
if (ch == victim)
sprintf (buf, "You are [%d] %s the %s stance.", victim->stance[stance],
bufskill, stancename);
else
sprintf (buf, "$N is [%d] %s the %s stance.", victim->stance[stance],
bufskill, stancename);
act (buf, ch, NULL, victim, TO_CHAR);
return;
}
void do_spell (CHAR_DATA * ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
one_argument (argument, arg);
if (arg[0] == '\0')
{
show_spell (ch, 0);
show_spell (ch, 1);
show_spell (ch, 2);
show_spell (ch, 3);
show_spell (ch, 4);
}
else if (!str_cmp (arg, "purple"))
show_spell (ch, 0);
else if (!str_cmp (arg, "red"))
show_spell (ch, 1);
else if (!str_cmp (arg, "blue"))
show_spell (ch, 2);
else if (!str_cmp (arg, "green"))
show_spell (ch, 3);
else if (!str_cmp (arg, "yellow"))
show_spell (ch, 4);
else
send_to_char ("You know of no such magic.\n\r", ch);
return;
}
void show_spell (CHAR_DATA * ch, int dtype)
{
char buf[MAX_INPUT_LENGTH];
char bufskill[MAX_INPUT_LENGTH];
if (IS_NPC (ch))
return;
if (ch->spl[dtype] == 00)
sprintf (bufskill, "untrained at");
else if (ch->spl[dtype] <= 25)
sprintf (bufskill, "an apprentice at");
else if (ch->spl[dtype] <= 50)
sprintf (bufskill, "a student at");
else if (ch->spl[dtype] <= 75)
sprintf (bufskill, "a scholar at");
else if (ch->spl[dtype] <= 100)
sprintf (bufskill, "a magus at");
else if (ch->spl[dtype] <= 125)
sprintf (bufskill, "an adept at");
else if (ch->spl[dtype] <= 150)
sprintf (bufskill, "a mage at");
else if (ch->spl[dtype] <= 175)
sprintf (bufskill, "a warlock at");
else if (ch->spl[dtype] <= 199)
sprintf (bufskill, "a master wizard at");
else if (ch->spl[dtype] >= 240)
sprintf (bufskill, "the complete master of");
else if (ch->spl[dtype] >= 200)
sprintf (bufskill, "a grand sorcerer at");
else
return;
if (dtype == 0)
sprintf (buf, "You are %s #Ppurple#n magic.\n\r", bufskill);
else if (dtype == 1)
sprintf (buf, "You are %s #rred#n magic.\n\r", bufskill);
else if (dtype == 2)
sprintf (buf, "You are %s #bblue#n magic.\n\r", bufskill);
else if (dtype == 3)
sprintf (buf, "You are %s #ggreen#n magic.\n\r", bufskill);
else if (dtype == 4)
sprintf (buf, "You are %s #yyellow#n magic.\n\r", bufskill);
else
return;
send_to_char (buf, ch);
return;
}
void do_scan( CHAR_DATA *ch, char *argument )
{
ROOM_INDEX_DATA *scan_room;
EXIT_DATA *pexit;
char buf[MAX_STRING_LENGTH];
int dir;
send_to_char( "#wHere:#n\n\r", ch );
show_char_to_char( ch->in_room->people, ch );
for ( dir = 0; dir < 6; dir++ )
{ if ( (pexit = ch->in_room->exit[dir]) == NULL || (scan_room = pexit->to_room) == NULL )
continue;
else
{ sprintf( buf, "\n\r#wLooking %s #wyou see:#n\n\r", dir_name[dir] );
send_to_char( buf, ch );
if ( scan_room->people == NULL )
{
stc(" Nobody there.\n\r",ch);
continue;
}
else
show_char_to_char( scan_room->people, ch );
}
}
return;
}
void do_oscan (CHAR_DATA * ch, char *argument)
{
ROOM_INDEX_DATA *location;
location = ch->in_room;
send_to_char("#wYou scan in all directions:\n\r", ch);
send_to_char (" #w[#bN#Borth#w]#n\n\r", ch);
do_spydirection (ch, "n");
char_from_room (ch);
char_to_room (ch, location);
send_to_char (" #w[#rE#Rast#w]#n\n\r", ch);
do_spydirection (ch, "e");
char_from_room (ch);
char_to_room (ch, location);
send_to_char (" #w[#cS#Couth#w]#n\n\r", ch);
do_spydirection (ch, "s");
char_from_room (ch);
char_to_room (ch, location);
send_to_char (" #w[#pW#Pest#w]#n\n\r", ch);
do_spydirection (ch, "w");
char_from_room (ch);
char_to_room (ch, location);
send_to_char (" #w[#gU#Gp#w]#n\n\r", ch);
do_spydirection (ch, "u");
char_from_room (ch);
char_to_room (ch, location);
send_to_char (" #w[#wD#eown#w]#n\n\r", ch);
do_spydirection (ch, "d");
char_from_room (ch);
char_to_room (ch, location);
return;
}
void do_spy (CHAR_DATA * ch, char *argument)
{
ROOM_INDEX_DATA *location;
char arg1[MAX_INPUT_LENGTH];
int door;
argument = one_argument (argument, arg1);
if (arg1[0] == '\0')
{
send_to_char ("Which direction do you wish to spy?\n\r", ch);
return;
}
if (!str_cmp (arg1, "n") || !str_cmp (arg1, "north"))
door = 0;
else if (!str_cmp (arg1, "e") || !str_cmp (arg1, "east"))
door = 1;
else if (!str_cmp (arg1, "s") || !str_cmp (arg1, "south"))
door = 2;
else if (!str_cmp (arg1, "w") || !str_cmp (arg1, "west"))
door = 3;
else if (!str_cmp (arg1, "u") || !str_cmp (arg1, "up"))
door = 4;
else if (!str_cmp (arg1, "d") || !str_cmp (arg1, "down"))
door = 5;
else
{
send_to_char
("You can only spy people north, south, east, west, up or down.\n\r",
ch);
return;
}
location = ch->in_room;
send_to_char ("[Short Range]\n\r", ch);
do_spydirection (ch, arg1);
send_to_char ("\n\r", ch);
send_to_char ("[Medium Range]\n\r", ch);
do_spydirection (ch, arg1);
send_to_char ("\n\r", ch);
send_to_char ("[Long Range]\n\r", ch);
do_spydirection (ch, arg1);
send_to_char ("\n\r", ch);
/* Move them back */
char_from_room (ch);
char_to_room (ch, location);
return;
}
void do_spydirection (CHAR_DATA * ch, char *argument)
{
ROOM_INDEX_DATA *to_room;
EXIT_DATA *pexit;
// CHAR_DATA *vch;
// CHAR_DATA *vch_next;
char arg[MAX_INPUT_LENGTH];
// char buf[MAX_INPUT_LENGTH];
int door;
bool is_empty;
argument = one_argument (argument, arg);
is_empty = TRUE;
if (arg[0] == '\0')
return;
if (!str_cmp (arg, "n") || !str_cmp (arg, "north"))
door = 0;
else if (!str_cmp (arg, "e") || !str_cmp (arg, "east"))
door = 1;
else if (!str_cmp (arg, "s") || !str_cmp (arg, "south"))
door = 2;
else if (!str_cmp (arg, "w") || !str_cmp (arg, "west"))
door = 3;
else if (!str_cmp (arg, "u") || !str_cmp (arg, "up"))
door = 4;
else if (!str_cmp (arg, "d") || !str_cmp (arg, "down"))
door = 5;
else
return;
if ((pexit = ch->in_room->exit[door]) == NULL
|| (to_room = pexit->to_room) == NULL)
{
send_to_char (" No exit.\n\r", ch);
return;
}
pexit = ch->in_room->exit[door];
if (IS_SET (pexit->exit_info, EX_CLOSED))
{
send_to_char (" Closed door.\n\r", ch);
return;
}
show_char_to_char(to_room->people, ch);
if (!to_room->people)
stc(" Nobody here.\n\r",ch);
char_from_room(ch);
char_to_room(ch,to_room);
return;
}
void take_item (CHAR_DATA * ch, OBJ_DATA * obj)
{
if (obj == NULL)
return;
// if (is_inarena(ch)) return;
// if (IS_SET(ch->war, WARRING)) return;
obj_from_char (obj);
if (IS_SET (obj->quest, QUEST_ARTIFACT))
obj_to_char (obj, ch);
else if (is_inarena (ch) || IS_SET (ch->war, WARRING))
obj_to_char (obj, ch);
else
obj_to_room (obj, ch->in_room);
act ("You wince in pain and $p falls to the ground.", ch, obj, NULL,
TO_CHAR);
act ("$n winces in pain and $p falls to the ground.", ch, obj, NULL,
TO_ROOM);
return;
}
void birth_date (CHAR_DATA * ch, bool is_self)
{
char buf[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char mstatus[20];
char dstatus[20];
char omin[3];
char cmin[3];
char ohour[3];
char chour[3];
char oday0[2];
char cday0[2];
char oday1[2];
char cday1[2];
char omonth[4];
char cmonth[4];
char oyear[5];
char cyear[5];
char *strtime;
int oyear2 = 0;
int cyear2 = 0;
int omonth2 = 0;
int cmonth2 = 0;
int oday2 = 0;
int cday2 = 0;
int total = 0;
int dad = 0;
int mm = 0;
int yy = 0;
bool o_month = FALSE;
bool c_month = FALSE;
if (IS_NPC (ch))
return;
if (is_self)
strcpy (buf, ch->createtime);
else
strcpy (buf, (ch->pcdata->conception));
if (strlen (buf) < 19)
return;
strtime = new_date(current_time);
strcpy (buf2, strtime);
/*
07-Sep-1997 13:36:50.
01234567890123456789
*/
oyear[0] = buf[7];
oyear[1] = buf[8];
oyear[2] = buf[9];
oyear[3] = buf[10];
oyear[4] = '\0';
omonth[0] = buf[3];
omonth[1] = buf[4];
omonth[2] = buf[5];
omonth[3] = '\0';
oday0[0] = buf[0];
oday0[1] = '\0';
oday1[0] = buf[1];
oday1[1] = '\0';
ohour[0] = buf[12];
ohour[1] = buf[13];
ohour[2] = '\0';
omin[0] = buf[15];
omin[1] = buf[16];
omin[2] = '\0';
cyear[0] = buf2[7];
cyear[1] = buf2[8];
cyear[2] = buf2[9];
cyear[3] = buf2[10];
cyear[4] = '\0';
cmonth[0] = buf2[3];
cmonth[1] = buf2[4];
cmonth[2] = buf2[5];
cmonth[3] = '\0';
cday0[0] = buf2[0];
cday0[1] = '\0';
cday1[0] = buf2[1];
cday1[1] = '\0';
chour[0] = buf2[12];
chour[1] = buf2[13];
chour[2] = '\0';
cmin[0] = buf2[15];
cmin[1] = buf2[16];
cmin[2] = '\0';
if (!str_cmp (omonth, "Dec"))
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Nov") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Oct") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Sep") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Aug") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jul") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jun") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "May") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Apr") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Mar") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Feb") || o_month)
{
omonth2 += 28;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jan") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!o_month)
{
send_to_char ("Error! Please inform KaVir.\n\r", ch);
return;
}
if (!str_cmp (cmonth, "Dec"))
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Nov") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Oct") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Sep") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Aug") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jul") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jun") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "May") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Apr") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Mar") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Feb") || c_month)
{
cmonth2 += 28;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jan") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!c_month)
{
send_to_char ("Error! Please inform KaVir.\n\r", ch);
return;
}
if (is_number (oyear))
oyear2 += atoi (oyear);
if (is_number (cyear))
cyear2 += atoi (cyear);
if (is_number (oday0))
oday2 += (atoi (oday0) * 10);
if (is_number (oday1))
oday2 += atoi (oday1);
if (is_number (cday0))
cday2 += (atoi (cday0) * 10);
if (is_number (cday1))
cday2 += atoi (cday1);
total += ((cyear2 - oyear2) * 365);
total += (cmonth2 - omonth2);
total += (cday2 - oday2);
total *= 24; /* Total playing time is now in hours */
if (is_number (chour) && is_number (ohour))
total += (atoi (chour) - atoi (ohour));
total *= 60; /* Total now in minutes */
if (is_number (cmin) && is_number (omin))
total += (atoi (cmin) - atoi (omin));
if (total < 1)
total = 0;
else
total /= 60; /* Time now in game days */
for (;;)
{
if (total >= 365)
{
total -= 365;
yy += 1;
}
else if (total >= 30)
{
total -= 30;
mm += 1;
}
else
{
dad += total;
break;
}
}
if (mm == 1)
strcpy (mstatus, "month");
else
strcpy (mstatus, "months");
if (dad == 1)
strcpy (dstatus, "day");
else
strcpy (dstatus, "days");
if (is_self)
{
if (!IS_EXTRA (ch, EXTRA_BORN))
yy += 17;
sprintf (buf, " #wAge: #n %d years, %d %s, %d %s old.\n\r",
yy, mm, mstatus, dad, dstatus);
send_to_char (buf, ch);
}
else
{
if (yy > 0 || (dad > 0 && mm >= 9) || IS_EXTRA (ch, EXTRA_LABOUR))
{
if (!IS_EXTRA (ch, EXTRA_LABOUR))
SET_BIT (ch->extra, EXTRA_LABOUR);
sprintf (buf, " You are ready to give birth.\n\r");
send_to_char (buf, ch);
}
else if (yy > 0 || mm > 0)
{
sprintf (buf, " You are %d %s and %d %s pregnant.\n\r",
mm, mstatus, dad, dstatus);
send_to_char (buf, ch);
}
}
return;
}
void other_age (CHAR_DATA * ch, int extra, bool is_preg, char *argument,
int oasex)
{
char buf[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char mstatus[20];
char dstatus[20];
// int oasex;
char omin[3];
char cmin[3];
char ohour[3];
char chour[3];
char oday0[2];
char cday0[2];
char oday1[2];
char cday1[2];
char omonth[4];
char cmonth[4];
char oyear[5];
char cyear[5];
char *strtime;
int oyear2 = 0;
int cyear2 = 0;
int omonth2 = 0;
int cmonth2 = 0;
int oday2 = 0;
int cday2 = 0;
int total = 0;
int dad = 0;
int mm = 0;
int yy = 0;
bool o_month = FALSE;
bool c_month = FALSE;
strcpy (buf, argument);
if (strlen (buf) < 19)
return;
strtime = new_date (current_time);
//07-Sep-1997 13:36:50.
//01234567890123456789
strcpy (buf2, strtime);
oyear[0] = buf[7];
oyear[1] = buf[8];
oyear[2] = buf[9];
oyear[3] = buf[10];
oyear[4] = '\0';
omonth[0] = buf[3];
omonth[1] = buf[4];
omonth[2] = buf[5];
omonth[3] = '\0';
oday0[0] = buf[0];
oday0[1] = '\0';
oday1[0] = buf[1];
oday1[1] = '\0';
ohour[0] = buf[12];
ohour[1] = buf[13];
ohour[2] = '\0';
omin[0] = buf[15];
omin[1] = buf[16];
omin[2] = '\0';
cyear[0] = buf2[7];
cyear[1] = buf2[8];
cyear[2] = buf2[9];
cyear[3] = buf2[10];
cyear[4] = '\0';
cmonth[0] = buf2[3];
cmonth[1] = buf2[4];
cmonth[2] = buf2[5];
cmonth[3] = '\0';
cday0[0] = buf2[0];
cday0[1] = '\0';
cday1[0] = buf2[1];
cday1[1] = '\0';
chour[0] = buf2[12];
chour[1] = buf2[13];
chour[2] = '\0';
cmin[0] = buf2[15];
cmin[1] = buf2[16];
cmin[2] = '\0';
if (!str_cmp (omonth, "Dec"))
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Nov") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Oct") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Sep") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Aug") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jul") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jun") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "May") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Apr") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Mar") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Feb") || o_month)
{
omonth2 += 28;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jan") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!o_month)
{
send_to_char ("Error! Please inform KaVir.\n\r", ch);
return;
}
if (!str_cmp (cmonth, "Dec"))
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Nov") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Oct") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Sep") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Aug") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jul") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jun") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "May") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Apr") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Mar") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Feb") || c_month)
{
cmonth2 += 28;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jan") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!c_month)
{
send_to_char ("Error! Please inform KaVir.\n\r", ch);
return;
}
if (is_number (oyear))
oyear2 += atoi (oyear);
if (is_number (cyear))
cyear2 += atoi (cyear);
if (is_number (oday0))
oday2 += (atoi (oday0) * 10);
if (is_number (oday1))
oday2 += atoi (oday1);
if (is_number (cday0))
cday2 += (atoi (cday0) * 10);
if (is_number (cday1))
cday2 += atoi (cday1);
total += ((cyear2 - oyear2) * 365);
total += (cmonth2 - omonth2);
total += (cday2 - oday2);
total *= 24; /* Total playing time is now in hours */
if (is_number (chour) && is_number (ohour))
total += (atoi (chour) - atoi (ohour));
total *= 60; /* Total now in minutes */
if (is_number (cmin) && is_number (omin))
total += (atoi (cmin) - atoi (omin));
if (total < 1)
total = 0;
else
total /= 60; /* Time now in game days */
for (;;)
{
if (total >= 365)
{
total -= 365;
yy += 1;
}
else if (total >= 30)
{
total -= 30;
mm += 1;
}
else
{
dad += total;
break;
}
}
if (mm == 1)
strcpy (mstatus, "month");
else
strcpy (mstatus, "months");
if (dad == 1)
strcpy (dstatus, "day");
else
strcpy (dstatus, "days");
if (!is_preg)
{
if (!IS_EXTRA (ch, EXTRA_BORN))
yy += 17;
sprintf (buf, " #wAge: #n %d years, %d %s and %d %s old.\n\r",
yy, mm, mstatus, dad, dstatus);
send_to_char (buf, ch);
}
else
{
if (yy > 0 || (dad > 0 && mm >= 9) || IS_SET (extra, EXTRA_LABOUR))
{
sprintf (buf, " #wPregnancy: #n %s is ready to give birth.\n\r",
oasex == SEX_FEMALE ? "She" : oasex ==
SEX_MALE ? "He" : "It");
//sprintf(buf,"#wPregnancy: #n They are ready to give birth.\n\r");
send_to_char (buf, ch);
}
else if (yy > 0 || mm > 0)
{
sprintf (buf, " #wPregnancy: #n %d %s and %d %s.\n\r",
mm, mstatus, dad, dstatus);
send_to_char (buf, ch);
}
}
return;
}
int years_old (CHAR_DATA * ch)
{
char buf[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char omin[3];
char cmin[3];
char ohour[3];
char chour[3];
char oday0[2];
char cday0[2];
char oday1[2];
char cday1[2];
char omonth[4];
char cmonth[4];
char oyear[5];
char cyear[5];
char *strtime;
int oyear2 = 0;
int cyear2 = 0;
int omonth2 = 0;
int cmonth2 = 0;
int oday2 = 0;
int cday2 = 0;
int total = 0;
int yy = 0;
bool o_month = FALSE;
bool c_month = FALSE;
if (IS_NPC (ch))
return 0;
strcpy (buf, ch->createtime);
if (strlen (buf) < 24)
return 0;
strtime = ctime (¤t_time);
strtime[strlen (strtime) - 1] = '\0';
strcpy (buf2, strtime);
oyear[0] = buf[20];
oyear[1] = buf[21];
oyear[2] = buf[22];
oyear[3] = buf[23];
oyear[4] = '\0';
omonth[0] = buf[4];
omonth[1] = buf[5];
omonth[2] = buf[6];
omonth[3] = '\0';
oday0[0] = buf[8];
oday0[1] = '\0';
oday1[0] = buf[9];
oday1[1] = '\0';
ohour[0] = buf[11];
ohour[1] = buf[12];
ohour[2] = '\0';
omin[0] = buf[14];
omin[1] = buf[15];
omin[2] = '\0';
cyear[0] = buf2[20];
cyear[1] = buf2[21];
cyear[2] = buf2[22];
cyear[3] = buf2[23];
cyear[4] = '\0';
cmonth[0] = buf2[4];
cmonth[1] = buf2[5];
cmonth[2] = buf2[6];
cmonth[3] = '\0';
cday0[0] = buf2[8];
cday0[1] = '\0';
cday1[0] = buf2[9];
cday1[1] = '\0';
chour[0] = buf2[11];
chour[1] = buf2[12];
chour[2] = '\0';
cmin[0] = buf2[14];
cmin[1] = buf2[15];
cmin[2] = '\0';
if (!str_cmp (omonth, "Dec"))
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Nov") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Oct") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Sep") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Aug") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jul") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jun") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "May") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Apr") || o_month)
{
omonth2 += 30;
o_month = TRUE;
}
if (!str_cmp (omonth, "Mar") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!str_cmp (omonth, "Feb") || o_month)
{
omonth2 += 28;
o_month = TRUE;
}
if (!str_cmp (omonth, "Jan") || o_month)
{
omonth2 += 31;
o_month = TRUE;
}
if (!o_month)
{
send_to_char ("Error! Please inform KaVir.\n\r", ch);
return 0;
}
if (!str_cmp (cmonth, "Dec"))
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Nov") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Oct") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Sep") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Aug") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jul") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jun") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "May") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Apr") || c_month)
{
cmonth2 += 30;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Mar") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Feb") || c_month)
{
cmonth2 += 28;
c_month = TRUE;
}
if (!str_cmp (cmonth, "Jan") || c_month)
{
cmonth2 += 31;
c_month = TRUE;
}
if (!c_month)
{
send_to_char ("Error! Please inform KaVir.\n\r", ch);
return 0;
}
if (is_number (oyear))
oyear2 += atoi (oyear);
if (is_number (cyear))
cyear2 += atoi (cyear);
if (is_number (oday0))
oday2 += (atoi (oday0) * 10);
if (is_number (oday1))
oday2 += atoi (oday1);
if (is_number (cday0))
cday2 += (atoi (cday0) * 10);
if (is_number (cday1))
cday2 += atoi (cday1);
total += ((cyear2 - oyear2) * 365);
total += (cmonth2 - omonth2);
total += (cday2 - oday2);
total *= 24; /* Total playing time is now in hours */
if (is_number (chour) && is_number (ohour))
total += (atoi (chour) - atoi (ohour));
total *= 60; /* Total now in minutes */
if (is_number (cmin) && is_number (omin))
total += (atoi (cmin) - atoi (omin));
if (total < 1)
total = 0;
else
total /= 60; /* Time now in game days */
for (;;)
{
if (total >= 365)
{
total -= 365;
yy += 1;
}
else
break;
}
if (!IS_EXTRA (ch, EXTRA_BORN))
yy += 17; /* Starting age for all players */
return yy;
}
void do_huh (CHAR_DATA * ch, char *argument)
{
do_rand_typo (ch);
return;
}
void do_consent (CHAR_DATA * ch, char *argument)
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
argument = one_argument (argument, arg);
if (IS_NPC (ch))
return;
if ((victim = get_char_room (ch, arg)) == NULL)
{
send_to_char ("They are not here.\n\r", ch);
return;
}
if (IS_NPC (victim))
{
send_to_char ("Not on NPC's.\n\r", ch);
return;
}
if (ch == victim)
{
send_to_char ("Not on yourself!\n\r", ch);
return;
}
ch->pcdata->partner = victim;
act ("You give $N permission to use xsocials on you.", ch, NULL, victim,
TO_CHAR);
act ("$n has given you permission to use xsocials on $m.", ch, NULL,
victim, TO_VICT);
return;
}