Early Roguelike Collection: urogue/command.c annotate

annotate urogue/command.c @ 267:911f0aa6e758

UltraRogue: flush output when exiting.

author	John "Elwin" Edwards
date	Sun, 26 Feb 2017 14:58:49 -0500
parents	c495a4f288c6
children	88bd51f231e7

rev	line source
256 c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	2 command.c - Read and execute the user commands
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	3
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	4 UltraRogue: The Ultimate Adventure in the Dungeons of Doom
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	5 Copyright (C) 1985, 1986, 1992, 1993, 1995 Herb Chong
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	6 All rights reserved.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	7
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	8 Based on "Advanced Rogue"
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	9 Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	10 All rights reserved.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	11
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	12 Based on "Rogue: Exploring the Dungeons of Doom"
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	13 Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	14 All rights reserved.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	15
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	16 See the file LICENSE.TXT for full copyright and licensing information.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	17 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	18
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	19 #include <string.h>
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	20 #include <stdlib.h>
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	21 #include <ctype.h>
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	22 #include "rogue.h"
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	23
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	24 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	25 command()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	26 Process the user commands
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	27 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	28
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	29 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	30 command(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	31 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	32 static char repcommand; /* Command to repeat if we are repeating */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	33 static int fight_to_death; /* Flags if we are fighting to death */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	34 static coord dir; /* Last direction specified */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	35
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	36 object *obj;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	37 char ch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	38 int ntimes = 1; /* Number of player moves */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	39 coord nullcoord;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	40
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	41 nullcoord.x = nullcoord.y = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	42
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	43 if (on(player, CANFLY) && rnd(2))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	44 ntimes++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	45
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	46 if (on(player, ISHASTE))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	47 ntimes++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	48
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	49 if (fighting && att_bonus())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	50 ntimes *= 2;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	51
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	52 if (on(player, ISSLOW))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	53 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	54 if (player.t_turn != TRUE)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	55 ntimes--;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	56
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	57 player.t_turn ^= TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	58 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	59
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	60 if (ntimes == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	61 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	62
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	63 while (ntimes--)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	64 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	65 moving = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	66
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	67 /* If player is infested, take off a hit point */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	68
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	69 if (on(player, HASINFEST) && !is_wearing(R_HEALTH))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	70 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	71 if ((pstats.s_hpt -= infest_dam) <= 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	72 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	73 death(D_INFESTATION);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	74 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	75 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	76 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	77
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	78 look(after);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	79
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	80 if (!running)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	81 door_stop = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	82
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	83 status(FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	84 wmove(cw, hero.y, hero.x);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	85
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	86 if (!((running \|\| count) && jump))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	87 wrefresh(cw); /* Draw screen */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	88
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	89 take = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	90 after = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	91
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	92 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	93 * Read command or continue run
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	94 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	95
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	96 if (!no_command)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	97 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	98 if (fighting)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	99 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	100 ch = (fight_to_death) ? 'F' : 'f';
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	101 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	102 else if (running)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	103 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	104 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	105 * If in a corridor, if we are at a turn with
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	106 * only one way to go, turn that way.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	107 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	108
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	109 if ((winat(hero.y, hero.x) == PASSAGE) && off(player, ISHUH) &&
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	110 (off(player, ISBLIND)))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	111 switch (runch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	112 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	113 case 'h': corr_move(0, -1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	114 case 'j': corr_move(1, 0); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	115 case 'k': corr_move(-1, 0); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	116 case 'l': corr_move(0, 1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	117 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	118
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	119 ch = runch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	120 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	121 else if (count)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	122 ch = repcommand;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	123 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	124 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	125 ch = readchar();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	126
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	127 if (mpos != 0 && !running)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	128 msg(""); /* Erase message if its there */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	129 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	130 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	131 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	132 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	133 ch = '.';
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	134 fighting = moving = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	135 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	136
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	137 if (no_command)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	138 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	139 if (--no_command == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	140 msg("You can move again.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	141 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	142 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	143 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	144
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	145 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	146 * check for prefixes
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	147 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	148
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	149 if (isdigit(ch))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	150 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	151 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	152 while (isdigit(ch))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	153 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	154 count = count * 10 + (ch - '0');
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	155 ch = readcharw(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	156 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	157 repcommand = ch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	158
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	159 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	160 * Preserve count for commands which can be
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	161 * repeated.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	162 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	163
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	164 switch(ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	165 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	166 case 'h':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	167 case 'j':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	168 case 'k':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	169 case 'l':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	170 case 'y':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	171 case 'u':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	172 case 'b':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	173 case 'n':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	174 case 'H':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	175 case 'J':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	176 case 'K':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	177 case 'L':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	178 case 'Y':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	179 case 'U':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	180 case 'B':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	181 case 'N':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	182 case 'q':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	183 case 'r':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	184 case 's':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	185 case 'm':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	186 case 't':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	187 case 'C':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	188 case 'I':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	189 case '.':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	190 case 'z':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	191 case 'p':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	192 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	193 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	194 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	195 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	196 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	197
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	198 /* Save current direction */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	199
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	200 if (!running) /* If running, it is already saved */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	201 switch (ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	202 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	203 case 'h':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	204 case 'j':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	205 case 'k':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	206 case 'l':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	207 case 'y':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	208 case 'u':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	209 case 'b':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	210 case 'n':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	211 runch = ch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	212 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	213 case 'H':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	214 case 'J':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	215 case 'K':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	216 case 'L':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	217 case 'Y':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	218 case 'U':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	219 case 'B':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	220 case 'N':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	221 runch = (char) tolower(ch);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	222 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	223 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	224
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	225 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	226 * execute a command
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	227 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	228
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	229 if (count && !running)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	230 count--;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	231
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	232 switch(ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	233 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	234 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	235 * Movement and combat commands
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	236 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	237
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	238 case 'h': do_move(0,-1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	239 case 'j': do_move(1, 0); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	240 case 'k': do_move(-1, 0); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	241 case 'l': do_move(0, 1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	242 case 'y': do_move(-1, -1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	243 case 'u': do_move(-1, 1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	244 case 'b': do_move(1, -1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	245 case 'n': do_move(1, 1); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	246 case 'H': do_run('h'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	247 case 'J': do_run('j'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	248 case 'K': do_run('k'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	249 case 'L': do_run('l'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	250 case 'Y': do_run('y'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	251 case 'U': do_run('u'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	252 case 'B': do_run('b'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	253 case 'N': do_run('n'); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	254 case 'm':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	255 moving = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	256 if (!get_dir())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	257 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	258 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	259 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	260 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	261 do_move(delta.y, delta.x);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	262 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	263 case 'F':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	264 case 'f':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	265 fight_to_death = (ch == 'F');
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	266 if (!fighting)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	267 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	268 if (get_dir())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	269 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	270 dir = delta;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	271 beast = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	272 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	273 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	274 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	275 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	276 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	277 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	278 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	279 do_fight(dir, (ch == 'F') ? TRUE : FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	280 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	281 case 't':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	282 if (get_dir())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	283 missile(delta.y, delta.x, get_item("throw", 0),
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	284 &player);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	285 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	286 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	287
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	288 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	289 * Informational commands - Do not do
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	290 * after daemons
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	291 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	292 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	293
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	294 case 0x7f: /* sometime generated by */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	295 /* suspend/foreground */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	296 case ESCAPE:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	297 case ' ':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	298 after = FALSE; /* do nothing */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	299 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	300 case 'Q':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	301 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	302 quit();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	303 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	304 case 'i':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	305 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	306 inventory(pack, '*');
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	307 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	308 case 'I':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	309 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	310 inventory(pack, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	311 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	312 case '~':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	313 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	314 next_exp_level(MESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	315 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	316 case '>':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	317 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	318 d_level();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	319 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	320 case '<':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	321 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	322 u_level();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	323 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	324 case '?':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	325 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	326 help();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	327 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	328 case '/':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	329 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	330 identify();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	331 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	332 case 'v':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	333 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	334 msg("UltraRogue Version %s.", release);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	335 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	336 case 'o':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	337 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	338 option();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	339 strcpy(fd_data[1].mi_name, fruit);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	340 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	341 case 12: /* ctrl-l */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	342 case 18: /* ctrl-r */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	343 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	344 clearok(cw, TRUE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	345 wrefresh(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	346 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	347 case 16: /* ctrl-p */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	348 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	349 int decrement = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	350 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	351
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	352 if (mpos == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	353 decrement = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	354
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	355 msg_index = (msg_index + 9) % 10;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	356 msg(msgbuf[msg_index]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	357 if (decrement)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	358 msg_index = (msg_index + 9) % 10;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	359 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	360 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	361
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	362 case 'S':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	363 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	364 if (save_game())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	365 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	366 wclear(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	367 wrefresh(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	368 endwin();
267 911f0aa6e758 UltraRogue: flush output when exiting. John "Elwin" Edwards parents: 256 diff changeset	369 printf("\n");
256 c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	370 exit(0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	371 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	372 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	373
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	374 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	375 * Other misc commands
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	376 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	377
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	378 case '.': break; /* rest */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	379 case ',': add_pack(NULL, NOMESSAGE); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	380 case 'q': quaff(&player, -1, ISNORMAL); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	381 case 'r': read_scroll(&player, -1, ISNORMAL); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	382 case 'd': drop(NULL); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	383 case '^': set_trap(&player, hero.y, hero.x); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	384 case 'c': incant(&player, nullcoord); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	385 case 'D': dip_it(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	386 case 'e': eat(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	387 case '=': listen(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	388 case 'A': apply(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	389 case 'w': wield(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	390 case 'W': wear(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	391 case 'T': take_off(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	392 case 'P': ring_on(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	393 case 'R': ring_off(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	394 case 'p': prayer(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	395 case 'C': call(FALSE); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	396 case 'M': call(TRUE); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	397 case 's': search(FALSE); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	398
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	399 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	400 * Directional commands - get_dir sets delta
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	401 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	402 case 20: /* ctrl-t */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	403 if (get_dir())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	404 steal();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	405 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	406 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	407 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	408
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	409 case 'z':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	410 if (get_dir())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	411 do_zap(&player, -1, ISNORMAL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	412 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	413 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	414 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	415
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	416 case 'a':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	417 if (get_dir())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	418 affect();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	419 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	420 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	421 touchwin(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	422 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	423
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	424 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	425 * wizard commands
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	426 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	427
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	428 case 0x17: /* ctrl-w */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	429 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	430
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	431 if (!wizard)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	432 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	433 if (!canwizard)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	434 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	435 msg("Illegal command '^W'.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	436 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	437 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	438
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	439 if (passwd())
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	440 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	441 msg("Welcome, oh mighty wizard.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	442 wizard = waswizard = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	443 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	444 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	445 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	446 msg("Incorrect password.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	447 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	448 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	449 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	450
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	451 msg("Wizard command: ");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	452 mpos = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	453 ch = readchar();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	454
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	455 switch (ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	456 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	457 case 'v':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	458 wiz_verbose = !wiz_verbose;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	459 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	460
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	461 case 'e':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	462 wizard = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	463 msg("Not wizard any more.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	464 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	465
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	466 case 's': activity(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	467 case 't': teleport(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	468 case 'm': overlay(mw, cw); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	469 case 'f': overlay(stdscr, cw); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	470 case 'i': inventory(lvl_obj, 0); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	471 case 'c': buy_it('\0', ISNORMAL); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	472 case 'I': whatis(NULL); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	473 case 'F':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	474 msg("food left: %d\tfood level: %d",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	475 food_left,foodlev);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	476 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	477 case 'M':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	478 creat_mons(&player, get_monster_number("create"),
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	479 MESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	480 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	481
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	482 case 'r':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	483 msg("rnd(4)%d, rnd(40)%d, rnd(100)%d",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	484 rnd(4), rnd(40), rnd(100));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	485 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	486
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	487 case 'C':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	488 obj = get_object(pack, "charge", STICK, NULL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	489
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	490 if (obj != NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	491 obj->o_charges = 10000;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	492
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	493 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	494
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	495 case 'w':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	496 obj = get_object(pack, "price", 0, NULL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	497
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	498 if (obj != NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	499 msg("Worth %d.", get_worth(obj));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	500
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	501 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	502
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	503 case 'g':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	504 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	505 int tlev;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	506
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	507 prbuf[0] = '\0';
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	508 msg("Which level? ");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	509
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	510 if (get_string(prbuf, cw) == NORM)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	511 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	512 msg("");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	513
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	514 if ((tlev = atoi(prbuf)) < 1)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	515 msg("Illegal level.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	516 else if (tlev > 3000)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	517 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	518 levtype = THRONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	519 level = tlev - 3000;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	520 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	521 else if (tlev > 2000)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	522 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	523 levtype = MAZELEV;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	524 level = tlev - 2000;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	525 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	526 else if (tlev > 1000)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	527 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	528 levtype = POSTLEV;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	529 level = tlev - 1000;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	530 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	531 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	532 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	533 levtype = NORMLEV;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	534 level = tlev;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	535 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	536
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	537 new_level(levtype,0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	538 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	539 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	540 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	541
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	542 case 'o': make_omnipotent(); break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	543
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	544 case ESCAPE: /* Escape */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	545 door_stop = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	546
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	547 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	548 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	549 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	550
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	551 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	552 msg("Illegal wizard command '%s', %d.",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	553 unctrl(ch), ch);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	554 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	555 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	556
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	557 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	558
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	559 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	560
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	561 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	562 msg("Illegal command '%s', %d.",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	563 unctrl(ch), ch);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	564 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	565 after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	566 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	567 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	568
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	569 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	570 * turn off flags if no longer needed
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	571 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	572 if (!running)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	573 door_stop = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	574 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	575
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	576 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	577 * If he ran into something to take, let him pick it up.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	578 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	579 if (take != 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	580 if (!moving)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	581 pick_up(take);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	582 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	583 show_floor();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	584 if (!running)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	585 door_stop = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	586 } /* end while */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	587 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	588
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	589
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	590 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	591 do_after_effects(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	592 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	593 int i;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	594
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	595 /* Kick off the rest of the daemons and fuses */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	596
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	597 look(FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	598 do_daemons(AFTER);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	599 do_fuses(AFTER);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	600
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	601 /* Special abilities */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	602
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	603 if ((player.t_ctype == C_THIEF \|\| player.t_ctype == C_ASSASIN \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	604 player.t_ctype == C_NINJA \|\| player.t_ctype == C_RANGER) &&
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	605 (rnd(100) < (2 * pstats.s_dext + 5 * pstats.s_lvl)))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	606 search(TRUE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	607
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	608 for (i = 0; i < ring_value(R_SEARCH); i++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	609 search(FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	610
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	611 if (is_wearing(R_TELEPORT) && rnd(50) < 2)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	612 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	613 teleport();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	614
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	615 if (off(player, ISCLEAR))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	616 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	617 if (on(player, ISHUH))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	618 lengthen_fuse(FUSE_UNCONFUSE, rnd(8) + HUHDURATION);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	619 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	620 light_fuse(FUSE_UNCONFUSE, 0, rnd(8) + HUHDURATION, AFTER);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	621
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	622 turn_on(player, ISHUH);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	623 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	624 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	625 msg("You feel dizzy for a moment, but it quickly passes.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	626 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	627
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	628 /* accidents and general clumsiness */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	629
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	630 if (fighting && rnd(50) == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	631 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	632 msg("You become tired of this nonsense.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	633 fighting = after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	634 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	635
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	636 if (on(player, ISELECTRIC))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	637 electrificate();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	638
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	639 if (!fighting && (no_command == 0) && cur_weapon != NULL
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	640 && rnd(on(player, STUMBLER) ? 399 : 9999) == 0
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	641 && rnd(pstats.s_dext) <
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	642 2 - hitweight() + (on(player, STUMBLER) ? 4 : 0))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	643 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	644 msg("You trip and stumble over your weapon.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	645 running = after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	646
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	647 if (rnd(8) == 0 && (pstats.s_hpt -= roll(1, 10)) <= 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	648 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	649 msg("You break your neck and die.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	650 death(D_FALL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	651 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	652 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	653 else if (cur_weapon->o_flags & ISPOISON && rnd(4) == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	654 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	655 msg("You are cut by your %s!",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	656 inv_name(cur_weapon, LOWERCASE));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	657
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	658 if (player.t_ctype != C_PALADIN
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	659 && !(player.t_ctype == C_NINJA &&
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	660 pstats.s_lvl > 12)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	661 && !save(VS_POISON))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	662 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	663 if (pstats.s_hpt == 1)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	664 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	665 msg("You die from the poison in the cut.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	666 death(D_POISON);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	667 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	668 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	669 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	670 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	671 msg("You feel very sick now.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	672 pstats.s_hpt /= 2;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	673 chg_str(-2, FALSE, FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	674 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	675 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	676 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	677 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	678
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	679 /* Time to enforce weapon and armor restrictions */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	680 if (rnd(9999) == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	681 if (((cur_weapon == NULL) \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	682 (wield_ok(&player, cur_weapon, NOMESSAGE)))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	683 && ((cur_armor == NULL) \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	684 (wear_ok(&player, cur_armor, NOMESSAGE))))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	685 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	686 switch (player.t_ctype)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	687 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	688 case C_CLERIC:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	689 case C_DRUID:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	690 case C_RANGER:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	691 case C_PALADIN:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	692 if (rnd(luck) != 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	693 /* You better have done
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	694 * little wrong */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	695 goto bad_cleric;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	696
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	697 msg("You are enraptured by the renewed "
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	698 "power of your god.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	699 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	700
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	701 case C_MAGICIAN:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	702 case C_ILLUSION:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	703 msg("You become in tune with the universe.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	704 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	705
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	706 case C_THIEF:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	707 case C_NINJA:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	708 case C_ASSASIN:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	709 msg("You become supernaly sensitive to your "
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	710 "surroundings.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	711 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	712
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	713 case C_FIGHTER:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	714 msg("You catch your second wind.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	715 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	716
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	717 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	718 msg("What a strange type you are!");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	719 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	720 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	721 pstats.s_hpt = max_stats.s_hpt += rnd(pstats.s_lvl) + 1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	722 pstats.s_power = max_stats.s_power += rnd(pstats.s_lvl) + 1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	723 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	724 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	725 { /* he blew it - make him pay */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	726
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	727 int death_cause = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	728
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	729 switch (player.t_ctype)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	730 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	731 case C_CLERIC:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	732 case C_DRUID:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	733 case C_RANGER:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	734 case C_PALADIN:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	735 bad_cleric:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	736 msg("Your god scourges you for your misdeeds.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	737 death_cause = D_GODWRATH;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	738 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	739
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	740 case C_MAGICIAN:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	741 case C_ILLUSION:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	742 msg("You short out your manna on the unfamiliar %s.",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	743 (cur_armor != NULL ? "armor" : "weapon"));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	744
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	745 death_cause = D_SPELLFUMBLE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	746 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	747
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	748 case C_THIEF:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	749 case C_NINJA:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	750 case C_ASSASIN:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	751 msg("You trip and fall because of the unfamiliar %s.",
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	752 (cur_armor != NULL ? "armor" : "weapon"));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	753 death_cause = D_CLUMSY;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	754 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	755
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	756 case C_FIGHTER:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	757 debug("Fighter getting raw deal?");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	758 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	759
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	760 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	761 msg("What a strange type you are!");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	762 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	763 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	764
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	765 aggravate();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	766 pstats.s_power /= 2;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	767 pstats.s_hpt /= 2;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	768 player.t_no_move++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	769
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	770 if ((pstats.s_hpt -= rnd(pstats.s_lvl)) <= 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	771 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	772 death(death_cause);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	773 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	774 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	775
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	776 if (rnd(500000) == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	777 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	778 new_level(THRONE,0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	779 fighting = running = after = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	780 command();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	781 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	782 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	783
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	784 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	785 make_omnipotent(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	786 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	787 int i;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	788 struct linked_list *item;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	789 struct object *obj;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	790
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	791 for (i = 0; i < 20; i++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	792 raise_level();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	793
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	794 max_stats.s_hpt += 1000;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	795 max_stats.s_power += 1000;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	796 pstats.s_hpt = max_stats.s_hpt;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	797 pstats.s_power = max_stats.s_power;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	798 max_stats.s_str = pstats.s_str = 25;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	799 max_stats.s_intel = pstats.s_intel = 25;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	800 max_stats.s_wisdom = pstats.s_wisdom = 25;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	801 max_stats.s_dext = pstats.s_dext = 25;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	802 max_stats.s_const = pstats.s_const = 25;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	803
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	804 if (cur_weapon == NULL \|\| cur_weapon->o_which != CLAYMORE)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	805 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	806 item = spec_item(WEAPON, CLAYMORE, 10, 10);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	807 cur_weapon = OBJPTR(item);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	808 cur_weapon->o_flags \|= ISKNOW;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	809 add_pack(item, NOMESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	810 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	811
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	812 /* and a kill-o-zap stick */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	813
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	814 item = spec_item(STICK, WS_DISINTEGRATE, 10000, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	815 obj = OBJPTR(item);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	816 obj->o_flags \|= ISKNOW;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	817 know_items[TYP_STICK][WS_DISINTEGRATE] = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	818
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	819 if (guess_items[TYP_STICK][WS_DISINTEGRATE])
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	820 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	821 ur_free(guess_items[TYP_STICK][WS_DISINTEGRATE]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	822 guess_items[TYP_STICK][WS_DISINTEGRATE] = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	823 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	824
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	825 add_pack(item, NOMESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	826
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	827 /* and his suit of armor */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	828
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	829 if (cur_armor == NULL \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	830 !(cur_armor->o_which == CRYSTAL_ARMOR \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	831 cur_armor->o_which == MITHRIL))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	832 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	833 item = spec_item(ARMOR, CRYSTAL_ARMOR, 15, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	834 obj = OBJPTR(item);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	835 obj->o_flags \|= ISKNOW;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	836 obj->o_weight =
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	837 (int) (armors[CRYSTAL_ARMOR].a_wght * 0.2);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	838 cur_armor = obj;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	839 add_pack(item, NOMESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	840 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	841
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	842 /* and some rings (have to put them on, for now) */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	843
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	844
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	845 if (!is_wearing(R_SEARCH))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	846 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	847 item = spec_item(RING, R_SEARCH, 0, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	848 obj = OBJPTR(item);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	849 obj->o_flags \|= ISKNOW;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	850 know_items[TYP_RING][R_SEARCH] = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	851
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	852 if (guess_items[TYP_RING][R_SEARCH])
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	853 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	854 ur_free(guess_items[TYP_RING][R_SEARCH]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	855 guess_items[TYP_RING][R_SEARCH] = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	856 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	857
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	858 add_pack(item, NOMESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	859 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	860
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	861 if (!is_wearing(R_PIETY))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	862 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	863 item = spec_item(RING, R_PIETY, 0, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	864 obj = OBJPTR(item);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	865 obj->o_flags \|= ISKNOW;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	866 know_items[TYP_RING][R_PIETY] = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	867
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	868 if (guess_items[TYP_RING][R_PIETY])
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	869 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	870 ur_free(guess_items[TYP_RING][R_PIETY]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	871 guess_items[TYP_RING][R_PIETY] = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	872 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	873
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	874 add_pack(item, NOMESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	875 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	876
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	877 item = spec_item(SCROLL, S_ELECTRIFY, 0, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	878 obj = OBJPTR(item);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	879 obj->o_flags \|= ISKNOW;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	880 know_items[TYP_SCROLL][S_ELECTRIFY] = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	881
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	882 if (guess_items[TYP_SCROLL][S_ELECTRIFY])
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	883 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	884 ur_free(guess_items[TYP_SCROLL][S_ELECTRIFY]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	885 guess_items[TYP_SCROLL][S_ELECTRIFY] = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	886 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	887
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	888 add_pack(item, NOMESSAGE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	889
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	890 /* Spiff him up a bit */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	891 quaff(&player, P_SHERO, ISBLESSED);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	892 quaff(&player, P_CLEAR, ISBLESSED);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	893 quaff(&player, P_FIRERESIST, ISBLESSED);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	894 quaff(&player, P_TRUESEE, ISBLESSED);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	895 quaff(&player, P_PHASE, ISBLESSED);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	896 purse += 50000L;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	897 updpack();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	898 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	899
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	900
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	901 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	902 quit()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	903 Have player make certain, then exit.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	904 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	905
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	906 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	907 quit_handler(int sig)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	908 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	909 if (signal(SIGINT, quit_handler) != quit_handler)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	910 mpos = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	911
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	912 sig = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	913
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	914 quit();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	915 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	916
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	917 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	918 quit(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	919 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	920 msg("Really quit?");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	921
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	922 wrefresh(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	923
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	924 if (readchar() == 'y')
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	925 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	926 clear();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	927 wclear(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	928 wrefresh(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	929 move(LINES - 1, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	930 wrefresh(stdscr);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	931 score(pstats.s_exp, pstats.s_lvl, CHICKEN, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	932 byebye();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	933 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	934 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	935 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	936 signal(SIGINT, quit_handler);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	937 wmove(cw, 0, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	938 wclrtoeol(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	939 status(FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	940 wrefresh(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	941 mpos = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	942 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	943 fighting = running = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	944 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	945 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	946
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	947 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	948 search()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	949 Player gropes about him to find hidden things.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	950 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	951
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	952 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	953 search(int is_thief)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	954 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	955 int x, y;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	956 char ch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	957
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	958 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	959 * Look all around the hero, if there is something hidden there, give
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	960 * him a chance to find it. If its found, display it.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	961 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	962
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	963 if (on(player, ISBLIND))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	964 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	965
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	966 for (x = hero.x - 1; x <= hero.x + 1; x++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	967 for (y = hero.y - 1; y <= hero.y + 1; y++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	968 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	969 ch = winat(y, x);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	970
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	971 if (isatrap(ch))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	972 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	973 static char trname[1024]; /* temp scratch space */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	974 struct trap *tp;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	975 struct room *rp;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	976
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	977 if (isatrap( mvwinch(cw, y, x)))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	978 continue;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	979
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	980 tp = trap_at(y, x);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	981
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	982 if ((tp->tr_flags & ISTHIEFSET) \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	983 (rnd(100) > 50 && !is_thief))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	984 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	985
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	986 rp = roomin(hero);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	987
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	988 if (tp->tr_type == FIRETRAP && rp != NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	989 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	990 rp->r_flags &= ~ISDARK;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	991 light(&hero);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	992 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	993
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	994 tp->tr_flags \|= ISFOUND;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	995 mvwaddch(cw, y, x, ch);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	996 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	997 running = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	998 msg(tr_name(tp->tr_type,trname));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	999 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1000 else if (ch == SECRETDOOR)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1001 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1002 if (rnd(100) < 20 && !is_thief)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1003 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1004 mvaddch(y, x, DOOR);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1005 count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1006 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1007 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1008 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1009 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1010
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1011 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1012 help()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1013 Give single character help, or the whole mess if he wants it
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1014 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1015
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1016 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1017 help(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1018 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1019 const struct h_list *strp = helpstr;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1020 char helpch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1021 int cnt;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1022
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1023 msg("Character you want help for (* for all): ");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1024 helpch = readchar();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1025 mpos = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1026
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1027 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1028 * If its not a *, print the right help string or an error if he
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1029 * typed a funny character.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1030 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1031
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1032 if (helpch != '*')
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1033 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1034 wmove(cw, 0, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1035
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1036 while (strp->h_ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1037 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1038 if (strp->h_desc == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1039 if (!wizard)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1040 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1041 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1042 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1043 strp++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1044 continue;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1045 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1046
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1047 if (strp->h_ch == helpch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1048 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1049 msg("%s%s", unctrl(strp->h_ch), strp->h_desc);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1050 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1051 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1052 strp++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1053 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1054
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1055 if (strp->h_ch != helpch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1056 msg("Unknown character '%s'.", unctrl(helpch));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1057
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1058 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1059 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1060
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1061 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1062 * Here we print help for everything. Then wait before we return to
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1063 * command mode
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1064 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1065
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1066 wclear(hw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1067 cnt = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1068
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1069 while (strp->h_ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1070 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1071 if (strp->h_desc == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1072 if (!wizard)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1073 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1074 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1075 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1076 strp++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1077 continue;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1078 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1079
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1080 mvwaddstr(hw, cnt % 23, cnt > 22 ? 40 : 0, unctrl(strp->h_ch));
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1081 waddstr(hw, strp->h_desc);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1082 strp++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1083
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1084 if (++cnt >= 46 && strp->h_ch && (strp->h_desc != NULL \|\| wizard))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1085 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1086 wmove(hw, LINES - 1, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1087 wprintw(hw, (char *) morestr);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1088 wrefresh(hw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1089 wait_for(' ');
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1090 wclear(hw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1091 cnt = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1092 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1093 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1094
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1095 wmove(hw, LINES - 1, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1096 wprintw(hw, (char *) morestr);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1097 wrefresh(hw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1098 wait_for(' ');
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1099 wclear(hw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1100 wrefresh(hw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1101
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1102 wmove(cw, 0, 0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1103 wclrtoeol(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1104 status(FALSE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1105 touchwin(cw);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1106
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1107 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1108 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1109
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1110 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1111 identify()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1112 Tell the player what a certain thing is.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1113 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1114
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1115 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1116 identify(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1117 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1118 int ch;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1119 char *str;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1120
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1121 msg("What do you want identified? ");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1122 mpos = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1123
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1124 if ((ch = readchar()) == ESCAPE)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1125 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1126 msg("");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1127 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1128 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1129
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1130 if (isalpha(ch))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1131 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1132 id_monst(ch);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1133 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1134 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1135
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1136 switch (ch)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1137 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1138 case '\|':
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1139 case '-': str = "wall of a room"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1140 case GOLD: str = "gold"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1141 case STAIRS: str = "passage leading down"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1142 case DOOR: str = "door"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1143 case FLOOR: str = "room floor"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1144 case VPLAYER: str = "The hero of the game ---> you"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1145 case IPLAYER: str = "you (but invisible)"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1146 case PASSAGE: str = "passage"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1147 case POST: str = "trading post"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1148 case POOL: str = "a shimmering pool"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1149 case TRAPDOOR: str = "trapdoor"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1150 case ARROWTRAP: str = "arrow trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1151 case SLEEPTRAP: str = "sleeping gas trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1152 case BEARTRAP: str = "bear trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1153 case TELTRAP: str = "teleport trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1154 case DARTTRAP: str = "dart trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1155 case MAZETRAP: str = "entrance to a maze"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1156 case FIRETRAP: str = "fire trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1157 case POISONTRAP: str = "poison pool trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1158 case LAIR: str = "monster lair entrance"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1159 case RUSTTRAP: str = "rust trap"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1160 case POTION: str = "potion"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1161 case SCROLL: str = "scroll"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1162 case FOOD: str = "food"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1163 case WEAPON: str = "weapon"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1164 case ' ': str = "solid rock"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1165 case ARMOR: str = "armor"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1166 case ARTIFACT: str = "an artifact from bygone ages"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1167 case RING: str = "ring"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1168 case STICK: str = "wand or staff"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1169 default: str = "unknown character"; break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1170 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1171 msg("'%s'; %s", unctrl(ch), str);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1172 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1173
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1174 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1175 d_level()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1176 He wants to go down a level
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1177 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1178
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1179 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1180 d_level(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1181 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1182 int no_phase = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1183
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1184 if (mvinch(hero.y, hero.x) != STAIRS)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1185 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1186 if (off(player, CANINWALL)) /* Must use stairs if can't phase */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1187 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1188 msg("I see no way down.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1189 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1190 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1191
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1192 extinguish_fuse(FUSE_UNPHASE);/Using phase to go down gets rid of it/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1193 no_phase = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1194 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1195
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1196 if (is_wearing(R_LEVITATION) \|\| on(player, CANFLY))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1197 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1198 msg("You can't! You're floating in the air.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1199 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1200 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1201
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1202 if (rnd(pstats.s_dext) < 3 * (2 - hitweight() +
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1203 (on(player, STUMBLER) ? 4 : 0)))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1204 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1205 msg("You trip and fall down the stairs.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1206
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1207 if ((pstats.s_hpt -= roll(1, 10)) <= 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1208 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1209 msg("You break your neck and die.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1210 death(D_FALL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1211 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1212 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1213 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1214
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1215 level++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1216 new_level(NORMLEV,0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1217
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1218 if (no_phase)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1219 unphase(NULL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1220
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1221 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1222 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1223
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1224 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1225 u_level()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1226 He wants to go up a level
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1227 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1228
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1229 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1230 u_level(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1231 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1232 char ch = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1233
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1234 if (has_artifact && ((ch = CCHAR(mvinch(hero.y, hero.x))) == STAIRS \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1235 (on(player, CANINWALL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1236 && (is_wearing(R_LEVITATION) \|\| on(player, CANFLY)))))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1237 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1238 if (--level == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1239 total_winner();
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1240 else if (rnd(wizard ? 3 : 15) == 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1241 new_level(THRONE,0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1242 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1243 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1244 new_level(NORMLEV,0);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1245 msg("You feel a wrenching sensation in your gut.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1246 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1247
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1248 if (on(player, CANINWALL) && ch != STAIRS)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1249 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1250 extinguish_fuse(FUSE_UNPHASE);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1251 unphase(NULL);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1252 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1253
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1254 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1255 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1256 else if (ch != STAIRS &&
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1257 !(on(player, CANINWALL) && (is_wearing(R_LEVITATION)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1258 \|\| on(player, CANFLY))))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1259 msg("I see no way up.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1260 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1261 msg("Your way is magically blocked.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1262
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1263 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1264 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1265
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1266 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1267 call()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1268 allow a user to call a potion, scroll, or ring something
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1269 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1270
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1271 void
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1272 call(int mark)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1273 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1274 struct object *obj;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1275 char *elsewise;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1276 int item_type = numthings;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1277 char **item_color = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1278
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1279 if (mark)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1280 obj = get_object(pack, "mark", 0, bff_markable);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1281 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1282 obj = get_object(pack, "call", 0, bff_callable);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1283
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1284 if (obj == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1285 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1286
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1287 switch (obj->o_type)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1288 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1289 case RING:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1290 item_type = TYP_RING;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1291 item_color = r_stones;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1292 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1293 case POTION:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1294 item_type = TYP_POTION;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1295 item_color = p_colors;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1296 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1297 case SCROLL:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1298 item_type = TYP_SCROLL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1299 item_color = s_names;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1300 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1301 case STICK:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1302 item_type = TYP_STICK;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1303 item_color = ws_made;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1304 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1305 if (!mark)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1306 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1307 msg("You can't call that anything.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1308 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1309 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1310 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1311 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1312
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1313 elsewise = (guess_items[item_type][obj->o_which] != NULL ?
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1314 guess_items[item_type][obj->o_which] : item_color[obj->o_which]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1315
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1316 if (know_items[item_type][obj->o_which] && !mark)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1317 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1318 msg("That has already been identified.");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1319 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1320 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1321
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1322 if (mark)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1323 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1324 if (obj->o_mark[0])
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1325 msg("Was marked \"%s\".", obj->o_mark);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1326
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1327 msg("What do you want to mark it? ");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1328 prbuf[0] = '\0';
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1329 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1330 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1331 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1332 msg("Was called \"%s\".", elsewise);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1333 msg("What do you want to call it? ");
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1334
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1335 if (guess_items[item_type][obj->o_which] != NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1336 ur_free(guess_items[item_type][obj->o_which]);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1337
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1338 strcpy(prbuf, elsewise);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1339 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1340
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1341 if (get_string(prbuf, cw) == NORM)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1342 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1343 if (mark)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1344 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1345 strncpy(obj->o_mark, prbuf, MARKLEN - 1);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1346 obj->o_mark[MARKLEN - 1] = '\0';
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1347 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1348 else
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1349 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1350 guess_items[item_type][obj->o_which] = new_alloc(strlen(prbuf) + 1);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1351 strcpy(guess_items[item_type][obj->o_which], prbuf);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1352 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1353 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1354
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1355 return;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1356 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1357
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1358 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1359 att_bonus()
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1360 bonus attacks for certain player classes
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1361 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1362
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1363 int
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1364 att_bonus(void)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1365 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1366 int bonus = FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1367
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1368 if ((player.t_ctype == C_FIGHTER \|\| player.t_ctype == C_PALADIN)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1369 && (pstats.s_lvl > 12 \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1370 (pstats.s_lvl > 6 && pstats.s_lvl < 13 && rnd(2))))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1371 bonus = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1372
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1373 else if ((player.t_ctype == C_RANGER)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1374 && (pstats.s_lvl > 14 \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1375 (pstats.s_lvl > 7 && pstats.s_lvl < 15 && rnd(2))))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1376 bonus = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1377
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1378 else if ((player.t_ctype == C_NINJA)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1379 && (pstats.s_lvl > 8 \|\|
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1380 (pstats.s_lvl > 4 && pstats.s_lvl < 9 && rnd(2))))
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1381 bonus = TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1382
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1383 return(bonus);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1384 }

Mercurial > hg > early-roguelike

annotate urogue/command.c @ 267:911f0aa6e758