-
-
Notifications
You must be signed in to change notification settings - Fork 85
/
zil.scroll
33 lines (29 loc) · 997 Bytes
/
zil.scroll
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
import ../code/conceptPage.scroll
id zil
name Zork Implementation Language
appeared 1988
tags pl
standsFor Zork Implementation Language
reference https://archive.org/details/Learning_ZIL_Steven_Eric_Meretzky_1995
example
<ROUTINE VILLAIN-STRENGTH (OO
"AUX" (VILLAIN <GET .OO ,V-VILLAIN>)
OD TMP)
<SET OD <GETP .VILLAIN ,P?STRENGTH>>
<COND (<NOT <L? .OD 0>>
<COND (<AND <EQUAL? .VILLAIN ,THIEF> ,THIEF-ENGROSSED>
<COND (<G? .OD 2> <SET OD 2>)>
<SETG THIEF-ENGROSSED <>>)>
<COND (<AND ,PRSI
<FSET? ,PRSI ,WEAPONBIT>
<EQUAL? <GET .OO ,V-BEST> ,PRSI>>
<SET TMP <- .OD <GET .OO ,V-BEST-ADV>>>
<COND (<L? .TMP 1> <SET TMP 1>)>
<SET OD .TMP>)>)>
.OD>
githubLanguage ZIL
type programming
fileExtensions zil mud
aceMode text
tmScope source.zil
repos 177