+
−/*
+
− * Functions to deal with the various sticks one
+
− * might find while wandering around the dungeon.
+
− *
+
− * @(#)sticks.c	9.0	(rdk)	 7/17/84
+
− *
+
− * Super-Rogue
+
− * Copyright (C) 1984 Robert D. Kindelberger
+
− * All rights reserved.
+
− *
+
− * Based on "Rogue: Exploring the Dungeons of Doom"
+
− * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
+
− * All rights reserved.
+
− *
+
− * See the file LICENSE.TXT for full copyright and licensing information.
+
− */
+
−
+
−#include <ctype.h>
+
−#include "rogue.h"
+
−#include "rogue.ext"
+
−
+
−/*
+
− * fix_stick:
+
− *	Init a stick for the hero
+
− */
+
−fix_stick(cur)
+
−struct object *cur;
+
−{
+
−	struct rod *rd;
+
−
+
−	cur->o_type = STICK;
+
−	cur->o_charges = 4 + rnd(5);
+
−	strcpy(cur->o_hurldmg, "1d1");
+
−	rd = &ws_stuff[cur->o_which];
+
−	cur->o_weight = rd->ws_wght;
+
−	cur->o_vol = rd->ws_vol;
+
−	if (strcmp(rd->ws_type, "staff") == 0) {
+
−		strcpy(cur->o_damage, "2d3");
+
−		cur->o_charges += rnd(5) + 3;
+
−	}
+
−	else {
+
−		strcpy(cur->o_damage, "1d1");
+
−	}
+
−	switch (cur->o_which) {
+
−		case WS_HIT:
+
−			if(rnd(100) < 15) {
+
−				cur->o_hplus = 9;
+
−				cur->o_dplus = 9;
+
−				strcpy(cur->o_damage,"3d8");
+
−			}
+
−			else {
+
−				cur->o_hplus = 3;
+
−				cur->o_dplus = 3;
+
−				strcpy(cur->o_damage,"1d8");
+
−			}
+
−		when WS_LIGHT:
+
−			cur->o_charges += 7 + rnd(9);
+
−	}
+
−}
+
−
+
−/*
+
− * do_zap:
+
− *	Zap a stick at something
+
− */
+
−do_zap(gotdir)
+
−bool gotdir;
+
−{
+
−	reg struct linked_list *item;
+
−	reg struct object *obj;
+
−	reg struct thing *tp;
+
−	reg int y, x, wh;
+
−	struct room *rp;
+
−	bool bless, curse;
+
−	int better = 0;
+
−
+
−	if ((item = get_item("zap with", STICK)) == NULL)
+
−		return;
+
−	obj = OBJPTR(item);
+
−	wh = obj->o_which;
+
−	bless = o_on(obj, ISBLESS);
+
−	curse = o_on(obj, ISCURSED);
+
−	if (obj->o_type != STICK) {
+
−		msg("You can't zap with that!");
+
−		after = FALSE;
+
−		return;
+
−	}
+
−	if (obj->o_charges == 0) {
+
−		msg("Nothing happens.");
+
−		return;
+
−	}
+
−	if (!gotdir)
+
−	do {
+
−		delta.y = rnd(3) - 1;
+
−		delta.x = rnd(3) - 1;
+
−	} while (delta.y == 0 && delta.x == 0);
+
−	rp = player.t_room;
+
−	if (bless)
+
−		better = 3;
+
−	else if (curse)
+
−		better = -3;
+
−	switch (wh) {
+
−	case WS_SAPLIFE:
+
−		if (!bless) {
+
−			if (him->s_hpt > 1)
+
−			him->s_hpt /= 2;	/* zap half his hit points */
+
−		}
+
−	when WS_CURE:
+
−		if (!curse) {
+
−			ws_know[WS_CURE] = TRUE;
+
−			heal_self(6, FALSE);
+
−			unconfuse(FALSE);
+
−			notslow(FALSE);
+
−			sight(FALSE);
+
−		}
+
−	when WS_PYRO:
+
−		if (!bless) {
+
−			msg("The rod explodes !!!");
+
−			chg_hpt(-roll(6,6), FALSE, K_ROD);
+
−			ws_know[WS_PYRO] = TRUE;
+
−			del_pack(item);		/* throw it away */
+
−		}
+
−	when WS_HUNGER:
+
−		if (!bless) {
+
−			struct linked_list *ip;
+
−			struct object *lb;
+
−
+
−			food_left /= 3;
+
−			if ((ip = pack) != NULL) {
+
−				lb = OBJPTR(ip);
+
−				if (lb->o_type == FOOD) {
+
−					if ((lb->o_count -= roll(1,4)) < 1)
+
−						del_pack(ip);
+
−				}
+
−			}
+
−		}
+
−	when WS_PARZ:
+
−	case WS_MREG:
+
−	case WS_MDEG:
+
−	case WS_ANNIH: {
+
−		struct linked_list *mitem;
+
−		struct thing *it;
+
−		reg int i,j;
+
−
+
−		for (i = hero.y - 3; i <= hero.y + 3; i++) {
+
−			for (j = hero.x - 3; j <= hero.x + 3; j++) {
+
−				if (!cordok(i, j))
+
−					continue;
+
−				if (isalpha(mvwinch(mw,i,j))) {
+
−					mitem = find_mons(i, j);
+
−					if (mitem == NULL)
+
−						continue;
+
−					it = THINGPTR(mitem);
+
−					switch(wh) {
+
−						case WS_ANNIH:
+
−							if (!curse)
+
−								killed(mitem,FALSE);
+
−						when WS_MREG:
+
−							if (!bless)
+
−								it->t_stats.s_hpt *= 2;
+
−						when WS_MDEG:
+
−							if (!curse) {
+
−								it->t_stats.s_hpt /= 2;
+
−								if (it->t_stats.s_hpt < 2)
+
−									killed(mitem,FALSE);
+
−							}
+
−						when WS_PARZ:
+
−							if (!curse) {
+
−								it->t_flags |= ISPARA;
+
−								it->t_flags &= ~ISRUN;
+
−							}
+
−						}
+
−					}
+
−				}
+
−			}
+
−		}
+
−	when WS_LIGHT:
+
−		if (!curse) {
+
−			ws_know[WS_LIGHT] = TRUE;
+
−			if (rp == NULL)
+
−				msg("The corridor glows and then fades.");
+
−			else {
+
−				msg("The room is lit.");
+
−				rp->r_flags &= ~ISDARK;
+
−				light(&hero);
+
−				mvwaddch(cw, hero.y, hero.x, PLAYER);
+
−			}
+
−		}
+
−	when WS_DRAIN:
+
−		/*
+
−		 * Take away 1/2 of hero's hit points, then take it away
+
−		 * evenly from the monsters in the room (or next to hero
+
−		 * if he is in a passage)
+
−		 */
+
−		if (him->s_hpt < 2) {
+
−			msg("You are too weak to use it.");
+
−			return;
+
−		}
+
−		else if (!curse) {
+
−			if (rp == NULL)
+
−				drain(hero.y-1, hero.y+1, hero.x-1, hero.x+1);
+
−			else
+
−				drain(rp->r_pos.y, rp->r_pos.y+rp->r_max.y,
+
−				  rp->r_pos.x, rp->r_pos.x+rp->r_max.x);
+
−		}
+
−	when WS_POLYM:
+
−	case WS_TELAWAY:
+
−	case WS_TELTO:
+
−	case WS_CANCEL:
+
−	case WS_MINVIS:
+
−	{
+
−		reg char monster, oldch;
+
−
+
−		y = hero.y;
+
−		x = hero.x;
+
−		do {
+
−			y += delta.y;
+
−			x += delta.x;
+
−		} while (step_ok(winat(y, x)));
+
−		if (isalpha(monster = mvwinch(mw, y, x))) {
+
−			int omonst;
+
−
+
−			if (wh != WS_MINVIS)
+
−				unhold(monster);
+
−			item = find_mons(y, x);
+
−			if (item == NULL)
+
−				break;
+
−			tp = THINGPTR(item);
+
−			omonst = tp->t_indx;
+
−			if (wh == WS_POLYM && !curse) {
+
−				detach(mlist, item);
+
−				discard(item);
+
−				oldch = tp->t_oldch;
+
−				delta.y = y;
+
−				delta.x = x;
+
−				monster = rnd_mon(FALSE, TRUE);
+
−				item = new_monster(monster, &delta, FALSE);
+
−				if (!(tp->t_flags & ISRUN))
+
−					runto(&delta, &hero);
+
−				if (isalpha(mvwinch(cw, y, x)))
+
−					mvwaddch(cw, y, x, monsters[monster].m_show);
+
−				tp->t_oldch = oldch;
+
−				ws_know[WS_POLYM] |= (monster != omonst);
+
−			}
+
−			else if (wh == WS_MINVIS && !bless) {
+
−				tp->t_flags |= ISINVIS;
+
−				mvwaddch(cw,y,x,tp->t_oldch);	/* hide em */
+
−				runto(&tp->t_pos, &hero);
+
−			}
+
−			else if (wh == WS_CANCEL && !curse) {
+
−				tp->t_flags |= ISCANC;
+
−				tp->t_flags &= ~ISINVIS;
+
−			}
+
−			else {
+
−				if (wh == WS_TELAWAY) {
+
−					if (curse)
+
−						break;
+
−					tp->t_pos = *rnd_pos(&rooms[rnd_room()]);
+
−				}
+
−				else {					/* WS_TELTO */
+
−					if (bless)
+
−						break;
+
−					tp->t_pos.y = hero.y + delta.y;
+
−					tp->t_pos.x = hero.x + delta.x;
+
−				}
+
−				if (isalpha(mvwinch(cw, y, x)))
+
−					mvwaddch(cw, y, x, tp->t_oldch);
+
−				tp->t_dest = &hero;
+
−				tp->t_flags |= ISRUN;
+
−				mvwaddch(mw, y, x, ' ');
+
−				mvwaddch(mw, tp->t_pos.y, tp->t_pos.x, monster);
+
−				tp->t_oldch = mvwinch(cw,tp->t_pos.y,tp->t_pos.x);
+
−			}
+
−		}
+
−	}
+
−	when WS_MISSILE:
+
−	{
+
−		struct coord *whe;
+
−		static struct object bolt = {
+
−			{0, 0}, "", "6d6", "", '*', 0, 0, 1000, 0, 0, 0, 0, 0, 0,
+
−		};
+
−
+
−		if (curse)
+
−			strcpy(bolt.o_hurldmg,"3d3");
+
−		else if (bless)
+
−			strcpy(bolt.o_hurldmg,"9d9");
+
−		ws_know[WS_MISSILE] = TRUE;
+
−		do_motion(&bolt, delta.y, delta.x);
+
−		whe = &bolt.o_pos;
+
−		if (isalpha(mvwinch(mw, whe->y, whe->x))) {
+
−			struct linked_list *it;
+
−
+
−			runto(whe, &hero);
+
−			it = find_mons(whe->y, whe->x);
+
−			if (it != NULL) {
+
−				if (!save_throw(VS_MAGIC + better, THINGPTR(it))) {
+
−					hit_monster(whe, &bolt);
+
−					break;
+
−				}
+
−			}
+
−		}
+
−		msg("Missle vanishes.");
+
−	}
+
−	when WS_NOP:
+
−		msg("Your %s flickers momentarily and then fades",
+
−			ws_stuff[wh].ws_type);
+
−	when WS_HIT: {
+
−		char ch;
+
−
+
−		delta.y += hero.y;
+
−		delta.x += hero.x;
+
−		ch = winat(delta.y, delta.x);
+
−		if (curse) {				/* decrease for cursed */
+
−			strcpy(obj->o_damage,"1d1");
+
−			obj->o_hplus = obj->o_dplus = 0;
+
−		}
+
−		else if (bless) {			/* increase for blessed */
+
−			strcpy(obj->o_damage,"5d8");
+
−			obj->o_hplus = obj->o_dplus = 12;
+
−		}
+
−		if (isalpha(ch))
+
−			fight(&delta, obj, FALSE);
+
−	}
+
−	when WS_HASTE_M:
+
−	case WS_CONFMON:
+
−	case WS_SLOW_M:
+
−	case WS_MOREMON: {
+
−		reg int m1,m2;
+
−		struct coord mp;
+
−		struct linked_list *titem;
+
−
+
−		y = hero.y;
+
−		x = hero.x;
+
−		do {
+
−			y += delta.y;
+
−			x += delta.x;
+
−		} while (step_ok(winat(y, x)));
+
−		if (isalpha(mvwinch(mw, y, x))) {
+
−			item = find_mons(y, x);
+
−			if (item == NULL)
+
−				break;
+
−			tp = THINGPTR(item);
+
−			if (wh == WS_HASTE_M && !bless) {			/* haste it */
+
−				if (on(*tp, ISSLOW))
+
−					tp->t_flags &= ~ISSLOW;
+
−				else
+
−					tp->t_flags |= ISHASTE;
+
−			}
+
−			else if (wh == WS_CONFMON && !curse) {		/* confuse it */
+
−				tp->t_flags |= ISHUH;
+
−				if (pl_on(ISHELD) && tp->t_type == 'd')
+
−					player.t_flags &= ~ISHELD;
+
−			}
+
−			else if (wh == WS_SLOW_M && !curse) {		/* slow it */
+
−				if (on(*tp, ISHASTE))
+
−					tp->t_flags &= ~ISHASTE;
+
−				else
+
−					tp->t_flags |= ISSLOW;
+
−				tp->t_turn = TRUE;
+
−			}
+
−			else if (!bless) {	/* WS_MOREMON: multiply it */
+
−				char ch;
+
−				struct thing *th;
+
−
+
−				for (m1 = tp->t_pos.x-1; m1 <= tp->t_pos.x+1; m1++) {
+
−					for(m2 = tp->t_pos.y-1; m2 <= tp->t_pos.y+1; m2++) {
+
−						if (hero.x == m1 && hero.y == m2)
+
−							continue;
+
−						ch = winat(m2,m1);
+
−						if (step_ok(ch)) {
+
−							mp.x = m1;			/* create it */
+
−							mp.y = m2;
+
−							titem = new_monster(tp->t_indx, &mp, FALSE);
+
−							th = THINGPTR(titem);
+
−							th->t_flags |= ISMEAN;
+
−							runto(&mp, &hero);
+
−						}
+
−					}
+
−				}
+
−			}
+
−			delta.y = y;
+
−			delta.x = x;
+
−			runto(&delta, &hero);
+
−		}
+
−	}
+
−	when WS_ELECT:
+
−	case WS_FIRE:
+
−	case WS_COLD: {
+
−		reg char dirch, ch, *name;
+
−		reg bool bounced, used;
+
−		int boingcnt, boltlen;
+
−		struct coord pos;
+
−		struct coord spotpos[BOLT_LENGTH * 2];
+
−		static struct object bolt =	{
+
−			{0, 0}, "", "6d6", "", '*', 0, 0, 1000, 0, 0, 0, 0, 0, 0,
+
−		};
+
−
+
−		boltlen = BOLT_LENGTH;
+
−		if (curse) {
+
−			strcpy(bolt.o_hurldmg,"3d3");
+
−			boltlen -= 3;
+
−		}
+
−		else if (bless) {
+
−			strcpy(bolt.o_hurldmg,"9d9");
+
−			boltlen += 3;
+
−		}
+
−		switch (delta.y + delta.x) {
+
−			case 0: dirch = '/';
+
−			when 1: case -1: dirch = (delta.y == 0 ? '-' : '|');
+
−			when 2: case -2: dirch = '\\';
+
−		}
+
−		pos = hero;
+
−		bounced = FALSE;
+
−		boingcnt = 0;
+
−		used = FALSE;
+
−		if (wh == WS_ELECT)
+
−			name = "bolt";
+
−		else if (wh == WS_FIRE)
+
−			name = "flame";
+
−		else
+
−			name = "ice";
+
−		for (y = 0; y < boltlen && !used; y++) {
+
−			ch = winat(pos.y, pos.x);
+
−			spotpos[y] = pos;
+
−			switch (ch) {
+
−				case SECRETDOOR:
+
−				case '|':
+
−				case '-':
+
−				case ' ':
+
−					bounced = TRUE;
+
−					if (++boingcnt > 6) 
+
−						used = TRUE;	/* only so many bounces */
+
−					delta.y = -delta.y;
+
−					delta.x = -delta.x;
+
−					y--;
+
−					msg("The bolt bounces");
+
−					break;
+
−				default:
+
−					if (isalpha(ch)) {
+
−						struct linked_list *it;
+
−
+
−						it = find_mons(pos.y, pos.x);
+
−						runto(&pos, &hero);
+
−						if (it != NULL) {
+
−							if (!save_throw(VS_MAGIC+better,THINGPTR(it))) {
+
−								bolt.o_pos = pos;
+
−								hit_monster(&pos, &bolt);
+
−								used = TRUE;
+
−							}
+
−							else if(ch != 'M' || show(pos.y,pos.x)=='M') {
+
−								msg("%s misses", name);
+
−							}
+
−						}
+
−					}
+
−					else if(bounced && pos.y==hero.y && pos.x==hero.x) {
+
−						bounced = FALSE;
+
−						if (!save(VS_MAGIC + better)) {
+
−							msg("The %s hits you.", name);
+
−							chg_hpt(-roll(6, 6),FALSE,K_BOLT);
+
−							used = TRUE;
+
−						}
+
−						else
+
−							msg("The %s whizzes by you.", name);
+
−					}
+
−					mvwaddch(cw, pos.y, pos.x, dirch);
+
−					draw(cw);
+
−				}
+
−				pos.y += delta.y;
+
−				pos.x += delta.x;
+
−			}
+
−			for (x = 0; x < y; x++)
+
−				mvwaddch(cw, spotpos[x].y, spotpos[x].x,
+
−				  show(spotpos[x].y, spotpos[x].x));
+
−			ws_know[wh] = TRUE;
+
−		}
+
−	when WS_ANTIM: {
+
−		reg int m1, m2, x1, y1;
+
−		struct linked_list *ll;
+
−		struct thing *lt;
+
−		int ch, radius;
+
−
+
−		y1 = hero.y;
+
−		x1 = hero.x;
+
−		do {
+
−			y1 += delta.y;
+
−			x1 += delta.x;
+
−			ch = winat(y1, x1);
+
−		} while (ch == PASSAGE || ch == FLOOR);
+
−		if (curse)
+
−			radius = 2;
+
−		else if (bless)
+
−			radius = 0;
+
−		else
+
−			radius = 1;
+
−		for (m1 = x1 - radius; m1 <= x1 + radius; m1++) {
+
−			for (m2 = y1 - radius; m2 <= y1 + radius; m2++) {
+
−				if (!cordok(m2, m1))
+
−					continue;
+
−				ch = winat(m2, m1);
+
−				if (m1 == hero.x && m2 == hero.y)
+
−					continue;
+
−				if (ch == ' ')
+
−					continue;
+
−				ll = find_obj(m2,m1);
+
−				if (ll != NULL) {
+
−					detach(lvl_obj,ll);
+
−					discard(ll);
+
−				}
+
−				ll = find_mons(m2,m1);
+
−				if (ll != NULL) {
+
−					lt = THINGPTR(ll);
+
−					him->s_exp += lt->t_stats.s_exp;
+
−					unhold(lt->t_type);
+
−					/*
+
−					 * throw away anything that the monster
+
−					 * was carrying in its pack
+
−					 */
+
−					free_list(lt->t_pack);
+
−					detach(mlist,ll);
+
−					discard(ll);
+
−					mvwaddch(mw,m2,m1,' ');
+
−				}
+
−				mvaddch(m2,m1,' ');
+
−				mvwaddch(cw,m2,m1,' ');
+
−			}
+
−		}
+
−		touchwin(cw);
+
−		touchwin(mw);
+
−		check_level();
+
−	}
+
−	otherwise:
+
−		msg("What a bizarre schtick!");
+
−	}
+
−	obj->o_charges--;
+
−}
+
−
+
−/*
+
− * drain:
+
− *	Do drain hit points from player stick
+
− */
+
−drain(ymin, ymax, xmin, xmax)
+
−int ymin, ymax, xmin, xmax;
+
−{
+
−	reg int i, j, cnt;
+
−	reg struct thing *ick;
+
−	reg struct linked_list *item;
+
−
+
−	/*
+
−	 * First count how many things we need to spread the hit points among
+
−	 */
+
−	cnt = 0;
+
−	for (i = ymin; i <= ymax; i++)
+
−		for (j = xmin; j <= xmax; j++)
+
−			if (isalpha(mvwinch(mw, i, j)))
+
−				cnt++;
+
−	if (cnt == 0) {
+
−		msg("You have a tingling feeling.");
+
−		return;
+
−	}
+
−	cnt = him->s_hpt / cnt;
+
−	him->s_hpt /= 2;
+
−	/*
+
−	 * Now zot all of the monsters
+
−	 */
+
−	for (i = ymin; i <= ymax; i++) {
+
−		for (j = xmin; j <= xmax; j++) {
+
−			if(isalpha(mvwinch(mw, i, j))) {
+
−				item = find_mons(i, j);
+
−				if (item == NULL)
+
−					continue;
+
−				ick = THINGPTR(item);
+
−				if ((ick->t_stats.s_hpt -= cnt) < 1)
+
−					killed(item,cansee(i,j) && !(ick->t_flags & ISINVIS));
+
−			}
+
−		}
+
−	}
+
−}
+
−
+
−/*
+
− * charge_str:
+
− *	Return number of charges left in a stick
+
− */
+
−char *
+
−charge_str(obj)
+
−struct object *obj;
+
−{
+
−	static char buf[20];
+
−
+
−	buf[0] = '\0';
+
−	if (o_on(obj,ISKNOW) || o_on(obj,ISPOST))
+
−		sprintf(buf, " [%d]", obj->o_charges);
+
−	return buf;
+
−}