/*************************************************************************** * 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-mercbase.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 */ { "rchat", do_rchat, POS_SLEEPING, 0, LOG_NORMAL}, { "rtell", do_rtell, POS_SLEEPING, 0, 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}, { "rfinger", do_rfinger, POS_SLEEPING, 5, LOG_NORMAL}, { "rwhois", do_rwhois, POS_SLEEPING, 5, LOG_NORMAL}, { "rcode", do_rcode, POS_SLEEPING, 0, LOG_NORMAL}, { "rbeep", do_rbeep, POS_SLEEPING, 0, LOG_NORMAL}, { "istats", do_istats, POS_SLEEPING, 0, LOG_NORMAL}, { "rchannels", do_rchannels, POS_SLEEPING, 0, 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_ALWAYS }, { "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_ALWAYS }, { "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. */ { "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_GOD, 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_ANG, LOG_ALWAYS }, { "transdm", do_transdm, POS_DEAD, L_SUP, LOG_NORMAL }, { "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 }, { "otype", do_otype, POS_DEAD, L_SUP, LOG_NORMAL }, { "owear", do_owhere, POS_DEAD, L_SUP, 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}, { "imclist", do_imclist, POS_DEAD, 5, LOG_NORMAL}, { "mailq", do_mailqueue, POS_DEAD, 86, LOG_NORMAL}, { "rchanset", do_rchanset, POS_DEAD, L_DEI, 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; }