--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/arogue5/wizard.c	Thu Aug 09 22:58:48 2012 +0000
@@ -0,0 +1,585 @@
+/*
+ * Special wizard commands (some of which are also non-wizard commands
+ * under strange circumstances)
+ *
+ * Advanced Rogue
+ * Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka and AT&T
+ * 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 "curses.h"
+#include <ctype.h>
+#include "rogue.h"
+
+
+/*
+ * create_obj:
+ *	Create any object for wizard, scroll, magician, or cleric
+ */
+create_obj(prompt, which_item, which_type)
+bool prompt;
+int which_item, which_type;
+{
+    reg struct linked_list *item;
+    reg struct object *obj;
+    reg int wh;
+    reg char ch, newitem, newtype = 0, whc, msz, *pt;
+    WINDOW *thiswin;
+
+    thiswin = cw;
+    if (prompt) {
+	bool nogood = TRUE;
+
+	thiswin = hw;
+	wclear(hw);
+	wprintw(hw,"Item\t\t\tKey\n\n");
+	wprintw(hw,"%s\t\t\t%c\n%s\t\t\t%c\n",things[TYP_RING].mi_name,RING,
+		things[TYP_STICK].mi_name,STICK);
+	wprintw(hw,"%s\t\t\t%c\n%s\t\t\t%c\n",things[TYP_POTION].mi_name,POTION,
+		things[TYP_SCROLL].mi_name,SCROLL);
+	wprintw(hw,"%s\t\t\t%c\n%s\t\t\t%c\n",things[TYP_ARMOR].mi_name,ARMOR,
+		things[TYP_WEAPON].mi_name,WEAPON);
+	wprintw(hw,"%s\t%c\n",things[TYP_MM].mi_name,MM);
+	wprintw(hw,"%s\t\t\t%c\n",things[TYP_FOOD].mi_name,FOOD);
+	if (wizard) {
+	    wprintw(hw,"%s\t\t%c\n",things[TYP_RELIC].mi_name,RELIC);
+	    waddstr(hw,"monster\t\t\tm");
+	}
+	wprintw(hw,"\n\nWhat do you want to create? ");
+	draw(hw);
+	do {
+	    ch = wgetch(hw);
+	    if (ch == ESCAPE) {
+		restscr(cw);
+		return;
+	    }
+	    switch (ch) {
+		case RING:
+		case STICK:	
+		case POTION:
+		case SCROLL:	
+		case ARMOR:	
+		case WEAPON:
+		case FOOD:
+		case MM:
+		    nogood = FALSE;
+		    break;
+		case RELIC:
+		case 'm':
+		    if (wizard) 
+			nogood = FALSE;
+		    break;
+		default:
+		    nogood = TRUE;
+	    }
+	} while (nogood);
+	newitem = ch;
+    }
+    else
+	newitem = which_item;
+
+    pt = "those";
+    msz = 0;
+    if(newitem == 'm') {
+	makemonster(TRUE);		/* make monster and be done with it */
+	return;
+    }
+    if(newitem == GOLD)
+	pt = "gold";
+    /* else if(isatrap(newitem))
+	pt = "traps";
+    */
+    switch(newitem) {
+	case POTION:	whc = TYP_POTION;	msz = MAXPOTIONS;
+	when SCROLL:	whc = TYP_SCROLL;	msz = MAXSCROLLS;
+	when WEAPON:	whc = TYP_WEAPON;	msz = MAXWEAPONS;
+	when ARMOR:	whc = TYP_ARMOR;	msz = MAXARMORS;
+	when RING:	whc = TYP_RING;		msz = MAXRINGS;
+	when STICK:	whc = TYP_STICK;	msz = MAXSTICKS;
+	when MM:	whc = TYP_MM;		msz = MAXMM;
+	when RELIC:	whc = TYP_RELIC;	msz = MAXRELIC;
+	when FOOD:
+	    whc = TYP_FOOD;
+	    msz = MAXFOODS;
+	    if (thiswin == hw)
+		restscr(cw);
+	    mpos = 0;
+	otherwise:
+	    if (thiswin == hw)
+		restscr(cw);
+	    mpos = 0;
+	    msg("Even wizards can't create %s !!",pt);
+	    return;
+    }
+    if(msz == 1) {		/* if only one type of item */
+	ch = 'a';
+    }
+    else if (prompt) {
+	register struct magic_item *wmi;
+	char wmn;
+	register int ii;
+	int old_prob;
+
+	mpos = 0;
+	wmi = NULL;
+	wmn = 0;
+	switch(newitem) {
+		case POTION:	wmi = &p_magic[0];
+		when SCROLL:	wmi = &s_magic[0];
+		when RING:	wmi = &r_magic[0];
+		when STICK:	wmi = &ws_magic[0];
+		when MM:	wmi = &m_magic[0];
+		when RELIC:	wmi = &rel_magic[0];
+		when WEAPON:	wmn = 1;
+		when ARMOR:	wmn = 2;
+	}
+	wclear(hw);
+	thiswin = hw;
+	if (wmi != NULL) {
+	    ii = old_prob = 0;
+	    while (ii < msz) {
+		if(wmi->mi_prob == old_prob && wizard == FALSE) { 
+		    msz--; /* can't make a unique item */
+		}
+		else {
+		    mvwaddch(hw,ii % 13,ii > 12 ? COLS/2 : 0, ii + 'a');
+		    waddstr(hw,") ");
+		    waddstr(hw,wmi->mi_name);
+		    ii++;
+		}
+		old_prob = wmi->mi_prob;
+	        wmi++;
+	    }
+	}
+	else if (wmn != 0) {
+	    for(ii = 0 ; ii < msz ; ii++) {
+	        mvwaddch(hw,ii % 13,ii > 12 ? COLS/2 : 0, ii + 'a');
+	        waddstr(hw,") ");
+	        if(wmn == 1)
+		    waddstr(hw,weaps[ii].w_name);
+	        else
+		    waddstr(hw,armors[ii].a_name);
+	    }
+	}
+	sprintf(prbuf,"Which %s? ",things[whc].mi_name);
+	mvwaddstr(hw,LINES - 1, 0, prbuf);
+	draw(hw);
+	do {
+	    ch = wgetch(hw);
+	    if (ch == ESCAPE) {
+	        restscr(cw);
+	        msg("");
+	        return;
+	    }
+	} until (isalpha(ch));
+        if (thiswin == hw)			/* restore screen if need be */
+	    restscr(cw);
+        newtype = tolower(ch) - 'a';
+        if(newtype < 0 || newtype >= msz) {	/* if an illegal value */
+	    mpos = 0;
+	    msg("There is no such %s",things[whc].mi_name);
+	    return;
+        }
+    }
+    else 
+	newtype = which_type;
+    item = new_item(sizeof *obj);	/* get some memory */
+    obj = OBJPTR(item);
+    obj->o_type = newitem;		/* store the new items */
+    obj->o_mark[0] = '\0';
+    obj->o_which = newtype;
+    obj->o_group = 0;
+    obj->contents = NULL;
+    obj->o_count = 1;
+    obj->o_flags = 0;
+    obj->o_dplus = obj->o_hplus = 0;
+    obj->o_weight = 0;
+    wh = obj->o_which;
+    mpos = 0;
+    if (!wizard)			/* users get 0 to +3 */
+	whc = rnd(4);
+    else			/* wizard gets to choose */
+	whc = getbless();
+    if (whc < 0)
+	obj->o_flags |= ISCURSED;
+    switch (obj->o_type) {
+	case WEAPON:
+	case ARMOR:
+	    if (obj->o_type == WEAPON) {
+		init_weapon(obj, wh);
+		obj->o_hplus += whc;
+		obj->o_dplus += whc;
+	    }
+	    else {				/* armor here */
+		obj->o_weight = armors[wh].a_wght;
+		obj->o_ac = armors[wh].a_class - whc;
+	    }
+	when RING:
+	    if (whc > 1 && r_magic[wh].mi_bless != 0)
+		obj->o_flags |= ISBLESSED;
+	    r_know[wh] = TRUE;
+	    switch(wh) {
+		case R_ADDSTR:
+		case R_ADDWISDOM:
+		case R_ADDINTEL:
+		case R_PROTECT:
+		case R_ADDHIT:
+		case R_ADDDAM:
+		case R_DIGEST:
+		    obj->o_ac = whc + 1;
+		    break;
+		default: 
+		    obj->o_ac = 0;
+	    }
+	    obj->o_weight = things[TYP_RING].mi_wght;
+	when MM:
+	    if (whc > 1 && m_magic[wh].mi_bless != 0)
+		obj->o_flags |= ISBLESSED;
+	    m_know[wh] = TRUE;
+	    switch(wh) {
+		case MM_JUG:
+		    switch(rnd(9)) {
+			case 0: obj->o_ac = P_PHASE;
+			when 1: obj->o_ac = P_CLEAR;
+			when 2: obj->o_ac = P_SEEINVIS;
+			when 3: obj->o_ac = P_HEALING;
+			when 4: obj->o_ac = P_MFIND;
+			when 5: obj->o_ac = P_TFIND;
+			when 6: obj->o_ac = P_HASTE;
+			when 7: obj->o_ac = P_RESTORE;
+			when 8: obj->o_ac = P_FLY;
+		    }
+		when MM_OPEN:
+		case MM_HUNGER:
+		case MM_DRUMS:
+		case MM_DISAPPEAR:
+		case MM_CHOKE:
+		case MM_KEOGHTOM:
+		    if (whc < 0)
+			whc = -whc; 	/* these cannot be negative */
+		    obj->o_ac = (whc + 1) * 5;
+		    break;
+		when MM_BRACERS:
+		    obj->o_ac = whc * 2 + 1;
+		when MM_DISP:
+		    obj->o_ac = 2;
+		when MM_PROTECT:
+		    obj->o_ac = whc;
+		when MM_SKILLS:
+		    if (wizard && whc != 0)
+			obj->o_ac = rnd(4);
+		    else
+			obj->o_ac = player.t_ctype;
+		otherwise: 
+		    obj->o_ac = 0;
+	    }
+	    obj->o_weight = things[TYP_MM].mi_wght;
+	when STICK:
+	    if (whc > 1 && ws_magic[wh].mi_bless != 0)
+		obj->o_flags |= ISBLESSED;
+	    ws_know[wh] = TRUE;
+	    fix_stick(obj);
+	when SCROLL:
+	    if (whc > 1 && s_magic[wh].mi_bless != 0)
+		obj->o_flags |= ISBLESSED;
+	    obj->o_weight = things[TYP_SCROLL].mi_wght;
+	    s_know[wh] = TRUE;
+	when POTION:
+	    if (whc > 1 && p_magic[wh].mi_bless != 0)
+		obj->o_flags |= ISBLESSED;
+	    obj->o_weight = things[TYP_POTION].mi_wght;
+	    p_know[wh] = TRUE;
+	when RELIC:
+	    obj->o_weight = things[TYP_RELIC].mi_wght;
+    }
+    mpos = 0;
+    obj->o_flags |= ISKNOW;
+    if (add_pack(item, FALSE, NULL) == FALSE) {
+	obj->o_pos = hero;
+	fall(item, TRUE);
+    }
+}
+
+/*
+ * getbless:
+ *	Get a blessing for a wizards object
+ */
+getbless()
+{
+	reg char bless;
+
+	msg("Blessing? (+,-,n)");
+	bless = readchar();
+	if (bless == '+')
+		return (rnd(3) + 2);
+	else if (bless == '-')
+		return (-rnd(3) - 1);
+	else
+		return (0);
+}
+
+/*
+ * get a non-monster death type
+ */
+getdeath()
+{
+    register int i;
+    int which_death;
+    char label[80];
+
+    clear();
+    for (i=0; i<DEATHNUM; i++) {
+	sprintf(label, "[%d] %s", i+1, deaths[i].name);
+	mvaddstr(i+2, 0, label);
+    }
+    mvaddstr(0, 0, "Which death? ");
+    refresh();
+
+    /* Get the death */
+    for (;;) {
+	get_str(label, stdscr);
+	which_death = atoi(label);
+	if ((which_death < 1 || which_death > DEATHNUM)) {
+	    mvaddstr(0, 0, "Please enter a number in the displayed range -- ");
+	    refresh();
+	}
+	else break;
+    }
+    return(deaths[which_death-1].reason);
+}
+
+/*
+ * make a monster for the wizard
+ */
+makemonster(create) 
+bool create;
+{
+    register int i;
+    register short which_monst;
+    register int num_monst = NUMMONST, pres_monst=1, num_lines=2*(LINES-3);
+    char monst_name[40];
+
+    /* Print out the monsters */
+    while (num_monst > 0) {
+	register left_limit;
+
+	if (num_monst < num_lines) left_limit = (num_monst+1)/2;
+	else left_limit = num_lines/2;
+
+	wclear(hw);
+	touchwin(hw);
+
+	/* Print left column */
+	wmove(hw, 2, 0);
+	for (i=0; i<left_limit; i++) {
+	    sprintf(monst_name, "[%d] %s\n",
+				pres_monst, monsters[pres_monst].m_name);
+	    waddstr(hw, monst_name);
+	    pres_monst++;
+	}
+
+	/* Print right column */
+	for (i=0; i<left_limit && pres_monst<=NUMMONST; i++) {
+	    sprintf(monst_name, "[%d] %s",
+				pres_monst, monsters[pres_monst].m_name);
+	    wmove(hw, i+2, COLS/2);
+	    waddstr(hw, monst_name);
+	    pres_monst++;
+	}
+
+	if ((num_monst -= num_lines) > 0) {
+	    mvwaddstr(hw, LINES-1, 0, morestr);
+	    draw(hw);
+	    wait_for(hw,' ');
+	}
+
+	else {
+	    mvwaddstr(hw, 0, 0, "Which monster");
+	    if (!terse && create) waddstr(hw, " do you wish to create");
+	    waddstr(hw, "? ");
+	    draw(hw);
+	}
+    }
+
+get_monst:
+    get_str(monst_name, hw);
+    which_monst = atoi(monst_name);
+    if ((which_monst < 1 || which_monst > NUMMONST)) {
+	mvwaddstr(hw, 0, 0, "Please enter a number in the displayed range -- ");
+	draw(hw);
+	goto get_monst;
+    }
+    restscr(cw);
+    if (create) {
+	creat_mons (&player, which_monst, TRUE);
+	light(&hero);
+    }
+    touchwin(cw);
+    return(which_monst);
+}
+
+/*
+ * passwd:
+ *	see if user knows password
+ */
+
+passwd()
+{
+    register char *sp, c;
+    char buf[LINELEN];
+
+    msg("Wizard's Password:");
+    mpos = 0;
+    sp = buf;
+    while ((c = readchar()) != '\n' && c != '\r' && c != '\033')
+	if (c == md_killchar())
+	    sp = buf;
+	else if (c == md_erasechar() && sp > buf)
+	    sp--;
+	else
+	    *sp++ = c;
+    if (sp == buf)
+	return FALSE;
+    *sp = '\0';
+    return (strcmp(PASSWD, md_crypt(buf, "Si")) == 0);
+}
+
+
+/*
+ * teleport:
+ *	Bamf the hero someplace else
+ */
+
+teleport()
+{
+    register struct room *new_rp, *old_rp = roomin(&hero);
+    register int rm;
+    coord c;
+
+    c = hero;
+    mvwaddch(cw, hero.y, hero.x, mvwinch(stdscr, hero.y, hero.x));
+    do
+    {
+	rm = rnd_room();
+	rnd_pos(&rooms[rm], &hero);
+    } until(winat(hero.y, hero.x) == FLOOR);
+    player.t_oldpos = c;	/* Save last position */
+
+    /* If hero gets moved, darken old room */
+    new_rp = &rooms[rm];
+    if (old_rp && old_rp != new_rp) {
+	old_rp->r_flags |= FORCEDARK;	/* Fake darkness */
+	light(&c);
+	old_rp->r_flags &= ~FORCEDARK; /* Restore light state */
+    }
+
+    /* Darken where we just came from */
+    else if (levtype == MAZELEV) light(&c);
+
+    light(&hero);
+    mvwaddch(cw, hero.y, hero.x, PLAYER);
+
+    /* Reset current room and position */
+    oldrp = new_rp;	/* Used in look() */
+    player.t_oldpos = hero;
+
+    /*
+     * turn off ISHELD in case teleportation was done while fighting
+     * something that holds you
+     */
+    if (on(player, ISHELD)) {
+	register struct linked_list *ip, *nip;
+	register struct thing *mp;
+
+	turn_off(player, ISHELD);
+	hold_count = 0;
+	for (ip = mlist; ip; ip = nip) {
+	    mp = THINGPTR(ip);
+	    nip = next(ip);
+	    if (on(*mp, DIDHOLD)) {
+		turn_off(*mp, DIDHOLD);
+		turn_on(*mp, CANHOLD);
+	    }
+	    turn_off(*mp, DIDSUFFOCATE); /* Suffocation -- see below */
+	}
+    }
+
+    /* Make sure player does not suffocate */
+    extinguish(suffocate);
+
+    count = 0;
+    running = FALSE;
+    md_flushinp();
+    return rm;
+}
+
+/*
+ * whatis:
+ *	What a certin object is
+ */
+
+whatis(what)
+struct linked_list *what;
+{
+    register struct object *obj;
+    register struct linked_list *item;
+
+    if (what == NULL) {		/* do we need to ask which one? */
+	if ((item = get_item(pack, "identify", IDENTABLE)) == NULL)
+	    return;
+    }
+    else
+	item = what;
+    obj = OBJPTR(item);
+    switch (obj->o_type) {
+        case SCROLL:
+	    s_know[obj->o_which] = TRUE;
+	    if (s_guess[obj->o_which]) {
+		free(s_guess[obj->o_which]);
+		s_guess[obj->o_which] = NULL;
+	    }
+        when POTION:
+	    p_know[obj->o_which] = TRUE;
+	    if (p_guess[obj->o_which]) {
+		free(p_guess[obj->o_which]);
+		p_guess[obj->o_which] = NULL;
+	    }
+	when STICK:
+	    ws_know[obj->o_which] = TRUE;
+	    if (ws_guess[obj->o_which]) {
+		free(ws_guess[obj->o_which]);
+		ws_guess[obj->o_which] = NULL;
+	    }
+        when RING:
+	    r_know[obj->o_which] = TRUE;
+	    if (r_guess[obj->o_which]) {
+		free(r_guess[obj->o_which]);
+		r_guess[obj->o_which] = NULL;
+	    }
+        when MM:
+	    /* If it's an identified jug, identify its potion */
+	    if (obj->o_which == MM_JUG && (obj->o_flags & ISKNOW)) {
+		if (obj->o_ac != JUG_EMPTY)
+		    p_know[obj->o_ac] = TRUE;
+		break;
+	    }
+
+	    m_know[obj->o_which] = TRUE;
+	    if (m_guess[obj->o_which]) {
+		free(m_guess[obj->o_which]);
+		m_guess[obj->o_which] = NULL;
+	    }
+	otherwise:
+	    break;
+    }
+    obj->o_flags |= ISKNOW;
+    if (what == NULL)
+	msg(inv_name(obj, FALSE));
+}
+