/*

* Read a scroll and let it happen

*

* @(#)scrolls.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 <curses.h>

#include <stdbool.h>

#include <stddef.h>

#include <string.h>

#include <stdlib.h>

#include "rogue.h"

#include "rogue.ext"

/*

* read_scroll:

* Let the hero read a scroll

*/

int read_scroll()

{

struct object *obj;

struct linked_list *item;

int i, j, wh;

unsigned long ch, nch;

struct room *rp;

struct linked_list *titem;

char buf[LINLEN];

bool bless, curse;

if ((item = get_item("read", SCROLL)) == NULL)

return 0;

obj = OBJPTR(item);

if (obj->o_type != SCROLL) {

msg("Nothing to read.");

after = FALSE;

return 0;

}

msg("As you read the scroll, it vanishes.");

wh = obj->o_which;

bless = o_on(obj, ISBLESS);

curse = o_on(obj, ISCURSED);

del_pack(item); /* Get rid of the thing */

/*

* Calculate the effect it has on the hero

*/

switch(wh) {

case S_KNOWALL:

if (!curse) {

idenpack(); /* identify all the pack */

msg("You feel more knowledgable.");

chg_abil(WIS,1,TRUE);

s_know[S_KNOWALL] = TRUE;

}

when S_CONFUSE:

if (!curse) {

/*

* Scroll of monster confusion. Give him that power.

*/

msg("Your hands begin to glow red.");

player.t_flags |= CANHUH;

s_know[S_CONFUSE] = TRUE;

}

when S_LIGHT:

rp = player.t_room;

if (!curse) {

if (rp == NULL) {

s_know[S_LIGHT] = TRUE;

msg("The corridor glows and then fades.");

}

else {

if (rf_on(rp,ISDARK)) {

s_know[S_LIGHT] = TRUE;

msg("The room is lit.");

rp->r_flags &= ~ISDARK;

}

light(&hero);

mvwaddch(cw, hero.y, hero.x, PLAYER);

}

}

when S_ARMOR:

if (!curse) {

if (cur_armor != NULL && o_off(cur_armor,ISPROT)) {

s_know[S_ARMOR] = TRUE;

msg("Your armor glows faintly for a moment.");

if (o_on(cur_armor,ISCURSED))

cur_armor->o_ac = armors[cur_armor->o_which].a_class;

else

cur_armor->o_ac--;

resoflg(cur_armor,ISCURSED);

}

}

when S_HOLD:

if (!curse) {

/*

* Hold monster scroll. Stop all monsters within 3 spaces

* from chasing after the hero.

*/

int x,y;

struct linked_list *mon;

for (x = hero.x - 3; x <= hero.x + 3; x++) {

for (y = hero.y - 3; y <= hero.y + 3; y++) {

if (y > 0 && x > 0 && isalpha(mvwinch(mw, y, x))) {

if ((mon = find_mons(y, x)) != NULL) {

struct thing *th;

th = THINGPTR(mon);

th->t_flags &= ~ISRUN;

th->t_flags |= ISHELD;

th->t_flags |= ISSTUCK;

}

}

}

}

}

when S_SLEEP:

/*

* Scroll which makes you fall asleep

*/

if (!bless) {

s_know[S_SLEEP] = TRUE;

msg("You fall asleep.");

player.t_nocmd += 4 + rnd(SLEEPTIME);

}

when S_CREATE:

if (!bless) {

if (makemons(mtlev[rnd(levcount)]->m_show))

s_know[S_CREATE] = TRUE;

else

msg("You hear a faint cry of anguish in the distance.");

}

when S_IDENT:

if (!curse) {

msg("This scroll is an identify scroll");

s_know[S_IDENT] = TRUE;

whatis(NULL);

}

when S_MAP:

if (curse)

break;

s_know[S_MAP] = TRUE;

addmsg("Oh, now this scroll has a ");

if (rnd(100) < 10 || bless) {

addmsg("very detailed map on it.");

endmsg();

displevl();

}

else {

addmsg("map on it.");

endmsg();

overwrite(stdscr, hw);

for (i = 1; i < LINES - 2; i++) {

for (j = 0; j < COLS; j++) {

switch (nch = ch = mvwinch(hw, i, j)) {

case SECRETDOOR:

nch = DOOR;

mvaddch(i, j, nch);

case '-':

case '|':

case DOOR:

case PASSAGE:

case ' ':

case STAIRS:

if (mvwinch(mw, i, j) != ' ') {

struct thing *it;

struct linked_list *blah;

blah = find_mons(i, j);

if (blah != NULL) {

it = THINGPTR(blah);

if (it->t_oldch == ' ')

it->t_oldch = nch;

}

}

break;

default:

nch = ' ';

}

if (nch != ch)

waddch(hw, nch);

}

}

overlay(cw, hw);

overwrite(hw, cw);

}

when S_GFIND:

if (!curse) {

int gtotal = 0;

struct room *rp;

wclear(hw);

for (rp = rooms; rp < &rooms[MAXROOMS]; rp++) {

gtotal += rp->r_goldval;

if (rp->r_goldval != 0 &&

mvinch(rp->r_gold.y,rp->r_gold.x) == GOLD)

mvwaddch(hw,rp->r_gold.y,rp->r_gold.x,GOLD);

}

if (gtotal) {

s_know[S_GFIND] = TRUE;

msg("You begin to feel greedy and sense gold.");

overlay(hw,cw);

}

else

msg("You begin to feel a pull downward.");

}

when S_TELEP:

if (!curse) {

int rm;

struct room *cur_room;

cur_room = player.t_room;

rm = teleport(rndspot, &player);

if (cur_room != &rooms[rm])

s_know[S_TELEP] = TRUE;

}

when S_ENCH:

if (!curse) {

if (cur_weapon == NULL || (cur_weapon != NULL &&

(o_on(cur_weapon,ISPROT) || cur_weapon->o_type != WEAPON)))

msg("You feel a strange sense of loss.");

else {

s_know[S_ENCH] = TRUE;

if (o_on(cur_weapon,ISCURSED)) {

resoflg(cur_weapon,ISCURSED);

cur_weapon->o_hplus = rnd(2);

cur_weapon->o_dplus = rnd(2);

}

else { /* weapon was not cursed here */

if (rnd(100) < 50)

cur_weapon->o_hplus += 1;

else

cur_weapon->o_dplus += 1;

}

setoflg(cur_weapon, ISKNOW);

msg("Your %s glows blue for a moment.",

w_magic[cur_weapon->o_which].mi_name);

}

}

when S_SCARE:

/*

* A monster will refuse to step on a scare monster scroll

* if it is dropped. Thus reading it is a mistake and produces

* laughter at the poor rogue's boo boo.

*/

msg("You hear maniacal laughter in the distance.");

when S_REMOVE:

if (!curse) {

if (cur_armor != NULL && o_off(cur_armor,ISPROT))

resoflg(cur_armor,ISCURSED);

if (cur_weapon != NULL && o_off(cur_weapon,ISPROT))

resoflg(cur_weapon,ISCURSED);

if (cur_ring[LEFT]!=NULL && o_off(cur_ring[LEFT],ISPROT))

resoflg(cur_ring[LEFT],ISCURSED);

if (cur_ring[RIGHT]!=NULL && o_off(cur_ring[RIGHT],ISPROT))

resoflg(cur_ring[RIGHT],ISCURSED);

msg("You feel as if somebody is watching over you.");

s_know[S_REMOVE] = TRUE;

}

when S_AGGR:

if (!bless) {

if (mlist != NULL) {

aggravate();

msg("You hear a high pitched humming noise.");

s_know[S_AGGR] = TRUE;

}

}

when S_NOP:

msg("This scroll seems to be blank.");

when S_GENOCIDE:

if (!curse) {

msg("You have been granted the boon of genocide.");

genocide();

s_know[S_GENOCIDE] = TRUE;

}

when S_DCURSE:

if (!bless) {

struct linked_list *ll;

struct object *lb;

msg("Your pack shudders.");

for (ll = pack ; ll != NULL ; ll = next(ll)) {

lb = OBJPTR(ll);

if (o_off(lb,ISPROT)) {

resoflg(lb, ISBLESS);

setoflg(lb, ISCURSED);

}

}

}

when S_DLEVEL:

if (!bless) {

int much = rnd(9) - 4;

if (much != 0) {

level += much;

if (level < 1)

level = 1;

mpos = 0;

new_level(NORMLEV); /* change levels */

msg("You are whisked away to another region.");

s_know[S_DLEVEL] = TRUE;

}

}

when S_PROTECT:

if (!curse) {

struct linked_list *ll;

struct object *lb;

msg("You are granted the power of protection.");

if ((ll = get_item("protect",0)) != NULL) {

lb = OBJPTR(ll);

setoflg(lb,ISPROT);

mpos = 0;

msg("Protected %s.",inv_name(lb,TRUE));

}

s_know[S_PROTECT] = TRUE;

}

when S_ALLENCH:

if (!curse) {

struct linked_list *ll;

struct object *lb;

int howmuch, ac, good;

msg("You are granted the power of enchantment.");

good = TRUE;

if ((ll = get_item("enchant",0)) != NULL) {

lb = OBJPTR(ll);

resoflg(lb,ISCURSED);

resoflg(lb,ISPROT);

howmuch = rnd(3) + 1;

switch(lb->o_type) {

case RING:

if (lb->o_ac < 0)

lb->o_ac = 0;

lb->o_ac += howmuch;

when ARMOR:

ac = armors[lb->o_which].a_class;

if (lb->o_ac > ac)

lb->o_ac = ac;

lb->o_ac -= howmuch;

when STICK:

lb->o_charges += howmuch + 10;

when WEAPON:

if (lb->o_dplus < 0)

lb->o_dplus = 0;

if (lb->o_hplus < 0)

lb->o_hplus = 0;

lb->o_hplus += howmuch;

lb->o_dplus += howmuch;

otherwise:

msg("You are injured as the scroll flashes & bursts into flames !!!");

chg_hpt(-roll(6,6),FALSE,K_SCROLL);

good = FALSE;

}

if (good) {

mpos = 0;

msg("Enchanted %s.",inv_name(lb,TRUE));

}

}

s_know[S_ALLENCH] = TRUE;

}

when S_BLESS:

if (!curse) {

struct linked_list *ll;

struct object *lb;

msg("Your pack glistens brightly.");

for (ll = pack ; ll != NULL ; ll = next(ll)) {

whatis(ll);

lb = OBJPTR(ll);

resoflg(lb,ISCURSED);

setoflg(lb,ISBLESS);

}

}

when S_MAKEIT:

if (!curse) {

msg("You have been endowed with the power of creation.");

s_know[S_MAKEIT] = TRUE;

create_obj(TRUE);

}

when S_BAN: {

int howdeep;

char *ptr;

if (bless) {

if (level > 6) {

howdeep = 1 + rnd(5);

ptr = "elevated to the upper";

}

else {

howdeep = -1;

bless = FALSE;

}

}

else {

howdeep = level + 10 + rnd(20) + (curse * 20);

ptr = "banished to the lower";

}

if ((!bless && level < howdeep) || bless) {

level = howdeep;

new_level(NORMLEV);

mpos = 0;

msg("You are %s regions.", ptr);

s_know[S_BAN] = TRUE;

}

}

when S_CWAND:

if (!curse) {

struct linked_list *ll;

struct object *lb;

bool wands = FALSE;

for (ll = pack ; ll != NULL ; ll = next(ll)) {

lb = OBJPTR(ll);

if (lb->o_type == STICK) {

whatis(ll);

setoflg(lb, ISKNOW);

resoflg(lb, ISCURSED);

lb->o_charges += rnd(11) + 5;

wands = TRUE;

}

}

if (wands) {

msg("Your sticks gleam.");

s_know[wh] = TRUE;

}

}

when S_LOCTRAP: {

struct trap *trp;

if (ntraps > 0) {

for (trp = &traps[0]; trp < &traps[ntraps]; trp++)

trp->tr_flags |= ISFOUND;

look(FALSE);

msg("You now recognize pitfalls.");

s_know[S_LOCTRAP] = TRUE;

}

}

otherwise:

msg("What a puzzling scroll!");

return 0;

}

look(TRUE);

nochange = FALSE;

if (s_know[wh] && s_guess[wh]) {

free(s_guess[wh]);

s_guess[wh] = NULL;

}

else if (!s_know[wh] && s_guess[wh] == NULL) {

strcpy(buf, s_names[wh]);

msg(callit);

if (get_str(buf, cw) == NORM) {

s_guess[wh] = new(strlen(buf) + 1);

strcpy(s_guess[wh], buf);

}

}

return 0;

}