![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to com2.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / battlestar|
Return to com2.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / battlestar |
1.1 root 1: /*
2: * Copyright (c) 1983 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted
6: * provided that the above copyright notice and this paragraph are
7: * duplicated in all such forms and that any documentation,
8: * advertising materials, and other materials related to such
9: * distribution and use acknowledge that the software was developed
10: * by the University of California, Berkeley. The name of the
11: * University may not be used to endorse or promote products derived
12: * from this software without specific prior written permission.
13: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: */
17:
18: #ifndef lint
19: static char sccsid[] = "@(#)com2.c 5.2 (Berkeley) 6/19/88";
20: #endif /* not lint */
21:
22: #include "externs.h"
23:
24: wearit() /* synonyms = {sheathe, sheath} */
25: {
26: register int n;
27: int firstnumber, value;
28:
29: firstnumber = wordnumber;
30: while(wordtype[++wordnumber] == ADJS);
31: while(wordnumber <= wordcount){
32: value = wordvalue[wordnumber];
33: for (n=0; objsht[value][n]; n++);
34: switch(value){
35:
36: case -1:
37: puts("Wear what?");
38: return(firstnumber);
39:
40: default:
41: printf("You can't wear%s%s!\n",(objsht[value][n-1] == 's' ? " " : " a "),objsht[value]);
42: return(firstnumber);
43:
44: case KNIFE:
45: /* case SHIRT: */
46: case ROBE:
47: case LEVIS: /* wearable things */
48: case SWORD:
49: case MAIL:
50: case HELM:
51: case SHOES:
52: case PAJAMAS:
53: case COMPASS:
54: case LASER:
55: case AMULET:
56: case TALISMAN:
57: case MEDALION:
58: case ROPE:
59: case RING:
60: case BRACELET:
61: case GRENADE:
62:
63: if (testbit(inven,value)){
64: clearbit(inven,value);
65: setbit(wear,value);
66: carrying -= objwt[value];
67: encumber -= objcumber[value];
68: time++;
69: printf("You are now wearing %s %s.\n",(objsht[value][n-1] == 's' ? "the" : "a"), objsht[value]);
70: }
71: else if (testbit(wear,value))
72: printf("You are already wearing the %s.\n", objsht[value]);
73: else
74: printf("You aren't holding the %s.\n", objsht[value]);
75: if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
76: wordnumber++;
77: else
78: return(firstnumber);
79: } /* end switch */
80: } /* end while */
81: puts("Don't be ridiculous.");
82: return(firstnumber);
83: }
84:
85: put() /* synonyms = {buckle, strap, tie} */
86: {
87: if (wordvalue[wordnumber + 1] == ON){
88: wordvalue[++wordnumber] = PUTON;
89: return(cypher());
90: }
91: if (wordvalue[wordnumber + 1] == DOWN){
92: wordvalue[++wordnumber] = DROP;
93: return(cypher());
94: }
95: puts("I don't understand what you want to put.");
96: return(-1);
97:
98: }
99:
100: draw() /* synonyms = {pull, carry} */
101: {
102: return(take(wear));
103: }
104:
105: use()
106: {
107: while (wordtype[++wordnumber] == ADJS && wordnumber < wordcount);
108: if (wordvalue[wordnumber] == AMULET && testbit(inven,AMULET) && position != FINAL){
109: puts("The amulet begins to glow.");
110: if (testbit(inven,MEDALION)){
111: puts("The medallion comes to life too.");
112: if (position == 114){
113: location[position].down = 160;
114: whichway(location[position]);
115: puts("The waves subside and it is possible to descend to the sea cave now.");
116: time++;
117: return(-1);
118: }
119: }
120: puts("A light mist falls over your eyes and the sound of purling water trickles in");
121: puts("your ears. When the mist lifts you are standing beside a cool stream.");
122: if (position == 229)
123: position = 224;
124: else
125: position = 229;
126: time++;
127: return(0);
128: }
129: else if (position == FINAL)
130: puts("The amulet won't work in here.");
131: else if (wordvalue[wordnumber] == COMPASS && testbit(inven,COMPASS))
132: printf("Your compass points %s.\n",truedirec(NORTH,'-'));
133: else if (wordvalue[wordnumber] == COMPASS)
134: puts("You aren't holding the compass.");
135: else if (wordvalue[wordnumber] == AMULET)
136: puts("You aren't holding the amulet.");
137: else
138: puts("There is no apparent use.");
139: return(-1);
140: }
141:
142: murder()
143: {
144: register int n;
145:
146: for (n=0; !((n == SWORD || n == KNIFE || n == TWO_HANDED || n == MACE || n == CLEAVER || n == BROAD || n == CHAIN || n == SHOVEL || n == HALBERD) && testbit(inven,n)) && n < NUMOFOBJECTS; n++);
147: if (n == NUMOFOBJECTS)
148: puts("You don't have suitable weapons to kill.");
149: else {
150: printf("Your %s should do the trick.\n",objsht[n]);
151: while (wordtype[++wordnumber] == ADJS);
152: switch(wordvalue[wordnumber]){
153:
154: case NORMGOD:
155: if (testbit(location[position].objects,BATHGOD)){
156: puts("The goddess's head slices off. Her corpse floats in the water.");
157: clearbit(location[position].objects,BATHGOD);
158: setbit(location[position].objects,DEADGOD);
159: power += 5;
160: notes[JINXED]++;
161: } else if (testbit(location[position].objects,NORMGOD)){
162: puts("The goddess pleads but you strike her mercilessly. Her broken body lies in a\npool of blood.");
163: clearbit(location[position].objects,NORMGOD);
164: setbit(location[position].objects,DEADGOD);
165: power += 5;
166: notes[JINXED]++;
167: if (wintime)
168: live();
169: } else puts("I dont see her anywhere.");
170: break;
171: case TIMER:
172: if (testbit(location[position].objects,TIMER)){
173: puts("The old man offers no resistance.");
174: clearbit(location[position].objects,TIMER);
175: setbit(location[position].objects,DEADTIME);
176: power++;
177: notes[JINXED]++;
178: } else puts("Who?");
179: break;
180: case NATIVE:
181: if (testbit(location[position].objects,NATIVE)){
182: puts("The girl screams as you cut her body to shreds. She is dead.");
183: clearbit(location[position].objects,NATIVE);
184: setbit(location[position].objects,DEADNATIVE);
185: power += 5;
186: notes[JINXED]++;
187: } else puts("What girl?");
188: break;
189: case MAN:
190: if (testbit(location[position].objects,MAN)){
191: puts("You strike him to the ground, and he coughs up blood.");
192: puts("Your fantasy is over.");
193: die();
194: }
195: case -1:
196: puts("Kill what?");
197: break;
198:
199: default:
200: if (wordtype[wordnumber] != NOUNS)
201: puts("Kill what?");
202: else
203: printf("You can't kill the %s!\n",objsht[wordvalue[wordnumber]]);
204: }
205: }
206: }
207:
208: ravage()
209: {
210: while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
211: if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
212: time++;
213: switch(wordvalue[wordnumber]){
214: case NORMGOD:
215: puts("You attack the goddess, and she screams as you beat her. She falls down");
216: puts("crying and tries to hold her torn and bloodied dress around her.");
217: power += 5;
218: pleasure += 8;
219: ego -= 10;
220: wordnumber--;
221: godready = -30000;
222: murder();
223: win = -30000;
224: break;
225: case NATIVE:
226: puts("The girl tries to run, but you catch her and throw her down. Her face is");
227: puts("bleeding, and she screams as you tear off her clothes.");
228: power += 3;
229: pleasure += 5;
230: ego -= 10;
231: wordnumber--;
232: murder();
233: if (rnd(100) < 50){
234: puts("Her screams have attracted attention. I think we are surrounded.");
235: setbit(location[ahead].objects,WOODSMAN);
236: setbit(location[ahead].objects,DEADWOOD);
237: setbit(location[ahead].objects,MALLET);
238: setbit(location[back].objects,WOODSMAN);
239: setbit(location[back].objects,DEADWOOD);
240: setbit(location[back].objects,MALLET);
241: setbit(location[left].objects,WOODSMAN);
242: setbit(location[left].objects,DEADWOOD);
243: setbit(location[left].objects,MALLET);
244: setbit(location[right].objects,WOODSMAN);
245: setbit(location[right].objects,DEADWOOD);
246: setbit(location[right].objects,MALLET);
247: }
248: break;
249: default:
250: puts("You are perverted.");
251: }
252: }
253: else
254: puts("Who?");
255: }
256:
257: follow()
258: {
259: if (followfight == time){
260: puts("The Dark Lord leaps away and runs down secret tunnels and corridoors.");
261: puts("You chase him through the darkness and splash in pools of water.");
262: puts("You have cornered him. His laser sword extends as he steps forward.");
263: position = FINAL;
264: fight(DARK,75);
265: setbit(location[position].objects,TALISMAN);
266: setbit(location[position].objects,AMULET);
267: return(0);
268: }
269: else if (followgod == time){
270: puts("The goddess leads you down a steamy tunnel and into a high, wide chamber.");
271: puts("She sits down on a throne.");
272: position = 268;
273: setbit(location[position].objects,NORMGOD);
274: notes[CANTSEE] = 1;
275: return(0);
276: }
277: else
278: puts("There is no one to follow.");
279: return(-1);
280: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.