⟦47362a0ed⟧

TextFile

/*	object.c		*/


#include "header.h"

/*
	***************
	LOOK_FOR_OBJECT
	***************

	subroutine to look for an object and give the player his options
	if an object was found.
 */
lookforobject()
{
	register int i,j;

	/* can't find objects is time is stopped*/
	if (c[TIMESTOP])  return;	

	i=item[playerx][playery];	
	if (i==0) return;

	showcell(playerx,playery);  
	cursors();  
	yrepcount=0;

	switch(i) {
	case OGOLDPILE:	
	case OMAXGOLD:
	case OKGOLD:	
	case ODGOLD:	
		lprcat("\n\nYou have found some gold!");	
		ogold(i);	
		break;

	case OPOTION:	
		lprcat("\n\nYou have found a magic potion");
		i = iarg[playerx][playery];
		if (potionname[i][0]) lprintf(" of %s",&potionname[i][1]);  
		opotion(i);  
		break;

	case OSCROLL:	
		lprcat("\n\nYou have found a magic scroll");
		i = iarg[playerx][playery];
		if (scrollname[i][0])	lprintf(" of %s",&scrollname[i][1]);
		oscroll(i);  
		break;

	case OALTAR:	
		if (nearbymonst()) return;
		lprcat("\n\nThere is a Holy Altar here!"); 
		oaltar(); 
		break;

	case OBOOK:	
		lprcat("\n\nYou have found a book."); 
		obook(); 
		break;

	case OCOOKIE:	
		lprcat("\n\nYou have found a fortune cookie."); 
		ocookie(); 
		break;

	case OTHRONE:	
		if (nearbymonst()) return;
		lprintf("\n\nThere is %s here!",objectname[i]); 
		othrone(0); 
		break;

	case OTHRONE2:	
		if (nearbymonst()) return;
		lprintf("\n\nThere is %s here!",objectname[i]); 
		othrone(1); 
		break;

	case ODEADTHRONE: 
		lprintf("\n\nThere is %s here!",objectname[i]); 
		odeadthrone(); 
		break;

	case OORB:	
		if (nearbymonst()) return;
		finditem(i);
		break;

	case OBRASSLAMP: 
		lprcat("\nYou have found a brass lamp ");
	lprcat("\nDo you want to (r) rub it, (t) take it, or (i) ignore it? ");
		i=0;
		while ((i!='r') && (i!='i') && (i!='t') && (i!='\33')) 
			i=getcharacter();
		if (i=='r') {
			i=rnd(100);
			if (i>90) {
		lprcat("\nThe magic genie was very upset at being disturbed!");
				losehp((int)c[HP]/2+1);
				beep();
			}
			/* higher level, better chance of spell */
			else if ( (rnd(100)+c[LEVEL]/2) > 80) {
				register int a,b,d;
				lprcat("\nA magic genie appears!");
				cursors();
				lprcat("\n  What spell would you like? : ");
				while ((a=getcharacter())=='D') { 	
					seemagic(99);
					cursors();  
				   lprcat("\n  What spell would you like? : ");
				}
				/* to escape casting a spell	*/
				if (a=='\33') goto over; 	
				if ((b=getcharacter())=='\33') 
					goto over;
				if ((d=getcharacter())=='\33') { 
over: 
					lprcat("aborted"); 
					return;
				}
				for (lprc('\n'),i=0; i<SPNUM+1; i++)
					if ((spelcode[i][0]==a) 
					    && (spelcode[i][1]==b) 
					    && (spelcode[i][2]==d)) {
						spelknow[i]=1;
			lprintf("\nSpell \"%s\":  %s\n%s",spelcode[i],
					spelname[i],speldescript[i]); 
			lprcat("\nThe genie prefers not to be disturbed again");
						forget();
						bottomline();
						return;
					}
			lprcat("\nThe genie has never heard of such a spell!");
			lprcat("\nThe genie prefers not to be disturbed again");
				forget();
				bottomline();
				return;
			}
			else lprcat("\nnothing happened");
			if (rnd(100) < 15) {
		lprcat("\nThe genie prefers not to be disturbed again!");
				forget();
				c[LAMP]=0;  /* chance of finding lamp again */
			}
			bottomline();
		}
		else if (i=='t') {
			lprcat("take");
			if (take(OBRASSLAMP,0)==0) forget();
		}
		else lprcat("ignore");
		return;

	case OWWAND:
		if (nearbymonst()) return;
		finditem(i);
		break;

	case OHANDofFEAR:
		if (nearbymonst()) return;
		finditem(i);
		break;

	case OPIT:	
		lprcat("\n\nYou're standing at the top of a pit."); 
		opit(); 
		break;

	case OSTAIRSUP:	
		lprcat("\n\nThere is a circular staircase here"); 
		ostairs(1);  /* up */
		break;

	case OELEVATORUP:
		lprcat("\n\nYou have found an express elevator going up");
		nap(2000);
		oelevator(1);  /*  up  */

		break;

	case OELEVATORDOWN:	
		lprcat("\n\nYou have found an express elevator going down");
		nap(2000);
		oelevator(-1);	/*	down	*/
		break;

	case OFOUNTAIN:	
		if (nearbymonst()) return;
		lprcat("\n\nThere is a fountain here"); 
		ofountain(); 
		break;

	case OSTATUE:	
		if (nearbymonst()) return;
		lprcat("\n\nYou are standing in front of a statue"); 
		ostatue(); 
		break;

	case OCHEST:	
		lprcat("\n\nThere is a chest here");  
		ochest();  
		break;

	case OIVTELETRAP:	
		if (rnd(11)<6) return;
		item[playerx][playery] = OTELEPORTER;
		know[playerx][playery] = 1;

	case OTELEPORTER:
		lprcat("\nZaaaappp!  You've been teleported!\n");
		beep(); 
		nap(3000); 
		oteleport(0);
		break; 

	case OSCHOOL:	
		if (nearbymonst()) return;
		lprcat("\n\nYou have found the College of Ularn.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i=0; 
		while ((i!='g') && (i!='i') && (i!='\33')) i=getcharacter();
		if (i == 'g') { 
			oschool();  /*	the college of larn	*/
		}
		else	lprcat(" stay here");
		break;

	case OMIRROR:	
		if (nearbymonst()) return;
		lprcat("\n\nThere is a mirror here");	
		omirror();	
		break;

	case OBANK2:
	case OBANK:	
		if (nearbymonst()) return;
		if (i==OBANK) 
			lprcat("\n\nYou have found the bank of Ularn.");
		else 
		    lprcat("\n\nYou have found a branch office of the bank of Ularn.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		j=0; 
		while ((j!='g') && (j!='i') && (j!='\33')) 
			j=getcharacter();
		if (j == 'g') {  
			if (i==OBANK) 
				obank(); 
			else 
			    obank2(); /*  the bank of larn  */

		}
		else   lprcat(" stay here");
		break;

	case ODEADFOUNTAIN:	
		if (nearbymonst()) return;
		lprcat("\n\nThere is a dead fountain here"); 
		break;

	case ODNDSTORE:	
		if (nearbymonst()) return;
		lprcat("\n\nThere is a DND store here.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i=0; 
		while ((i!='g') && (i!='i') && (i!='\33')) i=getcharacter();
		if (i == 'g')
			dndstore();  /*  the dnd adventurers store  */
		else  lprcat(" stay here");
		break;

	case OSTAIRSDOWN:
		lprcat("\n\nThere is a circular staircase here"); 
		ostairs(-1); /* down */
		break;

	case OOPENDOOR:		
		lprintf("\n\nYou have found %s",objectname[i]);
		lprcat("\nDo you (c) close it"); 
		iopts();
		i=0; 
		while ((i!='c') && (i!='i') && (i!='\33')) i=getcharacter();
		if ((i=='\33') || (i=='i')) { 
			ignore();  
			break; 
		}
		lprcat("close");  
		forget();
		item[playerx][playery]=OCLOSEDDOOR;
		iarg[playerx][playery]=0;
		playerx = lastpx;  
		playery = lastpy;
		break;

	case OCLOSEDDOOR:	
		lprintf("\n\nYou have found %s",objectname[i]);
		lprcat("\nDo you (o) try to open it"); 
		iopts();
		i=0; 
		while ((i!='o') && (i!='i') && (i!='\33')) i=getcharacter();
		if ((i=='\33') || (i=='i'))
		{ 
			ignore();  
			playerx = lastpx;
			playery = lastpy; 
			break; 
		}
		else
		{
			lprcat("open");
			if (rnd(11)<7)
			{
				switch(iarg[playerx][playery])
				{
				case 6: 
					c[AGGRAVATE] += rnd(400);	
					break;

				case 7:	
					lprcat("\nYou are jolted by an electric shock "); 
					lastnum=274; 
					losehp(rnd(20));  
					bottomline();  
					break;

				case 8:	
					loselevel();  
					break;

				case 9:	
					lprcat("\nYou suddenly feel weaker ");
					if (c[STRENGTH]>3) c[STRENGTH]--;
					bottomline();  
					break;

				default:	
					break;
				}
				playerx = lastpx;  
				playery = lastpy;
			}
			else
			{
				forget();  
				item[playerx][playery]=OOPENDOOR;
			}
		}
		break;

	case OENTRANCE:	
		lprcat("\nYou have found "); 
		lprcat(objectname[OENTRANCE]);
		lprcat("\nDo you (g) go inside"); 
		iopts();
		i=0; 
		while ((i!='g') && (i!='i') && (i!='\33')) i=getcharacter();
		if (i == 'g')
		{
			newcavelevel(1); 
			playerx=33; 
			playery=MAXY-2;
			item[33][MAXY-1]=know[33][MAXY-1]=mitem[33][MAXY-1]=0;
			draws(0,MAXX,0,MAXY); 
			bot_linex(); 
			return;
		}
		else   ignore();
		break;

	case OVOLDOWN:	
		lprcat("\nYou have found "); 
		lprcat(objectname[OVOLDOWN]);
		lprcat("\nDo you (c) climb down"); 
		iopts();
		i=0; 
		while ((i!='c') && (i!='i') && (i!='\33')) 
			i=getcharacter();
		if ((i=='\33') || (i=='i')) { 
			ignore();  
			break; 
		}
		if (level!=0) 
		{ 
			lprcat("\nThe shaft only extends 5 feet downward!"); 
			return; 
		}
		if (packweight() > 45+3*(c[STRENGTH]+c[STREXTRA])) 
		{ 
			lprcat("\nYou slip and fall down the shaft"); 
			beep();
			lastnum=275;  
			losehp(30+rnd(20)); 
			bottomhp(); 
		}
		else lprcat("climb down");  
		nap(3000); 
		newcavelevel(MAXLEVEL);
		playerx = rnd(MAXX-2);
		playery = rnd(MAXY-2);
		positionplayer(); 
		draws(0,MAXX,0,MAXY); 
		bot_linex(); 
		return;

	case OVOLUP:	
		lprcat("\nYou have found "); 
		lprcat(objectname[OVOLUP]);
		lprcat("\nDo you (c) climb up"); 
		iopts();
		i=0; 
		while ((i!='c') && (i!='i') && (i!='\33')) i=getcharacter();
		if ((i=='\33') || (i=='i')) { 
			ignore();  
			break; 
		}
	if (packweight() > 40+5*(c[DEXTERITY]+c[STRENGTH]+c[STREXTRA])) { 
			lprcat("\nYou slip and fall down the shaft"); 
			beep();
			lastnum=275; 
			losehp(15+rnd(20)); 
			bottomhp(); 
			return; 
		}
		lprcat("climb up"); 
		lflush(); 
		nap(3000); 
		newcavelevel(0);
		for (i=0; i<MAXY; i++)  for (j=0; j<MAXX; j++) /* put player near volcano shaft */
			if (item[j][i]==OVOLDOWN) { 
				playerx=j; 
				playery=i; 
				j=MAXX; 
				i=MAXY; 
				positionplayer(); 
			}
		draws(0,MAXX,0,MAXY); 
		bot_linex(); 
		return;

	case OTRAPARROWIV:	
		if (rnd(17)<13) return;	/* for an arrow trap */
		item[playerx][playery] = OTRAPARROW;
		know[playerx][playery] = 0;
	case OTRAPARROW:	
		lprcat("\nYou are hit by an arrow"); 
		beep();	/* for an arrow trap */
		lastnum=259;	
		losehp(rnd(10)+level);
		bottomhp();	
		return;

	case OIVDARTRAP:	
		if (rnd(17)<13) 
			return;		/* for a dart trap */
		item[playerx][playery] = ODARTRAP;
		know[playerx][playery] = 0;
	case ODARTRAP:		
		lprcat("\nYou are hit by a dart"); 
		beep();	/* for a dart trap */
		lastnum=260;	
		losehp(rnd(5));
		if ((--c[STRENGTH]) < 3) c[STRENGTH] = 3;
		bottomline();	
		return;

	case OIVTRAPDOOR:	
		if (rnd(17)<13) 
			return;		/* for a trap door */
		item[playerx][playery] = OTRAPDOOR;
		know[playerx][playery] = 1;
	case OTRAPDOOR:		
		lastnum = 272; /* a trap door */
		for (i=0;i<26;i++)
			if (iven[i]==OWWAND) {
				lprcat("\nYou escape a trap door");
				return;
			}
		if ((level==MAXLEVEL-1)||(level==MAXLEVEL+MAXVLEVEL-1))
		{ 
			lprcat("\nYou fell through a trap door leading straight to HELL!"); 			  
			beep();  
			nap(3000);  
			died(271); 
		}
		lprcat("\nYou fall through a trap door!"); 
		beep();	
		losehp(rnd(5+level));
		nap(2000);
		newcavelevel(level+1);  
		draws(0,MAXX,0,MAXY); 
		bot_linex();
		return;

	case OTRADEPOST:
		if (nearbymonst()) return;
		lprcat("\nYou have found the Ularn trading Post.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i=0; 
		while ((i!='g') && (i!='i') && (i!='\33')) i=getcharacter();
		if (i == 'g')  otradepost();  
		else  lprcat("stay here");
		return;

	case OHOME:	
		if (nearbymonst()) return;
		lprcat("\nYou have found your way home.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i=0; 
		while ((i!='g') && (i!='i') && (i!='\33')) 
			i=getcharacter();
		if (i == 'g')  
			ohome();  
		else  lprcat("stay here");
		return;
	case OPAD:	
		if (nearbymonst()) return;
		lprcat("\nYou have found Dealer McDope's Hideout!!");
		lprcat("\nDo you (c) check it out, or (i) ignore it? ");
		i=0;
		while ((i!='c') && (i!='i') && (i!='\33')) 
			i=getcharacter();
		if (i == 'c')  
			opad();
		else  lprcat("forget it");
		return;

	case OSPEED:   	
		lprcat("\nYou have found some speed");
		lprcat("\nDo you (s) snort it, (t) take it, or (i) ignore it? ");
		i=0; 
		while ((i!='s') && (i!='i') && (i!='t') && (i!='\33')) 
			i=getcharacter();
		if (i=='s') {
			lprcat("snort!");
			lprcat("\nOhwowmanlikethingstotallyseemtoslowdown!");
			c[HASTESELF] += 200 + c[LEVEL];
			c[HALFDAM] += 300 + rnd(200);
			if ((c[INTELLIGENCE]-=2) < 3)
				c[INTELLIGENCE]=3;
			if ((c[WISDOM]-=2) < 3)
				c[WISDOM]=3;
			if ((c[CONSTITUTION]-=2) <3)
				c[CONSTITUTION]=3;
			if ((c[DEXTERITY]-=2) <3)
				c[DEXTERITY]=3;
			if ((c[STRENGTH]-=2) <3)
				c[STRENGTH]=3;
			forget();
			bottomline();
		} 
		else if (i=='t') {
			lprcat("take");
			if (take(OSPEED,0)==0) forget();
		} 
		else 
		    lprcat("ignore"); 
		break;

	case OSHROOMS:	
		lprcat("\nYou have found some magic mushrooms");
		lprcat("\nDo you (e) eat them, (t) take them, or (i) ignore them? ");
		i=0; 
		while ((i!='e') && (i!='i') && (i!='t') && (i!='\33')) 
			i=getcharacter();
		if (i=='e') {
			lprcat("eat!");
			lprcat("\nThings start to get real spacey...");
			c[HASTEMONST] += rnd(75) + 25;
			c[CONFUSE] += 30+rnd(10);
			c[WISDOM]+=2;
			c[CHARISMA]+=2;
			forget();
			bottomline();
		} 
		else if (i=='t') {
			lprcat("take");
			if (take(OSHROOMS,0)==0) forget();
		} 
		else
			lprcat("ignore");
		break;

	case OACID:	
		lprcat("\nYou have found some LSD");
		lprcat("\nDo you (e) eat it, (t) take it, or (i) ignore it? ");
		i=0; 
		while ((i!='e') && (i!='i') && (i!='t') && (i!='\33')) 
			i=getcharacter();
		if (i=='e') {
			lprcat("eat!");
			lprcat("\nYou are now frying your ass off");
			c[CONFUSE]+=30+rnd(10);
			c[WISDOM]+=2;
			c[INTELLIGENCE]+=2;
			c[AWARENESS]+=1500;
			c[AGGRAVATE]+=1500;
			{ 	
				int j,k;	/* heal monsters */
				for(j=0;j<MAXY;j++)
					for(k=0;k<MAXX;k++)
						if (mitem[k][j])
							hitp[k][j]=monster[mitem[k][j]].hitpoints;
			}
			forget();
			bottomline();
		}
		else if (i=='t') {
			lprcat("take");
			if (take(OACID,0)==0) forget();
		}
		else lprcat("ignore");
		break;

	case OHASH:	
		lprcat("\nYou have found some hashish");
		lprcat("\nDo you (s) smoke it, (t) take it, or (i) ignore it? ");
		i=0; 
		while ((i!='s') && (i!='i') && (i!='t') && (i!='\33')) 
			i=getcharacter();
		if (i=='s') {
			lprcat("smoke!");
			lprcat("\nWOW! You feel stooooooned...");
			c[HASTEMONST]+=rnd(75)+25;
			c[INTELLIGENCE]+=2;
			c[WISDOM]+=2;
			if( (c[CONSTITUTION]-=2) < 3) 
				c[CONSTITUTION]=3;
			if( (c[DEXTERITY]-=2) < 3) 
				c[DEXTERITY]=3;
			c[HALFDAM]+=300+rnd(200);
			c[CLUMSINESS]+=rnd(1800)+200;
			forget();
			bottomline();
		}
		else if (i=='t') {
			lprcat("take");
			if (take(OHASH,0)==0) forget();
		}
		else lprcat("ignore");
		break;

	case OCOKE:	
		lprcat("\nYou have found some cocaine");
		lprcat("\nDo you want to (s) snort it, (t) take it, or (i) ignore it? ");
		i=0; 
		while ((i!='s') && (i!='i') && (i!='t') && (i!='\33')) 
			i=getcharacter();
		if (i=='s') {
			lprcat("snort!");
			lprcat("\nYour nose begins to bleed");
			if ((c[DEXTERITY]-=2) <3)
				c[DEXTERITY]=3;
			if ((c[CONSTITUTION]-=2) <3)
				c[CONSTITUTION]=3;
			c[CHARISMA]+=3;
			for(i=0;i<6;i++)
				c[i]+=33;
			c[COKED]+=10;
			forget();
			bottomline();
		}
		else if (i=='t') {
			lprcat("take");
			if (take(OCOKE,0)==0) forget();
		}
		else lprcat("ignore");
		break;	

	case OWALL:	
		break;

	case OANNIHILATION:
		for (i=0;i<26;i++)
			if (iven[i]==OSPHTALISMAN) {
				lprcat("\nThe Talisman of the Sphere protects you from annihilation!");
				return;
			}
		/* annihilated by sphere of annihilation */	
		died(283);
		return;

	case OLRS:	
		if (nearbymonst()) return;
		lprcat("\n\nThere is an LRS office here.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i=0; 
		while ((i!='g') && (i!='i') && (i!='\33')) i=getcharacter();
		if (i == 'g')
			olrs();  /*  the larn revenue service */
		else  lprcat(" stay here");
		break;
	default:	
		finditem(i); 
		break;
	};
}

/*
	function to say what object we found and ask if player wants to take it
 */
finditem(itm)
int itm;
{
	int tmp,i;
	lprintf("\n\nYou have found %s ",objectname[itm]);
	tmp=iarg[playerx][playery];
	switch(itm)
	{
	case ODIAMOND:		
	case ORUBY:			
	case OEMERALD:
	case OSAPPHIRE:		
	case OSPIRITSCARAB:	
	case OORBOFDRAGON:
	case OORB:
	case OHANDofFEAR:
	case OWWAND:
	case OCUBEofUNDEAD:	
	case ONOTHEFT:	
		break;

	default:
		if (tmp>0) 
			lprintf("+ %d",(long)tmp); 
		else if (tmp<0) lprintf(" %d",(long)tmp);
	}
	lprcat("\nDo you want to (t) take it"); 
	iopts();
	i=0; 
	while (i!='t' && i!='i' && i!='\33') i=getcharacter();
	if (i == 't')
	{	
		lprcat("take");  
		if (take(itm,tmp)==0)  
			forget();	
		return;	
	}
	ignore();
}


/*
	*******
	OSTAIRS
	*******

	subroutine to process the stair cases
	if dir > 0 then up else down
 */
ostairs(dir)
int dir;
{
	register int k, x, y;

	lprcat("\nDo you (s) stay here  or  ");
	if (dir > 0)	
		lprcat("(u) go up?  ");	
	else	
	    lprcat("(d) go down?  ");

	while (1) 
		switch(getcharacter()) {
		case '\33':
		case 's':	
		case 'i':	
			lprcat("stay here");	
			return;

		case 'u':	
			lprcat("go up");
			if (dir < 0)	
				lprcat("\nThe stairs don't go up!");
			else
				if (level>=2 && level!=MAXLEVEL) {
					newcavelevel(level-1);
					for (x=0;x<MAXX;x++)
						for (y=0;y<MAXY;y++)
							if (item[x][y] == OSTAIRSDOWN) {
								playerx=x;
								playery=y;
								x=MAXX;
								y=MAXY;
							}
					draws(0,MAXX,0,MAXY); 
					bot_linex();
				}
				else lprcat("\nThe stairs lead to a dead end!");
			return;

		case 'd':	
			lprcat("go down");
			if (dir > 0)	
				lprcat("\nThe stairs don't go down!");
			else
				if ((level!=0) && (level!= (MAXLEVEL-1)) && 
				    (level!=(MAXLEVEL-1 + MAXVLEVEL))) {
					newcavelevel(level+1);
					for (x=0;x<MAXX;x++)
						for (y=0;y<MAXY;y++)
							if (item[x][y] == OSTAIRSUP) {
								playerx=x;
								playery=y;
								x=MAXX;
								y=MAXY;
							}
					draws(0,MAXX,0,MAXY); 
					bot_linex();
				}
				else lprcat("\nThe stairs lead to a dead end!");
			return;
		};
}


/*
	*********
	OTELEPORT
	*********

	subroutine to handle a teleport trap +/- 1 level maximum
 */
oteleport(err)
int err;
{
	register int tmp;

	if (err) if (rnd(151)<3)  died(264);  /* stuck in a rock */

	/*show ?? on bottomline if been teleported	*/
	if (!wizard) c[TELEFLAG]=1;	

	if (level==0) 
		tmp=0;
	else if (level < MAXLEVEL) { 	/* in dungeon */
		tmp=rnd(5)+level-3; 
		if (tmp>=MAXLEVEL) 
			tmp=MAXLEVEL-1;
		if (tmp<0) 
			tmp=0; 
	}
	else { 				/* in volcano */
		tmp=rnd(4)+level-2; 
		if (tmp>=MAXLEVEL+MAXVLEVEL) 
			tmp=MAXLEVEL+MAXVLEVEL-1;
		if (tmp<MAXLEVEL) 
			tmp=0; 
	}
	playerx = rnd(MAXX-2);
	playery = rnd(MAXY-2);
	if (level != tmp)
		newcavelevel(tmp);  
	positionplayer();
	draws(0,MAXX,0,MAXY); 
	bot_linex();
}

/*
	*******
	OPOTION
	*******
	}
	playerx = rnd(MAXX-2);	
	playery = rnd(MAXY-2);
	if (level != tmp)
		newcavelevel(tmp);  
	positionplayer();
	draws(0,MAXX,0,MAXY); 
	bot_linex();
}

/*
	*******
	OPOTION
	*******

	function to process a potion
 */
opotion(pot)
int pot;
{
	lprcat("\nDo you (d) drink it, (t) take it"); 
	iopts();
	while (1) switch(getcharacter())
	{
	case '\33':
	case 'i':	
		ignore();  
		return;

	case 'd':	
		lprcat("drink\n");	
		forget();	/*	destroy potion	*/
		quaffpotion(pot);		
		return;

	case 't':	
		lprcat("take\n");	
		if (take(OPOTION,pot)==0)  forget();
		return;
	};
}

/*
	function to drink a potion
 */
quaffpotion(pot)
int pot;
{
	register int i,j,k;
	if (pot<0 || pot>=MAXPOTION) return; /* check for within bounds */
	potionname[pot][0] = ' ';
	switch(pot)
	{
	case 9: 
		lprcat("\nYou feel greedy . . .");   
		nap(2000);
		for (i=0; i<MAXY; i++)  for (j=0; j<MAXX; j++)
			if ((item[j][i]==OGOLDPILE) || (item[j][i]==OMAXGOLD))
			{
				know[j][i]=1; 
				show1cell(j,i);
			}
		showplayer();  
		return;

	case 19: 
		lprcat("\nYou feel greedy . . .");   
		nap(2000);
		for (i=0; i<MAXY; i++)  for (j=0; j<MAXX; j++)
		{
			k=item[j][i];
			if ((k==ODIAMOND) || (k==ORUBY) || (k==OEMERALD) || (k==OMAXGOLD)
			    || (k==OSAPPHIRE) || (k==OLARNEYE) || (k==OGOLDPILE))
			{
				know[j][i]=1; 
				show1cell(j,i);
			}
		}
		showplayer();  
		return;

	case 20: 
		c[HP] = c[HPMAX]; 
		break;	/* instant healing */

	case 1:	
		lprcat("\nYou feel better");
		if (c[HP] == c[HPMAX])  raisemhp(1);
		else if ((c[HP] += rnd(20)+20+c[LEVEL]) > c[HPMAX]) c[HP]=c[HPMAX];  
		break;

	case 2:	
		lprcat("\nSuddenly, you feel much more skillful!");
		raiselevel();  
		raisemhp(1); 
		return;

	case 3:	
		lprcat("\nYou feel strange for a moment"); 
		c[rund(6)]++;  
		break;

	case 4:	
		lprcat("\nYou feel more self confident!");
		c[WISDOM] += rnd(2);  
		break;

	case 5:	
		lprcat("\nWow!  You feel great!");
		if (c[STRENGTH]<12) c[STRENGTH]=12; 
		else c[STRENGTH]++;  
		break;

	case 6:	
		lprcat("\nYour charm went up by one!");  
		c[CHARISMA]++;  
		break;

	case 8:	
		lprcat("\nYour intelligence went up by one!");
		c[INTELLIGENCE]++;  
		break;

	case 10: 
		for (i=0; i<MAXY; i++)  for (j=0; j<MAXX; j++)
			if (mitem[j][i])
			{
				know[j][i]=1; 
				show1cell(j,i);
			}
		/*	monster detection	*/  return;

	case 12: 
		lprcat("\nThis potion has no taste to it");  
		return;

	case 15: 
		lprcat("\nWOW!!!  You feel Super-fantastic!!!");
		if (c[HERO]==0) for (i=0; i<6; i++) c[i] += 11;
		c[HERO] += 250;  
		break;

	case 16: 
		lprcat("\nYou have a greater intestinal constitude!");
		c[CONSTITUTION]++;  
		break;

	case 17: 
		lprcat("\nYou now have incredibly bulging muscles!!!");
		if (c[GIANTSTR]==0) c[STREXTRA] += 21;
		c[GIANTSTR] += 700;  
		break;

	case 18: 
		lprcat("\nYou feel a chill run up your spine!");
		c[FIRERESISTANCE] += 1000;  
		break;

	case 0:	
		lprcat("\nYou fall asleep. . .");
		i=rnd(11)-(c[CONSTITUTION]>>2)+2;  
		while(--i>0) { 
			parse2();  
			nap(1000); 
		}
		cursors();  
		lprcat("\nYou woke up!");  
		return;

	case 7:	
		lprcat("\nYou become dizzy!");
		if (--c[STRENGTH] < 3) c[STRENGTH]=3;  
		break;

	case 11: 
		lprcat("\nYou stagger for a moment . .");
		for (i=0; i<MAXY; i++)  for (j=0; j<MAXX; j++)
			know[j][i]=0;
		nap(2000);	
		draws(0,MAXX,0,MAXY); /* potion of forgetfulness */
		return;

	case 13: 
		lprcat("\nYou can't see anything!");  /* blindness */
		c[BLINDCOUNT]+=500;  
		return;

	case 14: 
		lprcat("\nYou feel confused"); 
		c[CONFUSE]+= 20+rnd(9); 
		return;

	case 21: 
		lprcat("\nYou don't seem to be affected");  
		return; /* cure dianthroritis */

	case 22: 
		lprcat("\nYou feel a sickness engulf you"); /* poison */
		c[HALFDAM] += 200 + rnd(200);  
		return;

	case 23: 
		lprcat("\nYou feel your vision sharpen");	/* see invisible */
		c[SEEINVISIBLE] += rnd(1000)+400;
		monstnamelist[INVISIBLESTALKER] = 'I';  
		return;
	};
	bottomline();		/*	show new stats		*/
	return;
}

/*
	*******
	OSCROLL
	*******

	function to process a magic scroll
 */
oscroll(typ)
int typ;
{
	lprcat("\nDo you ");
	if (c[BLINDCOUNT]==0) lprcat("(r) read it, "); 
	lprcat("(t) take it"); 
	iopts();
	while (1) switch(getcharacter()) {
	case '\33':
	case 'i':	
		ignore();  
		return;

	case 'r':	
		if (c[BLINDCOUNT]) break;
		lprcat("read"); 
		forget();
		if (typ==2 || typ==15)  { 
			show1cell(playerx,playery); 
			cursors(); 
		}
		/*	destroy it	*/	read_scroll(typ);  
		return;

	case 't':	
		lprcat("take"); 
		if (take(OSCROLL,typ)==0)	forget();	/*	destroy it	*/
		return;
	};
}

/*
	data for the function to read a scroll
 */
static int xh,yh,yl,xl;
static char curse[] = { 
	BLINDCOUNT, CONFUSE, AGGRAVATE, HASTEMONST, ITCHING,
	LAUGHING, DRAINSTRENGTH, CLUMSINESS, INFEEBLEMENT, HALFDAM };
static char exten[] = { 
	PROTECTIONTIME, DEXCOUNT, STRCOUNT, CHARMCOUNT,
	INVISIBILITY, CANCELLATION, HASTESELF, GLOBE, SCAREMONST, HOLDMONST, TIMESTOP };
char time_change[] = { 
	HASTESELF,HERO,ALTPRO,PROTECTIONTIME,DEXCOUNT,
	STRCOUNT,GIANTSTR,CHARMCOUNT,INVISIBILITY,CANCELLATION,
	HASTESELF,AGGRAVATE,SCAREMONST,STEALTH,AWARENESS,HOLDMONST,HASTEMONST,
	FIRERESISTANCE,GLOBE,SPIRITPRO,UNDEADPRO,HALFDAM,SEEINVISIBLE,
	ITCHING,CLUMSINESS, WTW };
/*
 *	function to adjust time when time warping and taking courses in school
 */
adjtime(tim)
register long tim;
{
	register int j;
	for (j=0; j<26; j++)	/* adjust time related parameters */
		if (c[time_change[j]])
			if ((c[time_change[j]] -= tim) < 1) c[time_change[j]]=1;
	regen();
}

/*
	function to read a scroll
 */
read_scroll(typ)
int typ;
{
	register int i,j;
	if (typ<0 || typ>=MAXSCROLL) return;  /* be sure we are within bounds */
	scrollname[typ][0] = ' ';
	switch(typ)
	{
	case 0:	
		lprcat("\nYour armor glows for a moment");  
		enchantarmor(); 
		return;

	case 1:	
		lprcat("\nYour weapon glows for a moment"); 
		enchweapon(); 
		return;  /* enchant weapon */

	case 2:	
		lprcat("\nYou have been granted enlightenment!");
		yh = min(playery+7,MAXY);	
		xh = min(playerx+25,MAXX);
		yl = max(playery-7,0);		
		xl = max(playerx-25,0);
		for (i=yl; i<yh; i++) 
			for (j=xl; j<xh; j++)  
				know[j][i]=1;
		nap(2000);	
		draws(xl,xh,yl,yh);	
		return;

	case 3:	
		lprcat("\nThis scroll seems to be blank");	
		return;

	case 4:	
		createmonster(makemonst(level+1));  
		return;  /*  this one creates a monster  */

	case 5:	
		something(level);	
		/* create artifact	*/  
		return;

	case 6:	
		c[AGGRAVATE]+=800; 
		return; /* aggravate monsters */

	case 7:	
		gtime += (i = rnd(1000) - 850); /* time warp */

		if (i>=0) lprintf("\nYou went forward in time by %d mobuls",(long)((i+99)/100));
		else lprintf("\nYou went backward in time by %d mobuls",(long)(-(i+99)/100));
		adjtime((long)i);/* adjust time for time warping */
		return;

	case 8:	
		oteleport(0);	  
		return;	/*	teleportation */

	case 9:	
		c[AWARENESS] += 1800;  
		return;	/* expanded awareness	*/

	case 10:	
		c[HASTEMONST] += rnd(55)+12; 
		lprintf("\nYou feel nervous");
		return;	/* haste monster */

	case 11:	
		for (i=0; i<MAXY; i++)  
			for (j=0; j<MAXX; j++)
				if (mitem[j][i])
					hitp[j][i] = monster[mitem[j][i]].hitpoints;
		lprintf("\nYou feel uneasy");
		return;	/* monster healing */

	case 12:	
		c[SPIRITPRO] += 300 + rnd(200); 
		bottomline(); 
		return; /* spirit protection */

	case 13:	
		c[UNDEADPRO] += 300 + rnd(200); 
		bottomline(); 
		return; /* undead protection */

	case 14:	
		c[STEALTH] += 250 + rnd(250);  
		bottomline(); 
		return; /* stealth */

	case 15:	
		lprcat("\nYou have been granted enlightenment!"); 
		/* magic mapping */
		for (i=0; i<MAXY; i++) 
			for (j=0; j<MAXX; j++)  
				know[j][i]=1;
		nap(2000);	
		draws(0,MAXX,0,MAXY);	
		return;

	case 16:	
		c[HOLDMONST] += 30; 
		bottomline(); 
		return; /* hold monster */

	case 17:	
		for (i=0; i<26; i++)	/* gem perfection */
			switch(iven[i])
			{
			case ODIAMOND:	
			case ORUBY:
			case OEMERALD:	
			case OSAPPHIRE:
				j = ivenarg[i];  
				j &= 255;  
				j <<= 1;
				if (j  > 255) 
					j=255; /*double value */
				ivenarg[i] = j;	
				break;
			}
		break;

	case 18:	
		for (i=0; i<11; i++)	
			c[exten[i]] <<= 1; /* spell extension */
		break;

	case 19:	
		for (i=0; i<26; i++)	/* identify */
		{
			if (iven[i]==OPOTION)  
				potionname[ivenarg[i]][0] = ' ';
			if (iven[i]==OSCROLL)  
				scrollname[ivenarg[i]][0] = ' ';
		}
		break;

	case 20:	
		for (i=0; i<10; i++)	/* remove curse */
			if (c[curse[i]]) c[curse[i]] = 1;
		break;

	case 21:	
		annihilate();	
		break;	/* scroll of annihilation */

	case 22:	
		godirect(22,150,"The ray hits the %s",0,' ');	
		/* pulverization */
		break;

	case 23:  
		c[LIFEPROT]++;  
		break; /* life protection */
	};
}


opit()
{
	register int i;
	if (rnd(101)<81)
		if (rnd(70) > 9*c[DEXTERITY]-packweight() || rnd(101)<5) {
			for (i=0;i<26;i++)
				if (iven[i]==OWWAND) {
					lprcat("\nYou float right over the pit");
					return;
				}
			if (level==MAXLEVEL-1) obottomless(); 
			else
				if (level==MAXLEVEL+MAXVLEVEL-1) obottomless(); 
				else
				{
					if (rnd(101)<20)
					{
						i=0;
						lprcat("\nYou fell into a pit! You land right on top of a poor monster!\n");
					}
					else
					{
						i = rnd(level*3+3);
						lprintf("\nYou fell into a pit!  You suffer %d hit points damage",(long)i);
						lastnum=261; 
						/* if he dies scoreboard will say so */
					}
					losehp(i); 
					nap(2000);  
					newcavelevel(level+1);  
					draws(0,MAXX,0,MAXY);
				}
		}
}

obottomless()
{
	lprcat("\nYou fell into a pit leading straight to HELL!");  
	beep(); 
	nap(3000);  
	died(262);
}

oelevator(dir)
int dir;
{
	playerx = rnd(MAXX-2);	
	playery = rnd(MAXY-2);

	if (dir==1) 
		newcavelevel(rund(level));
	else 
	    newcavelevel(level + rnd(MAXLEVEL-1 - level));
	positionplayer();
	draws(0,MAXX,0,MAXY); 
	bot_linex();
}

ostatue()
{
}


omirror()
{
}

obook()
{
	lprcat("\nDo you ");
	if (c[BLINDCOUNT]==0) lprcat("(r) read it, "); 
	lprcat("(t) take it"); 
	iopts();
	while (1) 
		switch(getcharacter()) {
		case '\33':
		case 'i':	
			ignore();	
			return;

		case 'r':	
			if (c[BLINDCOUNT]) break;
			lprcat("read");
			readbook(iarg[playerx][playery]);   
			/* no more book	*/
			forget();
			return;

		case 't':	
			lprcat("take");  
			if (take(OBOOK,iarg[playerx][playery])==0)  forget();	/* no more book	*/
			return;
		};
}

/*
	function to read a book
 */
readbook(arg)
register int arg;
{
	register int i,tmp;

	if (arg<=3) 
		i = rund((tmp=splev[arg])?tmp:1); 
	else {
		if (arg >= 21) 
			arg = 20;	/* # entries in splev = 21 */
		i = rnd( (tmp=splev[arg]-9) ?tmp:1 ) + 9;
	}
	spelknow[i]=1;
	lprintf("\nSpell \"%s\":  %s\n%s",
		spelcode[i],spelname[i],speldescript[i]);
	if (rnd(10)==4) {
		lprcat("\nYour int went up by one!"); 
		c[INTELLIGENCE]++; 
		bottomline(); 
	}
}

ocookie()
{
	char *p;
	lprcat("\nDo you (e) eat it, (t) take it"); 
	iopts();
	while (1) 
		switch(getcharacter()) {
		case '\33':
		case 'i':	
			ignore();	
			return;

		case 'e':	
			lprcat("eat\nThe cookie tasted good.");
			forget(); /* no more cookie	*/
			if (c[BLINDCOUNT]) return;
			if (!(p=fortune(fortfile))) return;
			lprcat("  A message inside the cookie reads:\n"); 
			lprcat(p);
			return;

		case 't':	
			lprcat("take");  
			if (take(OCOOKIE,0)==0) forget();
			return;
		};
}


/* routine to pick up some gold -- if arg==OMAXGOLD then the pile is worth 100* the argument */
ogold(arg)
int arg;
{
	register long i;

	i = iarg[playerx][playery];

	if (arg==ODGOLD) i *= 10;
	else if (arg==OMAXGOLD) i *= 100;
	else if (arg==OKGOLD) i *= 1000;

	lprintf("\nIt is worth %d!",(long)i);	
	c[GOLD] += i;  
	bottomgold();
	item[playerx][playery] = know[playerx][playery] = 0;/*destroy gold*/
}

ohome()
{
	register int i;

	nosignal = 1;	/* disable signals */
	for (i=0; i<26; i++) 
		if (iven[i]==OPOTION) 
			if (ivenarg[i]==21)
			{   /* remove the potion of cure dianthroritis from inventory */
				iven[i]=0;	
				clear(); 
				lprcat("Congratulations.  You found the potion of cure dianthroritis!\n");
				lprcat("\nFrankly, No one thought you could do it.  Boy!  Did you surprise them!\n");
				if (gtime>TIMELIMIT) {
					lprcat("\niHowever... the doctor has the sad duty to inform you that your daughter has died!\n");
					lprcat("You didn't make it in time.  In your agony, you kill the doctor,\nyour wife, and yourself!  Too bad...\n");
					nap(5000); 
					died(269);
				}
				else {
					lprcat("\nThe doctor is now administering the potion, and in a few moments\n");
					lprcat("Your daughter should be well on her way to recovery.\n");
					nap(6000);
					lprcat("\nThe potion is"); 
					nap(3000); 
					lprcat(" working!  The doctor thinks that\n");
					lprcat("your daughter will recover in a few days.  Congratulations!\n");
					beep(); 
					nap(5000); 
					died(263);
				}
			}

	while (1) {
		clear(); 
		lprintf("Welcome home %s.  Latest word from the doctor is not good.\n",logname);

		if (gtime>TIMELIMIT) {
			lprcat("\nThe doctor has the sad duty to inform you that your daughter has died!\n");
			lprcat("You didn't make it in time.  In your agony, you kill the doctor,\nyour wife, and yourself!  Too bad...\n");
			nap(5000); 
			died(269);
		}

		lprcat("\nThe diagnosis is confirmed as dianthroritis.  He guesses that\n");
		lprintf("your daughter has only %d mobuls left in this world.  It's up to you,\n",(long)((TIMELIMIT-gtime+99)/100));
		lprintf("%s, to find the only hope for your daughter, the very rare\n",logname);
		lprcat("potion of cure dianthroritis.  It is rumored that only deep in the\n");
		lprcat("depths of the caves can this potion be found.\n\n\n");
		lprcat("\n     ----- press "); 
		standout("return");
		lprcat(" to continue, "); 
		standout("escape");
		lprcat(" to leave ----- ");
		i=getcharacter();  
		while (i!='\33' && i!='\n') 
			i=getcharacter();
		if (i=='\33') { 
			drawscreen(); 
			nosignal = 0; /* enable signals */

			return; 
		}
	}
}

/*	routine to save program space	*/
iopts()
{	
	lprcat(", or (i) ignore it? ");	
}
ignore()
{	
	lprcat("ignore\n");	
}
DataMuseum.dk

DKUUG/EUUG Conference tapes

⟦47362a0ed⟧ TextFile

Derivation

TextFile
