[unix-history] / usr / src / games / battlestar / com5.c

#ifndef lint
static char sccsid[] = "@(#)com5.c	1.1 %G%";
#endif

#include "externs.h"

kiss()
{
	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
		pleasure++;
		printf("Kissed.\n");
		switch (wordvalue[wordnumber]){
			case NORMGOD:
			switch(godready++){
				case 0:
					puts("She squirms and avoids your advances.");
					break;
				case 1:
					puts("She is coming around; she didn't fight it as much.");
					break;
				case 2:
					puts("She's begining to like it.");
					break;
				default:
					puts("She's gone limp.");
					
			}
			break;
			case NATIVE:
				puts("The lips are warm and her body robust.  She pulls you down to the ground.");
				break;
			case TIMER:
				puts("The old man blushes.");
				break;
			case MAN:
				puts("The dwarf punches you in the kneecap.");
				break;
			default:
				pleasure--;
		}
	}
	else	puts("I'd prefer not to.");
}

love()
{
	register int n;

	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
		if (wordvalue[wordnumber] == NORMGOD && !loved)
			if (godready >= 2){
				puts("She cuddles up to you, and her mouth starts to work:\n'That was my sister's amulet.  The lovely goddess, Purl, was she.  The Empire\ncaptured her just after the Darkness came.  My other sister, Vert, was killed\nby the Dark Lord himself.  He took her amulet and warped its power.\nYour quest was foretold by my father before he died, but to get the Dark Lord's\namulet you must use cunning and skill.  I will leave you my amulet.");
				puts("which you may use as you wish.  As for me, I am the last goddess of the\nwaters.  My father was the Island King, and the rule is rightfully mine.'\n\nShe pulls the throne out into a large bed.");
				power++;
				pleasure += 15;
				ego++;
				if (card(injuries, NUMOFINJURIES)){
					puts("Her kisses revive you; your wounds are healed.\n");
					for (n=0; n < NUMOFINJURIES; n++)
						injuries[n] = 0;
					WEIGHT = MAXWEIGHT;
					CUMBER = MAXCUMBER;
				}
				printf("Goddess:\n");
				if (!loved)
					setbit(location[position].objects,MEDALION);
				loved = 1;
				time += 10;
				zzz();
			}
			else {
				puts("You wish!");
				return;
			}
		if (wordvalue[wordnumber] == NATIVE){
			puts("The girl is easy prey.  She peals off her sarong and indulges you.");
			power++;
			pleasure += 5;
			printf("Girl:\n");
			time += 10;
			zzz();
		}
		printf("Loved.\n");
	}
	else puts("I't doesn't seem to work.");
}

zzz()
{
	int oldtime;
	register int n;

	oldtime = time;
	if ((snooze - time) < (0.75 * CYCLE)){
		time += 0.75 * CYCLE - (snooze - time);
		printf("<zzz>");
		for (n = 0; n < time - oldtime; n++)
			printf(".");
		printf("\n");
		snooze += 3 * (time - oldtime);
		if (notes[LAUNCHED]){
			fuel -= (time - oldtime);
			if (location[position].down){
				position = location[position].down;
				crash();
			}
			else
				notes[LAUNCHED] = 0;
		}
		if (OUTSIDE && rnd(100) < 20){
			puts("You are awakened abruptly by the sound of someone nearby.");
			switch(rnd(3)){
				case 0:
					if (ucard(inven)){
						n = rnd(NUMOFOBJECTS);
						while(!testbit(inven,n))
							n = rnd(NUMOFOBJECTS);
						clearbit(inven,n);
						if (n != AMULET && n != MEDALION && n != TALISMAN)
							setbit(location[position].objects,n);
						carrying -= objwt[n];
						encumber -= objcumber[n];
					}
					puts("A fiendish little Elf is stealing your treasures!");
					fight(ELF,10);
					break;
				case 1:
					setbit(location[position].objects,DEADWOOD);
					break;
				case 2:
					setbit(location[position].objects,HALBERD);
					break;
			}
		}
	}
	else
		return(0);
	return(1);
}

chime()
{
	if ((time / CYCLE + 1) % 2 && OUTSIDE)
		switch((time % CYCLE)/(CYCLE / 7)){
			case 0:
				puts("It is just after sunrise.");
				break;
			case 1:
				puts("It is early morning.");
				break;
			case 2:
				puts("It is late morning.");
				break;
			case 3:
				puts("It is near noon.");
				break;
			case 4:
				puts("It is early afternoon.");
				break;
			case 5:
				puts("It is late afternoon.");
				break;
			case 6:
				puts("It is near sunset.");
				break;
		}
	else if (OUTSIDE)
		switch((time % CYCLE)/(CYCLE / 7)){
			case 0:
				puts("It is just after sunset.");
				break;
			case 1:
				puts("It is early evening.");
				break;
			case 2:
				puts("The evening is getting old.");
				break;
			case 3:
				puts("It is near midnight.");
				break;
			case 4:
				puts("These are the wee hours of the morning.");
				break;
			case 5:
				puts("The night is waning.");
				break;
			case 6:
				puts("It is almost morning.");
				break;
		}
	else
		puts("I can't tell the time in here.");
}

give()
{
	int obj = -1, result = -1, person = 0, firstnumber, last1, last2;

	firstnumber = wordnumber;
	while (wordtype[++wordnumber] != OBJECT  && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount);
	if (wordnumber <= wordcount){
		obj = wordvalue[wordnumber];
		if (obj == EVERYTHING)
			wordtype[wordnumber] = -1;
		last1 = wordnumber;
	}
	wordnumber = firstnumber;
	while ((wordtype[++wordnumber] != NOUNS || wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
	if (wordtype[wordnumber] == NOUNS){
		person = wordvalue[wordnumber];
		last2 = wordnumber;
	}
	wordnumber = last1 - 1;
	if (person && testbit(location[position].objects,person))
		if (person == NORMGOD && godready < 2 && !(obj == RING || obj == BRACELET))
			puts("The goddess won't look at you.");
		else
			result = drop("Given");
	else {
		puts("I don't think that is possible.");
		return(0);
	}
	if (result != -1 && (testbit(location[position].objects,obj) || obj == AMULET || obj == MEDALION || obj == TALISMAN)){
		clearbit(location[position].objects,obj);
		time++;
		ego++;
		switch(person){
			case NATIVE:
				puts("She accepts it shyly.");
				ego += 2;
				break;
			case NORMGOD:
				if (obj == RING || obj == BRACELET){
					puts("She takes the charm and puts it on.  A little kiss on the cheek is");
					puts("your reward.");
					ego += 5;
					godready += 3;
				}
				if (obj == AMULET || obj == MEDALION || obj == TALISMAN){
					win++;
					ego += 5;
					power -= 5;
					if (win >= 3){
						puts("The powers of the earth are now legitimate.  You have destroyed the Darkness");
						puts("and restored the goddess to her thrown.  The entire island celebrates with");
						puts("dancing and spring feasts.  As a measure of her gratitude, the goddess weds you");
						puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
						puts("\nBut, as the year wears on and autumn comes along, you become restless and");
						puts("yearn for adventure.  The goddess, too, realizes that the marriage can't last.");
						puts("She becomes bored and takes several more natives as husbands.  One evening,");
						puts("after having been out drinking with the girls, she kicks the throne particulary");
						puts("hard and wakes you up.  (If you want to win this game, you're going to have to\nshoot her!)");
						clearbit(location[position].objects,MEDALION);
						wintime = time;
					}
				}
				break;
			case TIMER:
				if (obj == COINS){
					puts("He fingers the coins for a moment and then looks up agape. 'Kind you are and");
					puts("I mean to repay you as best I can.'  Grabbing a pencil and cocktail napkin...");
					printf("\n-------------------------------------------------------------------------------\n");
					printf(  "|				xxxxxxxxxx\\				      |\n");
					printf(  "|				    xxxxxxx\\	CLIFFS			      |\n");
					printf(  "|					xxxx\\				      |\n");
					printf(  "|		FOREST			   xx\\				      |\n");
					printf(  "|				\\\\	     x\\        	OCEAN		      |\n");
					printf(  "|				||	       x\\			      |\n");
					printf(  "|				||  ROAD	x\\			      |\n");
					printf(  "|				||		x\\			      |\n");
					printf(  "|		SECRET		||	  .........			      |\n");
					printf(  "|		 - + -		||	   ........			      |\n");
					printf(  "|		ENTRANCE	||		...      BEACH		      |\n");
					printf(  "|				||		...		  E	      |\n");
					printf(  "|				||		...		  |	      |\n");
					printf(  "|				//		...	    N <-- + ---  S     |\n");
					printf(  "|		PALM GROVE     //		...		  |	      |\n");
					printf(  "|			      //		...		  W	      |\n");
					printf(  "-------------------------------------------------------------------------------\n");
					puts("\n'This map shows a secret entrance to the catacombs.");
					puts("You will know when you arrive because I left an old pair of shoes there.'");
				}
				break;
		}
	}
	wordnumber = max(last1,last2);
	return(firstnumber);
}
Commit	Line	Data
f0462800 EW	1	#ifndef lint
	2	static char sccsid[] = "@(#)com5.c 1.1 %G%";
	3	#endif
	4
	5	#include "externs.h"
	6
	7	kiss()
	8	{
	9	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	10	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
	11	pleasure++;
	12	printf("Kissed.\n");
	13	switch (wordvalue[wordnumber]){
	14	case NORMGOD:
	15	switch(godready++){
	16	case 0:
	17	puts("She squirms and avoids your advances.");
	18	break;
	19	case 1:
	20	puts("She is coming around; she didn't fight it as much.");
	21	break;
	22	case 2:
	23	puts("She's begining to like it.");
	24	break;
	25	default:
	26	puts("She's gone limp.");
	27
	28	}
	29	break;
	30	case NATIVE:
	31	puts("The lips are warm and her body robust. She pulls you down to the ground.");
	32	break;
	33	case TIMER:
	34	puts("The old man blushes.");
	35	break;
	36	case MAN:
	37	puts("The dwarf punches you in the kneecap.");
	38	break;
	39	default:
	40	pleasure--;
	41	}
	42	}
	43	else puts("I'd prefer not to.");
	44	}
	45
	46	love()
	47	{
	48	register int n;
	49
	50	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	51	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
	52	if (wordvalue[wordnumber] == NORMGOD && !loved)
	53	if (godready >= 2){
	54	puts("She cuddles up to you, and her mouth starts to work:\n'That was my sister's amulet. The lovely goddess, Purl, was she. The Empire\ncaptured her just after the Darkness came. My other sister, Vert, was killed\nby the Dark Lord himself. He took her amulet and warped its power.\nYour quest was foretold by my father before he died, but to get the Dark Lord's\namulet you must use cunning and skill. I will leave you my amulet.");
	55	puts("which you may use as you wish. As for me, I am the last goddess of the\nwaters. My father was the Island King, and the rule is rightfully mine.'\n\nShe pulls the throne out into a large bed.");
	56	power++;
	57	pleasure += 15;
	58	ego++;
	59	if (card(injuries, NUMOFINJURIES)){
	60	puts("Her kisses revive you; your wounds are healed.\n");
	61	for (n=0; n < NUMOFINJURIES; n++)
	62	injuries[n] = 0;
	63	WEIGHT = MAXWEIGHT;
	64	CUMBER = MAXCUMBER;
65	}
66	printf("Goddess:\n");
67	if (!loved)
68	setbit(location[position].objects,MEDALION);
69	loved = 1;
70	time += 10;
71	zzz();
72	}
73	else {
74	puts("You wish!");
75	return;
76	}
77	if (wordvalue[wordnumber] == NATIVE){
78	puts("The girl is easy prey. She peals off her sarong and indulges you.");
79	power++;
80	pleasure += 5;
81	printf("Girl:\n");
82	time += 10;
83	zzz();
84	}
85	printf("Loved.\n");
86	}
87	else puts("I't doesn't seem to work.");
88	}
89
90	zzz()
91	{
92	int oldtime;
93	register int n;
94
95	oldtime = time;
96	if ((snooze - time) < (0.75 * CYCLE)){
97	time += 0.75 * CYCLE - (snooze - time);
98	printf("<zzz>");
99	for (n = 0; n < time - oldtime; n++)
100	printf(".");
101	printf("\n");
102	snooze += 3 * (time - oldtime);
103	if (notes[LAUNCHED]){
104	fuel -= (time - oldtime);
105	if (location[position].down){
106	position = location[position].down;
107	crash();
108	}
109	else
110	notes[LAUNCHED] = 0;
111	}
112	if (OUTSIDE && rnd(100) < 20){
113	puts("You are awakened abruptly by the sound of someone nearby.");
114	switch(rnd(3)){
115	case 0:
116	if (ucard(inven)){
117	n = rnd(NUMOFOBJECTS);
118	while(!testbit(inven,n))
119	n = rnd(NUMOFOBJECTS);
120	clearbit(inven,n);
121	if (n != AMULET && n != MEDALION && n != TALISMAN)
122	setbit(location[position].objects,n);
123	carrying -= objwt[n];
124	encumber -= objcumber[n];
125	}
126	puts("A fiendish little Elf is stealing your treasures!");
127	fight(ELF,10);
128	break;
129	case 1:
130	setbit(location[position].objects,DEADWOOD);
131	break;
132	case 2:
133	setbit(location[position].objects,HALBERD);
134	break;
135	}
136	}
137	}
138	else
139	return(0);
140	return(1);
141	}
142
143	chime()
144	{
145	if ((time / CYCLE + 1) % 2 && OUTSIDE)
146	switch((time % CYCLE)/(CYCLE / 7)){
147	case 0:
148	puts("It is just after sunrise.");
149	break;
150	case 1:
151	puts("It is early morning.");
152	break;
153	case 2:
154	puts("It is late morning.");
155	break;
156	case 3:
157	puts("It is near noon.");
158	break;
159	case 4:
160	puts("It is early afternoon.");
161	break;
162	case 5:
163	puts("It is late afternoon.");
164	break;
165	case 6:
166	puts("It is near sunset.");
167	break;
168	}
169	else if (OUTSIDE)
170	switch((time % CYCLE)/(CYCLE / 7)){
171	case 0:
172	puts("It is just after sunset.");
173	break;
174	case 1:
175	puts("It is early evening.");
176	break;
177	case 2:
178	puts("The evening is getting old.");
179	break;
180	case 3:
181	puts("It is near midnight.");
182	break;
183	case 4:
184	puts("These are the wee hours of the morning.");
185	break;
186	case 5:
187	puts("The night is waning.");
188	break;
189	case 6:
190	puts("It is almost morning.");
191	break;
192	}
193	else
194	puts("I can't tell the time in here.");
195	}
196
197	give()
198	{
199	int obj = -1, result = -1, person = 0, firstnumber, last1, last2;
200
201	firstnumber = wordnumber;
202	while (wordtype[++wordnumber] != OBJECT && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount);
203	if (wordnumber <= wordcount){
204	obj = wordvalue[wordnumber];
205	if (obj == EVERYTHING)
206	wordtype[wordnumber] = -1;
207	last1 = wordnumber;
208	}
209	wordnumber = firstnumber;
210	while ((wordtype[++wordnumber] != NOUNS \|\| wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
211	if (wordtype[wordnumber] == NOUNS){
212	person = wordvalue[wordnumber];
213	last2 = wordnumber;
214	}
215	wordnumber = last1 - 1;
216	if (person && testbit(location[position].objects,person))
217	if (person == NORMGOD && godready < 2 && !(obj == RING \|\| obj == BRACELET))
218	puts("The goddess won't look at you.");
219	else
220	result = drop("Given");
221	else {
222	puts("I don't think that is possible.");
223	return(0);
224	}
225	if (result != -1 && (testbit(location[position].objects,obj) \|\| obj == AMULET \|\| obj == MEDALION \|\| obj == TALISMAN)){
226	clearbit(location[position].objects,obj);
227	time++;
228	ego++;
229	switch(person){
230	case NATIVE:
231	puts("She accepts it shyly.");
232	ego += 2;
233	break;
234	case NORMGOD:
235	if (obj == RING \|\| obj == BRACELET){
236	puts("She takes the charm and puts it on. A little kiss on the cheek is");
237	puts("your reward.");
238	ego += 5;
239	godready += 3;
240	}
241	if (obj == AMULET \|\| obj == MEDALION \|\| obj == TALISMAN){
242	win++;
243	ego += 5;
244	power -= 5;
245	if (win >= 3){
246	puts("The powers of the earth are now legitimate. You have destroyed the Darkness");
247	puts("and restored the goddess to her thrown. The entire island celebrates with");
248	puts("dancing and spring feasts. As a measure of her gratitude, the goddess weds you");
249	puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
250	puts("\nBut, as the year wears on and autumn comes along, you become restless and");
251	puts("yearn for adventure. The goddess, too, realizes that the marriage can't last.");
252	puts("She becomes bored and takes several more natives as husbands. One evening,");
253	puts("after having been out drinking with the girls, she kicks the throne particulary");
254	puts("hard and wakes you up. (If you want to win this game, you're going to have to\nshoot her!)");
255	clearbit(location[position].objects,MEDALION);
256	wintime = time;
257	}
258	}
259	break;
260	case TIMER:
261	if (obj == COINS){
262	puts("He fingers the coins for a moment and then looks up agape. 'Kind you are and");
263	puts("I mean to repay you as best I can.' Grabbing a pencil and cocktail napkin...");
264	printf("\n-------------------------------------------------------------------------------\n");
265	printf( "\| xxxxxxxxxx\\ \|\n");
266	printf( "\| xxxxxxx\\ CLIFFS \|\n");
267	printf( "\| xxxx\\ \|\n");
268	printf( "\| FOREST xx\\ \|\n");
269	printf( "\| \\\\ x\\ OCEAN \|\n");
270	printf( "\| \|\| x\\ \|\n");
271	printf( "\| \|\| ROAD x\\ \|\n");
272	printf( "\| \|\| x\\ \|\n");
273	printf( "\| SECRET \|\| ......... \|\n");
274	printf( "\| - + - \|\| ........ \|\n");
275	printf( "\| ENTRANCE \|\| ... BEACH \|\n");
276	printf( "\| \|\| ... E \|\n");
277	printf( "\| \|\| ... \| \|\n");
278	printf( "\| // ... N <-- + --- S \|\n");
279	printf( "\| PALM GROVE // ... \| \|\n");
280	printf( "\| // ... W \|\n");
281	printf( "-------------------------------------------------------------------------------\n");
282	puts("\n'This map shows a secret entrance to the catacombs.");
283	puts("You will know when you arrive because I left an old pair of shoes there.'");
284	}
285	break;
286	}
287	}
288	wordnumber = max(last1,last2);
289	return(firstnumber);
290	}