DECK-ME-OUT
----------------

Hello,

This is my first snippet contributed. Although it may be stupid, but at
least I tried :)
Anyway, this is mainly for fun. 

If you think the following stats are _TOO_ high, feel free to change them.
That's it!

Wilson Tam
wilsontam@yahoo.com

------------------------------------
add this to interpreter.c
-------------------------------------
ACMD(do_deckmeout);


{ "deckmeout", POS_DEAD    , do_deckmeout, LVL_IMMORT, 0 },

-------------------------------------
add this to the end of ACT.WIZARD.C
-------------------------------------

/* DECK-ME-OUT [11:08 PST March,5, 2000]
 * ---------------------------------------
 * This is intented to make IMMS feel they're more special in the mud.
 * This is mainly just for fun!
 * FEEL free to modify it anyway you like.
 *
 * Wilson Tam 
 * wilsontam@yahoo.com
 *
 * [Final Fantasy Universe MUD]
 * telnet://kin.dynip.com 4000
 */
#define MAX_STR 25
#define MAX_DEX 25
#define MAX_INT 25
#define MAX_WIS 25
#define MAX_CON 25
#define MAX_CHA 25

ACMD(do_deckmeout)
{
  if (GET_LEVEL(ch) < LVL_IMMORT)
    send_to_char("Huh?", ch);
  else
    {
	/* MAX_HIT/MAX_MANA/MAX_MOVE TOGGLE */
	if (GET_MAX_HIT(ch) >= 1) GET_MAX_HIT(ch) = 30000;
	if (GET_MAX_MANA(ch) >= 1) GET_MAX_MANA(ch) = 30000;
	if (GET_MAX_MOVE(ch) >= 1) GET_MAX_MOVE(ch) = 30000;
	
	/* MAX HIT/MAX MANA/MAX MOVE TOGGLE */
	if (GET_HIT(ch) >= 1) GET_HIT(ch) = GET_MAX_HIT(ch);
	if (GET_MANA(ch) >= 1) GET_MANA(ch) = GET_MAX_MANA(ch);
	if (GET_MOVE(ch) >= 1) GET_MOVE(ch) = GET_MAX_MOVE(ch);
	
	/* MAX_STR/MAX_DEX/MAX_INT/MAX_WIS/MAX_CON/MAX_CHA TOGGLE */
	if (GET_STR(ch) >= 1) GET_STR(ch) = MAX_STR;
	if (GET_DEX(ch) >= 1) GET_DEX(ch) = MAX_DEX;
	if (GET_INT(ch) >= 1) GET_INT(ch) = MAX_INT;
	if (GET_WIS(ch) >= 1) GET_WIS(ch) = MAX_WIS;
	if (GET_CON(ch) >= 1) GET_CON(ch) = MAX_CON;
	if (GET_CHA(ch) >= 1) GET_CHA(ch) = MAX_CHA;
	
	sprintf(buf, "WOW %s! The K is sure generous.\r\n", GET_NAME(ch));
	sprintf(buf2, "[*WARNING*] [*DECK-ME-OUT*] %s decided to worship the K!",
		GET_NAME(ch));
	mudlog(buf2, NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE);
	send_to_char(buf, ch);
  }
}