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
42f68be3c28e
Commit
fe65cbba
authored
Jul 25, 2015
by
Jesse McGrew
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
advent.zil: Fixed ALL-TREASURES definition on V4+.
Changed XLOOT formatting.
parent
e85d501982a3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
Examples/advent/advent.zil
Examples/advent/advent.zil
+3
-2
No files found.
Examples/advent/advent.zil
View file @
42f68be3
...
@@ -161,7 +161,7 @@ Adapted once more by Jesse McGrew (2015)">>
...
@@ -161,7 +161,7 @@ Adapted once more by Jesse McGrew (2015)">>
<CONSTANT TR-DEPOSITED 3>
<CONSTANT TR-DEPOSITED 3>
<CONSTANT ALL-TREASURES
<CONSTANT ALL-TREASURES
<TABLE %<VERSION? (ZIP '(BYTE)) (ELSE
'(WORD
))>
<TABLE %<VERSION? (ZIP '(BYTE)) (ELSE
#SPLICE (
))>
LARGE-GOLD-NUGGET TR-UNFOUND
LARGE-GOLD-NUGGET TR-UNFOUND
DIAMONDS TR-UNFOUND
DIAMONDS TR-UNFOUND
BARS-OF-SILVER TR-UNFOUND
BARS-OF-SILVER TR-UNFOUND
...
@@ -4465,7 +4465,8 @@ into a pit. None of the objects available is immediately useful in discovering t
...
@@ -4465,7 +4465,8 @@ into a pit. None of the objects available is immediately useful in discovering t
<ROUTINE V-XLOOT ("AUX" T OS)
<ROUTINE V-XLOOT ("AUX" T OS)
<DO (I 0 %<* <- ,MAX-TREASURES 1> 2> 2)
<DO (I 0 %<* <- ,MAX-TREASURES 1> 2> 2)
<SET T <GET/B ,ALL-TREASURES .I>>
<SET T <GET/B ,ALL-TREASURES .I>>
<TELL CT .T ": ">
<PRINT-OBJREF .T>
<TELL ": ">
<SET OS <GET/B ,ALL-TREASURES <+ .I 1>>>
<SET OS <GET/B ,ALL-TREASURES <+ .I 1>>>
<COND (<=? .OS ,TR-UNFOUND> <TELL "unfound">)
<COND (<=? .OS ,TR-UNFOUND> <TELL "unfound">)
(<=? .OS ,TR-TOUCHED> <TELL "touched">)
(<=? .OS ,TR-TOUCHED> <TELL "touched">)
...
...
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