Generally use NULL instead of explicitly casting 0 to some pointer type (part2).
[dragonfly.git] / games / hack / hack.read.c
CommitLineData
984263bc
MD
1/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2/* hack.read.c - version 1.0.3 */
3/* $FreeBSD: src/games/hack/hack.read.c,v 1.6 1999/11/16 10:26:37 marcel Exp $ */
c7106d58 4/* $DragonFly: src/games/hack/hack.read.c,v 1.4 2006/08/21 19:45:32 pavalos Exp $ */
984263bc
MD
5
6#include "hack.h"
7
c7106d58 8static bool monstersym(char);
984263bc 9
c7106d58
PA
10int
11doread(void)
12{
984263bc
MD
13 struct obj *scroll;
14 boolean confused = (Confusion != 0);
15 boolean known = FALSE;
984263bc
MD
16
17 scroll = getobj("?", "read");
18 if(!scroll) return(0);
19 if(!scroll->dknown && Blind) {
20 pline("Being blind, you cannot read the formula on the scroll.");
21 return(0);
22 }
23 if(Blind)
24 pline("As you pronounce the formula on it, the scroll disappears.");
25 else
26 pline("As you read the scroll, it disappears.");
27 if(confused)
28 pline("Being confused, you mispronounce the magic words ... ");
29
30 switch(scroll->otyp) {
31#ifdef MAIL
32 case SCR_MAIL:
33 readmail(/* scroll */);
34 break;
304d60d9 35#endif /* MAIL */
984263bc
MD
36 case SCR_ENCHANT_ARMOR:
37 { struct obj *otmp = some_armor();
38 if(!otmp) {
39 strange_feeling(scroll,"Your skin glows then fades.");
40 return(1);
41 }
42 if(confused) {
43 pline("Your %s glows silver for a moment.",
44 objects[otmp->otyp].oc_name);
45 otmp->rustfree = 1;
46 break;
47 }
48 if(otmp->spe > 3 && rn2(otmp->spe)) {
49 pline("Your %s glows violently green for a while, then evaporates.",
50 objects[otmp->otyp].oc_name);
51 useup(otmp);
52 break;
53 }
54 pline("Your %s glows green for a moment.",
55 objects[otmp->otyp].oc_name);
56 otmp->cursed = 0;
57 otmp->spe++;
58 break;
59 }
60 case SCR_DESTROY_ARMOR:
61 if(confused) {
62 struct obj *otmp = some_armor();
63 if(!otmp) {
64 strange_feeling(scroll,"Your bones itch.");
65 return(1);
66 }
67 pline("Your %s glows purple for a moment.",
68 objects[otmp->otyp].oc_name);
69 otmp->rustfree = 0;
70 break;
71 }
72 if(uarm) {
73 pline("Your armor turns to dust and falls to the floor!");
74 useup(uarm);
75 } else if(uarmh) {
76 pline("Your helmet turns to dust and is blown away!");
77 useup(uarmh);
78 } else if(uarmg) {
79 pline("Your gloves vanish!");
80 useup(uarmg);
81 selftouch("You");
82 } else {
83 strange_feeling(scroll,"Your skin itches.");
84 return(1);
85 }
86 break;
87 case SCR_CONFUSE_MONSTER:
88 if(confused) {
89 pline("Your hands begin to glow purple.");
90 Confusion += rnd(100);
91 } else {
92 pline("Your hands begin to glow blue.");
93 u.umconf = 1;
94 }
95 break;
96 case SCR_SCARE_MONSTER:
97 { int ct = 0;
98 struct monst *mtmp;
99
100 for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
101 if(cansee(mtmp->mx,mtmp->my)) {
102 if(confused)
103 mtmp->mflee = mtmp->mfroz =
104 mtmp->msleep = 0;
105 else
106 mtmp->mflee = 1;
107 ct++;
108 }
109 if(!ct) {
110 if(confused)
111 pline("You hear sad wailing in the distance.");
112 else
113 pline("You hear maniacal laughter in the distance.");
114 }
115 break;
116 }
117 case SCR_BLANK_PAPER:
118 if(confused)
119 pline("You see strange patterns on this scroll.");
120 else
121 pline("This scroll seems to be blank.");
122 break;
123 case SCR_REMOVE_CURSE:
124 { struct obj *obj;
125 if(confused)
126 pline("You feel like you need some help.");
127 else
128 pline("You feel like someone is helping you.");
129 for(obj = invent; obj ; obj = obj->nobj)
130 if(obj->owornmask)
131 obj->cursed = confused;
132 if(Punished && !confused) {
133 Punished = 0;
134 freeobj(uchain);
135 unpobj(uchain);
136 free((char *) uchain);
137 uball->spe = 0;
138 uball->owornmask &= ~W_BALL;
902ec341 139 uchain = uball = NULL;
984263bc
MD
140 }
141 break;
142 }
143 case SCR_CREATE_MONSTER:
144 { int cnt = 1;
145
146 if(!rn2(73)) cnt += rnd(4);
147 if(confused) cnt += 12;
148 while(cnt--)
c7106d58 149 makemon(confused ? PM_ACID_BLOB :
902ec341 150 NULL, u.ux, u.uy);
984263bc
MD
151 break;
152 }
153 case SCR_ENCHANT_WEAPON:
154 if(uwep && confused) {
155 pline("Your %s glows silver for a moment.",
156 objects[uwep->otyp].oc_name);
157 uwep->rustfree = 1;
158 } else
159 if(!chwepon(scroll, 1)) /* tests for !uwep */
160 return(1);
161 break;
162 case SCR_DAMAGE_WEAPON:
163 if(uwep && confused) {
164 pline("Your %s glows purple for a moment.",
165 objects[uwep->otyp].oc_name);
166 uwep->rustfree = 0;
167 } else
168 if(!chwepon(scroll, -1)) /* tests for !uwep */
169 return(1);
170 break;
171 case SCR_TAMING:
172 { int i,j;
173 int bd = confused ? 5 : 1;
174 struct monst *mtmp;
175
176 for(i = -bd; i <= bd; i++) for(j = -bd; j <= bd; j++)
c7106d58 177 if((mtmp = m_at(u.ux+i, u.uy+j)))
902ec341 178 tamedog(mtmp, NULL);
984263bc
MD
179 break;
180 }
181 case SCR_GENOCIDE:
c7106d58 182 {
984263bc
MD
183 char buf[BUFSZ];
184 struct monst *mtmp, *mtmp2;
185
186 pline("You have found a scroll of genocide!");
187 known = TRUE;
188 if(confused)
189 *buf = u.usym;
190 else do {
191 pline("What monster do you want to genocide (Type the letter)? ");
192 getlin(buf);
193 } while(strlen(buf) != 1 || !monstersym(*buf));
194 if(!index(fut_geno, *buf))
195 charcat(fut_geno, *buf);
196 if(!index(genocided, *buf))
197 charcat(genocided, *buf);
198 else {
199 pline("Such monsters do not exist in this world.");
200 break;
201 }
202 for(mtmp = fmon; mtmp; mtmp = mtmp2){
203 mtmp2 = mtmp->nmon;
204 if(mtmp->data->mlet == *buf)
205 mondead(mtmp);
206 }
207 pline("Wiped out all %c's.", *buf);
208 if(*buf == u.usym) {
209 killer = "scroll of genocide";
210 u.uhp = -1;
211 }
212 break;
213 }
214 case SCR_LIGHT:
215 if(!Blind) known = TRUE;
216 litroom(!confused);
217 break;
218 case SCR_TELEPORTATION:
219 if(confused)
220 level_tele();
221 else {
222#ifdef QUEST
223 int oux = u.ux, ouy = u.uy;
224 tele();
225 if(dist(oux, ouy) > 100) known = TRUE;
304d60d9 226#else /* QUEST */
984263bc
MD
227 int uroom = inroom(u.ux, u.uy);
228 tele();
229 if(uroom != inroom(u.ux, u.uy)) known = TRUE;
304d60d9 230#endif /* QUEST */
984263bc
MD
231 }
232 break;
233 case SCR_GOLD_DETECTION:
234 /* Unfortunately this code has become slightly less elegant,
235 now that gold and traps no longer are of the same type. */
236 if(confused) {
237 struct trap *ttmp;
238
239 if(!ftrap) {
240 strange_feeling(scroll, "Your toes stop itching.");
241 return(1);
242 } else {
243 for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
244 if(ttmp->tx != u.ux || ttmp->ty != u.uy)
245 goto outtrapmap;
246 /* only under me - no separate display required */
247 pline("Your toes itch!");
248 break;
249 outtrapmap:
250 cls();
251 for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
252 at(ttmp->tx, ttmp->ty, '$');
253 prme();
254 pline("You feel very greedy!");
255 }
256 } else {
257 struct gold *gtmp;
258
259 if(!fgold) {
260 strange_feeling(scroll, "You feel materially poor.");
261 return(1);
262 } else {
263 known = TRUE;
264 for(gtmp = fgold; gtmp; gtmp = gtmp->ngold)
265 if(gtmp->gx != u.ux || gtmp->gy != u.uy)
266 goto outgoldmap;
267 /* only under me - no separate display required */
268 pline("You notice some gold between your feet.");
269 break;
270 outgoldmap:
271 cls();
272 for(gtmp = fgold; gtmp; gtmp = gtmp->ngold)
273 at(gtmp->gx, gtmp->gy, '$');
274 prme();
275 pline("You feel very greedy, and sense gold!");
276 }
277 }
278 /* common sequel */
279 more();
280 docrt();
281 break;
282 case SCR_FOOD_DETECTION:
283 { int ct = 0, ctu = 0;
284 struct obj *obj;
285 char foodsym = confused ? POTION_SYM : FOOD_SYM;
286
287 for(obj = fobj; obj; obj = obj->nobj)
288 if(obj->olet == FOOD_SYM) {
289 if(obj->ox == u.ux && obj->oy == u.uy) ctu++;
290 else ct++;
291 }
292 if(!ct && !ctu) {
293 strange_feeling(scroll,"Your nose twitches.");
294 return(1);
295 } else if(!ct) {
296 known = TRUE;
297 pline("You smell %s close nearby.",
298 confused ? "something" : "food");
299
300 } else {
301 known = TRUE;
302 cls();
303 for(obj = fobj; obj; obj = obj->nobj)
304 if(obj->olet == foodsym)
305 at(obj->ox, obj->oy, FOOD_SYM);
306 prme();
307 pline("Your nose tingles and you smell %s!",
308 confused ? "something" : "food");
309 more();
310 docrt();
311 }
312 break;
313 }
314 case SCR_IDENTIFY:
315 /* known = TRUE; */
316 if(confused)
317 pline("You identify this as an identify scroll.");
318 else
319 pline("This is an identify scroll.");
320 useup(scroll);
321 objects[SCR_IDENTIFY].oc_name_known = 1;
322 if(!confused)
323 while(
324 !ggetobj("identify", identify, rn2(5) ? 1 : rn2(5))
325 && invent
326 );
327 return(1);
328 case SCR_MAGIC_MAPPING:
329 { struct rm *lev;
330 int num, zx, zy;
331
332 known = TRUE;
333 pline("On this scroll %s a map!",
334 confused ? "was" : "is");
335 for(zy = 0; zy < ROWNO; zy++)
336 for(zx = 0; zx < COLNO; zx++) {
337 if(confused && rn2(7)) continue;
338 lev = &(levl[zx][zy]);
339 if((num = lev->typ) == 0)
340 continue;
341 if(num == SCORR) {
342 lev->typ = CORR;
343 lev->scrsym = CORR_SYM;
344 } else
345 if(num == SDOOR) {
346 lev->typ = DOOR;
347 lev->scrsym = '+';
348 /* do sth in doors ? */
349 } else if(lev->seen) continue;
350#ifndef QUEST
351 if(num != ROOM)
304d60d9 352#endif /* QUEST */
984263bc
MD
353 {
354 lev->seen = lev->new = 1;
355 if(lev->scrsym == ' ' || !lev->scrsym)
356 newsym(zx,zy);
357 else
358 on_scr(zx,zy);
359 }
360 }
361 break;
362 }
363 case SCR_AMNESIA:
364 { int zx, zy;
365
366 known = TRUE;
367 for(zx = 0; zx < COLNO; zx++) for(zy = 0; zy < ROWNO; zy++)
368 if(!confused || rn2(7))
369 if(!cansee(zx,zy))
370 levl[zx][zy].seen = 0;
371 docrt();
372 pline("Thinking of Maud you forget everything else.");
373 break;
374 }
375 case SCR_FIRE:
c7106d58 376 { int num = 0;
984263bc
MD
377 struct monst *mtmp;
378
379 known = TRUE;
380 if(confused) {
381 pline("The scroll catches fire and you burn your hands.");
382 losehp(1, "scroll of fire");
383 } else {
384 pline("The scroll erupts in a tower of flame!");
385 if(Fire_resistance)
386 pline("You are uninjured.");
387 else {
388 num = rnd(6);
389 u.uhpmax -= num;
390 losehp(num, "scroll of fire");
391 }
392 }
393 num = (2*num + 1)/3;
394 for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
395 if(dist(mtmp->mx,mtmp->my) < 3) {
396 mtmp->mhp -= num;
397 if(index("FY", mtmp->data->mlet))
398 mtmp->mhp -= 3*num; /* this might well kill 'F's */
399 if(mtmp->mhp < 1) {
400 killed(mtmp);
401 break; /* primitive */
402 }
403 }
404 }
405 break;
406 }
407 case SCR_PUNISHMENT:
408 known = TRUE;
409 if(confused) {
410 pline("You feel guilty.");
411 break;
412 }
413 pline("You are being punished for your misbehaviour!");
414 if(Punished){
415 pline("Your iron ball gets heavier.");
416 uball->owt += 15;
417 break;
418 }
419 Punished = INTRINSIC;
420 setworn(mkobj_at(CHAIN_SYM, u.ux, u.uy), W_CHAIN);
421 setworn(mkobj_at(BALL_SYM, u.ux, u.uy), W_BALL);
422 uball->spe = 1; /* special ball (see save) */
423 break;
424 default:
425 impossible("What weird language is this written in? (%u)",
426 scroll->otyp);
427 }
428 if(!objects[scroll->otyp].oc_name_known) {
429 if(known && !confused) {
430 objects[scroll->otyp].oc_name_known = 1;
431 more_experienced(0,10);
432 } else if(!objects[scroll->otyp].oc_uname)
433 docall(scroll);
434 }
435 useup(scroll);
436 return(1);
437}
438
c7106d58
PA
439int
440identify(struct obj *otmp) /* also called by newmail() */
984263bc
MD
441{
442 objects[otmp->otyp].oc_name_known = 1;
443 otmp->known = otmp->dknown = 1;
444 prinv(otmp);
445 return(1);
446}
447
c7106d58
PA
448void
449litroom(bool on)
984263bc
MD
450{
451 int num,zx,zy;
452
453 /* first produce the text (provided he is not blind) */
454 if(Blind) goto do_it;
455 if(!on) {
456 if(u.uswallow || !xdnstair || levl[u.ux][u.uy].typ == CORR ||
457 !levl[u.ux][u.uy].lit) {
458 pline("It seems even darker in here than before.");
459 return;
460 } else
461 pline("It suddenly becomes dark in here.");
462 } else {
463 if(u.uswallow){
464 pline("%s's stomach is lit.", Monnam(u.ustuck));
465 return;
466 }
467 if(!xdnstair){
468 pline("Nothing Happens.");
469 return;
470 }
471#ifdef QUEST
472 pline("The cave lights up around you, then fades.");
473 return;
304d60d9 474#else /* QUEST */
984263bc
MD
475 if(levl[u.ux][u.uy].typ == CORR) {
476 pline("The corridor lights up around you, then fades.");
477 return;
478 } else if(levl[u.ux][u.uy].lit) {
479 pline("The light here seems better now.");
480 return;
481 } else
482 pline("The room is lit.");
304d60d9 483#endif /* QUEST */
984263bc
MD
484 }
485
486do_it:
487#ifdef QUEST
488 return;
304d60d9 489#else /* QUEST */
984263bc
MD
490 if(levl[u.ux][u.uy].lit == on)
491 return;
492 if(levl[u.ux][u.uy].typ == DOOR) {
493 if(IS_ROOM(levl[u.ux][u.uy+1].typ)) zy = u.uy+1;
494 else if(IS_ROOM(levl[u.ux][u.uy-1].typ)) zy = u.uy-1;
495 else zy = u.uy;
496 if(IS_ROOM(levl[u.ux+1][u.uy].typ)) zx = u.ux+1;
497 else if(IS_ROOM(levl[u.ux-1][u.uy].typ)) zx = u.ux-1;
498 else zx = u.ux;
499 } else {
500 zx = u.ux;
501 zy = u.uy;
502 }
503 for(seelx = u.ux; (num = levl[seelx-1][zy].typ) != CORR && num != 0;
504 seelx--);
505 for(seehx = u.ux; (num = levl[seehx+1][zy].typ) != CORR && num != 0;
506 seehx++);
507 for(seely = u.uy; (num = levl[zx][seely-1].typ) != CORR && num != 0;
508 seely--);
509 for(seehy = u.uy; (num = levl[zx][seehy+1].typ) != CORR && num != 0;
510 seehy++);
511 for(zy = seely; zy <= seehy; zy++)
512 for(zx = seelx; zx <= seehx; zx++) {
513 levl[zx][zy].lit = on;
514 if(!Blind && dist(zx,zy) > 2) {
515 if(on) prl(zx,zy); else nosee(zx,zy);
516 }
517 }
518 if(!on) seehx = 0;
304d60d9 519#endif /* QUEST */
984263bc
MD
520}
521
522/* Test whether we may genocide all monsters with symbol ch */
c7106d58
PA
523static bool
524monstersym(char ch) /* arnold@ucsfcgl */
984263bc
MD
525{
526 struct permonst *mp;
984263bc
MD
527
528 /*
529 * can't genocide certain monsters
530 */
531 if (index("12 &:", ch))
532 return FALSE;
533
534 if (ch == pm_eel.mlet)
535 return TRUE;
536 for (mp = mons; mp < &mons[CMNUM+2]; mp++)
537 if (mp->mlet == ch)
538 return TRUE;
539 return FALSE;
540}