unpaid tinning kit usage

<Someone> reported that shopkeepers don't charge for using tinning kits.

diff --git a/doc/fixes34.2 b/doc/fixes34.2
index 22a441fbabd8aeed3a71a728756961b090fe171f..ba187712d1eac39368cec0e1f0dd2df796d2bf2b 100644 (file)
--- a/doc/fixes34.2
+++ b/doc/fixes34.2
@@ -36,6 +36,7 @@ some Magicbane messages treated "erinys" as plural
 initialize artifacts before processing $WIZKIT
 clean up inconsistency between various places quaff is documented
 is_damageable was using is_rottable incorrectly
+charge for use of an unpaid tinning kit
 
 
 Platform- and/or Interface-Specific Fixes

diff --git a/src/apply.c b/src/apply.c
index 3b6b45beeaee5b7a3df36a7e17f6d9be289b95cb..e4b7c0071cf49c24c3f6534ea64b86510dae29e5 100644 (file)
--- a/src/apply.c
+++ b/src/apply.c
@@ -1408,6 +1408,7 @@ register struct obj *obj;
                pline("That's too insubstantial to tin.");
                return;
        }
+       check_unpaid(obj);
        obj->spe--;
        if ((can = mksobj(TIN, FALSE, FALSE)) != 0) {
            static const char you_buy_it[] = "You tin it, you bought it!";

diff --git a/src/shk.c b/src/shk.c
index 2c0ac27c27b10aee4a039b73e34ad240b30de546..b70180f031cda87d36683552b0aefbaa572e7425 100644 (file)
--- a/src/shk.c
+++ b/src/shk.c
@@ -3849,7 +3849,8 @@ boolean altusage; /* some items have an "alternate" use with different cost */
                if (otmp->spe > 1) tmp /= 4L;
        } else if (otmp->oclass == SPBOOK_CLASS) {
                tmp -= tmp / 5L;
-       } else if (otmp->otyp == CAN_OF_GREASE
+       } else if (otmp->otyp == CAN_OF_GREASE ||
+                  otmp->otyp == TINNING_KIT
 #ifdef TOURIST
                   || otmp->otyp == EXPENSIVE_CAMERA
 #endif