![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to routines CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / games / mpu|
Return to routines CVS log | Up to [CSRG BSD Unix] / 42BSD / games / mpu |
1.1 root 1: ROUTINE VisP;
2: VisP = { (Visp List Propno) => True IFF an object }
3: (($eq %1 0) : ($rtrn FALSE)) { is visible on List that has Propno }
4: (($prop %1 INVIS) :
5: ($rtrn (VisP ($link %1) %2))) { Ignore this object }
6: (($prop %1 %2) :
7: ($rtrn TRUE)) { Found one! }
8: (($or ($prop %1 OPEN)
9: ($prop %1 TRANS)): { Look inside...}
10: ( (VisP ($cont %1) %2): ($rtrn TRUE) ))
11: ($rtrn (VisP ($link %1) %2))
12: ;
13:
14: ROUTINE Reach; { (Reach obj loc) => True IFF the obj }
15: Reach = { IS the loc or can be reached }
16: (($eq %2 0) : ($rtrn FALSE)) { by the loc }
17: (($eq %1 %2): ($rtrn TRUE))
18: { Still explore inside }
19: (($prop %2 OPEN):
20: ((Reach %1 ($cont %2)): ($rtrn TRUE))
21: )
22: ($rtrn (Reach %1 ($link %2)))
23:
24: ;
25:
26: ROUTINE See; { (See obj loc) => True IFF the obj }
27: See = { IS the loc or can be seen }
28: (($prop %1 INVIS): ($rtrn FALSE))
29: (($eq %2 0) : ($rtrn FALSE))
30: (($eq %1 %2): ($rtrn TRUE))
31: (($or ($prop %2 TRANS) { Still explore inside }
32: ($prop %2 OPEN)):
33: ((See %1 ($cont %2)): ($rtrn TRUE))
34: )
35: ($rtrn (See %1 ($link %2)))
36: ;
37:
38: Avail =
39: (($not %1):($say "The what?\n")($exit 1))
40: (($not (See %1 ($cont ($loc .ME)))):
41: ($say "I can't see that item here.\n")
42: ($exit 1)
43: )
44: (($not (Reach %1 ($cont ($loc .ME)))):
45: ($say "I can't get at that item.\n")
46: ($exit 1)
47: )
48: (($and ($prop .ME SHRNK)
49: ($not ($prop %1 SHRNK)) ):
50: (($ne ($loc %1) .ME):
51: ($say
52: "Right now, ")(($sdisc %1))($say " is too big for you to deal with.\n")
53: ($exit 1)
54: )
55: )
56: ($rtrn TRUE)
57: ;
58:
59: ROUTINE LitP;
60: LitP = { (LitP Room) => True IFF Room is lit }
61: (($prop %1 LIGHT) : ($rtrn TRUE))
62: (($or (VisP ($cont %1) LIGHT)
63: (VisP ($cont %1) FLAME)): ($rtrn TRUE))
64:
65: (($or (VisP ($cont .ME) LIGHT) { Check .ME 'cause invisibl }
66: (VisP ($cont .ME) FLAME)): ($rtrn TRUE))
67: ($rtrn FALSE)
68: ;
69:
70: ROUTINE Blank;
71: Blank = { Blank n => Type n blanks }
72: (($gt %1 0):
73: ($say " ")
74: (Blank ($minus %1 1)));
75:
76: ROUTINE Llook; ROUTINE Slook;
77: Llook = { (Llook Level Object) describes Object }
78: (($eq %2 0) : ($exit 0))
79: (($eq %1 0) : { Level 0 == This is a room. Check lighting }
80: ((LitP %2):
81: ($setg DARKG FALSE)
82: (($ldisc %2)) { Talk about the room }
83: (($not @DARKG):
84: (Llook 1 ($cont %2)) { Talk about its contents }
85: )
86: {else}:
87: ($say "It's mighty dark in here!\n")
88: ($setg DARKG TRUE)
89: )
90:
91: {else} : { Level > 0 == This is a list of objs }
92: ( ($ldisc %2) : { Talk (only) about the visible }
93: (Blank %1) { Indent }
94: (($ldisc %2)) { Blurb the object }
95:
96: ( ($cont %2): { something inside it...}
97: (($or ($prop %2 OPEN)($prop %2 TRANS)):
98: (Blank %1)
99: ($say "It contains:\n")
100: ($setp %2 CONTS TRUE)
101: (Slook ($plus %1 1) ($cont %2))
102: { Short descriptions for contents }
103: )
104: )
105: )
106: (Llook %1 ($link %2))
107: );
108:
109:
110: Slook = { (Llook Level Object) describes Object }
111: (($eq %2 0) : ($exit 0))
112: (($eq %1 0) : { Level 0 == This is a room. Check lighting }
113: ((LitP %2):
114: ($setg DARKG FALSE)
115: (($sdisc %2)) { Talk about the room }
116: (($not @DARKG):
117: ($setp %2 CONTS FALSE)
118: (Slook 1 ($cont %2)) { Talk about its contents }
119: )
120: {else}:
121: ($say "It's mighty dark in here!\n")
122: ($setg DARKG TRUE)
123: )
124:
125: {else} : { Level > 0 == This is a list of objs }
126: (($sdisc %2) : { Talk (only) about the visible }
127: (($not ($prop ($loc %2) CONTS)):
128: (Blank ($minus %1 1))
129: ($say "You can see:\n")
130: ($setp ($loc %2) CONTS TRUE)
131: )
132: (Blank %1) { Indent }
133: (($sdisc %2)) { Blurb the object }
134: (($and ($ne ($cont %2) 0) { something inside it...}
135: ($or ($prop %2 OPEN) {...and you can see it }
136: ($prop %2 TRANS)
137: )
138: ):
139:
140: ($setp %2 CONTS TRUE)
141: ($say ", containing:\n")
142: (Slook ($plus %1 1) ($cont %2))
143: { Short descriptions for contents }
144: : ($say "\n")
145:
146: )
147: )
148: ( Slook %1 ($link %2))
149:
150: );
151:
152:
153:
154:
155: LOOK =
156:
157:
158:
159: ($setg WASDK @DARKG)
160: (@LOOKP :
161: (($prop ($loc .ME) VISIT):
162: (Slook 0 ($loc .ME))
163: {else} :
164: (Llook 0 ($loc .ME))
165: ($setp ($loc .ME) VISIT TRUE)
166: )
167: (@DARKG : ($setp ($loc .ME) VISIT FALSE))
168: )
169: ($setg LOOKP FALSE)
170: ($itun)
171: ($say "\n> ")
172: ;
173:
174: ROUTINE GrowX; ROUTINE ShrnX;
175: GrowX = (($prop %1 SHRNK):
176: ($setp %1 SHRNK FALSE)
177: (($cont %1):
178: (GrowX ($cont %1)))
179: (($link %1):
180: (GrowX ($link %1)))
181: )
182: ;
183:
184: Grow = (($prop .ME SHRNK):
185: ($setp .ME SHRNK FALSE)
186: (($cont .ME):
187: (GrowX ($cont .ME)))
188: )
189: ;
190:
191: ShrnX = (($not ($prop %1 SHRNK)):
192: ($setp %1 SHRNK TRUE)
193: (($cont %1):
194: (ShrnX ($cont %1)))
195: (($link %1):
196: (ShrnX ($link %1)))
197: {else} :
198: ($say "You hear a tiny POP as ")(($sdisc %1))
199: ($say " vanishes completely!\n")
200: (($link %1):
201: (ShrnX ($link %1)))
202: ($move %1 .ALL)
203: )
204:
205: ;
206:
207: Shrin= (($not ($prop .ME SHRNK)):
208: ($setp .ME SHRNK TRUE)
209: (($cont .ME):
210: (ShrnX ($cont .ME)))
211: )
212: ;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.