Merge pull request #125 from zedlopez/undressing_in_the_abstract

make abstraction strip worn flag
ganelson · Apr 4, 2024 · 6df6574 · 6df6574
2 parents c32877b + 0ce77d0
commit 6df6574
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/inform7/Internal/Inter/WorldModelKit/Sections/Tests.i6t b/inform7/Internal/Inter/WorldModelKit/Sections/Tests.i6t
@@ -24,6 +24,7 @@ moves an object to a new position in the object tree.
 =
 [ XAbstractSub;
     if (XTestMove(noun, second)) return;
+    if (noun has worn) give noun ~worn;
     move noun to second;
     say__p = 1; "[Abstracted.]";
 ];
@@ -51,6 +52,7 @@ Like ABSTRACT, except that it removes something from play.
 =
 [ XBanishSub;
     if (XTestMove(noun, nothing)) return;
+    if (noun has worn) give noun ~worn;
     remove noun;
     say__p = 1; "[Banished.]";
 ];
@@ -70,6 +72,7 @@ To PURLOIN is to acquire something without reference to any rules on accessibili
 [ XPurloinSub;
     if (XTestMove(noun, player)) return;
     move noun to player; give noun moved; give noun ~concealed;
+    if (noun has worn) give noun ~worn;
     say__p = 1;
     "[Purloined.]";
 ];