ifhub/inform7
1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-06-28 21:14:57 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #125 from zedlopez/undressing_in_the_abstract

Browse source 
make abstraction strip worn flag
This commit is contained in:
Graham Nelson 2024-04-04 21:50:43 +01:00 committed by GitHub
parent c32877b5c4 0ce77d0b3a
commit 6df6574fe0
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
inform7/Internal/Inter/WorldModelKit/Sections/Tests.i6t
View file

@ -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.]";
];