--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/urogue/armor.c	Tue Jan 31 19:56:04 2017 -0500
@@ -0,0 +1,207 @@
+/*
+    armor.c  -  functions for dealing with armor
+
+    UltraRogue: The Ultimate Adventure in the Dungeons of Doom
+    Copyright (C) 1985, 1986, 1992, 1993, 1995 Herb Chong
+    All rights reserved.
+
+    Based on "Advanced Rogue"
+    Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka
+    All rights reserved.
+
+    Based on "Rogue: Exploring the Dungeons of Doom"
+    Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
+    All rights reserved.
+
+    See the file LICENSE.TXT for full copyright and licensing information.
+*/
+
+#include "rogue.h"
+
+/*
+    wear()
+        The player wants to wear something, so let him/her put it on.
+*/
+
+void
+wear(void)
+{
+    struct object *obj;
+
+    if (cur_armor != NULL)
+    {
+        msg("You are already wearing some.");
+
+        after = FALSE;
+
+        return;
+    }
+
+    /* What does player want to wear? */
+
+    if ((obj = get_object(pack, "wear", ARMOR, NULL)) == NULL)
+        return;
+
+    wear_ok(&player, obj, MESSAGE);
+    waste_time();
+
+    cur_armor = obj;
+    obj->o_flags |= ISKNOW;
+
+    msg("You are now wearing %s.", inv_name(obj, TRUE));
+
+    return;
+}
+
+/*
+    take_off()
+        Get the armor off of the players back
+*/
+
+void
+take_off(void)
+{
+    struct object   *obj;
+
+    if ((obj = cur_armor) == NULL)
+    {
+        msg("You aren't wearing armor!");
+        return;
+    }
+
+    if (!dropcheck(cur_armor))
+        return;
+
+    msg("You were wearing %c%c) %s.", ARMOR, print_letters[get_ident(obj)],
+        inv_name(obj, LOWERCASE));
+
+    cur_armor = NULL;
+
+    if (on(player, STUMBLER))
+    {
+        msg("Your foot feels a lot better now.");
+        turn_off(player, STUMBLER);
+    }
+}
+
+/*
+    wear_ok()
+        enforce player class armor restrictions
+*/
+
+int
+wear_ok(struct thing *wearee, struct object *obj, int print_message)
+{
+    int which      = obj->o_which;
+    int ret_val    = TRUE;
+    int class_type = wearee->t_ctype;
+
+    if (obj->o_type != ARMOR)
+        return(FALSE);
+    else
+        switch (class_type)
+        {
+            case C_MAGICIAN: /* cannot wear metal */
+            case C_ILLUSION:
+                switch (which)
+                {
+                    case RING_MAIL:
+                    case SCALE_MAIL:
+                    case PADDED_ARMOR:
+                    case CHAIN_MAIL:
+                    case BRIGANDINE:
+                    case SPLINT_MAIL:
+                    case GOOD_CHAIN:
+                    case PLATE_MAIL:
+                    case PLATE_ARMOR:
+                        ret_val = FALSE;
+                        break;
+                    default:
+                        break;
+                }
+
+            case C_THIEF:    /* cannot clank around */
+            case C_ASSASIN:
+            case C_NINJA:
+                switch (which)
+                {
+                    case CHAIN_MAIL:
+                    case BRIGANDINE:
+                    case SPLINT_MAIL:
+                    case GOOD_CHAIN:
+                    case PLATE_MAIL:
+                    case PLATE_ARMOR:
+                        ret_val = FALSE;
+                        break;
+                    default:
+                        break;
+                }
+
+            case C_CLERIC:   /* cannot wear plate */
+            case C_DRUID:
+                switch (which)
+                {
+                    case PLATE_MAIL:
+                    case PLATE_ARMOR:
+                    case MITHRIL:
+                        ret_val = FALSE;
+                        break;
+                    default:
+                        break;
+                }
+
+            case C_FIGHTER: /* wear anything */
+            case C_RANGER:
+                break;
+
+            case    C_PALADIN:  /* cannot wear common stuff */
+                switch (which)
+                {
+                    case SOFT_LEATHER:
+                    case CUIRBOLILLI:
+                    case HEAVY_LEATHER:
+                    case STUDDED_LEATHER:
+                    case PADDED_ARMOR:
+                    case BRIGANDINE:
+                        ret_val = FALSE;
+                        break;
+                    default:
+                        break;
+                }
+
+            case C_MONSTER:
+                break;
+
+            default:      /* Unknown class */
+                debug("Unknown class %d.", class_type);
+                break;
+        }
+
+    if (ret_val == FALSE && print_message == MESSAGE)
+        switch (class_type)
+        {
+            case C_MAGICIAN:
+            case C_ILLUSION:
+                msg("You cannot regenerate spell points while wearing that!");
+                break;
+
+            case C_THIEF:
+            case C_ASSASIN:
+            case C_NINJA:
+                msg("Don't expect to be stealthy while wearing that!");
+                break;
+
+            case C_CLERIC:
+            case C_DRUID:
+            case C_PALADIN:
+                msg("Your god strongly disapproves of your wearing that!");
+                break;
+
+            case C_FIGHTER:
+            case C_RANGER:
+            case C_MONSTER:
+                break;
+        }
+
+    return(ret_val);
+}