DizzyBot: beep boop

2018-05-18T00:26:19Z

beep boop

DizzyBot: beep boop

2018-05-17T23:53:36Z

beep boop

DizzyBot: beep boop

2018-05-12T10:02:44Z

beep boop

New page

__MIXEDSYNTAXHIGHLIGHT__
Below is the full text to '''sit.c''' from the [[NetHack 3.6.1 source code|source code]] of [[NetHack 3.6.1]]. To link to a particular line, write [[Source:NetHack 3.6.1/src/sit.c#line123|<nowiki>[[Source:NetHack 3.6.1/src/sit.c#line123]]</nowiki>]], for example.

{{NGPL}}
1. /* NetHack 3.6 sit.c $NHDT-Date: 1458341129 2016/03/18 22:45:29 $ $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.53 $ */
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /*-Copyright (c) Robert Patrick Rankin, 2012. */
4. /* NetHack may be freely redistributed. See license for details. */
5. 
6. #include "hack.h"
7. #include "artifact.h"
8. 
9. 
10. /* take away the hero's money */
11. void
12. take_gold()
13. {
14. struct obj *otmp, *nobj;
15. int lost_money = 0;
16. 
17. for (otmp = invent; otmp; otmp = nobj) {
18. nobj = otmp->nobj;
19. if (otmp->oclass == COIN_CLASS) {
20. lost_money = 1;
21. remove_worn_item(otmp, FALSE);
22. delobj(otmp);
23. }
24. }
25. if (!lost_money) {
26. You_feel("a strange sensation.");
27. } else {
28. You("notice you have no money!");
29. context.botl = 1;
30. }
31. }
32. 
33. /* #sit command */
34. int
35. dosit()
36. {
37. static const char sit_message[] = "sit on the %s.";
38. register struct trap *trap = t_at(u.ux, u.uy);
39. register int typ = levl[u.ux][u.uy].typ;
40. 
41. if (u.usteed) {
42. You("are already sitting on %s.", mon_nam(u.usteed));
43. return 0;
44. }
45. if (u.uundetected && is_hider(youmonst.data) && u.umonnum != PM_TRAPPER)
46. u.uundetected = 0; /* no longer on the ceiling */
47. 
48. if (!can_reach_floor(FALSE)) {
49. if (u.uswallow)
50. There("are no seats in here!");
51. else if (Levitation)
52. You("tumble in place.");
53. else
54. You("are sitting on air.");
55. return 0;
56. } else if (u.ustuck && !sticks(youmonst.data)) {
57. /* holding monster is next to hero rather than beneath, but
58. hero is in no condition to actually sit at has/her own spot */
59. if (humanoid(u.ustuck->data))
60. pline("%s won't offer %s lap.", Monnam(u.ustuck), mhis(u.ustuck));
61. else
62. pline("%s has no lap.", Monnam(u.ustuck));
63. return 0;
64. } else if (is_pool(u.ux, u.uy) && !Underwater) { /* water walking */
65. goto in_water;
66. }
67. 
68. if (OBJ_AT(u.ux, u.uy)
69. /* ensure we're not standing on the precipice */
70. && !uteetering_at_seen_pit(trap)) {
71. register struct obj *obj;
72. 
73. obj = level.objects[u.ux][u.uy];
74. if (youmonst.data->mlet == S_DRAGON && obj->oclass == COIN_CLASS) {
75. You("coil up around your %shoard.",
76. (obj->quan + money_cnt(invent) < u.ulevel * 1000) ? "meager "
77. : "");
78. } else {
79. You("sit on %s.", the(xname(obj)));
80. if (!(Is_box(obj) || objects[obj->otyp].oc_material == CLOTH))
81. pline("It's not very comfortable...");
82. }
83. } else if (trap != 0 || (u.utrap && (u.utraptype >= TT_LAVA))) {
84. if (u.utrap) {
85. exercise(A_WIS, FALSE); /* you're getting stuck longer */
86. if (u.utraptype == TT_BEARTRAP) {
87. You_cant("sit down with your %s in the bear trap.",
88. body_part(FOOT));
89. u.utrap++;
90. } else if (u.utraptype == TT_PIT) {
91. if (trap && trap->ttyp == SPIKED_PIT) {
92. You("sit down on a spike. Ouch!");
93. losehp(Half_physical_damage ? rn2(2) : 1,
94. "sitting on an iron spike", KILLED_BY);
95. exercise(A_STR, FALSE);
96. } else
97. You("sit down in the pit.");
98. u.utrap += rn2(5);
99. } else if (u.utraptype == TT_WEB) {
100. You("sit in the spider web and get entangled further!");
101. u.utrap += rn1(10, 5);
102. } else if (u.utraptype == TT_LAVA) {
103. /* Must have fire resistance or they'd be dead already */
104. You("sit in the %s!", hliquid("lava"));
105. if (Slimed)
106. burn_away_slime();
107. u.utrap += rnd(4);
108. losehp(d(2, 10), "sitting in lava",
109. KILLED_BY); /* lava damage */
110. } else if (u.utraptype == TT_INFLOOR
111. || u.utraptype == TT_BURIEDBALL) {
112. You_cant("maneuver to sit!");
113. u.utrap++;
114. }
115. } else {
116. You("sit down.");
117. dotrap(trap, VIASITTING);
118. }
119. } else if (Underwater || Is_waterlevel(&u.uz)) {
120. if (Is_waterlevel(&u.uz))
121. There("are no cushions floating nearby.");
122. else
123. You("sit down on the muddy bottom.");
124. } else if (is_pool(u.ux, u.uy)) {
125. in_water:
126. You("sit in the %s.", hliquid("water"));
127. if (!rn2(10) && uarm)
128. (void) water_damage(uarm, "armor", TRUE);
129. if (!rn2(10) && uarmf && uarmf->otyp != WATER_WALKING_BOOTS)
130. (void) water_damage(uarm, "armor", TRUE);
131. } else if (IS_SINK(typ)) {
132. You(sit_message, defsyms[S_sink].explanation);
133. Your("%s gets wet.", humanoid(youmonst.data) ? "rump" : "underside");
134. } else if (IS_ALTAR(typ)) {
135. You(sit_message, defsyms[S_altar].explanation);
136. altar_wrath(u.ux, u.uy);
137. } else if (IS_GRAVE(typ)) {
138. You(sit_message, defsyms[S_grave].explanation);
139. } else if (typ == STAIRS) {
140. You(sit_message, "stairs");
141. } else if (typ == LADDER) {
142. You(sit_message, "ladder");
143. } else if (is_lava(u.ux, u.uy)) {
144. /* must be WWalking */
145. You(sit_message, hliquid("lava"));
146. burn_away_slime();
147. if (likes_lava(youmonst.data)) {
148. pline_The("%s feels warm.", hliquid("lava"));
149. return 1;
150. }
151. pline_The("%s burns you!", hliquid("lava"));
152. losehp(d((Fire_resistance ? 2 : 10), 10), /* lava damage */
153. "sitting on lava", KILLED_BY);
154. } else if (is_ice(u.ux, u.uy)) {
155. You(sit_message, defsyms[S_ice].explanation);
156. if (!Cold_resistance)
157. pline_The("ice feels cold.");
158. } else if (typ == DRAWBRIDGE_DOWN) {
159. You(sit_message, "drawbridge");
160. } else if (IS_THRONE(typ)) {
161. You(sit_message, defsyms[S_throne].explanation);
162. if (rnd(6) > 4) {
163. switch (rnd(13)) {
164. case 1:
165. (void) adjattrib(rn2(A_MAX), -rn1(4, 3), FALSE);
166. losehp(rnd(10), "cursed throne", KILLED_BY_AN);
167. break;
168. case 2:
169. (void) adjattrib(rn2(A_MAX), 1, FALSE);
170. break;
171. case 3:
172. pline("A%s electric shock shoots through your body!",
173. (Shock_resistance) ? "n" : " massive");
174. losehp(Shock_resistance ? rnd(6) : rnd(30), "electric chair",
175. KILLED_BY_AN);
176. exercise(A_CON, FALSE);
177. break;
178. case 4:
179. You_feel("much, much better!");
180. if (Upolyd) {
181. if (u.mh >= (u.mhmax - 5))
182. u.mhmax += 4;
183. u.mh = u.mhmax;
184. }
185. if (u.uhp >= (u.uhpmax - 5))
186. u.uhpmax += 4;
187. u.uhp = u.uhpmax;
188. u.ucreamed = 0;
189. make_blinded(0L, TRUE);
190. make_sick(0L, (char *) 0, FALSE, SICK_ALL);
191. heal_legs();
192. context.botl = 1;
193. break;
194. case 5:
195. take_gold();
196. break;
197. case 6:
198. if (u.uluck + rn2(5) < 0) {
199. You_feel("your luck is changing.");
200. change_luck(1);
201. } else
202. makewish();
203. break;
204. case 7:
205. {
206. int cnt = rnd(10);
207. 
208. /* Magical voice not affected by deafness */
209. pline("A voice echoes:");
210. verbalize("Thy audience hath been summoned, %s!",
211. flags.female ? "Dame" : "Sire");
212. while (cnt--)
213. (void) makemon(courtmon(), u.ux, u.uy, NO_MM_FLAGS);
214. break;
215. }
216. case 8:
217. /* Magical voice not affected by deafness */
218. pline("A voice echoes:");
219. verbalize("By thine Imperious order, %s...",
220. flags.female ? "Dame" : "Sire");
221. do_genocide(5); /* REALLY|ONTHRONE, see do_genocide() */
222. break;
223. case 9:
224. /* Magical voice not affected by deafness */
225. pline("A voice echoes:");
226. verbalize(
227. "A curse upon thee for sitting upon this most holy throne!");
228. if (Luck > 0) {
229. make_blinded(Blinded + rn1(100, 250), TRUE);
230. change_luck((Luck > 1) ? -rnd(2) : -1);
231. } else
232. rndcurse();
233. break;
234. case 10:
235. if (Luck < 0 || (HSee_invisible & INTRINSIC)) {
236. if (level.flags.nommap) {
237. pline("A terrible drone fills your head!");
238. make_confused((HConfusion & TIMEOUT) + (long) rnd(30),
239. FALSE);
240. } else {
241. pline("An image forms in your mind.");
242. do_mapping();
243. }
244. } else {
245. Your("vision becomes clear.");
246. HSee_invisible |= FROMOUTSIDE;
247. newsym(u.ux, u.uy);
248. }
249. break;
250. case 11:
251. if (Luck < 0) {
252. You_feel("threatened.");
253. aggravate();
254. } else {
255. You_feel("a wrenching sensation.");
256. tele(); /* teleport him */
257. }
258. break;
259. case 12:
260. You("are granted an insight!");
261. if (invent) {
262. /* rn2(5) agrees w/seffects() */
263. identify_pack(rn2(5), FALSE);
264. }
265. break;
266. case 13:
267. Your("mind turns into a pretzel!");
268. make_confused((HConfusion & TIMEOUT) + (long) rn1(7, 16),
269. FALSE);
270. break;
271. default:
272. impossible("throne effect");
273. break;
274. }
275. } else {
276. if (is_prince(youmonst.data))
277. You_feel("very comfortable here.");
278. else
279. You_feel("somehow out of place...");
280. }
281. 
282. if (!rn2(3) && IS_THRONE(levl[u.ux][u.uy].typ)) {
283. /* may have teleported */
284. levl[u.ux][u.uy].typ = ROOM;
285. pline_The("throne vanishes in a puff of logic.");
286. newsym(u.ux, u.uy);
287. }
288. } else if (lays_eggs(youmonst.data)) {
289. struct obj *uegg;
290. 
291. if (!flags.female) {
292. pline("%s can't lay eggs!",
293. Hallucination
294. ? "You may think you are a platypus, but a male still"
295. : "Males");
296. return 0;
297. } else if (u.uhunger < (int) objects[EGG].oc_nutrition) {
298. You("don't have enough energy to lay an egg.");
299. return 0;
300. }
301. 
302. uegg = mksobj(EGG, FALSE, FALSE);
303. uegg->spe = 1;
304. uegg->quan = 1L;
305. uegg->owt = weight(uegg);
306. /* this sets hatch timers if appropriate */
307. set_corpsenm(uegg, egg_type_from_parent(u.umonnum, FALSE));
308. uegg->known = uegg->dknown = 1;
309. You("lay an egg.");
310. dropy(uegg);
311. stackobj(uegg);
312. morehungry((int) objects[EGG].oc_nutrition);
313. } else {
314. pline("Having fun sitting on the %s?", surface(u.ux, u.uy));
315. }
316. return 1;
317. }
318. 
319. /* curse a few inventory items at random! */
320. void
321. rndcurse()
322. {
323. int nobj = 0;
324. int cnt, onum;
325. struct obj *otmp;
326. static const char mal_aura[] = "feel a malignant aura surround %s.";
327. 
328. if (uwep && (uwep->oartifact == ART_MAGICBANE) && rn2(20)) {
329. You(mal_aura, "the magic-absorbing blade");
330. return;
331. }
332. 
333. if (Antimagic) {
334. shieldeff(u.ux, u.uy);
335. You(mal_aura, "you");
336. }
337. 
338. for (otmp = invent; otmp; otmp = otmp->nobj) {
339. /* gold isn't subject to being cursed or blessed */
340. if (otmp->oclass == COIN_CLASS)
341. continue;
342. nobj++;
343. }
344. if (nobj) {
345. for (cnt = rnd(6 / ((!!Antimagic) + (!!Half_spell_damage) + 1));
346. cnt > 0; cnt--) {
347. onum = rnd(nobj);
348. for (otmp = invent; otmp; otmp = otmp->nobj) {
349. /* as above */
350. if (otmp->oclass == COIN_CLASS)
351. continue;
352. if (--onum == 0)
353. break; /* found the target */
354. }
355. /* the !otmp case should never happen; picking an already
356. cursed item happens--avoid "resists" message in that case */
357. if (!otmp || otmp->cursed)
358. continue; /* next target */
359. 
360. if (otmp->oartifact && spec_ability(otmp, SPFX_INTEL)
361. && rn2(10) < 8) {
362. pline("%s!", Tobjnam(otmp, "resist"));
363. continue;
364. }
365. 
366. if (otmp->blessed)
367. unbless(otmp);
368. else
369. curse(otmp);
370. }
371. update_inventory();
372. }
373. 
374. /* treat steed's saddle as extended part of hero's inventory */
375. if (u.usteed && !rn2(4) && (otmp = which_armor(u.usteed, W_SADDLE)) != 0
376. && !otmp->cursed) { /* skip if already cursed */
377. if (otmp->blessed)
378. unbless(otmp);
379. else
380. curse(otmp);
381. if (!Blind) {
382. pline("%s %s.", Yobjnam2(otmp, "glow"),
383. hcolor(otmp->cursed ? NH_BLACK : (const char *) "brown"));
384. otmp->bknown = TRUE;
385. }
386. }
387. }
388. 
389. /* remove a random INTRINSIC ability */
390. void
391. attrcurse()
392. {
393. switch (rnd(11)) {
394. case 1:
395. if (HFire_resistance & INTRINSIC) {
396. HFire_resistance &= ~INTRINSIC;
397. You_feel("warmer.");
398. break;
399. }
400. /*FALLTHRU*/
401. case 2:
402. if (HTeleportation & INTRINSIC) {
403. HTeleportation &= ~INTRINSIC;
404. You_feel("less jumpy.");
405. break;
406. }
407. /*FALLTHRU*/
408. case 3:
409. if (HPoison_resistance & INTRINSIC) {
410. HPoison_resistance &= ~INTRINSIC;
411. You_feel("a little sick!");
412. break;
413. }
414. /*FALLTHRU*/
415. case 4:
416. if (HTelepat & INTRINSIC) {
417. HTelepat &= ~INTRINSIC;
418. if (Blind && !Blind_telepat)
419. see_monsters(); /* Can't sense mons anymore! */
420. Your("senses fail!");
421. break;
422. }
423. /*FALLTHRU*/
424. case 5:
425. if (HCold_resistance & INTRINSIC) {
426. HCold_resistance &= ~INTRINSIC;
427. You_feel("cooler.");
428. break;
429. }
430. /*FALLTHRU*/
431. case 6:
432. if (HInvis & INTRINSIC) {
433. HInvis &= ~INTRINSIC;
434. You_feel("paranoid.");
435. break;
436. }
437. /*FALLTHRU*/
438. case 7:
439. if (HSee_invisible & INTRINSIC) {
440. HSee_invisible &= ~INTRINSIC;
441. You("%s!", Hallucination ? "tawt you taw a puttie tat"
442. : "thought you saw something");
443. break;
444. }
445. /*FALLTHRU*/
446. case 8:
447. if (HFast & INTRINSIC) {
448. HFast &= ~INTRINSIC;
449. You_feel("slower.");
450. break;
451. }
452. /*FALLTHRU*/
453. case 9:
454. if (HStealth & INTRINSIC) {
455. HStealth &= ~INTRINSIC;
456. You_feel("clumsy.");
457. break;
458. }
459. /*FALLTHRU*/
460. case 10:
461. /* intrinsic protection is just disabled, not set back to 0 */
462. if (HProtection & INTRINSIC) {
463. HProtection &= ~INTRINSIC;
464. You_feel("vulnerable.");
465. break;
466. }
467. /*FALLTHRU*/
468. case 11:
469. if (HAggravate_monster & INTRINSIC) {
470. HAggravate_monster &= ~INTRINSIC;
471. You_feel("less attractive.");
472. break;
473. }
474. /*FALLTHRU*/
475. default:
476. break;
477. }
478. }
479. 
480. /*sit.c*/
[[Category:NetHack 3.6.1 source code|src/sit.c]]

@@ Line 2: / Line 2: @@
 Below is the full text to '''sit.c''' from the [[NetHack 3.6.1 source code|source code]] of [[NetHack 3.6.1]]. To link to a particular line, write [[Source:NetHack 3.6.1/src/sit.c#line123|<nowiki>[[Source:NetHack 3.6.1/src/sit.c#line123]]</nowiki>]], for example.
-{{NGPL}}
+== Top of file ==
   <span id="line1">1. /* NetHack 3.6	sit.c	$NHDT-Date: 1458341129 2016/03/18 22:45:29 $  $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.53 $ */</span>
   <span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span>
   <span id="line3">3. /*-Copyright (c) Robert Patrick Rankin, 2012. */</span>
   <span id="line4">4. /* NetHack may be freely redistributed.  See license for details. */</span>
   <span id="line5">5. </span>
   <span id="line6">6. #include "hack.h"</span>

@@ Line 12: / Line 12: @@
   <span id="line8">8. </span>
   <span id="line9">9. </span>
   <span id="line10">10. /* take away the hero's money */</span>
   <span id="line11">11. void</span>
@@ Line 35: / Line 38: @@
   <span id="line31">31. }</span>
   <span id="line32">32. </span>
   <span id="line33">33. /* #sit command */</span>
   <span id="line34">34. int</span>
@@ Line 321: / Line 327: @@
   <span id="line317">317. }</span>
   <span id="line318">318. </span>
   <span id="line319">319. /* curse a few inventory items at random! */</span>
   <span id="line320">320. void</span>
@@ Line 391: / Line 400: @@
   <span id="line387">387. }</span>
   <span id="line388">388. </span>
   <span id="line389">389. /* remove a random INTRINSIC ability */</span>
   <span id="line390">390. void</span>

Source:NetHack 3.6.1/src/sit.c - Revision history

DizzyBot: beep boop

DizzyBot: beep boop

DizzyBot: beep boop