Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
zilf
zilf
Commits
ec29a3e29e4b
Commit
b1e02034
authored
Oct 25, 2020
by
Alex Proudfoot
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixed
ZILF-229
parent
ff601487405f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
27 deletions
+18
-27
zillib/verbs.zil
zillib/verbs.zil
+18
-27
No files found.
zillib/verbs.zil
View file @
ec29a3e2
...
...
@@ -902,28 +902,17 @@ Returns:
<MOVE .OBJ ,WINNER>
<COND (.SILENT)
(<SHORT-REPORT?> <TELL "Taken." CR>)
(ELSE
<TELL "You reach ">
<COND (<HELD? ,WINNER .HOLDER>
<TELL "out of ">)
(ELSE <TELL "in ">)>
<TELL T .HOLDER " and ">
<COND (<FSET? .OBJ ,WEARBIT>
<TELL "wear ">
<FSET .OBJ ,WORNBIT>)
(ELSE <TELL "take ">)>
<TELL T .OBJ "." CR>)>
<RTRUE>)>)>
(ELSE
<TELL "You reach ">
<COND (<HELD? ,WINNER .HOLDER>
<TELL "out of ">)
(ELSE <TELL "in ">)>
<TELL T .HOLDER " and ">
<TELL "take ">
<TELL T .OBJ "." CR>)>
<RTRUE>)>)>
<COND (<NOT <TAKE-CAPACITY-CHECK .OBJ .SILENT>>
<RFALSE>)
(<FSET? .OBJ ,WEARBIT>
<FSET .OBJ ,WORNBIT>
<MOVE .OBJ ,WINNER>
<FSET .OBJ ,TOUCHBIT>
<COND (.SILENT)
(<SHORT-REPORT?> <TELL "Taken (and worn)." CR>)
(ELSE <TELL "You wear " T .OBJ "." CR>)>
<RTRUE>)
(ELSE
<FSET .OBJ ,TOUCHBIT>
<MOVE .OBJ ,WINNER>
...
...
@@ -1147,15 +1136,17 @@ Returns:
<ROUTINE V-WEAR ()
<COND (<FSET? ,PRSO ,WEARBIT>
<PERFORM ,V?TAKE ,PRSO>)
(ELSE <NOT-POSSIBLE "wear">)>
<RTRUE>>
<COND (<NOT <FSET? ,PRSO ,WORNBIT>>
<FSET ,PRSO ,WORNBIT>
<TELL "You wear " T ,PRSO "." CR>)
(ELSE <TELL "You are already wearing that." CR>)>)
(ELSE <NOT-POSSIBLE "wear">)>>
<ROUTINE V-UNWEAR ()
<COND (<AND <FSET? ,PRSO ,WORNBIT>
<
IN?
,PRSO ,W
INNER>
>
<PERFORM ,V?DROP ,PRSO
>)
(ELSE <TELL "You aren't wearing that." CR>)>>
<COND (<AND
<IN? ,PRSO ,WINNER>
<FSET? ,PRSO ,WORNBIT>
>
<
FCLEAR
,PRSO ,W
ORNBIT
>
<TELL "You take off " T ,PRSO "." CR
>)
(ELSE <TELL "You aren't wearing that." CR>)>>
<ROUTINE V-EAT ()
<COND (<PRSO? ,WINNER> <TSD> <RTRUE>)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment