/*    /secure/cmds/admins/stupidemote.c
 *    From the Dead Souls V Object Library
 *    Adds lame emotes
 *    Created by Descartes of Borg 961214
 *    Version: @(#) stupidemote.c 1.4@(#)
 *    Last modified: 96/12/15
 */

#include <lib.h>
#include <daemons.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    string array rules = ({ "", "STR" });
    string array adverbs;
    string emote, xtra, prep;

    if( !args || args == "" ) {
        return "Add which emote?";
    }
    if( sscanf(args, "%s %s", emote, xtra) != 2 ) {
        emote = args;
        xtra = 0;
    }
    if( xtra ) {
        if( xtra == "LIV" || xtra == "LVS" ) {
            prep = 0;
        }
        else {
            string token;

            if( strlen(xtra) < 5 ) {
                return "The expression " + xtra + " makes no sense.";
            }
            prep = xtra[0..<5];
            token = xtra[<3..];
            if( member_array(prep, master()->parse_command_prepos_list()) ==
              -1 ) {
                return "The preposition " + prep + " is not a valid.";
            }
            if( member_array(token, ({ "LIV", "LVS" })) == -1 ) {
                return "The token " + token + " is invalid.";
            }
            rules = ({ rules..., token });
        }
        rules = ({ rules..., xtra, "STR " + xtra, xtra + " STR" });
    }
    else {
        prep = 0;
    }
    if( !SOUL_D->AddVerb(emote, capitalize(emote) + " how?") ) {
        previous_object()->eventPrint("Failed to create emote.");
        return 1;
    }
    foreach(string rule in rules) {
        string msg;

        if( rule == "" ) {
            msg = "$agent_name $agent_verb.";
            adverbs = 0;
        }
        else if( rule == "STR" ) {
            msg = "$agent_name $agent_verb $adverb.";
            adverbs = ({ "-" });
        }
        else if( rule == "LIV" || rule == "LVS" || rule == xtra ) {
            if( prep ) {
                msg = "$agent_name $agent_verb " + prep + " $target_name.";
            }
            else {
                msg = "$agent_name $agent_verb $target_name.";
            }
        }
        else {
            if( prep ) {
                msg = "$agent_name $agent_verb $adverb " + prep +
                " $target_name.";
            }
            else {
                msg = "$agent_name $agent_verb $target_name $adverb.";
            }
        }
        if( adverbs ) {
            SOUL_D->AddRule(emote, rule, ({ ({ emote }), msg }), adverbs);
        }
        else {
            SOUL_D->AddRule(emote, rule, ({ ({ emote }), msg }));
        }
    }
    previous_object()->eventPrint("Stupid emote added.");
    return 1;
}

string GetHelp(string args) {
    return ("Syntax: <stupidemote EMOTE>\n"
      "        <stupidemote EMOTE RULE>\n"
      "This command allows you to add the most common kinds of "
      "emote straight from the command line.  Using the first syntax, "
      "You can add a simple, untargetted emote.  For example, "
      "if you did <stupidemote cheese>, this would create an emote "
      "that would allow people to do <cheese> and <cheese adverb> "
      "with a message that looks like \"Descartes cheeses.\"\n"
      "The second syntax is for targetted emotes.  You specify a "
      "targetting rule.  Targetting rules can be one of the following:\n"
      "\t* LIV\n"
      "\t* LVS\n"
      "\t* preposition LIV\n"
      "\t* preposition LVS\n"
      "The difference between LIV and LVS just determines whether the "
      "emote can be targetted at a single living being or one or more "
      "living beings.  So, to add the \"smile\" emote, you would "
      "do:\n"
      "> stupidemote smile at LVS\n"
      "and that would give you all the functionality of the \"smile\" "
      "emote that exists on this mudlib.\n\n"
      "See also: addadverb, addemote, removeadverb, removeemote");
}