/*
 * Soul Kupcow Novigrdu
 *
 * 03.03.1997 Lewy
 */

inherit "/cmd/std/command_driver";

#include "../local.h"

 /********************************************************************
  * Soul identifying and autoloading
  ********************************************************************/

string get_soul_id() 
{ 
	return "Kupcy Novigradu";
}

int query_cmd_soul() 
{ 
	return 1; 
}

 /***********************************************************************
  * The list of verbs and functions. Please add new in alphabetical order.
  ***********************************************************************/  

mapping
query_cmdlist()
{
    return (["mstare" : "mstare",
	     "mshake" : "mshake"
	   ]);
}

/***********************************************************************
 *  Here follows the functions. 
 *  New functions should be added in alphabetic order.
 **********************************************************************/  

int
mshake(string str)
{
    object *oblist;
    string tmp;

    oblist = parse_this(str, "[the] %l");

    if (!sizeof(oblist))
    {
	notify_fail("Shake whom?\n");
	return 0;
    }

    tmp = "take";
    if ((TP->query_gender() == 0) || (TP->query_gender() == 2))
        tmp = "shake";

    target(" " + tmp + "s your hand. An icy chill runs down your spine, " +
           "as " + POSSESSIVE(TP) + " cold fingertips touch your skin.", 
           oblist);

    actor("You " + tmp, oblist, "'s hand.");
    all2act(tmp + "s", oblist, "'s hand.");
    return 1;
}

int
mstare(string str)
{
    object *oblist;

    oblist = parse_this(str, "[the] %l");

    if (!sizeof(oblist))
    {
	notify_fail("Stare whom?\n");
	return 0;
    }

    target(" stares intensely at you. You feel " +
	   POSSESSIVE(this_player()) + " gaze penetrating deep into " +
	   "your mind, as if " + PRONOUN(this_player()) +  
	   " could read your innermost thoughts.", oblist);

    actor("You stare intensely at", oblist, ".");
    all2act("stares intensely at", oblist, ".");
    return 1;
}