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

/*
 * Copyright (c) 1983 Regents of the University of California,
 * All rights reserved.  Redistribution permitted subject to
 * the terms of the Berkeley Software License Agreement.
 */

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