/**
* \file commands.c
* Root Command Parser
*
* This module provides commands to parse player input, interpert the input,
* and display available commands to players.
*
* Copyright 2005, Mary C. Huston, All rights reserved.
* Copyright (C) 2004, Shadows of Isildur: Traithe
*
* The program(s) may be used and/or copied only with written
* permission or in accordance with the terms and conditions
* stipulated in the license from DIKU GAMMA (0.0) and SOI.
*
* \author Mary Huston
* \author Email: auroness@gmail.com
*
******************************************************************************
*/
#include <string.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include "structs.h"
#include "protos.h"
#include "utils.h"
#include "decl.h"
DESCRIPTOR_DATA *last_descriptor;
char full_last_command [MAX_STRING_LENGTH];
char last_command [MAX_STRING_LENGTH];
extern int second_affect_active;
struct command_data commands [] = {
/* Mortal commands */
{"\01craft", do_say, REST, C_XLS },
{ ".", do_say, REST, C_SUB | C_DOA | C_BLD | C_PAR | C_DEL },
{ ",", do_emote, REST, C_SUB | C_DOA | C_BLD | C_PAR | C_DEL },
{ ":", do_emote, REST, C_SUB | C_DOA | C_BLD | C_PAR | C_DEL },
/** Mortal commnds that are usually abbreviated out of order with others**/
{ "down", do_down, FIGHT, C_HID | C_DOA | C_BLD },
{ "east", do_east, FIGHT, C_HID | C_DOA | C_BLD },
{ "inventory", do_equipment, SLEEP, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "look", do_look, REST, C_DEL | C_HID | C_SUB | C_DOA | C_PAR },
{ "north", do_north, FIGHT, C_HID | C_DOA | C_BLD },
{ "south", do_south, FIGHT, C_HID | C_DOA | C_BLD},
{ "up", do_up, FIGHT, C_HID | C_DOA | C_BLD },
{ "west", do_west, FIGHT, C_HID | C_DOA | C_BLD },
{ "score", do_score, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
/** Remainder of Mortal commands **/
{ "accept", do_accept, REST, C_DEL | C_BLD | C_HID },
{ "accuse", do_accuse, REST, C_BLD },
{ "aim", do_aim, FIGHT, C_WLK | C_HID | C_MNT },
{ "alert", do_alert, FIGHT, C_BLD },
{ "apply", do_apply, SIT, C_WLK },
{ "barter", do_barter, SIT, C_MNT },
{ "behead", do_behead, STAND, C_WLK | C_MNT },
{ "bind", do_bind, STAND, C_WLK | C_MNT },
{ "blindfold", do_blindfold, STAND, C_MNT },
{ "bolt", do_bolt, STAND, C_HID | C_WLK | C_XLS },
{ "bridle", do_bridle, STAND, C_MNT },
{ "buck", do_buck, FIGHT, C_BLD | C_XLS },
{ "bug", do_bug, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "buy", do_buy, SIT, C_MNT },
{ "camp", do_camp, STAND, C_WLK | C_BLD | C_MNT },
{ "castout", do_castout, REST, C_BLD },
{ "close", do_close, SIT, C_MNT },
{ "commands", do_commands, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_NLG },
{ "commence", do_commence, REST, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "compact", do_compact, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "compare", do_compare, REST, C_DEL | C_HID | C_SUB | C_DOA | C_PAR | C_SPL | C_NLG },
{ "contents", do_contents, REST, C_SUB | C_DOA | C_MNT | C_PAR | C_SPL | C_NLG },
{ "count", do_count, REST, C_NLG },
{ "crafts", do_crafts, DEAD, C_DEL | C_SUB | C_HID | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "credits", do_credits, DEAD, C_DEL | C_SUB | C_HID | C_DOA | C_BLD | C_PAR | C_SPL },
{ "decline", do_decline, REST, C_DEL | C_BLD },
{ "dip", do_dip, SIT, C_WLK | C_DEL | C_HID | C_SUB | C_DOA },
{ "disband", do_disband, SIT, C_BLD },
{ "dismantle", do_dismantle, STAND, C_WLK | C_BLD | C_MNT },
{ "dismount", do_dismount, STAND, 0 },
{ "drag", do_drag, STAND, C_WLK | C_MNT },
{ "draw", do_draw, REST, C_BLD },
{ "dreams", do_dreams, SLEEP, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "drink", do_drink, REST, C_BLD },
{ "drop", do_drop, REST, C_DOA | C_BLD },
{ "eat", do_eat, REST, C_BLD },
{ "emote", do_emote, REST, C_SUB | C_DOA | C_BLD | C_PAR | C_DEL | C_SPL },
{ "empty", do_empty, REST, C_BLD },
{ "enter", do_enter, STAND, C_WLK | C_BLD },
{ "equipment", do_equipment, SLEEP, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "erase", do_erase, REST, C_DEL | C_HID | C_SUB | C_DOA | C_BLD },
{ "escape", do_escape, STAND, C_SUB | C_BLD },
{ "evaluate", do_evaluate, REST, C_DEL | C_HID | C_SUB | C_DOA | C_PAR },
{ "examine", do_examine, SIT, 0 },
{ "exits", do_exits, REST, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "fill", do_fill, REST, C_MNT },
{ "fire", do_fire, FIGHT, C_BLD },
{ "flee", do_flee, FIGHT, 0 },
{ "flip", do_flip, REST, C_DOA },
{ "follow", do_follow, REST, C_BLD | C_PAR },
{ "forage", do_forage, STAND, C_WLK | C_MNT },
{ "furnishings",do_tables, REST, C_SUB | C_DOA | C_MNT | C_PAR | C_SPL | C_NLG },
{ "furniture", do_tables, REST, C_SUB | C_DOA | C_MNT | C_PAR | C_SPL | C_NLG },
{ "gather", do_gather, STAND, C_WLK | C_MNT },
{ "get", do_get, REST, C_BLD },
{ "give", do_give, REST, C_DOA },
{ "grip", do_grip, REST, C_DEL | C_HID | C_DOA | C_BLD | C_PAR | C_WLK },
{ "group", do_group, REST, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "guard", do_guard, REST, C_BLD | C_HID | C_PAR },
{ "guide", do_guide, REST, C_DEL | C_HID | C_DOA | C_BLD | C_PAR | C_WLK | C_NLG },
{ "heal", do_heal, STAND, C_WLK | C_XLS | C_MNT },
{ "health", do_health, REST, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "help", do_help, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_XLS | C_PAR | C_SPL },
{ "hex", do_hex, SIT, C_WLK | C_HID | C_XLS },
{ "hide", do_hide, STAND, C_WLK | C_HID | C_MNT },
{ "hit", do_hit, FIGHT, C_BLD | C_HID },
{ "hitch", do_hitch, STAND, C_MNT },
{ "hood", do_hood, REST, C_HID | C_BLD | C_DOA },
{ "idea", do_idea, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "identify", do_identify, STAND, C_WLK | C_MNT },
{ "invite", do_invite, STAND, 0 },
{ "jerase", do_jerase, DEAD, C_WLK | C_BLD | C_MNT | C_HID | C_SPL },
{ "journal", do_journal, DEAD, C_WLK | C_MNT | C_BLD | C_MNT | C_HID | C_SPL },
{ "jread", do_jread, DEAD, C_WLK | C_BLD | C_MNT | C_HID | C_SPL },
{ "junk", do_junk, REST, C_MNT },
{ "jwrite", do_jwrite, DEAD, C_WLK | C_BLD | C_MNT | C_HID | C_SPL },
{ "ki", do_nokill, DEAD, C_XLS },
{ "kill", do_kill, FIGHT, C_BLD | C_HID },
{ "knock", do_knock, STAND, C_BLD },
{ "leave", do_leave, STAND, C_WLK | C_BLD },
{ "light", do_light, SIT, C_HID | C_DOA },
{ "list", do_list, SIT, C_BLD },
{ "load", do_load, FIGHT, C_WLK | C_MNT | C_HID | C_DOA },
{ "lock", do_lock, SIT, C_MNT },
{ "materials", do_materials, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "mount", do_mount, STAND, C_MNT },
{ "mute", do_mute, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "news", do_news, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "nod", do_nod, REST, C_HID | C_SUB | C_DOA | C_BLD },
{ "notify", do_notify, DEAD, C_DEL | C_HID | C_SUB | C_BLD | C_PAR },
{ "omote", do_omote, REST, C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "ooc", do_ooc, REST, C_WLK | C_SPL },
{ "open", do_open, SIT, C_BLD },
{ "order", do_order, REST, C_BLD },
{ "outside", do_outside, FIGHT, C_HID | C_DOA | C_BLD },
{ "palm", do_palm, SIT, C_WLK | C_BLD | C_HID | C_MNT },
{ "pardon", do_pardon, REST, C_BLD },
{ "pay", do_pay, REST, C_WLK | C_BLD },
{ "payday", do_payday, REST, C_HID | C_SUB | C_DOA | C_PAR },
{ "petition", do_petition, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "pick", do_pick, STAND, C_WLK | C_MNT },
{ "pitch", do_pitch, STAND, C_WLK | C_BLD | C_MNT },
{ "pmote", do_pmote, SLEEP, C_SUB | C_DOA | C_HID | C_BLD | C_PAR | C_SPL },
{ "point", do_point, STAND, C_WLK },
{ "pour", do_pour, REST, 0 },
{ "prescience", do_prescience, REST, C_WLK | C_XLS },
{ "preview", do_preview, SIT, C_BLD },
{ "promote", do_promote, STAND, 0 },
{ "put", do_put, REST, C_BLD },
{ "quaff", do_quaff, REST, C_BLD },
{ "quit", do_quit, DEAD, C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "reach", do_reach, REST, C_HID | C_DEL | C_WLK | C_BLD | C_PAR | C_SUB },
{ "read", do_read, REST, C_WLK | C_DEL | C_HID | C_SUB | C_DOA },
{ "recruit", do_recruit, SIT, C_BLD },
{ "release", do_release, STAND, C_BLD },
{ "remove", do_remove, REST, C_BLD },
{ "rescue", do_rescue, FIGHT, 0 },
{ "rest", do_rest, REST, C_WLK | C_HID | C_DOA | C_BLD | C_PAR },
{ "return", do_return, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "roll", do_roll, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "rummage", do_rummage, STAND, C_WLK | C_MNT },
{ "save", do_save, SLEEP, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "say", do_say, REST, C_SUB | C_DOA | C_BLD | C_PAR },
{ "scan", do_scan, STAND, C_WLK },
{ "scribe", do_select_script,DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "search", do_search, STAND, C_WLK | C_MNT },
{ "see", do_see, REST, C_HID | C_XLS },
{ "sell", do_sell, SIT, C_BLD },
{ "sense", do_sense, SIT, C_HID | C_XLS },
{ "set", do_set, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "shadow", do_shadow, STAND, C_WLK | C_SUB | C_HID | C_DEL | C_PAR },
{ "sheathe", do_sheathe, REST, C_BLD },
{ "shout", do_shout, REST, C_BLD | C_PAR },
{ "sing", do_sing, REST, C_SUB | C_DOA | C_BLD | C_PAR },
{ "sit", do_sit, REST, C_HID | C_DOA | C_BLD | C_PAR },
{ "skills", do_skills, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "skin", do_skin, STAND, C_WLK | C_MNT },
{ "sleep", do_sleep, SLEEP, C_HID | C_BLD | C_PAR },
{ "sneak", do_sneak, STAND, C_WLK | C_HID | C_MNT },
{ "speak", do_speak, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "stable", do_stable, STAND, C_MNT | C_WLK },
{ "stand", do_stand, SLEEP, C_HID | C_DOA | C_BLD },
{ "steal", do_steal, STAND, C_WLK | C_MNT },
{ "stop", do_stop, SIT, C_BLD | C_DEL | C_PAR | C_SPL },
{ "study", do_study, SIT, 0 },
{ "subdue", do_subdue, FIGHT, C_WLK | C_MNT },
{ "surrender", do_surrender, FIGHT, C_WLK | C_HID | C_MNT },
{ "swim", do_swim, STAND, C_BLD },
{ "switch", do_switch, REST, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "tables", do_tables, REST, C_SUB | C_DOA | C_MNT | C_PAR | C_SPL },
{ "take", do_take, STAND, C_MNT },
{ "talk", do_talk, REST, C_DEL | C_SUB | C_DOA | C_BLD | C_PAR | C_DEL },
{ "teach", do_teach, STAND, C_MNT },
{ "tear", do_tear, REST, C_DOA },
{ "tell", do_tell, REST, C_DEL | C_DOA | C_DEL | C_SUB | C_PAR },
{ "think", do_think, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "throw", do_throw, STAND, C_BLD },
{ "time", do_time, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "timeconvert",do_timeconvert, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "title", do_title, SIT, C_WLK | C_DEL | C_HID | C_SUB | C_DOA },
{ "toll", do_toll, STAND, C_WLK | C_MNT },
{ "track", do_track, FIGHT, C_WLK | C_DOA | C_BLD | C_MNT },
{ "travel", do_travel, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL }, /* act.comm.c */
{ "treat", do_treat, STAND, C_WLK | C_MNT },
{ "turn", do_flip, REST, C_DOA },
{ "typo", do_typo, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "unhitch", do_unhitch, STAND, 0 },
{ "unload", do_unload, SIT, C_WLK | C_MNT | C_HID | C_DOA },
{ "unlock", do_unlock, SIT, C_MNT },
{ "value", do_value, SIT, C_BLD },
{ "vis", do_vis, REST, C_DEL | C_SUB | C_DOA | C_BLD | C_PAR },
{ "vmote", do_voice, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL }, /* synonym for voice */
{ "voice", do_voice, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL },
{ "vstring", do_voice, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL }, /* synonym for voice */
{ "wake", do_wake, SLEEP, C_HID | C_DOA | C_BLD },
{ "wanted", do_wanted, REST, C_BLD | C_SPL },
{ "wear", do_wear, REST, C_BLD },
{ "weather", do_weather, REST, C_DEL | C_HID | C_SUB | C_BLD | C_PAR | C_SPL },
{ "whirl", do_whirl, FIGHT, C_WLK | C_MNT },
{ "whisper", do_whisper, REST, C_SUB | C_DOA | C_BLD | C_MNT | C_PAR | C_DEL },
{ "who", do_who, DEAD, C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR | C_SPL | C_NLG },
{ "wield", do_wield, REST, C_BLD },
{ "write", do_write, SIT, C_WLK | C_DEL | C_HID | C_SUB | C_DOA },
{ "yell", do_shout, REST, C_SUB | C_BLD | C_PAR | C_DEL },
/* Staff Commands */
{ ";", do_ichat, DEAD, C_LV1 | C_DOA | C_DEL },
{ "*", do_fivenet, DEAD, C_LV5 },
{ "\\", do_ichat, DEAD, C_LV1 | C_DOA | C_DEL },
{ "addcraft", do_addcraft, DEAD, C_LV3 },
{ "affect", do_affect, DEAD, C_LV3 },
{ "alog", do_alog, DEAD, C_LV4 },
{ "as", do_as, DEAD, C_LV3 },
{ "assign", do_assign, DEAD, C_LV5 },
{ "at", do_at, DEAD, C_LV3 },
{ "award", do_award, DEAD, C_LV4 },
{ "ban", do_ban, DEAD, C_LV4 },
{ "blog", do_blog, DEAD, C_LV2 },
{ "broadcast", do_broadcast, DEAD, C_LV4 },
{ "clan", do_clan, DEAD, C_LV3 },
{ "clockin", do_clockin, SIT, C_LV2 | C_MNT },
{ "clockout", do_clockout, SIT, C_LV2 | C_MNT },
{ "clog", do_clog, DEAD, C_LV2 },
{ "compete", do_compete, DEAD, C_LV5 },
{ "cset", do_cset, DEAD, C_LV2 },
{ "day", do_day, DEAD, C_LV4 },
{ "debug", do_debug, DEAD, C_LV5 },
{ "deduct", do_deduct, DEAD, C_LV4 },
{ "diagnose", do_diagnose, DEAD, C_LV1 },
{ "echo", do_echo, DEAD, C_LV3 },
{ "email", do_email, DEAD, C_LV4 },
{ "find", do_find, DEAD, C_LV2 },
{ "fivenet", do_fivenet, DEAD, C_LV5 },
{ "force", do_force, DEAD, C_LV4 | C_DEL | C_SUB | C_HID },
{ "freeze", do_freeze, DEAD, C_LV2 },
{ "gecho", do_gecho, DEAD, C_LV5 },
{ "givedream", do_givedream, DEAD, C_LV3 },
{ "goto", do_goto, DEAD, C_LV1 },
{ "gstat", do_gstat, DEAD, C_LV1 },
{ "hedit", do_hedit, DEAD, C_LV4 },
{ "history", do_history, DEAD, C_GDE | C_DEL },
{ "hour", do_hour, DEAD, C_LV4 },
{ "ichat", do_ichat, DEAD, C_LV1 | C_DOA | C_DEL },
{ "immcommands",do_immcommands, DEAD, C_LV1 },
{ "invis", do_invis, DEAD, C_LV1 },
{ "job", do_job, DEAD, C_LV3 },
{ "last", do_last, DEAD, C_LV1 },
{ "locate", do_locate, DEAD, C_LV1 },
{ "log", do_log, DEAD, C_LV4 },
{ "map", do_map, DEAD, C_LV2 },
{ "mclone", do_mclone, DEAD, C_LV2 },
{ "mcopy", do_mcopy, DEAD, C_LV2 },
{ "minit", do_minit, DEAD, C_LV2 },
{ "mobile", do_mobile, DEAD, C_GDE },
{ "mset", do_mset, DEAD, C_GDE },
{ "munused", do_munused, DEAD, C_LV2 },
{ "mysql", do_mysql, DEAD, C_LV5 },
{ "notes", do_notes, DEAD, C_LV1 },
{ "nuke", do_nuke, DEAD, C_LV4 },
{ "object", do_object, DEAD, C_LV2 },
{ "oinit", do_oinit, DEAD, C_LV2 },
{ "olist", do_olist, DEAD, C_LV2 },
{ "openskill", do_openskill, DEAD, C_LV3 },
{ "oset", do_oset, DEAD, C_LV2 },
{ "ounused", do_ounused, DEAD, C_LV2 },
{ "outfit", do_outfit, DEAD, C_LV2 },
{ "passwd", do_passwd, DEAD, C_LV4 },
{ "pecho", do_pecho, DEAD, C_LV3 },
{ "pfile", do_pfile, DEAD, C_LV5 },
{ "plog", do_plog, DEAD, C_LV4 },
{ "print", do_print, DEAD, C_LV5 },
{ "professions",do_professions, DEAD, C_LV4 },
{ "prog", do_prog, DEAD, C_LV2 },
{ "purge", do_purge, DEAD, C_LV2 },
{ "rappend", do_rappend, DEAD, C_LV2 },
{ "rblock", do_rblock, DEAD, C_LV2 },
{ "rclone", do_rclone, DEAD, C_LV4 },
{ "rcret", do_rcret, DEAD, C_LV2 },
{ "rddesc", do_rddesc, DEAD, C_LV2 },
{ "rdelete", do_rdelete, DEAD, C_LV2 },
{ "rdesc", do_rdesc, DEAD, C_LV2 },
{ "rdflag", do_rdflag, DEAD, C_LV2 },
{ "rdoor", do_rdoor, DEAD, C_LV2 },
{ "redesc", do_redesc, DEAD, C_LV2 },
{ "register", do_register, DEAD, C_LV3 },
{ "remcraft", do_remcraft, DEAD, C_LV3 },
{ "replace", do_replace, DEAD, C_LV5 },
{ "report", do_report, DEAD, C_LV4 },
{ "resets", do_resets, DEAD, C_LV4 },
{ "restore", do_restore, DEAD, C_LV1 },
{ "review", do_review, DEAD, C_GDE },
{ "rexit", do_rexit, DEAD, C_LV2 },
{ "rexitrm", do_rexitrm, DEAD, C_LV2 },
{ "rflags", do_rflags, DEAD, C_LV2 },
{ "rinit", do_rinit, DEAD, C_LV2 },
{ "rkey", do_rkey, DEAD, C_LV2 },
{ "rlink", do_rlink, DEAD, C_LV2 },
{ "rlinkrm", do_rlinkrm, DEAD, C_LV2 },
{ "rmove", do_rmove, DEAD, C_LV5 },
{ "rname", do_rname, DEAD, C_LV2 },
{ "role", do_role, DEAD, C_LV4 },
{ "roster", do_roster, DEAD, C_LV5 },
{ "rpadd", do_rpadd, DEAD, C_LV2 },
{ "rpapp", do_rpapp, DEAD, C_LV2 },
{ "rpcmd", do_rpcmd, DEAD, C_LV2 },
{ "rpdel", do_rpdel, DEAD, C_LV2 },
{ "rpkey", do_rpkey, DEAD, C_LV2 },
{ "rpprg", do_rpprg, DEAD, C_LV2 },
{ "rpstat", do_rpstat, DEAD, C_LV2 },
{ "rscriptadd", do_rscript_add, DEAD, C_LV2 },
{ "rscriptdel", do_rscript_del, DEAD, C_LV2 },
{ "rscriptlist",do_rscript_list, DEAD, C_LV2 },
{ "rsector", do_rsector, DEAD, C_LV2 },
{ "rset", do_rset, DEAD, C_LV2 },
{ "runused", do_runused, DEAD, C_LV2 },
{ "rxchange", do_rxchange, DEAD, C_LV2 },
{ "saverooms", do_saverooms, DEAD, C_LV4 },
{ "send", do_immtell, DEAD, C_LV1 },
{ "show", do_show, DEAD, C_GDE },
{ "shutdown", do_shutdown, DEAD, C_LV4 },
{ "snoop", do_snoop, DEAD, C_LV3 },
{ "stat", do_stat, DEAD, C_LV1 },
{ "stayput", do_stayput, DEAD, C_LV4 },
{ "summon", do_summon, DEAD, C_LV2 },
{ "swap", do_swap, DEAD, C_LV4 },
{ "tags", do_tags, DEAD, C_LV1 },
{ "thaw", do_thaw, DEAD, C_LV2 },
{ "transfer", do_transfer, DEAD, C_LV2 },
{ "unban", do_unban, DEAD, C_LV4 },
{ "users", do_users, DEAD, C_LV1 },
{ "vboards", do_vboards, DEAD, C_LV1 },
{ "watch", do_watch, DEAD, C_LV5 },
{ "wclone", do_wclone, DEAD, C_LV3 },
{ "wearloc", do_wearloc, DEAD, C_LV3 },
{ "whap", do_whap, STAND, C_LV4 }, /* Joke command */
{ "where", do_where, DEAD, C_LV1 },
{ "wizlist", do_wizlist, DEAD, C_LV1 | C_DEL | C_HID | C_SUB | C_DOA | C_BLD | C_PAR },
{ "wizlock", do_wizlock, DEAD, C_LV5 },
{ "wiznet", do_ichat, DEAD, C_LV1 | C_DOA | C_DEL },
{ "wlog", do_wlog, DEAD, C_LV5 },
{ "would", do_would, DEAD, C_LV1 },
{ "writings", do_writings, DEAD, C_LV4 },
{ "zecho", do_zecho, DEAD, C_LV3 },
{ "zlife", do_zlife, DEAD, C_LV5 },
{ "zlock", do_zlock, DEAD, C_LV5 },
{ "zmode", do_zmode, DEAD, C_LV5 },
{ "zname", do_zname, DEAD, C_LV5 },
{ "zsave", do_zsave, DEAD, C_LV2 },
{ "zset", do_zset, DEAD, C_LV4 },
{ "", NULL, 0, 0 }
};
char *fill[]=
{ "in",
"from",
"with",
"the",
"on",
"at",
"to",
"\n"
};
int search_block(char *arg, char **list, bool exact)
{
register int i = 0,l;
/* Make into lower case, and get length of string */
for(l=0; *(arg+l); l++)
*(arg+l)=LOWER(*(arg+l));
if (exact) {
for(i=0; **(list+i) != '\n'; i++)
if (!strcmp(arg, *(list+i)))
return(i);
} else {
if (!l)
l=1; /* Avoid "" to match the first available string */
for(i=0; **(list+i) != '\n'; i++)
if (!strncmp(arg, *(list+i), l))
return(i);
}
return(-1);
}
void show_to_watchers (CHAR_DATA *ch, char *command)
{
CHAR_DATA *tch;
AFFECTED_TYPE *af;
char buf [MAX_STRING_LENGTH];
if ( (af = get_affect (ch, MAGIC_WATCH1)) ) {
if ( !is_he_somewhere ((CHAR_DATA *) af->a.spell.t) )
affect_remove (ch, af);
else {
tch = (CHAR_DATA *) af->a.spell.t;
snprintf (buf, MAX_STRING_LENGTH, "%s: %s\n", GET_NAME (ch), command);
send_to_char (buf, tch);
}
}
if ( (af = get_affect (ch, MAGIC_WATCH2)) ) {
if ( !is_he_somewhere ((CHAR_DATA *) af->a.spell.t) )
affect_remove (ch, af);
else {
tch = (CHAR_DATA *) af->a.spell.t;
snprintf (buf, MAX_STRING_LENGTH, "%s: %s\n", GET_NAME (ch), command);
send_to_char (buf, tch);
}
}
if ( (af = get_affect (ch, MAGIC_WATCH3)) ) {
if ( !is_he_somewhere ((CHAR_DATA *) af->a.spell.t) )
affect_remove (ch, af);
else {
tch = (CHAR_DATA *) af->a.spell.t;
snprintf (buf, MAX_STRING_LENGTH, "%s: %s\n", GET_NAME (ch), command);
send_to_char (buf, tch);
}
}
}
void command_interpreter (CHAR_DATA *ch, char *argument)
{
char buf [MAX_STRING_LENGTH];
char *command_args, *p, *social_args;
int cmd_level = 0;
int i = 0, echo = 1;
AFFECTED_TYPE *craft_affect = NULL;
AFFECTED_TYPE *af;
ALIAS_DATA *alias;
*buf = '\0';
p = argument;
while ( *p == ' ' )
p++;
if ( strchr (p, '%') ) {
send_to_char ("Input with the '%' character is not permitted.\n", ch);
return;
}
if ( strchr (p, '#') && IS_MORTAL (ch) && strncmp (p,"ge",2) != 0 && strncmp (p, "buy", 3) !=0 ) {
send_to_char ("Input with the '#' character is not permitted.\n", ch);
return;
}
if ( IS_MORTAL (ch) && strchr (p, '$') ) {
send_to_char ("Input with the '$' character is not permitted.\n", ch);
return;
}
if ( r_program (ch, p) ) {
if ( !IS_NPC (ch) || (ch->desc && (ch->pc && str_cmp (ch->pc->account, "Guest"))) ) {
player_log (ch, "[RPROG]", p);
}
if ( !IS_SET (commands [i].flags, C_NWT) )
show_to_watchers (ch, argument);
return;
}
if ( !IS_MORTAL (ch) && !str_cmp (argument, "sho wl") ) {
send_to_char ("Heh heh. Glad I added in this check, aren't we? No shouting for you.\n", ch);
return;
}
if ( ch->desc ) {
last_descriptor = ch->desc;
snprintf (full_last_command, MAX_STRING_LENGTH, "Last Command Issued, by %s [%d]: %s", ch->tname, ch->in_room, argument);
snprintf (last_command, MAX_STRING_LENGTH, "%s", argument);
}
social_args = argument;
command_args = one_argument (argument, buf);
if ( !*buf )
return;
while ( *command_args == ' ' )
command_args++;
if ( ch->pc && !GET_FLAG (ch, FLAG_ALIASING) ) {
if ( (alias = is_alias (ch, buf)) ) {
SET_BIT (ch->flags, FLAG_ALIASING);
while ( alias ) {
command_interpreter (ch, alias->line);
if ( ch->deleted )
return;
alias = alias->next_line;
}
REMOVE_BIT (ch->flags, FLAG_ALIASING);
return;
}
}
for ( i = 1; *commands [i].command; i++ )
if ( is_abbrev (buf, commands [i].command) )
break;
if ( (craft_affect = is_craft_command (ch,argument)) )
i = 0;
if ( IS_SET (commands [i].flags, C_LV5) ) cmd_level = 5;
else if ( IS_SET (commands [i].flags, C_LV4) ) cmd_level = 4;
else if ( IS_SET (commands [i].flags, C_LV3) ) cmd_level = 3;
else if ( IS_SET (commands [i].flags, C_LV2) ) cmd_level = 2;
else if ( IS_SET (commands [i].flags, C_LV1) ) cmd_level = 1;
if ( IS_SET (commands[i].flags, C_GDE) && (IS_NPC(ch) || (!ch->pc->is_guide && !ch->pc->level)) ) {
send_to_char ("Eh?\n\r", ch);
return;
}
if ( !*commands [i].command || cmd_level > GET_TRUST (ch) ) {
if ( !social (ch, argument) ) {
echo = number(1,9);
if ( echo == 1 )
send_to_char ("Eh?\n\r", ch);
else if ( echo == 2 )
send_to_char ("Huh?\n\r", ch);
else if ( echo == 3 )
send_to_char ("I'm afraid that just isn't possible...\n\r", ch);
else if ( echo == 4 )
send_to_char ("I don't recognize that command.\n\r", ch);
else if ( echo == 5 )
send_to_char ("What?\n\r", ch);
else if ( echo == 6 )
send_to_char ("Perhaps you should try typing it a different way?\n\r", ch);
else if ( echo == 7 )
send_to_char ("Try checking your typing - I don't recognize it.\n\r", ch);
else if ( echo == 8 )
send_to_char ("That isn't a recognized command, craft, or social.\n\r", ch);
else send_to_char ("Hmm?\n\r", ch);
}
else {
if ( !IS_SET (commands [i].flags, C_NWT) )
show_to_watchers (ch, argument);
}
return;
}
if ( ch->stun ) {
send_to_char ("You're still reeling.\n", ch);
return;
}
if ( ch->roundtime ) {
snprintf (buf, MAX_STRING_LENGTH, "You'll need to wait another %d seconds.\n", ch->roundtime);
send_to_char (buf, ch);
return;
}
if ( IS_SET (commands [i].flags, C_WLK) &&
(ch->moves || GET_FLAG (ch, FLAG_LEAVING) || GET_FLAG (ch, FLAG_ENTERING)) ) {
send_to_char ("Stop traveling first.\n\r", ch);
return;
}
if ( IS_SET (commands [i].flags, C_MNT) && IS_RIDER (ch) ) {
send_to_char ("Get off your mount first.\n", ch);
return;
}
if ( commands [i].min_position > GET_POS (ch) ) {
switch ( GET_POS (ch) ) {
case DEAD:
if ( IS_MORTAL(ch) ) {
send_to_char ("You are dead. You can't do that.\n\r", ch);
return;
}
send_to_char ("You are dead. Good thing you are immortal. But you still can't do that.\n\r", ch);
return;
case UNCON:
send_to_char ("You are unconscious.\n\r", ch);
return;
case MORT:
send_to_char ("You're seriously wounded and unconscious.\n\r", ch);
return;
case STUN:
send_to_char ("You're too stunned to do that.\n\r", ch);
return;
case SLEEP:
send_to_char ("You can't do that while sleeping.\n\r", ch);
return;
case REST:
send_to_char ("You can't do that while lying down.\n\r", ch);
return;
case SIT:
send_to_char ("You can't do that while sitting.\n\r", ch);
return;
case FIGHT:
send_to_char("No way! You are fighting for your life!\n\r", ch);
return;
}
return;
}
/* Most commands break delays */
if ( !IS_NPC (ch) && ch->pc->create_state == STATE_DIED &&
!IS_SET (commands [i].flags, C_DOA) ) {
send_to_char ("You can't do that when you're dead.\n\r", ch);
return;
}
if ( !IS_SET (commands [i].flags, C_BLD) && is_blind (ch) ) {
if ( get_equip (ch, WEAR_BLINDFOLD) )
send_to_char ("You can't do that while blindfolded.\n\r", ch);
else
send_to_char ("You can't do that while blind.\n\r", ch);
return;
}
if ( (af = get_affect (ch, MAGIC_AFFECT_PARALYSIS)) &&
!IS_SET (commands [i].flags, C_PAR) &&
IS_MORTAL (ch) ) {
send_to_char ("You can't move.\n", ch);
return;
}
if ( IS_SUBDUEE (ch) && !IS_SET (commands [i].flags, C_SUB) && !cmd_level ) {
act ("$N won't let you.", FALSE, ch, 0, ch->subdue, TO_CHAR);
return;
}
if ( ch->delay && !IS_SET (commands [i].flags, C_DEL) )
break_delay (ch);
/* Send this command to the log */
if ( !second_affect_active &&
(!IS_NPC (ch) || ch->desc) ) {
if ( !IS_SET (commands[i].flags, C_NLG) ){
if ( i > 0 ) { /* Log craft commands separately. */
if ( !str_cmp (commands[i].command, ".") )
player_log (ch, "say", command_args);
else if ( !str_cmp (commands[i].command, ",") )
player_log (ch, "emote", command_args);
else if ( !str_cmp (commands[i].command, ":") )
player_log (ch, "emote", command_args);
else if ( !str_cmp (commands[i].command, ";") )
player_log (ch, "wiznet", command_args);
else player_log (ch, commands[i].command, command_args);
}
}
}
if ( IS_MORTAL (ch) && get_affect (ch, MAGIC_HIDDEN) &&
!IS_SET (commands [i].flags, C_HID) &&
would_reveal (ch) ) {
remove_affect_type (ch, MAGIC_HIDDEN);
act ("$n reveals $mself.", TRUE, ch, 0, 0, TO_ROOM);
}
/* Execute command */
if ( !IS_SET (commands [i].flags, C_NWT) )
show_to_watchers (ch, social_args);
if ( !i ) /* craft_command */
craft_command (ch, command_args, craft_affect);
else
(*commands [i].proc) (ch, command_args, 0);
last_descriptor = NULL;
}
void argument_interpreter(char *argument,char *first_arg,char *second_arg )
{
int look_at, found, begin;
found = begin = 0;
do
{
/* Find first non blank */
for ( ;*(argument + begin ) == ' ' ; begin++);
/* Find length of first word */
for ( look_at=0; *(argument+begin+look_at)> ' ' ; look_at++)
/* Make all letters lower case,
AND copy them to first_arg */
*(first_arg + look_at) =
LOWER(*(argument + begin + look_at));
*(first_arg + look_at)='\0';
begin += look_at;
}
while( fill_word(first_arg));
do
{
/* Find first non blank */
for ( ;*(argument + begin ) == ' ' ; begin++);
/* Find length of first word */
for ( look_at=0; *(argument+begin+look_at)> ' ' ; look_at++)
/* Make all letters lower case,
AND copy them to second_arg */
*(second_arg + look_at) =
LOWER(*(argument + begin + look_at));
*(second_arg + look_at)='\0';
begin += look_at;
}
while( fill_word(second_arg));
}
int is_number(char *str)
{
int look_at;
if(*str=='\0')
return(0);
for(look_at=0;*(str+look_at) != '\0';look_at++)
if((*(str+look_at)<'0')||(*(str+look_at)>'9'))
return(0);
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;
if ( argument == NULL )
return "";
while ( isspace( *argument ) )
argument++;
cEnd = ' ';
if ( *argument == '\'' || *argument == '"' )
cEnd = *argument++;
while ( *argument != '\0' ) {
if ( *argument == cEnd ) {
argument++;
break;
}
if ( cEnd == ' ' )
*arg_first = LOWER( *argument );
else
*arg_first = *argument;
arg_first++;
argument++;
}
*arg_first = '\0';
while ( isspace( *argument ) )
argument++;
return argument;
}
int fill_word(char *argument)
{
return ( search_block(argument,fill,TRUE) >= 0);
}
/* determine if a given string is an abbreviation of another */
int is_abbrev(char *arg1, char *arg2)
{
if (!*arg1)
return(0);
for (; *arg1; arg1++, arg2++)
if (LOWER(*arg1) != LOWER(*arg2))
return(0);
return(1);
}
/* return first 'word' plus trailing substring of input string */
void half_chop(char *string, char *arg1, char *arg2)
{
for (; isspace(*string); string++);
for (; !isspace(*arg1 = *string) && *string; string++, arg1++);
*arg1 = '\0';
for (; isspace(*string); string++);
for (; (*arg2 = *string); string++, arg2++);
}
/* *************************************************************************
* Stuff for controlling the non-playing sockets (get name, pwd etc) *
************************************************************************* */
SOCIAL_DATA *social_messages = NULL;
static int list_top = -1;
char *fread_action (FILE *fl)
{
char buf [MAX_STRING_LENGTH] = { '\0' };
(void)fgets (buf, MAX_STRING_LENGTH, fl);
if ( feof (fl) ) {
system_log ("Fread_action() - unexpected EOF!", TRUE);
abort();
}
if ( *buf == '#' )
return 0;
buf [strlen (buf) - 1] = '\0';
return add_hash (buf);
}
void boot_social_messages (void)
{
FILE *fl;
char *social_command;
int hide;
int min_pos;
if ( !(fl = fopen (SOCMESS_FILE, "r")) ) {
perror ("boot_social_messages");
abort();
}
#define MAX_SOCIALS 200
CREATE (social_messages, SOCIAL_DATA, MAX_SOCIALS);
for ( list_top = 0;; list_top++ ) {
if ( !(social_command = fread_action (fl)) )
break;
fscanf(fl, " %d ", &hide);
fscanf(fl, " %d \n", &min_pos);
if ( list_top >= MAX_SOCIALS - 1 ) {
break;
}
social_messages [list_top].social_command = social_command;
social_messages [list_top].hide = hide;
social_messages [list_top].min_victim_position = min_pos;
social_messages [list_top].char_no_arg = fread_action(fl);
social_messages [list_top].others_no_arg = fread_action(fl);
social_messages [list_top].char_found = fread_action(fl);
/* if no char_found, the rest is to be ignored */
if ( !social_messages [list_top].char_found )
continue;
social_messages [list_top].others_found = fread_action(fl);
social_messages [list_top].vict_found = fread_action(fl);
social_messages [list_top].not_found = fread_action(fl);
social_messages [list_top].char_auto = fread_action(fl);
social_messages [list_top].others_auto = fread_action(fl);
}
fclose (fl);
}
int social (CHAR_DATA *ch, char *argument)
{
char buf [MAX_INPUT_LENGTH];
SOCIAL_DATA *action;
CHAR_DATA *victim;
int i;
argument = one_argument (argument, buf);
if ( ch->room->virtual == AMPITHEATRE && IS_MORTAL(ch) ) {
if ( !get_obj_in_list_num (VNUM_SPEAKER_TOKEN, ch->right_hand) &&
!get_obj_in_list_num (VNUM_SPEAKER_TOKEN, ch->left_hand) ) {
send_to_char ("You decide against making a commotion. PETITION to request to speak.\n", ch);
return 0;
}
}
for ( i = 0; i < list_top; i++ ) {
if ( is_abbrev (buf, social_messages [i].social_command) )
break;
}
if ( i == list_top )
return 0;
action = &social_messages [i];
if ( action->char_found )
(void)one_argument (argument, buf);
else
*buf = '\0';
if ( !*buf ) {
send_to_char (action->char_no_arg, ch);
send_to_char ("\n\r", ch);
if ( action->others_no_arg )
act (action->others_no_arg, action->hide, ch, 0, 0, TO_ROOM);
return 1;
}
if ( !(victim = get_char_room_vis (ch, buf)) ) {
send_to_char (action->not_found, ch);
send_to_char ("\n\r", ch);
}
else if ( victim == ch ) {
send_to_char (action->char_auto, ch);
send_to_char ("\n\r", ch);
if ( action->others_auto )
act (action->others_auto, action->hide, ch, 0, 0, TO_ROOM);
}
else if ( GET_POS (victim) < action->min_victim_position )
act ("$N is not in a proper position for that.",
FALSE, ch, 0, victim, TO_CHAR);
else {
if ( action->char_found )
act (action->char_found, 0, ch, 0, victim, TO_CHAR);
if ( action->others_found )
act (action->others_found, action->hide, ch, 0, victim, TO_NOTVICT);
if ( action->vict_found )
act (action->vict_found, action->hide, ch, 0, victim, TO_VICT);
}
return 1;
}
void do_commands (CHAR_DATA *ch, char *argument, int cmd)
{
int col_no = 0;
int cmd_no;
int cmd_level;
char buf [MAX_STRING_LENGTH];
*buf = '\0';
for ( cmd_no = 0; *commands [cmd_no].command; cmd_no++ ) {
cmd_level = 0;
if ( IS_SET (commands [cmd_no].flags, C_LV5) ) cmd_level = 5;
else if ( IS_SET (commands [cmd_no].flags, C_LV4) ) cmd_level = 4;
else if ( IS_SET (commands [cmd_no].flags, C_LV3) ) cmd_level = 3;
else if ( IS_SET (commands [cmd_no].flags, C_LV2) ) cmd_level = 2;
else if ( IS_SET (commands [cmd_no].flags, C_LV1) ) cmd_level = 1;
if ( cmd_level )
continue;
if ( cmd_level > GET_TRUST (ch) )
continue;
if ( IS_SET (commands [cmd_no].flags, C_XLS) )
continue;
snprintf (ADDBUF, MAX_STRING_LENGTH, "%-9.9s ",
commands [cmd_no].command);
if ( ++col_no >= 7 ) {
strcat (buf, "\n\r");
send_to_char (buf, ch);
*buf = '\0';
col_no = 0;
}
}
if ( *buf ) {
strcat (buf, "\n\r");
send_to_char (buf, ch);
}
}
void do_immcommands (CHAR_DATA *ch, char *argument, int cmd)
{
int col_no = 0;
int cmd_no;
int cmd_level;
char buf [MAX_STRING_LENGTH];
*buf = '\0';
for ( cmd_no = 0; *commands [cmd_no].command; cmd_no++ ) {
cmd_level = 0;
if ( IS_SET (commands [cmd_no].flags, C_LV5) ) cmd_level = 5;
else if ( IS_SET (commands [cmd_no].flags, C_LV4) ) cmd_level = 4;
else if ( IS_SET (commands [cmd_no].flags, C_LV3) ) cmd_level = 3;
else if ( IS_SET (commands [cmd_no].flags, C_LV2) ) cmd_level = 2;
else if ( IS_SET (commands [cmd_no].flags, C_LV1) ) cmd_level = 1;
if ( !cmd_level )
continue;
if ( cmd_level > GET_TRUST (ch) )
continue;
snprintf (ADDBUF, MAX_STRING_LENGTH, "%-11.11s ", commands [cmd_no].command);
if ( ++col_no >= 6 ) {
strcat (buf, "\n\r");
send_to_char (buf, ch);
*buf = '\0';
col_no = 0;
}
}
if ( *buf ) {
strcat (buf, "\n\r");
send_to_char (buf, ch);
}
}
void arg_splitter(int argc, char *fmt, ...)
{
va_list arg_ptr;
char *p;
char *sval;
va_start(arg_ptr, fmt); /* arg_ptr points to 1st unnamed arg */
for( p = fmt ; *p ; )
{
for( ; IS_SPACE(*p) ; p++);
if(*p && argc)
{
sval = va_arg(arg_ptr, char *);
for( ; !IS_SPACE(*p) && (*sval = *p) ; p++, sval++);
if(argc == 1 || !*p)
for( ; (*sval = *p) ; p++, sval++);
else
*sval = '\0';
argc--;
}
}
while(argc)
{
sval = va_arg(arg_ptr, char *);
*sval = '\0';
argc--;
}
va_end(arg_ptr); /* clean up when done */
}