Mercurial > hg > early-roguelike

comparison arogue5/wizard.c @ 63:0ed67132cf10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Advanced Rogue 5.8 from the Roguelike Restoration Project (r1490)
author elwin
date Thu, 09 Aug 2012 22:58:48 +0000
parents
children c49f7927b0fa
comparison
equal deleted inserted replaced
62:0ef99244acb8 63:0ed67132cf10
1 /*
2 * Special wizard commands (some of which are also non-wizard commands
3 * under strange circumstances)
4 *
5 * Advanced Rogue
6 * Copyright (C) 1984, 1985 Michael Morgan, Ken Dalka and AT&T
7 * All rights reserved.
8 *
9 * Based on "Rogue: Exploring the Dungeons of Doom"
10 * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
11 * All rights reserved.
12 *
13 * See the file LICENSE.TXT for full copyright and licensing information.
14 */
15
16 #include "curses.h"
17 #include <ctype.h>
18 #include "rogue.h"
19
20
21 /*
22 * create_obj:
23 * Create any object for wizard, scroll, magician, or cleric
24 */
25 create_obj(prompt, which_item, which_type)
26 bool prompt;
27 int which_item, which_type;
28 {
29 reg struct linked_list *item;
30 reg struct object *obj;
31 reg int wh;
32 reg char ch, newitem, newtype = 0, whc, msz, *pt;
33 WINDOW *thiswin;
34
35 thiswin = cw;
36 if (prompt) {
37 bool nogood = TRUE;
38
39 thiswin = hw;
40 wclear(hw);
41 wprintw(hw,"Item\t\t\tKey\n\n");
42 wprintw(hw,"%s\t\t\t%c\n%s\t\t\t%c\n",things[TYP_RING].mi_name,RING,
43 things[TYP_STICK].mi_name,STICK);
44 wprintw(hw,"%s\t\t\t%c\n%s\t\t\t%c\n",things[TYP_POTION].mi_name,POTION,
45 things[TYP_SCROLL].mi_name,SCROLL);
46 wprintw(hw,"%s\t\t\t%c\n%s\t\t\t%c\n",things[TYP_ARMOR].mi_name,ARMOR,
47 things[TYP_WEAPON].mi_name,WEAPON);
48 wprintw(hw,"%s\t%c\n",things[TYP_MM].mi_name,MM);
49 wprintw(hw,"%s\t\t\t%c\n",things[TYP_FOOD].mi_name,FOOD);
50 if (wizard) {
51 wprintw(hw,"%s\t\t%c\n",things[TYP_RELIC].mi_name,RELIC);
52 waddstr(hw,"monster\t\t\tm");
53 }
54 wprintw(hw,"\n\nWhat do you want to create? ");
55 draw(hw);
56 do {
57 ch = wgetch(hw);
58 if (ch == ESCAPE) {
59 restscr(cw);
60 return;
61 }
62 switch (ch) {
63 case RING:
64 case STICK:
65 case POTION:
66 case SCROLL:
67 case ARMOR:
68 case WEAPON:
69 case FOOD:
70 case MM:
71 nogood = FALSE;
72 break;
73 case RELIC:
74 case 'm':
75 if (wizard)
76 nogood = FALSE;
77 break;
78 default:
79 nogood = TRUE;
80 }
81 } while (nogood);
82 newitem = ch;
83 }
84 else
85 newitem = which_item;
86
87 pt = "those";
88 msz = 0;
89 if(newitem == 'm') {
90 makemonster(TRUE); /* make monster and be done with it */
91 return;
92 }
93 if(newitem == GOLD)
94 pt = "gold";
95 /* else if(isatrap(newitem))
96 pt = "traps";
97 */
98 switch(newitem) {
99 case POTION: whc = TYP_POTION; msz = MAXPOTIONS;
100 when SCROLL: whc = TYP_SCROLL; msz = MAXSCROLLS;
101 when WEAPON: whc = TYP_WEAPON; msz = MAXWEAPONS;
102 when ARMOR: whc = TYP_ARMOR; msz = MAXARMORS;
103 when RING: whc = TYP_RING; msz = MAXRINGS;
104 when STICK: whc = TYP_STICK; msz = MAXSTICKS;
105 when MM: whc = TYP_MM; msz = MAXMM;
106 when RELIC: whc = TYP_RELIC; msz = MAXRELIC;
107 when FOOD:
108 whc = TYP_FOOD;
109 msz = MAXFOODS;
110 if (thiswin == hw)
111 restscr(cw);
112 mpos = 0;
113 otherwise:
114 if (thiswin == hw)
115 restscr(cw);
116 mpos = 0;
117 msg("Even wizards can't create %s !!",pt);
118 return;
119 }
120 if(msz == 1) { /* if only one type of item */
121 ch = 'a';
122 }
123 else if (prompt) {
124 register struct magic_item *wmi;
125 char wmn;
126 register int ii;
127 int old_prob;
128
129 mpos = 0;
130 wmi = NULL;
131 wmn = 0;
132 switch(newitem) {
133 case POTION: wmi = &p_magic[0];
134 when SCROLL: wmi = &s_magic[0];
135 when RING: wmi = &r_magic[0];
136 when STICK: wmi = &ws_magic[0];
137 when MM: wmi = &m_magic[0];
138 when RELIC: wmi = &rel_magic[0];
139 when WEAPON: wmn = 1;
140 when ARMOR: wmn = 2;
141 }
142 wclear(hw);
143 thiswin = hw;
144 if (wmi != NULL) {
145 ii = old_prob = 0;
146 while (ii < msz) {
147 if(wmi->mi_prob == old_prob && wizard == FALSE) {
148 msz--; /* can't make a unique item */
149 }
150 else {
151 mvwaddch(hw,ii % 13,ii > 12 ? COLS/2 : 0, ii + 'a');
152 waddstr(hw,") ");
153 waddstr(hw,wmi->mi_name);
154 ii++;
155 }
156 old_prob = wmi->mi_prob;
157 wmi++;
158 }
159 }
160 else if (wmn != 0) {
161 for(ii = 0 ; ii < msz ; ii++) {
162 mvwaddch(hw,ii % 13,ii > 12 ? COLS/2 : 0, ii + 'a');
163 waddstr(hw,") ");
164 if(wmn == 1)
165 waddstr(hw,weaps[ii].w_name);
166 else
167 waddstr(hw,armors[ii].a_name);
168 }
169 }
170 sprintf(prbuf,"Which %s? ",things[whc].mi_name);
171 mvwaddstr(hw,LINES - 1, 0, prbuf);
172 draw(hw);
173 do {
174 ch = wgetch(hw);
175 if (ch == ESCAPE) {
176 restscr(cw);
177 msg("");
178 return;
179 }
180 } until (isalpha(ch));
181 if (thiswin == hw) /* restore screen if need be */
182 restscr(cw);
183 newtype = tolower(ch) - 'a';
184 if(newtype < 0 || newtype >= msz) { /* if an illegal value */
185 mpos = 0;
186 msg("There is no such %s",things[whc].mi_name);
187 return;
188 }
189 }
190 else
191 newtype = which_type;
192 item = new_item(sizeof *obj); /* get some memory */
193 obj = OBJPTR(item);
194 obj->o_type = newitem; /* store the new items */
195 obj->o_mark[0] = '\0';
196 obj->o_which = newtype;
197 obj->o_group = 0;
198 obj->contents = NULL;
199 obj->o_count = 1;
200 obj->o_flags = 0;
201 obj->o_dplus = obj->o_hplus = 0;
202 obj->o_weight = 0;
203 wh = obj->o_which;
204 mpos = 0;
205 if (!wizard) /* users get 0 to +3 */
206 whc = rnd(4);
207 else /* wizard gets to choose */
208 whc = getbless();
209 if (whc < 0)
210 obj->o_flags |= ISCURSED;
211 switch (obj->o_type) {
212 case WEAPON:
213 case ARMOR:
214 if (obj->o_type == WEAPON) {
215 init_weapon(obj, wh);
216 obj->o_hplus += whc;
217 obj->o_dplus += whc;
218 }
219 else { /* armor here */
220 obj->o_weight = armors[wh].a_wght;
221 obj->o_ac = armors[wh].a_class - whc;
222 }
223 when RING:
224 if (whc > 1 && r_magic[wh].mi_bless != 0)
225 obj->o_flags |= ISBLESSED;
226 r_know[wh] = TRUE;
227 switch(wh) {
228 case R_ADDSTR:
229 case R_ADDWISDOM:
230 case R_ADDINTEL:
231 case R_PROTECT:
232 case R_ADDHIT:
233 case R_ADDDAM:
234 case R_DIGEST:
235 obj->o_ac = whc + 1;
236 break;
237 default:
238 obj->o_ac = 0;
239 }
240 obj->o_weight = things[TYP_RING].mi_wght;
241 when MM:
242 if (whc > 1 && m_magic[wh].mi_bless != 0)
243 obj->o_flags |= ISBLESSED;
244 m_know[wh] = TRUE;
245 switch(wh) {
246 case MM_JUG:
247 switch(rnd(9)) {
248 case 0: obj->o_ac = P_PHASE;
249 when 1: obj->o_ac = P_CLEAR;
250 when 2: obj->o_ac = P_SEEINVIS;
251 when 3: obj->o_ac = P_HEALING;
252 when 4: obj->o_ac = P_MFIND;
253 when 5: obj->o_ac = P_TFIND;
254 when 6: obj->o_ac = P_HASTE;
255 when 7: obj->o_ac = P_RESTORE;
256 when 8: obj->o_ac = P_FLY;
257 }
258 when MM_OPEN:
259 case MM_HUNGER:
260 case MM_DRUMS:
261 case MM_DISAPPEAR:
262 case MM_CHOKE:
263 case MM_KEOGHTOM:
264 if (whc < 0)
265 whc = -whc; /* these cannot be negative */
266 obj->o_ac = (whc + 1) * 5;
267 break;
268 when MM_BRACERS:
269 obj->o_ac = whc * 2 + 1;
270 when MM_DISP:
271 obj->o_ac = 2;
272 when MM_PROTECT:
273 obj->o_ac = whc;
274 when MM_SKILLS:
275 if (wizard && whc != 0)
276 obj->o_ac = rnd(4);
277 else
278 obj->o_ac = player.t_ctype;
279 otherwise:
280 obj->o_ac = 0;
281 }
282 obj->o_weight = things[TYP_MM].mi_wght;
283 when STICK:
284 if (whc > 1 && ws_magic[wh].mi_bless != 0)
285 obj->o_flags |= ISBLESSED;
286 ws_know[wh] = TRUE;
287 fix_stick(obj);
288 when SCROLL:
289 if (whc > 1 && s_magic[wh].mi_bless != 0)
290 obj->o_flags |= ISBLESSED;
291 obj->o_weight = things[TYP_SCROLL].mi_wght;
292 s_know[wh] = TRUE;
293 when POTION:
294 if (whc > 1 && p_magic[wh].mi_bless != 0)
295 obj->o_flags |= ISBLESSED;
296 obj->o_weight = things[TYP_POTION].mi_wght;
297 p_know[wh] = TRUE;
298 when RELIC:
299 obj->o_weight = things[TYP_RELIC].mi_wght;
300 }
301 mpos = 0;
302 obj->o_flags |= ISKNOW;
303 if (add_pack(item, FALSE, NULL) == FALSE) {
304 obj->o_pos = hero;
305 fall(item, TRUE);
306 }
307 }
308
309 /*
310 * getbless:
311 * Get a blessing for a wizards object
312 */
313 getbless()
314 {
315 reg char bless;
316
317 msg("Blessing? (+,-,n)");
318 bless = readchar();
319 if (bless == '+')
320 return (rnd(3) + 2);
321 else if (bless == '-')
322 return (-rnd(3) - 1);
323 else
324 return (0);
325 }
326
327 /*
328 * get a non-monster death type
329 */
330 getdeath()
331 {
332 register int i;
333 int which_death;
334 char label[80];
335
336 clear();
337 for (i=0; i<DEATHNUM; i++) {
338 sprintf(label, "[%d] %s", i+1, deaths[i].name);
339 mvaddstr(i+2, 0, label);
340 }
341 mvaddstr(0, 0, "Which death? ");
342 refresh();
343
344 /* Get the death */
345 for (;;) {
346 get_str(label, stdscr);
347 which_death = atoi(label);
348 if ((which_death < 1 || which_death > DEATHNUM)) {
349 mvaddstr(0, 0, "Please enter a number in the displayed range -- ");
350 refresh();
351 }
352 else break;
353 }
354 return(deaths[which_death-1].reason);
355 }
356
357 /*
358 * make a monster for the wizard
359 */
360 makemonster(create)
361 bool create;
362 {
363 register int i;
364 register short which_monst;
365 register int num_monst = NUMMONST, pres_monst=1, num_lines=2*(LINES-3);
366 char monst_name[40];
367
368 /* Print out the monsters */
369 while (num_monst > 0) {
370 register left_limit;
371
372 if (num_monst < num_lines) left_limit = (num_monst+1)/2;
373 else left_limit = num_lines/2;
374
375 wclear(hw);
376 touchwin(hw);
377
378 /* Print left column */
379 wmove(hw, 2, 0);