/***************************************************************************
* 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 originally written by KaVir aka Richard Woolcock. *
* Changes done to the code done by Sage aka Walter Howard, this mud is *
* for the public, however if you run this code it means you agree *
* to the license.low, license.gw, and license.merc have fun. :) *
***************************************************************************/
#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h> /* unlink() */
#include "merc.h"
#include "leader.h"
#include "commands.h"
/*
* Ok you wanna make a new command?
* 1. COMMAND( do_???? ) in commands.h
* 2. full clean compile of the mud.
* 3. Boot the mud, and type cmdedit create [command]
* 4. fill it out.
* 5. save.
* 6. done
*/
/*some sort of messup in drow.c? + moogle.c*/
bool check_social args( ( CHAR_DATA *ch, char *command,
char *argument ) );
bool check_xsocial args( ( CHAR_DATA *ch, char *command,
char *argument ) );
void make_preg args( ( CHAR_DATA *mother, CHAR_DATA *father ) );
extern int nAllocString;
extern int nAllocPerm;
/*
* Command logging types.
*/
#define LOG_NORMAL 0
#define LOG_ALWAYS 1
#define LOG_NEVER 2
/*
* Log-all switch.
*/
bool fLogAll = FALSE;
bool check_disabled (const struct cmd_type *command);
BAN_DATA *ban_first;
DISABLED_DATA *disabled_first;
#define END_MARKER "END" /* for load_disabled() and save_disabled()*/
extern int MAX_CMD;
void order_table_com( void )
{
int i, j, cnt, maxcnt = 0, cntl[27], ilet, calc;
char letra;
struct cmd_type *new_cmd_table;
struct cmd_type **temptabla;
for ( i = 0; i < 27; ++i )
cntl[i] = 0;
for ( i = 0; i < 26; i++ )
{
cnt = 0;
for ( j = 0; j < MAX_CMD; ++j )
{
letra = LOWER(cmd_table[j].name[0]) - 'a';
if ( i == (int) letra )
cnt++;
}
if ( cnt > maxcnt )
maxcnt = cnt;
}
temptabla = calloc( (maxcnt*27), sizeof(struct cmd_type *) );
for ( i = 0; i < (maxcnt*27); ++i )
temptabla[i] = NULL;
for ( i = 0; i < MAX_CMD; ++i )
{
if ( !isalpha(cmd_table[i].name[0]) )
temptabla[cntl[0]++] = &cmd_table[i];
else
{
letra = LOWER(cmd_table[i].name[0]);
ilet = (int) letra;
ilet -= 'a';
ilet++;
cntl[ilet]++;
calc = (maxcnt * ilet) + cntl[ilet];
temptabla[calc] = &cmd_table[i];
}
}
new_cmd_table = malloc (sizeof(struct cmd_type) * (MAX_CMD + 1));
i = cnt = 0;
while ( i < (maxcnt*27) )
{
if ( temptabla[i] )
new_cmd_table[cnt++] = *temptabla[i];
i++;
}
new_cmd_table[MAX_CMD].name = str_dup( "" );
free(temptabla);
free(cmd_table);
cmd_table = new_cmd_table;
}
int num_letra[26];
void clear_table_commands( void )
{
int cmd;
char letra;
/* Ordenar tabla e inicializar vector */
order_table_com();
for ( cmd = 0; cmd < 26; cmd++ )
num_letra[cmd] = -1;
for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; ++cmd )
{
letra = LOWER(cmd_table[cmd].name[0]);
if ( !isalpha(letra) )
continue;
letra -= 'a'; /* rango 0...26-1 */
if ( num_letra[(int) letra] == -1 )
num_letra[(int) letra] = cmd;
}
}
/*
* The social table.
* Add new socials here.
* Alphabetical order is not required.
*/
/*
* The X-social table.
* Add new X-socials here.
* Alphabetical order is not required.
*/
const struct xsocial_type xsocial_table [] =
{
{
"x-earlobe",
"On whom do you wish to do this?",
NULL,
"You gently tug on $M earlobe with your teeth.",
"$n gently tugs on $N's earlobe with $s teeth.",
"$n gently tugs on your earlobe with $s teeth.",
"Not on yourself!",
NULL,
0, 0, 0, 1, 1, FALSE
},
{
"x-kneel",
"Drop to your knees before who?",
NULL,
"You drop to your knees before $M, begging for mercy.",
"$n drops to $s knees before $N, begging for $M mercy.",
"$n drops to $s knees before you, begging for mercy.",
"Nope.",
NULL,
0, 0, 0, 7, 7, FALSE
},
{
"x-french",
"On whom do you wish to do this?",
NULL,
"You give $M a deep throbbing kiss, rolling your tongue around $S.",
"$n gives $N a deep throbbing kiss.",
"$n gives you a deep throbbing kiss, rolling $s tongue around yours.",
"Not on yourself!",
NULL,
0, 0, 0, 1, 1, FALSE
},
{
"x-kissneck",
"On whom do you wish to do this?",
NULL,
"You slowly and softly kiss and nuzzle $M neck.",
"$n slowly and softly kisses and nuzzles $N's neck.",
"$n slowly and softly kisses and nuzzles your neck.",
"Not on yourself!",
NULL,
0, 0, 0, 1, 1, FALSE
},
{
"x-wcream",
"On whom do you wish to do this?",
NULL,
"You spray whipped cream all over $M body, licking it up with your tongue.",
"$n coats $N's body in whipped cream and then licks it up with their tongue.",
"$n covers your body in whipped cream, and you moan as it gets licked up with their tongue.",
"No.",
NULL,
0, 0, 0, 5, 5, FALSE
},
{
"x-ice",
"On who?",
NULL,
"You run a cold piece of ice down $M back, following up with your tongue.",
"$n runs a piece of ice over $N's back, following up with their tongue.",
"$n runs a piece of ice over your burning hot flesh, following up with their tongue.",
"No.",
NULL,
0, 0, 0, 6, 8, FALSE
},
{
"x-whip",
"Who's been bad?",
NULL,
"You smirk slightly as you crack a whip over $N's tender skin, making $M whimper.",
"$n grins slightly as he whips $N's tender flesh, making $M whimper.",
"$n grins wickedly as they whip your tender flesh, making you whimper slightly in fear.",
"No.",
NULL,
0, 0, 0, 9, 2, FALSE
},
{
"x-moan",
"On whom do you wish to do this?",
NULL,
"You start moaning 'Oh $N...oh yes...don't stop...mmMMmm...'",
"$n starts moaning 'Oh $N...oh yes...don't stop...mmMMmm...'",
"$n starts moaning 'Oh $N...oh yes...don't stop...mmMMmm...'",
"Not on yourself!",
NULL,
0, 2, 0, 1, 1, FALSE
},
{
"x-nuttella",
"On whom do you wish to do this?",
NULL,
"You cover $N's naked flesh with a popular choc spread, before licking it off.",
"$n smears a chocolate spread over $N's body, licking $M clean with relish",
"$n smears a popular choc spread on your naked flesh, licking it off you",
"Not on yourself!",
NULL,
0, 0, 0, 5, 20, FALSE
},
{
"x-stroke",
"On whom do you wish to do this?",
NULL,
"You lightly run your fingers along the insides of $S thighs.",
"$n lightly runs $s fingers along the insides of $N's thighs.",
"$n lightly runs $s fingers along the insides of your thighs.",
"Not on yourself!",
NULL,
0, 0, 0, 5, 10, FALSE
},
{
"x-tender",
"On whom do you wish to do this?",
NULL,
"You run your fingers through $S hair and kiss $M tenderly on the lips.",
"$n runs $s fingers through $N's hair and kisses $M tenderly on the lips.",
"$n runs $s fingers through your hair and kisses you tenderly on the lips.",
"Not on yourself!",
NULL,
0, 0, 0, 1, 1, FALSE
},
{
"x-tie",
"On whom do you wish to do this?",
NULL,
"You tie $N to the bed posts!",
"$n ties $N's body, fixing $M helplessly on the bed. Oh!! Kinky!",
"$n ties you to the bed post, leaving you completely at $s mercy",
"Not on yourself!",
NULL,
0, 0, 0, 15, 10, FALSE
},
{
"x-gag",
"Who needs to be gagged?",
NULL,
"You shove a gag in $N's mouth.",
"$n shoves a gag in $N's mouth.",
"$n opens your mouth and shoves a large ball gag into it.",
"Not on yourself!",
NULL,
0,0,0,15,10,FALSE
},
{
"x-blindfold",
"Who needs to be blindfolded?",
NULL,
"You place a blindfold over $S eyes.",
"$n places a blindfold over $N's eyes.",
"$n places a blindfold over your eyes.",
"Not on yourself!",
NULL,
0,0,0,15,10,FALSE
},
{
"x-withdraw",
"On whom do you wish to do this?",
NULL,
"You gently pull yourself free of $M.",
"$n gently pulls $mself free of $N.",
"$n gently pulls $mself free of you.",
"Not on yourself!",
NULL,
0, 1, 0, 0, 0, FALSE
},
{
"xf-oral",
"On whom do you wish to do this?",
NULL,
"You take $N's hot member in your hands, licking his cock from base to tip.",
"$n takes $N's penis in $s hands, licking $N's cock from base to tip.",
"You let out a small moan as $n takes your cock into her hands, licking it from your balls to the tip.",
"On yourself? I'm impressed!",
NULL,
2, 0, 0, 5, 15, FALSE
},
{
"xf-spank",
"Who's been naughty?",
NULL,
"You take $N over your knee and spank him hard, making him squirm.",
"$n bends $N over her knees and spanks him hard on the ass, making him squirm.",
"You whimper softly as $n takes you over her knee, spanking you hard on the ass, making it sting.",
"Nah.",
NULL,
2, 0, 0, 25, 4, FALSE
},
{
"xf-urine",
"On whom do you wish to do this?",
NULL,
"You maliciously lean $N's head back and stand over him with his mouth open before letting a hard stream of piss shoot down his throat.",
"$n shoots a golden stream of urine down $N's throat, making him choke and swallow.",
"You eyes widen as your mistress shoots a stream of piss odown your throat, making you swallow it all.",
"Nope.",
NULL,
2, 0, 0, 37, -10, FALSE
},
{
"xf-beg",
"Beg who, you stupid slut?",
NULL,
"You drop to your kneees before $N, begging for him to abuse you and fuck you hard.",
"$n drops to her knees and begs for $N to take her and use her for his pleasure.",
"$n drops to her knees before you, begging for you to abuse her worthless slut body.",
"It doesn't work that way, you stupid whore.",
NULL,
2, 0, 0, -10, 12, FALSE
},
{
"xf-blowjob",
"On whom do you wish to do this?",
NULL,
"You take $N's hot member in your mouth, sucking $S shaft.",
"$n takes $N's throbbing penis in $s mouth, sucking $N's cock.",
"You gasp as $n takes your penis in $s mouth, licking your head.",
"On yourself? I'm impressed!",
NULL,
2, 1, 250, 10, 25, FALSE
},
{
"xf-tip",
"On whom do you wish to do this?",
NULL,
"You gently run the tip of your tongue along the underside of $N's hot cock.",
"$n runs the tip of $s tongue along the bottom of $N's pulsing cock.",
"You let out a low moan as $n runs the tip of her tongue along the underside of your cock.",
"I think not.",
NULL,
2, 0, 0, 5, 59, FALSE
},
{
"xf-handjob",
"On who?",
NULL,
"You take his hot cock in your hand and wrap your fingers around it, slowly pumping up and down.",
"$n takes $N's hot cock in her hands, wrapping her fingers around it as she slowly pumps up and down.",
"$n takes your hot cock into her hands, and you moan softly as she wraps her fingers around it, slowly pumping up and down.",
"No.",
NULL,
2, 0, 0, 9, 14, FALSE
},
{
"xf-sitface",
"Who gets to taste your sweet juice?",
NULL,
"You push $N onto his back and crawl up his body, sitting down on his face as he licks at your pussy.",
"$n pushes $N onto his back and straddles his face, moaning as he licks her hot pussy.",
"$n pushes you onto your back and straddles your face, moaning and squirming as you eagerly lap at her hot, wet cunt.",
"No.",
NULL,
2, 1, 250, 15, 0, FALSE
},
{
"xf-69",
"Who?",
NULL,
"You crawl on top of $N and takes his hot cock between your lips, moaning as he laps at your cunt.",
"$n pushes $N onto his back and crawls on top of him, sucking his cock while he wriggles his tongue about in her cunt.",
"$n pushes you onto your back, crawling on top of you as she sucks on your cock, moaning while you lick her pussy.",
"No.",
NULL,
2, 1, 250, 20, 20, TRUE
},
{
"xf-breasts",
"On whom do you wish to do this?",
NULL,
"You take $S hands and press them to your breasts.",
"$n takes $N's hands and presses them to $m breasts.",
"$n takes your hands and presses them to $m breasts.",
"Not on yourself!",
NULL,
2, 0, 0, 5, 10, FALSE
},
{
"xf-rub",
"Who gets to feel the magic touch?",NULL,
"You gently run your fingers over $N's hardening cock.",
"$n gently runs her fingers over $N's hardening cock.",
"$n gently runs her fingers over your hardening cock.",
"You don't have a penis. At least, I hope not.",
NULL,
2, 0 , 0, 15, 20, FALSE
},
{
"xf-contract",
"On whom do you wish to do this?",
NULL,
"You contract your vaginal muscles, driving $M wild.",
"$n contracts $m vaginal muscles, driving $N wild.",
"$n contracts $m vaginal muscles, driving you wild.",
"Not on yourself!",
NULL,
2, 2, 0, 10, 15, TRUE
},
{
"xf-finger",
"On whom do you wish to do this?",
NULL,
"You put your hands between your legs and begin to masterbate for $N.",
"$n puts $m hands between $m legs and begins to masterbate for $N.",
"$n puts $m hands between $m legs and begins to masterbate for your viewing pleasure. What a turn on!.",
"Not on yourself!",
NULL,
2, 0, 0, 20, 10, FALSE
},
{
"xf-floor",
"On whom do you wish to do this?",
NULL,
"You lie on your back, and pull $M between your parted legs.",
"$n lies on $m back, and pulls $N between $m parted legs.",
"$n lies on $m back, and pulls you between $m parted legs.",
"Not on yourself!",
NULL,
2, 1, 250, 25, 20, TRUE
},
{
"xf-grind",
"On whom do you wish to do this?",
NULL,
"You grind your hips up to meet $S thrusts.",
"$n grinds $m hips up to meet $N's thrusts.",
"$n grinds $m hips up to meet your thrusts.",
"Not on yourself!",
NULL,
2, 2, 0, 15, 10, TRUE
},
{
"xf-mount",
"On whom do you wish to do this?",
NULL,
"You push $M onto $S back, and slowly lower yourself onto $S erection.",
"$n pushes $N onto $S back, and slowly lowers $mself onto $S erection.",
"$n pushes you onto your back, and slowly lowers $mself onto your erection.",
"Not on yourself!",
NULL,
2, 1, 250, 25, 20, TRUE
},
{
"xf-nails",
"On whom do you wish to do this?",
NULL,
"You scratch your nails down $S back.",
"$n scratches $m nails down $N's back.",
"$n scratches $m nails down your back.",
"Not on yourself!",
NULL,
2, 2, 0, 5, 1, TRUE
},
{
"xf-pull",
"On whom do you wish to do this?",
NULL,
"You wrap your arms and legs around $M and pull $M into you.",
"$n wraps $m arms and legs around $N and pulls $M into $m.",
"$n wraps $m arms and legs around you and pulls you into $m.",
"Not on yourself!",
NULL,
2, 2, 0, 15, 10, TRUE
},
{
"xf-squeeze",
"On whom do you wish to do this?",
NULL,
"Your wrap your legs around $M and squeeze tightly.",
"$n wraps $m legs around $N and squeezes tightly.",
"$n wraps $m legs around you and squeezes tightly.",
"Not on yourself!",
NULL,
2, 2, 0, 15, 10, TRUE
},
{
"xf-titfuck",
"Whom do you wish to treat to this?",
NULL,
"You take $N's cock and place it between your breasts, as $N gently thrusts.",
"$n takes $N's penis, places it between $s breasts, and wanks $M off.",
"$n takes your cock, places it between her breasts, and wanks you gently with them.",
"Not on yourself!",
NULL,
2, 1, 0, 10, 20, FALSE
},
{
"xf-fondle",
"On whom do you wish to perform this?",
NULL,
"You reach down and gently fondle $N's warm penis.",
"$n takes $N's cock into her hands, fondling it gently.",
"$n takes your warm cock into her hands, fondling you gently.",
"No.",
NULL,
2, 0, 0, 5, 13, FALSE
},
{
"xf-bob",
"On whom do you wish to perform this?",
NULL,
"You wrap your lips tight around $N's cock and bob your head back and forth, forcing him into your mouth.",
"$n wraps her lips over $N's cock and bobs her head back and forth, making him fuck her mouth.",
"$n wraps her lips tight around your cock and bobs her head back and forth, pumping your length in and out of her mouth.",
"No.",
NULL,
2, 2, 0, 20, 25, TRUE
},
{
"xf-undress",
"On whom do you wish to do this?",
NULL,
"You push $N onto the floor, a gleam in your eyes, and tear $S clothes off.",
"$n pushes $N to the floor, tears $S clothes from $S body.",
"$n pushes you to the floor, grins, and rips your clothes from your body.",
"Not on yourself!",
NULL,
2, 0, 0, 1, 1, FALSE
},
{
"xm-anal",
"On whom do you wish to do this?",
NULL,
"$N screams in extacy as you come from behind and penetrate $M tight ass from behind.",
"$n comes from behind $N and penetrates $M tight ass from behind.",
"You scream as $n comes from behind and penetrates your tight ass from behind!",
"Not on yourself!",
NULL,
1, 1, 250, 25, 25, FALSE
},
{
"xm-spank",
"Who's the naughty whore?",
NULL,
"You grab $N by the hair and throw her over your knees, slapping her hard on the ass.",
"$n visciously throws $N over his knee, spanking her relentlessly on her tight ass.",
"You cry out softly as $n visciously takes you over his knee, spanking you mercilessly.",
"Nah.",
NULL,
1, 0, 0, 33, -14, FALSE
},
{
"xm-69",
"Whom do you wish to perform this on?",
NULL,
"You pull $N on top of you and spread her legs, burying your face in her pussy as she sucks on your hard cock.",
"$n pulls $N on top of him and buries his face between her legs, eating her out as she goes down on his cock.",
"$n pulls you on top of him and spreads your legs, burying his face between your legs and sucking on your clit as you takes his cock into your mouth.",
"No.",
NULL,
1, 2, 0, 24, 24, TRUE
},
{
"xm-urine",
"Who gets to taste it?",
NULL,
"You force open $N's slutty mouth and shoot a hot stream of piss into it, making her swallow.",
"$n forces open $Ns mouth and shoots a hot stream of golden piss into it, making her swallow.",
"$n forces open your slutty mouth and shoots a hot, golden stream of his piss into it, making you swallow.",
"No.",
NULL,
1, 0, 0, 40, -19, FALSE
},
{
"xm-beg",
"Beg who, you worthless bitchboy?",
NULL,
"You drop to your knees, tears in your eyes, and beg for $N to take you as hers.",
"$n drops to his knees before $N, begging for her to take him as hers.",
"$n drops to his knees before you with tears in his eyes, sobbing as he begs for you to take him as your own personal toy.",
"You worthless slut, you can't even do this right.",
NULL,
1, 0, 0, -15, 30, FALSE
},
{
"xm-facial",
"Who gets to have their slutty face done over?",
NULL,
"You groan as you shoot your load across her delicate features, your hot cum coating her face and dripping from her chin.",
"$n grits his teeth as he shoots his sticky cum over $N's face, moaning as she licks her lips and lets it drip down.",
"$n's eyes widen as he shoots his hot, sticky cum over your face, letting it drip from your chin and trickle over your lips.",
"Nope.",
NULL,
1, 2, 0, 300, 20, TRUE
},
{
"xm-cum",
"So close, yet, so far away?",
NULL,
"You let out a low moan as you release your load into $N, filling her up with your hot cum.",
"$n cries out as he shoots his hot, sticky cum all inside of $N, his creamy load shooting home.",
"$n grits his teeth and shoots his sticky cum inside of yor whorish body, filling you up until it drips out.",
"Nopers.",
NULL,
1, 2, 0, 300, 20, TRUE
},
{
"xm-breasts",
"On whom do you wish to do this?",
NULL,
"You gently run the tip of your tongue across $M naked breasts.",
"$n gently runs the tip of $s tongue across $N's naked breasts.",
"$n gently runs the tip of $s tongue across your naked breasts.",
"Not on yourself!",
NULL,
1, 0, 0, 5, 10, FALSE
},
{
"xm-cup",
"On whom do you wish to do this?",
NULL,
"You cup $N's breasts in your hands, and caress $S nipples.",
"$n cups $N's breasts in $s hands and caress' $S nipples.",
"$n cups your breasts in $s palms and caress' your nipples.",
"ON YOURSELF??",
NULL,
1, 0, 0, 1, 5, FALSE
},
{
"xm-doggy",
"On whom do you wish to do this?",
NULL,
"You roll $M onto all fours and penetrate $M hot flesh from behind.",
"$n rolls $N onto all fours and penetrates $M hot flesh from behind.",
"$n rolls you onto all fours and penetrates your hot flesh from behind.",
"Not on yourself!",
NULL,
1, 1, 250, 25, 15, FALSE
},
{
"xm-finger",
"On whom do you wish to do this?",
NULL,
"You slide your fingers between $M legs, gently stroking $M clitoris.",
"$n slides $s fingers between $N's legs, gently stroking $M clitoris.",
"$n slides $s fingers between your legs, gently stroking your clitoris.",
"Not on yourself!",
NULL,
1, 0, 250, 0, 10, FALSE
},
{
"xm-fist",
"On whom do you wish to do this? I hope you asked!",
NULL,
"You make a fist and thrust it up $N's spread wide vagina as she screams with pleasure.",
"$N gasps as $n pushes $s hand up between $S legs into $S vagina.",
"$n spreads your legs wide, and thrusts $s hand up your vagina making you cry out in pleasure.",
"C'est non possible.. I hope...",
NULL,
1, 1, 250, 5, 15, FALSE
},
{
"xm-floor",
"On whom do you wish to do this?",
NULL,
"You lower $M to the floor, and slide your body between $M parted legs.",
"$n lowers $N to the floor, and slides $s body between $M parted legs.",
"$n lowers you to the floor, and slides $s body between your parted legs.",
"Not on yourself!",
NULL,
1, 1, 250, 15, 10, TRUE
},
{
"xm-jerkoff",
"On whom do you wish to do this?",
NULL,
"You grab your penis and begin to jerkoff for $N.",
"$n grabs your penis and begins to jerkoff for $N.",
"$n grab his penis and begin to jerkoff for your viewing pleasure. What a turn on!.",
"Not on yourself!",
NULL,
1, 1, 0, 25, 5, FALSE
},
{
"xm-rape",
"On whom do you wish to do this?",
NULL,
"You grab $S and rape her!",
"$n grabs $S and rapes her!",
"$n grab $S and rapes her, don't watch!.",
"Not on yourself!",
NULL,
1, 1, 0, 25, 5, FALSE
},
{
"xm-nipple",
"On whom do you wish to do this?",
NULL,
"You gently twist $M nipple between your thumb and forefinger.",
"$n gently twists $N's nipple between $s thumb and forefinger.",
"$n gently twists your nipple between $s thumb and forefinger.",
"Not on yourself!",
NULL,
1, 0, 0, 5, 10, FALSE
},
{
"xm-oral",
"On whom do you wish to do this?",
NULL,
"$N squirms in delight as you bend down and run your tongue along and into $S vagina.",
"$N squirms ecstatically as $n licks and kisses $S loveslit.",
"$n wriggles $s tongue about between your legs, making you squirm in ecstacy.",
"Biologically impossible I think you'll find!",
NULL,
1, 0, 0, 10, 25, FALSE
},
{
"xm-press",
"On whom do you wish to do this?",
NULL,
"You press $M against the wall, pulling $M legs around your hips.",
"$n presses $N against the wall, pulling $M legs around $s hips.",
"$n presses you against the wall, pulling your legs around $s hips.",
"Not on yourself!",
NULL,
1, 1, 250, 25, 20, TRUE
},
{
"xm-pull",
"On whom do you wish to do this?",
NULL,
"You grab $M around the hips and pull $M firmly onto your erection.",
"$n grabs $N around the hips and pull $M firmly onto $s erection.",
"$n grabs you around the hips and pulls you firmly onto $s erection.",
"Not on yourself!",
NULL,
1, 2, 0, 10, 10, TRUE
},
{
"xm-spoon",
"On whom do you wish to do this?",
NULL,
"You roll $M onto $S side and penetrate $M hot flesh from behind.",
"$n rolls $N onto $S side and penetrates $M hot flesh from behind.",
"$n rolls you onto your side and penetrates your hot flesh from behind.",
"Not on yourself!",
NULL,
1, 1, 250, 20, 20, TRUE
},
{
"xm-suck",
"On whom do you wish to do this?",
NULL,
"You suck slowly on $M nipple, feeling it harden between your lips.",
"$n suck slowly on $N's nipple.",
"$n sucks slowly on your nipple, and you feel it harden between $s lips.",
"Not on yourself!",
NULL,
1, 0, 0, 5, 10, FALSE
},
{
"xm-thrust",
"On whom do you wish to do this?",
NULL,
"You thrust deeply between $M warm, slippery thighs.",
"$n thrusts deeply between $N's warm, slippery thighs.",
"$n thrusts deeply between your warm, slippery thighs.",
"Not on yourself!",
NULL,
1, 2, 0, 15, 10, TRUE
},
{
"xm-hump",
"On whom do you wish to do this?",
NULL,
"You push $M onto all fours and mount her, madly shoving your hard cock in and out of her tiny hole.",
"$n mounts $N like she was a bitch in heat, madly pumping in and out of her hole.",
"$n pushes you onto all fours like you were a bitch and heat and mounts you as he rapidly shoves his cock in and out of your slutty hole.",
"No!.",
NULL,
1, 2, 0, 35, 65, TRUE
},
{
"xm-mfuck",
"Fuck who?",
NULL,
"You have $N wrap her lips tight around your cock, and you thrust gently, pumping your cock in and out of her warm, wet mouth.",
"$N wraps her lips tight aroudn $n's cock, and he thrusts gently, pumping in and out from between her lips.",
"You wrap your lips tight around $n's cock and he thrusts gently, pumping in and out from between your ruby red lips.",
"No.",
NULL,
1, 2, 0, 12, 20, TRUE
},
{
"xm-feed",
"Feed who?",
NULL,
"You gently stick your fingers in $N's hot cunt and bring them to her lips, making her suck them clean.",
"$n sticks his fingers in $N's twat and then brings them to her lips, making her lick them clean.",
"$n sticks his fingers in your dripping wet pussy and then brings them to your lips, where you suck them clean.",
"No.",
NULL,
1, 2, 0, 5, 10, FALSE
},
{
"xm-gag",
"Who gets to taste it?",
NULL,
"You ram your cock deep into $M mouth, making her gag and try to swallow.",
"$n rams his cock deep into $N's throat, making her gag and try to swallow.",
"$n shoves his cock deep into your throat, making you gag and try to swallow.",
"No.",
NULL,
1, 2, 0, 5, 13, FALSE
},
{
"xm-tug",
"On whom do you wish to do this?",
NULL,
"You gently tug $M nipple between your teeth.",
"$n gently tugs $N's nipple between $s teeth.",
"$n gently tugs your nipple between $s teeth.",
"Not on yourself!",
NULL,
1, 0, 0, 5, 10, FALSE
},
{
"xm-nibble",
"On whom do you wish to do this?",
NULL,
"You push $M onto her back and bury your face in her cunt, nibbling gently on her clit.",
"$n pushes $N onto her back and buries his face between her legs, nibbling gently on her clit.",
"$n pushes you onto your back and buries his face in your womanhood, nibbling gently on your clit.",
"Nope.",
NULL,
1, 1, 0, 10, 45, FALSE
},
{
"xm-undress",
"Who do you wish to undress?",
NULL,
"You gently tug at $N's garments with your teeth, until $E stands naked before you.",
"$n gently tugs at $N's clothes with his teeth, until $E stands naked infront of $m.",
"$n gently tugs at your clothing with his teeth, you stand naked before $m.",
"Not on yourself!",
NULL,
1, 0, 0, 1, 1, FALSE
},
{
"",
NULL, NULL, NULL, NULL, NULL, NULL, NULL, 0, 0, 0, 0, 0, FALSE
}
};
/*
* The main entry point for executing commands.
* Can be recursively called from 'at', 'order', 'force'.
*/
void interpret( CHAR_DATA *ch, char *argument )
{
CHAR_DATA *unveil;
DESCRIPTOR_DATA *d;
char arg[MAX_STRING_LENGTH];
char argu[MAX_STRING_LENGTH];
char command[MAX_STRING_LENGTH];
char logline[MAX_STRING_LENGTH];
char cmd_copy[MAX_INPUT_LENGTH] ;
char buf[MAX_STRING_LENGTH] ;
int cmd;
int trust;
bool found;
for ( d = descriptor_list ; d ; d = d->next )
{
if ( d->character != ch ) continue;
else if ( d->connected != CON_PLAYING )
d->connected = CON_PLAYING;
}
sprintf(argu,"%s %s",arg,one_argument( argument, arg));
if ( IS_GAR1(ch, GAROU_BLISSFUL) )
{
stc("You lose your concentration and fade back into existance.\n\r",ch);
REMOVE_BIT(ch->garou1, GAROU_BLISSFUL);
}
/*
* Strip leading spaces.
*/
while ( isspace(*argument) )
argument++;
if ( argument[0] == '\0' )
{
do_look( ch, "" );
return;
}
/*
* Implement freeze command.
*/
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_FREEZE) )
{
send_to_char( "You're totally frozen!\n\r", ch );
return;
}
if ( !IS_NPC(ch) && IS_SET(ch->flag2, EXTRA_AFK) )
do_afk(ch,"");
/*
* Grab the command word.
* Special parsing so ' can be a command,
* also no spaces needed after punctuation.
*/
strcpy( logline, argument );
strcpy(cmd_copy, argument) ;
if ( !isalpha(argument[0]) && !isdigit(argument[0]) )
{
command[0] = argument[0];
command[1] = '\0';
argument++;
while ( isspace(*argument) )
argument++;
}
else
{
argument = one_argument( argument, command );
}
/*
* Look for command in command table.
*/
found = FALSE;
trust = get_trust( ch );
if(IS_NPC(ch))trust=0;
for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; cmd++ )
{
if ( command[0] == cmd_table[cmd].name[0]
&& !str_prefix( command, cmd_table[cmd].name )
&& (cmd_table[cmd].level <= trust))
{
if (IS_HEAD(ch,LOST_HEAD) || IS_EXTRA(ch,EXTRA_OSWITCH) )
{
if (!str_cmp( cmd_table[cmd].name, "say" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "'" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "immtalk" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, ":" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "chat" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "qtalk" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "ooc" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "newbie" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "." )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "look" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "save" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "exits" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "emote" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "tell" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "order" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "who" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "weather" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "where" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "relevel" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "safe" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "scan" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "spy" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "score" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "save" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "inventory" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "oreturn" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "roll" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "leap" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "lifespan" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "nightsight" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "truesight" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "horns" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "fangs" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "cast" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "plasma" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "ashes" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "call" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "quit" ) &&
!IS_NPC(ch) && ch->pcdata->obj_vnum != 0) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "humanform" ) &&
!IS_NPC(ch) && ch->pcdata->obj_vnum != 0) found = TRUE;
else {
send_to_char( "Not without a body!\n\r", ch ); return; }
}
else if (IS_EXTRA(ch,EXTRA_EARTHMELD) )
{
if (!str_cmp( cmd_table[cmd].name, "earthmeld" ))found = TRUE;
else if (!str_cmp(cmd_table[cmd].name,"burrow")) found= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "look" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "save" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "exits")) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "inventory" ))found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "who" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "weather" )) found= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "where" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "relevel" )) found= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "safe" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "scan" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "spy" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "shadowsight" ))found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "vclan" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "upkeep" )) found= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "score" )) found =TRUE;
else if (!str_cmp( cmd_table[cmd].name, "immune" )) found= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "clandisc" ))found = TRUE;
else {
send_to_char( "Not while in the ground.\n\r", ch );
return; }
}
else if (ch->embracing!=NULL
|| ch->embraced!=NULL)
{
if (!str_cmp( cmd_table[cmd].name, "say" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "'" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "chat" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "qtalk" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "newbie" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "ooc" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "." )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "look" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "inventory" ))
found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "who" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "relevel" )) found
= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "score" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "report" )) found
= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "goto" )) found =
TRUE;
else if (!str_cmp( cmd_table[cmd].name, "kill" )) found
= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "berserk" )) found
= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "testemb" )) found
= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "reboot" )) found
= TRUE;
else if (!str_cmp( cmd_table[cmd].name, "save" )) found
= TRUE;
else if (!str_cmp(cmd_table[cmd].name,"diablerize") && ch->embracing
!=NULL) found=TRUE;
else if(!str_cmp(cmd_table[cmd].name,"restore"))found=TRUE;
else {
send_to_char( "Not while in an embrace.\n\r", ch );
return; }
}
else if (IS_EXTRA(ch,TIED_UP) )
{
if (!str_cmp( cmd_table[cmd].name, "say" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "'" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "chat" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "qtalk" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "." )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "yell" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "shout")) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "look" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "save" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "exits")) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "inventory" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "tell" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "order" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "who" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "weather" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "where" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "introduce" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "relevel" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "safe" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "scan" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "spy" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "darkness" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "sleep" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "wake" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "fangs" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "claws" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "nightsight" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "shadowsight" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "shadowplane" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "regenerate" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "shield" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "vclan" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "upkeep" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "score" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "immune" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "report" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "goto" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "flex" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "change" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "drink" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "gnaw" )) found = TRUE;
else if (!str_cmp( cmd_table[cmd].name, "newbie" )) found = TRUE;
else {
send_to_char( "Not while tied up.\n\r", ch );
if (ch->position > POS_STUNNED)
act("$n strains against $s bonds.",ch,NULL,NULL,TO_ROOM);
return; }
}
found = TRUE;
break;
}
}
/*
* Log and snoop.
*/
if ( cmd_table[cmd].log == LOG_NEVER )
strcpy( logline, "XXXXXXXX XXXXXXXX XXXXXXXX" );
if ( ( ( !IS_NPC(ch) && IS_SET(ch->act, PLR_LOG) )
|| fLogAll
|| cmd_table[cmd].log == LOG_ALWAYS ) )
{
if ( !IS_CREATOR(ch) )
{
sprintf( log_buf, "Log %s: %s", ch->name, logline );
log_string( log_buf );
}
}
if ( ch->desc != NULL && ch->desc->snoop_by != NULL )
{
write_to_buffer( ch->desc->snoop_by, "% ", 2 );
write_to_buffer( ch->desc->snoop_by, logline, 0 );
write_to_buffer( ch->desc->snoop_by, "\n\r", 2 );
}
if ( ch != NULL && ch->unveil != NULL )
{
unveil = ch->unveil;
if ( unveil->in_room->vnum != ch->in_room->vnum )
{
sprintf(buf,"You lose your mental link with %s.\n\r",ch->name);
stc(buf,unveil);
ch->unveil = NULL;
}
else
{
stc("% ", unveil);
stc(logline, unveil);
stc("\n\r", unveil);
}
}
if (ch->desc != NULL)
write_to_buffer(ch->desc,"\n\r",2);
if ( !found )
{
/*
* Look for command in socials table.
*/
if ( !check_social( ch, command, argument ) )
{
if (!check_xsocial( ch, command, argument))
if( !IS_NPC(ch) && PLR_FLAGS(ch, PLR_SPEAKSLOW ) )
send_to_char( "Huh?\n\r", ch );
else
do_say( ch, cmd_copy );
}
return;
}
else /* a normal valid command.. check if it is disabled */
if (check_disabled (&cmd_table[cmd]))
{
send_to_char ("This command has been temporarily disabled.\n\r", ch );
return;
}
/*
* Character not in position for command?
*/
if ( ch->position < cmd_table[cmd].position )
{
switch( ch->position )
{
case POS_DEAD:
send_to_char( "Lie still; you are DEAD.\n\r", ch );
break;
case POS_MORTAL:
case POS_INCAP:
send_to_char( "You are hurt far too bad for that.\n\r", ch );
break;
case POS_STUNNED:
send_to_char( "You are too stunned to do that.\n\r", ch );
break;
case POS_SLEEPING:
send_to_char( "In your dreams, or what?\n\r", ch );
break;
case POS_MEDITATING:
case POS_SITTING:
case POS_RESTING:
send_to_char( "Nah... You feel too relaxed...\n\r", ch);
break;
case POS_FIGHTING:
send_to_char( "No way! You are still fighting!\n\r", ch);
break;
}
return;
}
/*
* Dispatch the command.
*/
(*cmd_table[cmd].do_fun) ( ch, argument );
tail_chain( );
/*
*
*
if (string_count < nAllocString)
{
logf(NULL,"Memcheck : Increase in strings :: %s : %s", ch->name,
cmd_copy) ;
}
if (perm_count < nAllocPerm)
{
logf(NULL,"Memcheck : Increase in perms :: %s : %s", ch->name, cmd_copy) ;
}*/
return;
}
bool check_social( CHAR_DATA *ch, char *command, char *argument )
{
char arg[MAX_STRING_LENGTH];
CHAR_DATA *victim;
int cmd;
bool found;
found = FALSE;
for ( cmd = 0; social_table[cmd].name[0] != '\0'; cmd++ )
{
if ( command[0] == social_table[cmd].name[0]
&& !str_prefix( command, social_table[cmd].name ) )
{
found = TRUE;
break;
}
}
if ( !found )
return FALSE;
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_NO_EMOTE) )
{
send_to_char( "You are anti-social!\n\r", ch );
return TRUE;
}
/*
if ( IS_HEAD(ch,LOST_HEAD) || IS_EXTRA(ch,EXTRA_OSWITCH))
{
send_to_char( "You cannot socialise in this form!\n\r", ch );
return TRUE;
}
*/
switch ( ch->position )
{
case POS_DEAD:
send_to_char( "Lie still; you are DEAD.\n\r", ch );
return TRUE;
case POS_INCAP:
case POS_MORTAL:
send_to_char( "You are hurt far too bad for that.\n\r", ch );
return TRUE;
case POS_STUNNED:
send_to_char( "You are too stunned to do that.\n\r", ch );
return TRUE;
case POS_SLEEPING:
/*
* I just know this is the path to a 12" 'if' statement. :(
* But two players asked for it already! -- Furey
*/
if ( !str_cmp( social_table[cmd].name, "snore" ) )
break;
send_to_char( "In your dreams, or what?\n\r", ch );
return TRUE;
}
one_argument( argument, arg );
victim = NULL;
if ( arg[0] == '\0' )
{
act( social_table[cmd].others_no_arg, ch, NULL, victim, TO_ROOM );
act( social_table[cmd].char_no_arg, ch, NULL, victim, TO_CHAR );
}
else if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
}
else if ( victim == ch )
{
act( social_table[cmd].others_auto, ch, NULL, victim, TO_ROOM );
act( social_table[cmd].char_auto, ch, NULL, victim, TO_CHAR );
}
else
{
act( social_table[cmd].others_found, ch, NULL, victim, TO_NOTVICT );
act( social_table[cmd].char_found, ch, NULL, victim, TO_CHAR );
act( social_table[cmd].vict_found, ch, NULL, victim, TO_VICT );
if ( !IS_NPC(ch) && IS_NPC(victim)
&& !IS_AFFECTED(victim, AFF_CHARM)
&& IS_AWAKE(victim) )
{
switch ( number_bits( 4 ) )
{
case 0:
multi_hit( victim, ch, TYPE_UNDEFINED );
break;
case 1: case 2: case 3: case 4:
case 5: case 6: case 7: case 8:
act( social_table[cmd].others_found,
victim, NULL, ch, TO_NOTVICT );
act( social_table[cmd].char_found,
victim, NULL, ch, TO_CHAR );
act( social_table[cmd].vict_found,
victim, NULL, ch, TO_VICT );
break;
case 9: case 10: case 11: case 12:
act( "$n slaps $N.", victim, NULL, ch, TO_NOTVICT );
act( "You slap $N.", victim, NULL, ch, TO_CHAR );
act( "$n slaps you.", victim, NULL, ch, TO_VICT );
break;
}
}
}
return TRUE;
}
bool check_xsocial( CHAR_DATA *ch, char *command, char *argument )
{
char arg[MAX_STRING_LENGTH];
CHAR_DATA *victim;
CHAR_DATA *partner = NULL;
int cmd;
int stage;
int amount;
bool is_ok = FALSE;
bool found = FALSE;
bool one = FALSE;
bool two = FALSE;
if (IS_NPC(ch)) return FALSE;
for ( cmd = 0; xsocial_table[cmd].name[0] != '\0'; cmd++ )
{
if ( command[0] == xsocial_table[cmd].name[0]
&& !str_prefix( command, xsocial_table[cmd].name ) )
{
found = TRUE;
break;
}
}
if ( !found )
return FALSE;
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_NO_EMOTE) )
{
send_to_char( "You are anti-social!\n\r", ch );
return TRUE;
}
switch ( ch->position )
{
case POS_DEAD:
send_to_char( "Lie still; you are DEAD.\n\r", ch );
return TRUE;
case POS_INCAP:
case POS_MORTAL:
send_to_char( "You are hurt far too bad for that.\n\r", ch );
return TRUE;
case POS_STUNNED:
send_to_char( "You are too stunned to do that.\n\r", ch );
return TRUE;
case POS_SLEEPING:
send_to_char( "In your dreams, or what?\n\r", ch );
return TRUE;
}
one_argument( argument, arg );
victim = NULL;
if ( arg[0] == '\0' )
{
act( xsocial_table[cmd].others_no_arg, ch, NULL, victim, TO_ROOM );
act( xsocial_table[cmd].char_no_arg, ch, NULL, victim, TO_CHAR );
}
else if ( ( victim = get_char_room( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
}
else if ( victim == ch )
{
act( xsocial_table[cmd].others_auto, ch, NULL, victim, TO_ROOM );
act( xsocial_table[cmd].char_auto, ch, NULL, victim, TO_CHAR );
}
else if (IS_NPC(victim))
{
send_to_char("You can only perform xsocials on players.\n\r",ch);
}
else if (ch->sex != SEX_MALE && ch->sex != SEX_FEMALE)
{
send_to_char("You must be either male or female to use these socials.\n\r",ch);
}
else if (victim->sex != SEX_MALE && victim->sex != SEX_FEMALE)
{
send_to_char("They must be either male or female for these socials.\n\r",ch);
}
/* else if (ch->sex == victim->sex)
{
send_to_char("Please stick to people of the opposite gender.\n\r",ch);
}*/
else
{
if (xsocial_table[cmd].gender == SEX_MALE && ch->sex != SEX_MALE)
{
send_to_char("Only men can perform this type of social.\n\r",ch);
}
else if (xsocial_table[cmd].gender == SEX_FEMALE && ch->sex != SEX_FEMALE)
{
send_to_char("Only women can perform this type of social.\n\r",ch);
}
else if (xsocial_table[cmd].gender == SEX_MALE && victim->sex != SEX_FEMALE)
{
send_to_char("You can only perform this social on a woman.\n\r",ch);
}
else if (xsocial_table[cmd].gender == SEX_FEMALE && victim->sex != SEX_MALE)
{
send_to_char("You can only perform this social on a man.\n\r",ch);
}
else if ((partner = victim->pcdata->partner) == NULL || partner != ch)
{
send_to_char("You cannot perform an xsocial on someone without their CONSENT.\n\r",ch);
}
else if (xsocial_table[cmd].stage == 0 && ch->pcdata->stage[0] < 1
&& ch->pcdata->stage[2] > 0 && ch->sex == SEX_MALE)
send_to_char("You have not yet recovered from last time!\n\r",ch);
else if (xsocial_table[cmd].stage == 0 && victim->pcdata->stage[0] < 1
&& victim->pcdata->stage[2] > 0 && victim->sex == SEX_MALE)
send_to_char("They have not yet recovered from last time!\n\r",ch);
else if (xsocial_table[cmd].stage > 0 && ch->pcdata->stage[0] < 100)
send_to_char("You are not sufficiently aroused.\n\r",ch);
else if (xsocial_table[cmd].stage > 0 && victim->pcdata->stage[0] < 100)
send_to_char("They are not sufficiently aroused.\n\r",ch);
else if (xsocial_table[cmd].stage > 1 && ch->pcdata->stage[1] < 1)
send_to_char("You are not in the right position.\n\r",ch);
else if (xsocial_table[cmd].stage > 1 && victim->pcdata->stage[1] < 1)
send_to_char("They are not in the right position.\n\r",ch);
else
{
act(xsocial_table[cmd].others_found, ch, NULL, victim, TO_NOTVICT);
act(xsocial_table[cmd].char_found, ch, NULL, victim, TO_CHAR );
act(xsocial_table[cmd].vict_found, ch, NULL, victim, TO_VICT );
if (xsocial_table[cmd].chance)
{
if (ch->sex == SEX_FEMALE &&
!IS_EXTRA(ch, EXTRA_PREGNANT) && number_range(1,60) == 1)
make_preg(ch,victim);
else if (victim->sex == SEX_FEMALE &&
!IS_EXTRA(victim, EXTRA_PREGNANT) &&
number_range(1,60) == 1)
make_preg(victim,ch);
}
if (!str_cmp(xsocial_table[cmd].name, "x-tie") )
SET_BIT(victim->extra, TIED_UP);
if (!str_cmp(xsocial_table[cmd].name, "x-gag") )
SET_BIT(victim->extra, GAGGED);
if (!str_cmp(xsocial_table[cmd].name, "x-blindfold") )
SET_BIT(victim->extra, BLINDFOLDED);
if (xsocial_table[cmd].stage == 1)
{
ch->pcdata->stage[1] = xsocial_table[cmd].position;
victim->pcdata->stage[1] = xsocial_table[cmd].position;
if (!IS_SET(ch->extra, EXTRA_DONE))
{
SET_BIT(ch->extra, EXTRA_DONE);
if (ch->sex == SEX_FEMALE)
{
act("You feel $n bleed as you enter $m.",ch,NULL,victim,TO_VICT);
act("You feel yourself bleed as $N enters you.",ch,NULL,victim,TO_CHAR);
ch->in_room->blood += 1;
}
}
if (!IS_SET(victim->extra, EXTRA_DONE))
{
SET_BIT(victim->extra, EXTRA_DONE);
if (victim->sex == SEX_FEMALE)
{
act("You feel $N bleed as you enter $M.",ch,NULL,victim,TO_CHAR);
act("You feel yourself bleed as $n enters you.",ch,NULL,victim,TO_VICT);
ch->in_room->blood += 1;
}
}
stage = 2;
}
else stage = xsocial_table[cmd].stage;
if (stage == 2) amount = ch->pcdata->stage[1];
else amount = 100;
if (xsocial_table[cmd].self > 0)
{
is_ok = FALSE;
if (ch->pcdata->stage[stage] >= amount) is_ok = TRUE;
ch->pcdata->stage[stage] += xsocial_table[cmd].self;
if (!is_ok && ch->pcdata->stage[stage] >= amount)
{
stage_update(ch,victim,stage);
one = TRUE;
}
}
if (xsocial_table[cmd].other > 0)
{
is_ok = FALSE;
if (victim->pcdata->stage[stage] >= amount) is_ok = TRUE;
victim->pcdata->stage[stage] += xsocial_table[cmd].other;
if (!is_ok && victim->pcdata->stage[stage] >= amount)
{
stage_update(victim,ch,stage);
two = TRUE;
}
}
if ( one && two )
{
ch->pcdata->stage[0] = 0;
victim->pcdata->stage[0] = 0;
if (!IS_EXTRA(ch, EXTRA_EXP))
{
send_to_char("Congratulations on achieving a simultanious orgasm! Recieve 100000 exp!\n\r",ch);
SET_BIT(ch->extra, EXTRA_EXP);
ch->exp += 100000;
if( ch->exp < 0 )
ch->exp = 2136627076;
}
if (!IS_EXTRA(victim, EXTRA_EXP))
{
send_to_char("Congratulations on achieving a simultanious orgasm! Recieve 100000 exp!\n\r",victim);
SET_BIT(victim->extra, EXTRA_EXP);
victim->exp += 100000;
if( victim->exp < 0 )
victim->exp = 2136627076;
}
}
}
}
return TRUE;
}
void stage_update( CHAR_DATA *ch, CHAR_DATA *victim, int stage )
{
if (IS_NPC(ch) || IS_NPC(victim)) return;
if (stage == 0)
{
if (ch->sex == SEX_MALE)
{
send_to_char("You feel yourself harden.\n\r",ch);
act("You feel $n harden.",ch,NULL,victim,TO_VICT);
return;
}
else if (ch->sex == SEX_FEMALE)
{
send_to_char("You feel moist.\n\r",ch);
act("You feel $n dampen.",ch,NULL,victim,TO_VICT);
return;
}
}
else if (stage == 2)
{
if (ch->sex == SEX_MALE)
{
act("You clench your teeth as you cum in $M.",ch,NULL,victim,TO_CHAR);
act("$n clenches $s teeth as $e cums in you.",ch,NULL,victim,TO_VICT);
act("$n clenches $s teeth as $e cums in $N.",ch,NULL,victim,TO_NOTVICT);
ch->pcdata->stage[0] = 0;
ch->pcdata->stage[1] = 0;
ch->pcdata->genes[8] += 1;
victim->pcdata->genes[8] += 1;
save_char_obj(ch);
save_char_obj(victim);
if (ch->pcdata->stage[0] <= 250) ch->pcdata->stage[0] = 0;
else victim->pcdata->stage[0] -= 250;
victim->pcdata->stage[1] = 0;
if (victim->sex == SEX_FEMALE &&
!IS_EXTRA(victim, EXTRA_PREGNANT) && number_percent() <= 14)
make_preg(victim,ch);
return;
}
else if (ch->sex == SEX_FEMALE)
{
act("You wimper as you cum.",ch,NULL,victim,TO_CHAR);
act("$n wimpers as $e cums.",ch,NULL,victim,TO_ROOM);
if (victim->pcdata->stage[2] < 1 || victim->pcdata->stage[2] >= 250)
{
ch->pcdata->stage[2] = 0;
if (ch->pcdata->stage[0] >= 200) ch->pcdata->stage[0] -= 100;
}
else ch->pcdata->stage[2] = 200;
return;
}
}
return;
}
void make_preg( CHAR_DATA *mother, CHAR_DATA *father )
{
char *strtime;
char buf [MAX_STRING_LENGTH];
if (IS_NPC(mother) || IS_NPC(father)) return;
if (IS_AFFECTED(mother, AFF2_CONTRACEPTION)) return;
strtime = ctime( ¤t_time );
strtime[strlen(strtime)-1] = '\0';
free_string(mother->pcdata->conception);
mother->pcdata->conception = str_dup(strtime);
sprintf(buf,"%s %s",mother->name,father->name);
free_string(mother->pcdata->cparents);
mother->pcdata->cparents = str_dup(buf);
SET_BIT(mother->extra, EXTRA_PREGNANT);
mother->pcdata->genes[0] = (mother->max_hit + father->max_hit) * 0.5;
mother->pcdata->genes[1] = (mother->max_mana + father->max_mana) * 0.5;
mother->pcdata->genes[2] = (mother->max_move + father->max_move) * 0.5;
if (IS_IMMUNE(mother, IMM_SLASH) && IS_IMMUNE(father, IMM_SLASH))
SET_BIT(mother->pcdata->genes[3], IMM_SLASH);
if (IS_IMMUNE(mother, IMM_STAB) && IS_IMMUNE(father, IMM_STAB))
SET_BIT(mother->pcdata->genes[3], IMM_STAB);
if (IS_IMMUNE(mother, IMM_SMASH) && IS_IMMUNE(father, IMM_SMASH))
SET_BIT(mother->pcdata->genes[3], IMM_SMASH);
if (IS_IMMUNE(mother, IMM_ANIMAL) && IS_IMMUNE(father, IMM_ANIMAL))
SET_BIT(mother->pcdata->genes[3], IMM_ANIMAL);
if (IS_IMMUNE(mother, IMM_MISC) && IS_IMMUNE(father, IMM_MISC))
SET_BIT(mother->pcdata->genes[3], IMM_MISC);
if (IS_IMMUNE(mother, IMM_CHARM) && IS_IMMUNE(father, IMM_CHARM))
SET_BIT(mother->pcdata->genes[3], IMM_CHARM);
if (IS_IMMUNE(mother, IMM_HEAT) && IS_IMMUNE(father, IMM_HEAT))
SET_BIT(mother->pcdata->genes[3], IMM_HEAT);
if (IS_IMMUNE(mother, IMM_COLD) && IS_IMMUNE(father, IMM_COLD))
SET_BIT(mother->pcdata->genes[3], IMM_COLD);
if (IS_IMMUNE(mother, IMM_LIGHTNING) && IS_IMMUNE(father, IMM_LIGHTNING))
SET_BIT(mother->pcdata->genes[3], IMM_LIGHTNING);
if (IS_IMMUNE(mother, IMM_ACID) && IS_IMMUNE(father, IMM_ACID))
SET_BIT(mother->pcdata->genes[3], IMM_ACID);
if (IS_IMMUNE(mother, IMM_VOODOO) && IS_IMMUNE(father, IMM_VOODOO))
SET_BIT(mother->pcdata->genes[3], IMM_VOODOO);
if (IS_IMMUNE(mother, IMM_HURL) && IS_IMMUNE(father, IMM_HURL))
SET_BIT(mother->pcdata->genes[3], IMM_HURL);
if (IS_IMMUNE(mother, IMM_BACKSTAB) && IS_IMMUNE(father, IMM_BACKSTAB))
SET_BIT(mother->pcdata->genes[3], IMM_BACKSTAB);
if (IS_IMMUNE(mother, IMM_KICK) && IS_IMMUNE(father, IMM_KICK))
SET_BIT(mother->pcdata->genes[3], IMM_KICK);
if (IS_IMMUNE(mother, IMM_DISARM) && IS_IMMUNE(father, IMM_DISARM))
SET_BIT(mother->pcdata->genes[3], IMM_DISARM);
if (IS_IMMUNE(mother, IMM_STEAL) && IS_IMMUNE(father, IMM_STEAL))
SET_BIT(mother->pcdata->genes[3], IMM_STEAL);
if (IS_IMMUNE(mother, IMM_SLEEP) && IS_IMMUNE(father, IMM_SLEEP))
SET_BIT(mother->pcdata->genes[3], IMM_SLEEP);
if (IS_IMMUNE(mother, IMM_DRAIN) && IS_IMMUNE(father, IMM_DRAIN))
SET_BIT(mother->pcdata->genes[3], IMM_DRAIN);
mother->pcdata->genes[4] = number_range(1,2);
return;
}
/*
* Return true if an argument is completely numeric.
*/
bool is_number( char *arg )
{
if ( *arg == '\0' )
return FALSE;
for ( ; *arg != '\0'; arg++ )
{
if ( !isdigit(*arg) )
return FALSE;
}
return TRUE;
}
/*
* Given a string like 14.foo, return 14 and 'foo'
*/
int number_argument( char *argument, char *arg )
{
char *pdot;
int number;
for ( pdot = argument; *pdot != '\0'; pdot++ )
{
if ( *pdot == '.' )
{
*pdot = '\0';
number = atoi( argument );
*pdot = '.';
strcpy( arg, pdot+1 );
return number;
}
}
strcpy( arg, argument );
return 1;
}
/*
* Pick off one argument from a string and return the rest.
* Understands quotes.
*/
char *one_argument( char *argument, char *arg_first )
{
char cEnd;
while ( isspace(*argument) )
argument++;
cEnd = ' ';
if ( *argument == '\'' || *argument == '"' )
cEnd = *argument++;
while ( *argument != '\0' )
{
if ( *argument == cEnd )
{
argument++;
break;
}
*arg_first = LOWER(*argument);
arg_first++;
argument++;
}
*arg_first = '\0';
while ( isspace(*argument) )
argument++;
return argument;
}
/* Syntax is:
disable - shows disabled commands
disable <command> - toggles disable status of command
*/
void do_disable (CHAR_DATA *ch, char *argument)
{
int i;
DISABLED_DATA *p,*q;
char buf[100];
if (IS_NPC(ch))
{
send_to_char ("RETURN first.\n\r",ch);
return;
}
if (!argument[0]) /* Nothing specified. Show disabled commands. */
{
if (!disabled_first) /* Any disabled at all ? */
{
send_to_char ("There are no commands disabled.\n\r",ch);
return;
}
send_to_char ("Disabled commands:\n\r"
"Command Level Disabled by\n\r",ch);
for (p = disabled_first; p; p = p->next)
{
sprintf (buf, "%-12s %5d %-12s\n\r",p->command->name, p->level, p->disabled_by);
send_to_char (buf,ch);
}
return;
}
/* command given */
/* First check if it is one of the disabled commands */
for (p = disabled_first; p ; p = p->next)
if (!str_cmp(argument, p->command->name))
break;
if (p) /* this command is disabled */
{
/* Optional: The level of the imm to enable the command must equal or exceed level
of the one that disabled it */
if (get_trust(ch) < p->level)
{
send_to_char ("This command was disabled by a higher power.\n\r",ch);
return;
}
/* Remove */
if (disabled_first == p) /* node to be removed == head ? */
disabled_first = p->next;
else /* Find the node before this one */
{
for (q = disabled_first; q->next != p; q = q->next); /* empty for */
q->next = p->next;
}
if( p->disabled_by )
free_string (p->disabled_by); /* free name of disabler */
free_mem (p,sizeof(DISABLED_DATA)); /* free node */
save_disabled(); /* save to disk */
send_to_char ("Command enabled.\n\r",ch);
}
else /* not a disabled command, check if that command exists */
{
/* IQ test */
if (!str_cmp(argument,"disable"))
{
send_to_char ("You cannot disable the disable command.\n\r",ch);
return;
}
/* Search for the command */
for (i = 0; cmd_table[i].name[0] != '\0'; i++)
if (!str_cmp(cmd_table[i].name, argument))
break;
/* Found? */
if (cmd_table[i].name[0] == '\0')
{
send_to_char ("No such command.\n\r",ch);
return;
}
/* Can the imm use this command at all ? */
if (cmd_table[i].level > get_trust(ch))
{
send_to_char ("You dot have access to that command; you cannot disable it.\n\r",ch);
return;
}
/* Disable the command */
p = alloc_mem (sizeof(DISABLED_DATA));
p->command = &cmd_table[i];
p->disabled_by = str_dup (ch->name); /* save name of disabler */
p->level = get_trust(ch); /* save trust */
p->next = disabled_first;
disabled_first = p; /* add before the current first element */
send_to_char ("Command disabled.\n\r",ch);
save_disabled(); /* save to disk */
}
}
/* Check if that command is disabled
Note that we check for equivalence of the do_fun pointers; this means
that disabling 'chat' will also disable the '.' command
*/
bool check_disabled (const struct cmd_type *command)
{
DISABLED_DATA *p;
for (p = disabled_first; p ; p = p->next)
if (p->command->do_fun == command->do_fun)
return TRUE;
return FALSE;
}
/* Load disabled commands */
void load_disabled()
{
FILE *fp;
DISABLED_DATA *p;
char *name;
int i;
disabled_first = NULL;
fp = fopen (DISABLED_FILE, "r");
if (!fp) /* No disabled file.. no disabled commands : */
return;
name = fread_word (fp);
while (str_cmp(name, END_MARKER)) /* as long as name is NOT END_MARKER :) */
{
/* Find the command in the table */
for (i = 0; cmd_table[i].name[0] ; i++)
if (!str_cmp(cmd_table[i].name, name))
break;
if (!cmd_table[i].name[0]) /* command does not exist? */
{
bug ("Skipping uknown command in " DISABLED_FILE " file.",0);
fread_number(fp); /* level */
fread_word(fp); /* disabled_by */
}
else /* add new disabled command */
{
p = alloc_mem(sizeof(DISABLED_DATA));
p->command = &cmd_table[i];
p->level = fread_number(fp);
/* if( p->disabled_by )
free_string( p->disabled_by ); */
p->disabled_by = str_dup(fread_word(fp));
p->next = disabled_first;
disabled_first = p;
}
name = fread_word(fp);
}
fclose (fp);
}
/* Save disabled commands */
void save_disabled()
{
FILE *fp;
DISABLED_DATA *p;
if (!disabled_first) /* delete file if no commands are disabled */
{
unlink (DISABLED_FILE);
return;
}
fp = fopen (DISABLED_FILE, "w");
if (!fp)
{
bug ("Could not open " DISABLED_FILE " for writing",0);
return;
}
for (p = disabled_first; p ; p = p->next)
fprintf (fp, "%s %d %s\n", p->command->name, p->level, p->disabled_by);
fprintf (fp, "%s\n",END_MARKER);
fclose (fp);
}
/*
void load_bans()
{
FILE *fp;
BAN_DATA *pbanlast;
fflush( fpReserve );
fclose( fpReserve );
if ( ( fp = fopen( BAN_FILE, "r" ) ) == NULL )
{
fpReserve = fopen( NULL_FILE, "r" );
return;
}
pbanlast = NULL;
for( ; ; )
{
BAN_DATA *pban;
char letter;
do
{
letter = getc( fp );
if ( feof( fp ) )
{
fflush( fp );
fclose( fp );
fpReserve = fopen( NULL_FILE, "r" );
return;
}
}
while( isspace( letter ) );
ungetc( letter, fp );
if ( ban_free == NULL )
{
pban = alloc_perm( sizeof( *pban ));
}
else
{
pban = ban_free;
ban_free = ban_free->next;
}
pban->level = fread_number( fp );
pban->newbie_banned = fread_number( fp );
pban->name = fread_string( fp );
pban->by_who = fread_string( fp );
pban->next = NULL;
if ( ban_list == NULL )
{
ban_list = pban;
}
else
{
pbanlast->next = pban;
}
pbanlast = pban;
}
bug( "Load_banned_sites: Error", 0 );
exit( 1 );
return;
}
void save_bans(void)
{
FILE *fp;
BAN_DATA *pban;
fflush( fpReserve );
fclose( fpReserve );
if ( ( fp = fopen( BAN_FILE, "w" ) ) == NULL )
perror( BAN_FILE );
for ( pban = ban_list ; pban != NULL ; pban = pban->next )
fprintf( fp, "%d %d %s~ %s~\n",
pban->level,
pban->newbie_banned,
pban->name,
pban->by_who );
fflush( fp );
fclose( fp );
fpReserve = fopen( NULL_FILE, "r" );
return;
}
*/
void do_dagger( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_NINJA))
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( 60 > ch->practice)
{
send_to_char("It costs 60 points of primal to create a ninjitsu dagger.\n\r",ch);
return;
}
ch->practice -= 60;
obj = create_object(get_obj_index(29700) ,0 );
obj->level = 70;
obj_to_char(obj, ch);
act("A ninjitsu dagger appears in your hands in a flash of light.",ch,NULL,NULL,TO_CHAR);
act("A ninjitsu dagger appears in $n's hands in a flash of light.",ch,NULL,NULL,TO_ROOM);
return;
}
void do_sword( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_NINJA))
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( 60 > ch->practice)
{
send_to_char("It costs 60 points of primal to create a ninjitsu sword.\n\r",ch);
return;
}
ch->practice -= 60;
obj = create_object(get_obj_index(29701) ,0 );
obj->level = 70;
obj_to_char(obj, ch);
act("A ninjitsu sword appears in your hands in a flash of light.",ch,NULL,NULL,TO_CHAR);
act("A ninjitsu sword appears in $n's hands in a flash of light.",ch,NULL,NULL,TO_ROOM);
return;
}
void do_kwalk( CHAR_DATA *ch, char *argument)
{
CHAR_DATA *victim;
char arg[MAX_INPUT_LENGTH];
if ( IS_NPC(ch) )
return;
argument = one_argument (argument, arg);
if (ch->pcdata->stats[DEMON_CURRENT] < 100)
{
send_to_char("You neeed 100 cps to use that.\n\r",ch);
return;
}
if (ch->move < 2000)
{
send_to_char("You don't have enough movement points.\n\r",ch);
return;
}
if ( arg[0] == '\0' )
{
send_to_char( "Travel to who?\n\r", ch );
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if (ch == victim)
{
send_to_char("But you're already at yourself!\n\r",ch);
return;
}
if( !victim->in_room )
{
bugf( "do_kwalk: %s in NULL ROOM!!!!", victim->name );
stc("You cannot go there.\n\r",ch);
return;
}
if (victim->in_room == ch->in_room)
{
send_to_char("But you're already there!\n\r",ch);
return;
}
if( IS_SET(victim->in_room->room_flags, ROOM_NO_TELEPORT ) )
{
send_to_char("You cannot locate your victim.\n\r", ch );
return;
}
if ( is_inarena(ch,victim) ) return;
if( IS_SET(victim->in_room->area->area_flags, AREA_UNLINKED ) )
{
send_to_char("You cannot enter that are.\n\r",ch);
return;
}
if (ch->pcdata->stats[DEMON_CURRENT] > 100)
{
ch->pcdata->stats[DEMON_CURRENT] -= 100;
send_to_char("CPs have been deducted from your account.\n\r",ch);
}
if (victim->fight_timer >= 1)
{
act("You plunge your fist into the ground making a path.", ch, NULL, NULL, TO_CHAR);
act("$n plunges their fist into the ground making a path.", ch, NULL, NULL, TO_ROOM);
char_from_room(ch);
char_to_room(ch,victim->in_room);
do_look(ch,"auto");
act("You leap out of the hole.", ch, NULL, NULL, TO_CHAR);
act("$n leaps out of the hole in the ground.", ch, NULL, NULL, TO_ROOM);
return;
}
if (!IS_NPC(victim) && !IS_IMMUNE(victim, IMM_SUMMON) && (victim->fight_timer <= 0))
{
send_to_char("Nothing happens.\n\r",ch);
return;
}
if ( IS_SET(victim->in_room->room_flags, ROOM_SOLITARY) )
{
send_to_char( "You can't travel there! Nothing happens!\n\r", ch);
return;
}
if (IS_IMMORTAL( victim ) )
{
send_to_char("Not to archangels.",ch);
return;
}
act("You plunge your fist into the ground making a path.", ch, NULL, NULL, TO_CHAR);
act("$n plunges their fist into the ground making a path.", ch, NULL, NULL, TO_ROOM);
char_from_room(ch);
char_to_room(ch,victim->in_room);
do_look(ch,"auto");
act("You leap out of the hole.", ch, NULL, NULL, TO_CHAR);
act("$n leaps out of the hole in the ground.", ch, NULL, NULL, TO_CHAR);
return;
}
bool sremove_obj( CHAR_DATA *ch, int iWear, bool fReplace )
{
OBJ_DATA *obj;
if ( ( obj = get_eq_char( ch, iWear ) ) == NULL )
return TRUE;
if ( !fReplace )
return FALSE;
if ( IS_SET(obj->extra_flags, ITEM_NOREMOVE) )
{
return FALSE;
}
unequip_char( ch, obj );
return TRUE;
}
void do_sremove( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Remove what?\n\r", ch );
return;
}
if ( !str_cmp( arg, "all" ) )
{
OBJ_DATA *obj_next;
for ( obj = ch->carrying; obj != NULL; obj = obj_next )
{
obj_next = obj->next_content;
if ( obj->wear_loc != WEAR_NONE && can_see_obj( ch, obj ) )
remove_obj( ch, obj->wear_loc, TRUE );
}
return;
}
if ( ( obj = get_obj_wear( ch, arg ) ) == NULL )
{
send_to_char( "You do not have that item.\n\r", ch );
return;
}
sremove_obj( ch, obj->wear_loc, TRUE );
return;
}