/***************************************************************************
* 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. *
* *
* _/ _/_/_/ _/ _/ _/ ACK! MUD is modified *
* _/_/ _/ _/ _/ _/ Merc2.0/2.1/2.2 code *
* _/ _/ _/ _/_/ _/ (c)Stephen Dooley 1994 *
* _/_/_/_/ _/ _/ _/ "This mud has not been *
* _/ _/ _/_/_/ _/ _/ _/ tested on animals." *
* *
* *
* 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. *
***************************************************************************/
#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 "merc.h"
#include "imc-envy.h"
bool check_social args( ( CHAR_DATA *ch, char *command,
char *argument ) );
bool MP_Commands args( ( CHAR_DATA *ch ) );
/*
* Command logging types.
*/
#define LOG_NORMAL 0
#define LOG_ALWAYS 1
#define LOG_NEVER 2
/*
* Log-all switch.
*/
bool fLogAll = FALSE;
/*
* Command table.
*/
const struct cmd_type cmd_table [] =
{
/*
* Common movement commands.
*/
{ "north", do_north, POS_STANDING, 0, LOG_NORMAL },
{ "east", do_east, POS_STANDING, 0, LOG_NORMAL },
{ "south", do_south, POS_STANDING, 0, LOG_NORMAL },
{ "west", do_west, POS_STANDING, 0, LOG_NORMAL },
{ "up", do_up, POS_STANDING, 0, LOG_NORMAL },
{ "down", do_down, POS_STANDING, 0, LOG_NORMAL },
/*
* Common other commands.
* Placed here so one and two letter abbreviations work.
*/
{ "buy", do_buy, POS_RESTING, 0, LOG_NORMAL },
{ "cast", do_cast, POS_FIGHTING, 0, LOG_NORMAL },
{ "exits", do_exits, POS_RESTING, 0, LOG_NORMAL },
{ "get", do_get, POS_RESTING, 0, LOG_NORMAL },
{ "gain", do_gain, POS_STANDING, 0, LOG_NORMAL },
{ "inventory", do_inventory, POS_DEAD, 0, LOG_NORMAL },
{ "kill", do_kill, POS_FIGHTING, 0, LOG_NORMAL },
{ "look", do_look, POS_RESTING, 0, LOG_NORMAL },
{ "order", do_order, POS_RESTING, 0, LOG_NORMAL },
{ "rest", do_rest, POS_RESTING, 0, LOG_NORMAL },
{ "sleep", do_sleep, POS_SLEEPING, 0, LOG_NORMAL },
{ "stand", do_stand, POS_SLEEPING, 0, LOG_NORMAL },
{ "tell", do_tell, POS_RESTING, 0, LOG_NORMAL },
{ "whisper", do_whisper, POS_RESTING, 0, LOG_NORMAL },
{ "wield", do_wear, POS_RESTING, 0, LOG_NORMAL },
{ "wizhelp", do_wizhelp, POS_DEAD, L_HER, LOG_NORMAL },
{ "loot", do_loot, POS_STANDING, 20, LOG_ALWAYS },
/*
* Informational commands.
*/
{ "test", do_test, POS_DEAD, 0, LOG_NORMAL },
{ "affected", do_affected, POS_DEAD, 0, LOG_NORMAL },
{ "areas", do_areas, POS_DEAD, 0, LOG_NORMAL },
{ "appraise", do_appraise, POS_RESTING, 0, LOG_NORMAL },
{ "bug", do_bug, POS_DEAD, 0, LOG_NORMAL },
{ "clist", do_clan_list, POS_DEAD, 0, LOG_NORMAL },
{ "commands", do_commands, POS_DEAD, 0, LOG_NORMAL },
{ "compare", do_compare, POS_RESTING, 0, LOG_NORMAL },
{ "consider", do_consider, POS_RESTING, 0, LOG_NORMAL },
{ "credits", do_credits, POS_DEAD, 0, LOG_NORMAL },
{ "cwhere", do_cwhere, POS_DEAD, CLAN_ONLY, LOG_NORMAL },
{ "delete", do_delete, POS_STANDING, 0, LOG_NORMAL },
{ "diagnose", do_diagnose, POS_RESTING, 0, LOG_NORMAL },
{ "equipment", do_equipment, POS_DEAD, 0, LOG_NORMAL },
{ "examine", do_examine, POS_RESTING, 0, LOG_NORMAL },
{ "help", do_help, POS_DEAD, 0, LOG_NORMAL },
{ "shelp", do_shelp, POS_DEAD, 0, LOG_NORMAL },
{ "heal", do_heal, POS_STANDING, 0, LOG_NORMAL },
{ "idea", do_idea, POS_DEAD, 0, LOG_NORMAL },
{ "note", do_note, POS_RESTING, 0, LOG_NORMAL },
{ "report", do_report, POS_DEAD, 0, LOG_NORMAL },
{ "pagelength", do_pagelen, POS_DEAD, 0, LOG_NORMAL },
{ "players", do_players, POS_DEAD, 0, LOG_NORMAL },
{ "read", do_read, POS_STANDING, 0, LOG_NORMAL },
{ "rlist", do_race_list, POS_DEAD, 0, LOG_NORMAL },
{ "score", do_score, POS_DEAD, 0, LOG_NORMAL },
{ "slist", do_slist, POS_DEAD, 0, LOG_NORMAL },
{ "socials", do_socials, POS_DEAD, 0, LOG_NORMAL },
{ "status", do_status, POS_DEAD, 0, LOG_NORMAL },
{ "time", do_time, POS_DEAD, 0, LOG_NORMAL },
{ "typo", do_typo, POS_DEAD, 0, LOG_NORMAL },
{ "weather", do_weather, POS_RESTING, 0, LOG_NORMAL },
{ "who", do_who, POS_DEAD, 0, LOG_NORMAL },
{ "whois", do_whois, POS_DEAD, 0, LOG_NORMAL },
{ "wizlist", do_wizlist, POS_DEAD, 0, LOG_NORMAL },
{ "write", do_write, POS_STANDING, 0, LOG_NORMAL },
{ "edit", do_edit, POS_STANDING, 0, LOG_NORMAL },
/*
* Configuration commands.
*/
{ "accept", do_accept, POS_DEAD, CLAN_ONLY, LOG_NORMAL },
{ "alias", do_alias, POS_DEAD, 0, LOG_NORMAL },
{ "auto", do_auto, POS_DEAD, 0, LOG_NORMAL },
{ "autoexit", do_autoexit, POS_DEAD, 0, LOG_NORMAL },
{ "autoloot", do_autoloot, POS_DEAD, 0, LOG_NORMAL },
{ "autosac", do_autosac, POS_DEAD, 0, LOG_NORMAL },
{ "banish", do_banish, POS_DEAD, CLAN_ONLY, LOG_NORMAL },
{ "blank", do_blank, POS_DEAD, 0, LOG_NORMAL },
{ "brief", do_brief, POS_DEAD, 0, LOG_NORMAL },
{ "channels", do_channels, POS_DEAD, 0, LOG_NORMAL },
{ "colour", do_colour, POS_DEAD, 0, LOG_NORMAL },
{ "colist", do_colist, POS_DEAD, 0, LOG_NORMAL },
{ "combine", do_combine, POS_DEAD, 0, LOG_NORMAL },
{ "config", do_config, POS_DEAD, 0, LOG_NORMAL },
{ "description", do_description, POS_DEAD, 0, LOG_NORMAL },
{ "ignore", do_ignore, POS_DEAD, 0, LOG_NORMAL },
{ "password", do_password, POS_DEAD, 0, LOG_NEVER },
{ "prompt", do_prompt, POS_DEAD, 0, LOG_ALWAYS },
{ "title", do_title, POS_DEAD, 0, LOG_NORMAL },
{ "wimpy", do_wimpy, POS_DEAD, 0, LOG_NORMAL },
{ "worth", do_worth, POS_DEAD, 0, LOG_NORMAL },
{ "stance", do_stance, POS_FIGHTING, 0, LOG_NORMAL },
#if 1
/* IMC Mortal commands */
{ "]", do_rchat, POS_SLEEPING, 20, LOG_NORMAL},
{ "rchat", do_rchat, POS_SLEEPING, 20, LOG_NORMAL},
{ "rtell", do_rtell, POS_SLEEPING, 30, LOG_NORMAL},
{ "rreply", do_rreply, POS_SLEEPING, 0, LOG_NORMAL},
{ "rwho", do_rwho, POS_SLEEPING, 5, LOG_NORMAL},
{ "rquery", do_rquery, POS_SLEEPING, 5, LOG_NORMAL},
{ "rimclist", do_imclist, POS_DEAD, 5, LOG_NORMAL},
{ "rcode", do_rcode, POS_SLEEPING, L_DEI, LOG_NORMAL},
{ "rbeep", do_rbeep, POS_SLEEPING, 80, LOG_NORMAL},
{ "istats", do_istats, POS_SLEEPING, L_DEI, LOG_NORMAL},
#endif
/*
* Communication commands.
*/
{ "answer", do_answer, POS_RESTING, 0, LOG_NORMAL },
{ "ask", do_ask, POS_RESTING, 0, LOG_NORMAL },
{ "beep", do_beep, POS_RESTING, 0, LOG_NORMAL },
{ "clan", do_clan, POS_RESTING, CLAN_ONLY, LOG_NORMAL },
{ "creator", do_creator, POS_DEAD, L_GOD, LOG_NORMAL },
{ ")", do_creator, POS_DEAD, L_GOD, LOG_NORMAL },
/* { "gossip", do_gossip, POS_RESTING, 0, LOG_NORMAL },
{ ".", do_gossip, POS_RESTING, 0, LOG_NORMAL }, */
{ "pemote", do_pemote, POS_RESTING, 0, LOG_NORMAL },
{ "emote", do_emote, POS_RESTING, 0, LOG_NORMAL },
{ ",", do_emote, POS_RESTING, 0, LOG_NORMAL },
{ "flame", do_flame, POS_RESTING, 0, LOG_NORMAL },
{ "finger", do_finger, POS_DEAD, 86, LOG_NORMAL },
{ "gtell", do_gtell, POS_DEAD, 0, LOG_NORMAL },
{ ";", do_gtell, POS_DEAD, 0, LOG_NORMAL },
{ "music", do_music, POS_RESTING, 0, LOG_NORMAL },
{ "newbie", do_newbie, POS_RESTING, 0, LOG_NORMAL },
{ "pose", do_pose, POS_RESTING, 86, LOG_NORMAL },
/* one or more of the poses crash us */
{ "pray", do_pray, POS_RESTING, 0, LOG_NORMAL },
{ "quest", do_quest2, POS_RESTING, 0, LOG_NORMAL },
{ "question", do_question, POS_SLEEPING, 0, LOG_NORMAL },
{ "race", do_race, POS_RESTING, 0, LOG_NORMAL },
{ "reply", do_reply, POS_RESTING, 0, LOG_NORMAL },
{ "say", do_say, POS_RESTING, 0, LOG_NORMAL },
{ "'", do_say, POS_RESTING, 0, LOG_NORMAL },
{ "shout", do_shout, POS_RESTING, 0, LOG_NORMAL },
{ "tongue", do_tongue, POS_RESTING, 0, LOG_NORMAL },
{ "yell", do_yell, POS_RESTING, 0, LOG_NORMAL },
{ "zzz", do_zzz, POS_SLEEPING, 0, LOG_NORMAL },
{ "game", do_game, POS_RESTING, 0, LOG_NORMAL },
{ "vamp", do_familytalk, POS_RESTING, VAMP_ONLY, LOG_NORMAL },
{ "{", do_remorttalk, POS_RESTING, 0, LOG_NORMAL },
{ "diplomat", do_diptalk, POS_RESTING, 0, LOG_NORMAL },
{ "crusade", do_crusade, POS_RESTING, 0, LOG_NORMAL },
{ "adept", do_adepttalk, POS_RESTING, 0, LOG_NORMAL},
{ "ooc", do_ooc, POS_RESTING, 0, LOG_NORMAL },
/*
* Object manipulation commands.
*/
{ "adapt", do_adapt, POS_STANDING, 0, LOG_NORMAL },
{ "auction", do_auction, POS_STANDING, 0, LOG_NORMAL },
{ "bank", do_bank, POS_STANDING, 0, LOG_NORMAL },
{ "bid", do_bid, POS_STANDING, 0, LOG_NORMAL },
{ "brandish", do_brandish, POS_RESTING, 0, LOG_NORMAL },
{ "cdonate", do_cdonate, POS_RESTING, CLAN_ONLY, LOG_NORMAL },
{ "close", do_close, POS_RESTING, 0, LOG_NORMAL },
{ "clutch", do_clutch, POS_STANDING, 0, LOG_NORMAL },
{ "donate", do_donate, POS_RESTING, 0, LOG_NORMAL },
{ "drink", do_drink, POS_RESTING, 0, LOG_NORMAL },
{ "drop", do_drop, POS_RESTING, 0, LOG_NORMAL },
{ "eat", do_eat, POS_RESTING, 0, LOG_NORMAL },
{ "enter", do_enter, POS_STANDING, 0, LOG_NORMAL },
{ "fill", do_fill, POS_RESTING, 0, LOG_NORMAL },
{ "give", do_give, POS_RESTING, 0, LOG_NORMAL },
{ "hold", do_wear, POS_RESTING, 0, LOG_NORMAL },
{ "list", do_list, POS_RESTING, 0, LOG_NORMAL },
{ "lock", do_lock, POS_RESTING, 0, LOG_NORMAL },
{ "open", do_open, POS_STANDING, 0, LOG_NORMAL },
{ "make", do_make, POS_DEAD, CLAN_ONLY, LOG_NORMAL },
{ "pick", do_pick, POS_RESTING, 0, LOG_NORMAL },
{ "put", do_put, POS_RESTING, 0, LOG_NORMAL },
{ "quaff", do_quaff, POS_RESTING, 0, LOG_NORMAL },
{ "recite", do_recite, POS_RESTING, 0, LOG_NORMAL },
{ "remove", do_remove, POS_RESTING, 0, LOG_NORMAL },
{ "sedit", do_sedit, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "sell", do_sell, POS_RESTING, 0, LOG_NORMAL },
{ "take", do_get, POS_RESTING, 0, LOG_NORMAL },
{ "sacrifice", do_sacrifice, POS_RESTING, 0, LOG_NORMAL },
{ "unlock", do_unlock, POS_RESTING, 0, LOG_NORMAL },
{ "value", do_value, POS_RESTING, 0, LOG_NORMAL },
{ "wear", do_wear, POS_RESTING, 0, LOG_NORMAL },
{ "zap", do_zap, POS_RESTING, 0, LOG_NORMAL },
{ "connect", do_connect, POS_RESTING, 0, LOG_NORMAL },
{ "enchant", do_enchant, POS_STANDING, 0, LOG_NORMAL },
/*
* Combat commands.
*/
{ "assist", do_assist, POS_STANDING, 0, LOG_NORMAL },
{ "backstab", do_backstab, POS_STANDING, 0, LOG_NORMAL },
{ "bs", do_backstab, POS_STANDING, 0, LOG_NORMAL },
{ "dirt", do_dirt, POS_FIGHTING, 0, LOG_NORMAL },
{ "trip", do_trip, POS_FIGHTING, 0, LOG_NORMAL },
{ "smash", do_smash, POS_STANDING, 0, LOG_NORMAL },
{ "bash", do_bash, POS_FIGHTING, 0, LOG_NORMAL },
{ "beserk", do_beserk, POS_FIGHTING, 0, LOG_NORMAL },
{ "circle", do_circle, POS_FIGHTING, 0, LOG_NORMAL },
{ "disarm", do_disarm, POS_FIGHTING, 0, LOG_NORMAL },
{ "feed", do_feed, POS_FIGHTING, VAMP_ONLY, LOG_NORMAL },
{ "flee", do_flee, POS_FIGHTING, 0, LOG_NORMAL },
{ "headbutt", do_headbutt, POS_FIGHTING, 0, LOG_NORMAL },
{ "kick", do_kick, POS_FIGHTING, 0, LOG_NORMAL },
{ "knee", do_knee, POS_FIGHTING, 0, LOG_NORMAL },
{ "murde", do_murde, POS_FIGHTING, 5, LOG_NORMAL },
{ "murder", do_murder, POS_FIGHTING, 5, LOG_ALWAYS },
{ "punch", do_punch, POS_FIGHTING, 0, LOG_NORMAL },
{ "rescue", do_rescue, POS_FIGHTING, 0, LOG_NORMAL },
{ "stake", do_stake, POS_STANDING, 5, LOG_ALWAYS },
{ "stun", do_stun, POS_FIGHTING, 0, LOG_NORMAL },
{ "frenzy", do_frenzy, POS_FIGHTING, 0, LOG_NORMAL },
{ "charge", do_charge, POS_FIGHTING, 0, LOG_NORMAL },
{ "target", do_target, POS_FIGHTING, 0, LOG_NORMAL },
/*
* Miscellaneous commands.
*/
{ "afk", do_afk, POS_DEAD, 0, LOG_NORMAL },
{ "assassinate", do_assassinate, POS_STANDING, 20, LOG_ALWAYS },
{ "finger", do_finger, POS_DEAD, 86, LOG_ALWAYS },
{ "follow", do_follow, POS_RESTING, 0, LOG_NORMAL },
{ "gold", do_gold, POS_DEAD, 0, LOG_NORMAL },
{ "group", do_group, POS_SLEEPING, 0, LOG_NORMAL },
{ "guild", do_guild, POS_FIGHTING, 0, LOG_NORMAL },
{ "hide", do_hide, POS_RESTING, 0, LOG_NORMAL },
{ "hunt", do_hunt, POS_STANDING, 0, LOG_NORMAL },
{ "dismount", do_dismount, POS_STANDING, 1, LOG_NORMAL },
{ "mount", do_mount, POS_STANDING, 1, LOG_NORMAL },
{ "leav", do_leav, POS_RESTING, CLAN_ONLY, LOG_NORMAL },
{ "leave", do_leave, POS_RESTING, CLAN_ONLY, LOG_NORMAL },
{ "practice", do_practice, POS_SLEEPING, 0, LOG_NORMAL },
{ "qui", do_qui, POS_DEAD, 0, LOG_NORMAL },
{ "quit", do_quit, POS_DEAD, 0, LOG_NORMAL },
{ "recall", do_recall, POS_FIGHTING, 0, LOG_NORMAL },
{ "/", do_recall, POS_FIGHTING, 0, LOG_NORMAL },
{ "home", do_clan_recall, POS_STANDING, CLAN_ONLY, LOG_NORMAL },
{ "rent", do_rent, POS_DEAD, 0, LOG_NORMAL },
{ "save", do_save, POS_DEAD, 0, LOG_NORMAL },
{ "scan", do_scan, POS_STANDING, 0, LOG_NORMAL },
{ "shadowform", do_shadowform, POS_STANDING, 0, LOG_NORMAL },
{ "sleep", do_sleep, POS_SLEEPING, 0, LOG_NORMAL },
{ "sneak", do_sneak, POS_STANDING, 0, LOG_NORMAL },
{ "spells", do_spells, POS_SLEEPING, 0, LOG_NORMAL },
{ "split", do_split, POS_RESTING, 0, LOG_NORMAL },
{ "steal", do_steal, POS_STANDING, 0, LOG_NORMAL },
{ "train", do_train, POS_RESTING, 0, LOG_NORMAL },
{ "visible", do_visible, POS_SLEEPING, 0, LOG_NORMAL },
{ "wake", do_wake, POS_SLEEPING, 0, LOG_NORMAL },
{ "where", do_where, POS_RESTING, 0, LOG_NORMAL },
{ "disguise", do_disguise, POS_STANDING, 0, LOG_NORMAL },
{ "politics", do_politics, POS_RESTING, 0, LOG_NORMAL },
{ "rulers", do_rulers, POS_RESTING, 0, LOG_NORMAL },
/*
* Vampyre and REMORT SKILLS Zen
*/
{ "family", do_family, POS_RESTING, VAMP_ONLY, LOG_NORMAL },
{ "disguise", do_disguise, POS_STANDING, 0, LOG_NORMAL },
{ "instruct", do_instruct, POS_STANDING, VAMP_ONLY, LOG_NORMAL },
{ "scout", do_scout, POS_STANDING, 1, LOG_NORMAL },
/*
* NEW CLAN COMMANDS Zen
*/
{ "ctoggle", do_ctoggle, POS_RESTING, BOSS_ONLY, LOG_NORMAL },
{ "negotiate", do_negotiate, POS_RESTING, CLAN_ONLY, LOG_NORMAL },
{ "council", do_council, POS_RESTING, 0, LOG_NORMAL },
{ "qpspend", do_qpspend, POS_STANDING, 1, LOG_NORMAL },
/*
* Immortal commands.
*/
{ "areasave", do_areasave, POS_DEAD, L_SUP, LOG_NORMAL },
{ "alist", build_arealist, POS_DEAD, L_HER, LOG_NORMAL },
{ "alink", do_alink, POS_DEAD, L_HER, LOG_NORMAL },
{ "build", do_build, POS_STANDING, 2, LOG_ALWAYS },
{ "mpcr", do_mpcr, POS_STANDING, L_ANG, LOG_NORMAL },
{ "mpstat", do_mpstat, POS_DEAD, L_GOD, LOG_NORMAL },
{ "halls", do_halls, POS_RESTING, L_HER, LOG_NORMAL },
{ "lhunt", do_lhunt, POS_DEAD, L_ANG, LOG_NORMAL },
{ "sstat", do_sstat, POS_DEAD, L_ANG, LOG_NORMAL },
{ "cset", do_cset, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "whoname", do_whoname, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "clutchinfo", do_clutchinfo, POS_DEAD, L_DEI, LOG_NORMAL },
{ "advance", do_advance, POS_DEAD, L_GOD, LOG_NORMAL },
{ "setclass", do_setclass, POS_DEAD, L_ANG, LOG_ALWAYS },
{ "doggy", do_dog, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "togbuild", do_togbuild, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "togleader", do_togleader, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "isnoop", do_isnoop, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "trust", do_trust, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "deathmatc", do_deathmatc, POS_DEAD, L_GOD, LOG_NORMAL },
{ "deathmatch", do_deathmatch, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "resetpassword", do_resetpassword,POS_DEAD, L_GOD, LOG_ALWAYS },
{ "iscore", do_iscore, POS_DEAD, L_HER, LOG_NORMAL },
{ "iwhere", do_iwhere, POS_DEAD, L_GOD, LOG_NORMAL },
{ "fights", do_fights, POS_DEAD, L_HER, LOG_NORMAL },
{ "allow", do_allow, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "iban", do_ban, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "deny", do_deny, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "freeze", do_freeze, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "reboo", do_reboo, POS_DEAD, L_SUP, LOG_NORMAL },
{ "reboot", do_reboot, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "hotreboo", do_hotreboo, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "hotreboot", do_hotreboot, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "shutdow", do_shutdow, POS_DEAD, L_SUP, LOG_NORMAL },
{ "shutdown", do_shutdown, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "users", do_users, POS_DEAD, L_GOD, LOG_NORMAL },
{ "wizify", do_wizify, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "wizlock", do_wizlock, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "imtlset", do_imtlset, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "for", do_for, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "force", do_force, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "log", do_log, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "mload", do_mload, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "monitor", do_monitor, POS_DEAD, L_ANG, LOG_NORMAL },
{ "mset", do_mset, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "noemote", do_noemote, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "nopray", do_nopray, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "notell", do_notell, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "oload", do_oload, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "oset", do_oset, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "owhere", do_owhere, POS_DEAD, L_DEI, LOG_NORMAL },
{ "pardon", do_pardon, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "peace", do_peace, POS_DEAD, L_DEI, LOG_NORMAL },
{ "purge", do_purge, POS_DEAD, L_ANG, LOG_NORMAL },
{ "iquest", do_quest, POS_DEAD, L_DEI, LOG_NORMAL },
{ "restore", do_restore, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "rset", do_rset, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "silence", do_silence, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "sla", do_sla, POS_DEAD, L_DEI, LOG_NORMAL },
{ "slay", do_slay, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "snoop", do_snoop, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "sset", do_sset, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "transfer", do_transfer, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "at", do_at, POS_DEAD, L_DEI, LOG_NORMAL },
{ "bamfin", do_bamfin, POS_DEAD, L_ANG, LOG_NORMAL },
{ "bamfout", do_bamfout, POS_DEAD, L_ANG, LOG_NORMAL },
{ "echo", do_echo, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "goto", do_goto, POS_DEAD, L_ANG, LOG_NORMAL },
{ "gossip", do_gossip, POS_RESTING, 0, LOG_NORMAL },
{ "holylight", do_holylight, POS_DEAD, L_ANG, LOG_NORMAL },
{ "invis", do_invis, POS_DEAD, L_HER, LOG_NORMAL },
{ "memory", do_memory, POS_DEAD, L_SUP, LOG_NORMAL },
{ "mfind", do_mfind, POS_DEAD, L_DEI, LOG_NORMAL },
{ "mfindlev", do_mfindlev, POS_DEAD, L_DEI, LOG_NORMAL },
{ "mstat", do_mstat, POS_DEAD, L_DEI, LOG_NORMAL },
{ "mwhere", do_mwhere, POS_DEAD, L_DEI, LOG_NORMAL },
{ "ofind", do_ofind, POS_DEAD, L_DEI, LOG_NORMAL },
{ "ostat", do_ostat, POS_DEAD, L_DEI, LOG_NORMAL },
{ "recho", do_recho, POS_DEAD, L_HER, LOG_ALWAYS },
{ "return", do_return, POS_DEAD, L_DEI, LOG_NORMAL },
{ "rstat", do_rstat, POS_DEAD, L_DEI, LOG_NORMAL },
{ "slookup", do_slookup, POS_DEAD, L_DEI, LOG_NORMAL },
{ "switch", do_switch, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "immtalk", do_immtalk, POS_DEAD, L_HER, LOG_NORMAL },
{ ":", do_immtalk, POS_DEAD, L_HER, LOG_NORMAL },
{ "reward", do_reward, POS_DEAD, L_DEI, LOG_NORMAL },
{ "setcouncil", do_togcouncil, POS_DEAD, L_GOD, LOG_ALWAYS },
{ "resetgain", do_gain_stat_reset, POS_DEAD, L_DEI, LOG_ALWAYS },
{ "exlist", do_exlist, POS_DEAD, L_GOD, LOG_NORMAL },
{ "vlist", do_vlist, POS_DEAD, L_GOD, LOG_NORMAL },
{ "olmsg", do_olmsg, POS_DEAD, L_ANG, LOG_ALWAYS },
{ "ofindlev", do_ofindlev, POS_DEAD, L_ANG, LOG_NORMAL },
{ "prename", do_rename, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "pdelete", do_sdelete, POS_DEAD, L_SUP, LOG_ALWAYS },
{ "scheck", do_scheck, POS_DEAD, L_GOD, LOG_NORMAL },
{ "immbrand", do_immbrand, POS_DEAD, L_DEI, LOG_NORMAL },
#if 1
/* IMC immortal commands */
{ "rimm", do_rimm, POS_DEAD, L_SUP, LOG_NORMAL},
{ "rinfo", do_rinfo, POS_DEAD, L_SUP, LOG_NORMAL},
{ "rsockets", do_rsockets, POS_DEAD, L_SUP, LOG_NORMAL},
{ "rconnect", do_rconnect, POS_DEAD, L_SUP, LOG_ALWAYS},
{ "rdisconnect", do_rdisconnect, POS_DEAD, L_SUP, LOG_ALWAYS},
{ "rignore", do_rignore, POS_DEAD, L_SUP, LOG_ALWAYS},
{ "imc", do_imc, POS_DEAD, L_GOD, LOG_ALWAYS},
{ "mailq", do_mailqueue, POS_DEAD, 86, LOG_NORMAL},
#endif
/*
* Werewolf commands
*/
{ "howl", do_howl, POS_DEAD, WOLF_ONLY, LOG_NORMAL },
{ "tribe", do_tribe, POS_DEAD, WOLF_ONLY, LOG_NORMAL },
{ "rage", do_rage, POS_FIGHTING, WOLF_ONLY, LOG_NORMAL },
{ "imprint", do_imprint, POS_STANDING, WOLF_ONLY, LOG_NORMAL },
{ "scent", do_scent, POS_STANDING, WOLF_ONLY, LOG_NORMAL },
/*
* MOBprogram commands.
*/
{ "mpasound", do_mpasound, POS_DEAD, 90, LOG_NORMAL },
{ "mpjunk", do_mpjunk, POS_DEAD, 90, LOG_NORMAL },
{ "mpecho", do_mpecho, POS_DEAD, 90, LOG_NORMAL },
{ "mpechoat", do_mpechoat, POS_DEAD, 90, LOG_NORMAL },
{ "mpechoaround", do_mpechoaround,POS_DEAD, 90, LOG_NORMAL },
{ "mpkill", do_mpkill, POS_DEAD, 90, LOG_NORMAL },
{ "mpmload", do_mpmload, POS_DEAD, 90, LOG_NORMAL },
{ "mpoload", do_mpoload, POS_DEAD, 90, LOG_NORMAL },
{ "mppurge", do_mppurge, POS_DEAD, 90, LOG_NORMAL },
{ "mpgoto", do_mpgoto, POS_DEAD, 90, LOG_NORMAL },
{ "mpat", do_mpat, POS_DEAD, 90, LOG_NORMAL },
{ "mptransfer", do_mptransfer, POS_DEAD, 90, LOG_NORMAL },
{ "mpforce", do_mpforce, POS_DEAD, 90, LOG_NORMAL },
/*
* End of list.
*/
{ "", 0, POS_DEAD, 0, LOG_NORMAL }
};
/* Log all commands.. rewrite every 5 mins.. */
void comlog( CHAR_DATA *ch, int cmd, char *args )
{
static FILE *fplog;
static time_t ltime;
if ( !fplog || ltime+(5*60) <= current_time )
{
if ( fplog )
fclose(fplog);
if ( !(fplog = fopen("../log/comlog.txt", "w")) )
return;
ltime = current_time;
}
fprintf(fplog, "%.24s :: %12.12s (%5d): %s %s\n", ctime(¤t_time),
ch->name, (IS_NPC(ch) ? ch->pIndexData->vnum : -1), cmd_table[cmd].name,
(cmd_table[cmd].log == LOG_NEVER ? "XXX" : args));
fflush(fplog);
}
/*
* The main entry point for executing commands.
* Can be recursively called from 'at', 'order', 'force'.
*/
void interpret( CHAR_DATA *ch, char *argument )
{
/* BUG with aliases: they can call themselves, which is
* a Bad Thing. When an alias calls interp, we'll add
* a '~' char as the first char. Checking for this will
* tell us if we need to check aliases again. -S-
*/
bool alias_call;
char command[MAX_INPUT_LENGTH];
char logline[MAX_INPUT_LENGTH];
int cmd;
int trust;
bool found;
alias_call = FALSE;
if ( ch->position == POS_WRITING )
/* if player is writing, pass argument straight to write_interpret */
{
write_interpret( ch, argument );
return;
}
if ( ch->position == POS_BUILDING )
{
if (argument[0]==':')
argument++;
else
{
build_interpret(ch,argument);
return;
}
}
/*
* Strip leading spaces.
*/
while ( isspace(*argument) )
argument++;
if ( argument[0] == '\0' )
return;
if ( argument[0] == '~' )
{
argument++;
alias_call = TRUE;
}
/*
* No hiding.
*/
REMOVE_BIT( ch->affected_by, AFF_HIDE );
/*
* Implement freeze command.
*/
if ( !IS_NPC(ch) && IS_SET(ch->act, PLR_FREEZE) )
{
send_to_char( "@@a@@fYou're totally frozen!@@N\n\r", ch );
return;
}
if ( ch->stunTimer > 0 )
{
send_to_char( "You are too@@aSTUNNED@@N to act!\n\r", ch );
return;
}
/*
* Grab the command word.
* Special parsing so ' can be a command,
* also no spaces needed after punctuation.
*/
strcpy( logline, 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 );
for ( cmd = 0; cmd_table[cmd].name[0] != '\0'; cmd++ )
{
/* Stephen Mod: if level == CLAN_ONLY then for clan member only.
== BOSS_ONLY have to be leader.
== -3 vamp
== -4 wolf */
if ( cmd_table[cmd].level == CLAN_ONLY
&& !IS_NPC( ch )
&& ch->pcdata->clan == 0 )
continue;
if ( cmd_table[cmd].level == BOSS_ONLY
&& !IS_NPC( ch )
&& !IS_SET( ch->pcdata->pflags, PFLAG_CLAN_BOSS ) )
continue;
if ( cmd_table[cmd].level == VAMP_ONLY
&& !IS_NPC( ch )
&& !IS_VAMP( ch )
&& ( ch->level != L_GOD ) )
continue;
if ( cmd_table[cmd].level == WOLF_ONLY
&& !IS_NPC( ch )
&& !IS_WOLF( ch )
&& ( ch->level != L_GOD ) )
continue;
if ( command[0] == cmd_table[cmd].name[0]
&& !str_prefix( command, cmd_table[cmd].name )
&& ( cmd_table[cmd].level <= trust
|| MP_Commands( ch ) ) )
{
found = TRUE;
break;
}
}
/*
* Log and snoop.
*/
if ( cmd_table[cmd].log == LOG_NEVER )
strcpy( logline, "XXXXXXXX XXXXXXXX XXXXXXXX@@N");
if ( ( !IS_NPC(ch) && IS_SET(ch->act, PLR_LOG) )
|| fLogAll
|| cmd_table[cmd].log == LOG_ALWAYS )
{
sprintf( log_buf, "Log %s: %s", ch->name, logline );
log_string( log_buf );
if ( IS_SET( ch->act, PLR_LOG ) )
monitor_chan( log_buf, MONITOR_BAD );
else
if ( cmd_table[cmd].level > LEVEL_HERO )
monitor_chan( log_buf, MONITOR_GEN_IMM );
else
monitor_chan( log_buf, MONITOR_GEN_MORT );
}
if ( ch->desc != NULL && ch->desc->snoop_by != NULL ) /* -S- Mod */
{
char snp[MAX_STRING_LENGTH];
sprintf( snp, "[Snoop:%s] %s\n\r", ch->name, logline );
write_to_buffer( ch->desc->snoop_by, snp, 0 );
}
if ( !found && !IS_NPC( ch ) && (!alias_call) )
{
int cnt;
char foo[MAX_STRING_LENGTH];
/* Check aliases -S- */
for ( cnt = 0; cnt < MAX_ALIASES; cnt++ )
{
if ( !str_cmp( ch->pcdata->alias_name[cnt], command )
&& str_cmp( ch->pcdata->alias_name[cnt], "<none>@@N") )
{
found = TRUE;
sprintf( foo, "~%s %s", ch->pcdata->alias[cnt], argument );
interpret( ch, foo );
return;
}
}
}
if ( !found )
{
/*
* Look for command in socials table.
*/
if ( !check_social( ch, command, argument ) )
send_to_char( "Huh?\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 @@dDEAD@@N.\n\r", ch );
break;
case POS_MORTAL:
case POS_INCAP:
send_to_char( "You are @@Rhurt@@N far too bad for that.\n\r", ch );
break;
case POS_STUNNED:
send_to_char( "You are too @@estunned@@N to do that.\n\r", ch );
break;
case POS_SLEEPING:
send_to_char( "Oh, go back to @@Wsleep!@@N\n\r", ch );
break;
case POS_RESTING:
send_to_char( "Naaaaaah... You feel too @@brelaxed@@N...\n\r", ch);
break;
case POS_FIGHTING:
send_to_char( "Not until you @@Rstop@@N fighting!\n\r", ch);
break;
}
return;
}
/*
* Dispatch the command.
*/
if ( !IS_NPC( ch )
&& ( ( ch->stance == STANCE_AMBUSH )
|| ( ch->stance == STANCE_AC_BEST ) )
&& ( ( str_prefix( command, "kill" ) )
&& ( str_prefix( command, "murder" ) )
&& ( str_prefix( command, "backstab" ) )
&& ( str_prefix( command, "bs" ) )
&& ( str_prefix( command, "whisper" ) )
&& ( str_prefix( command, "stake" ) )
&& ( str_prefix( command, "steal" ) ) ) )
{
send_to_char( "You step out of the shadows.\n\r", ch );
ch->stance = STANCE_WARRIOR;
ch->stance_ac_mod = 0;
ch->stance_dr_mod = 0;
ch->stance_hr_mod = 0;
act( "$n steps out of the Shadows!", ch, NULL, NULL, TO_ROOM );
}
comlog(ch, cmd, argument);
(*cmd_table[cmd].do_fun) ( ch, argument );
tail_chain( );
return;
}
bool check_social( CHAR_DATA *ch, char *command, char *argument )
{
char arg[MAX_INPUT_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;
}
switch ( ch->position )
{
case POS_DEAD:
send_to_char( "Lie still; you are @@dDEAD@@N.\n\r", ch );
return TRUE;
case POS_INCAP:
case POS_MORTAL:
send_to_char( "You are @@Rhurt@@N far too bad for that.\n\r", ch );
return TRUE;
case POS_STUNNED:
send_to_char( "You are too @@estunned@@N 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 @@Wdreams@@N, 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:
case 1: case 2: case 3: case 4:
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 5: case 6: case 7: case 8:
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;
}
/*
* Return true if an argument is completely numeric.
*/
bool is_number( char *arg )
{
if ( *arg == '\0' )
return FALSE;
if ( *arg == '+' || *arg == '-' )
arg++;
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;
}
bool IS_SWITCHED( CHAR_DATA *ch )
{
if ( !IS_NPC( ch ) )
return FALSE;
if ( ch->desc == NULL )
return FALSE;
return TRUE;
}
bool MP_Commands( CHAR_DATA *ch ) /* Can MOBProged mobs
use mpcommands? TRUE if yes.
- Kahn */
{
if ( IS_SWITCHED ( ch ) )
return FALSE;
if ( IS_NPC( ch )
&& ch->pIndexData->progtypes
&& !IS_AFFECTED( ch, AFF_CHARM ) )
return TRUE;
return FALSE;
}