Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

2024-07-01T06:53:46Z

Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 1.3d/pray.c moved to Source:NetHack 1.3d/pray.c: Robot: moved page

2008-03-04T00:17:30Z

NetHack 1.3d/pray.c moved to Source:NetHack 1.3d/pray.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-31T14:07:24Z

Automated source code upload

New page

Below is the full text to '''pray.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/pray.c#line123|<nowiki>[[NetHack 1.3d/pray.c#line123]]</nowiki>]], for example.

'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]

{{CWI}}
1. /* SCCS Id: @(#)pray.c 1.3 87/07/14
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* pray.c - version 1.0 */
4. 
5. #include "hack.h"
6. 
7. extern char *nomovemsg;
8. /*
9. #ifdef KAA
10. extern char *xname();
11. #endif
12. */
13. dopray() { /* M. Stephenson (1.0.3b) */
14. #ifdef PRAYERS
15. if (u.ublesscnt > 0) { /* disturbing the gods too much */
16. 
17. u.ublesscnt += 200;
18. u.uluck -= 3;
19. if (u.uluck < LUCKMIN) u.uluck = LUCKMIN;
20. if (u.ugangr++) angrygods();
21. else { /* exactly one warning */
22. pline("A voice booms out: You have angered us,");
23. pline("Disturb us again at your own risk!");
24. }
25. } else if (u.uluck < 0) angrygods(); /* a bad boy/girl */
26. else pleased(); /* or a good boy/girl */
27. #endif
28. nomovemsg = "You finished your prayer.";
29. nomul(-3);
30. return(1);
31. }
32. 
33. #ifdef PRAYERS
34. angrygods() {
35. register int tmp;
36. 
37. pline ("You get the felling the gods are angry...");
38. tmp = u.ugangr + (u.uluck > 0) ? u.uluck : -u.uluck;
39. switch (tmp ? rn2(tmp): 0) {
40. 
41. case 0:
42. case 1: pline("but nothing appears to happen.");
43. break;
44. case 2:
45. case 3: pline("A voice booms out: You are arrogant, mortal.");
46. pline("You must relearn your lessons!");
47. if (u.ulevel > 1) losexp();
48. else {
49. u.uexp = 0;
50. flags.botl = 1;
51. }
52. break;
53. case 4:
54. case 5:
55. case 6: pline("A black glow surrounds you.");
56. rndcurse();
57. break;
58. case 7:
59. case 8: pline("A voice booms out: You dare to call upon us?");
60. pline("Then, die mortal!");
61. mkmon_at('&', u.ux, u.uy);
62. break;
63. 
64. default: pline("Suddenly, a bolt of lightning strikes you!");
65. pline("You are fried to a crisp.");
66. killer = "pissed off deity";
67. done("died");
68. break;
69. }
70. u.ublesscnt = 250;
71. return(0);
72. }
73. 
74. pleased() {
75. 
76. char *tmp, *hcolor();
77. 
78. u.ugangr--;
79. if (u.ugangr < 0) u.ugangr = 0;
80. pline("You feel the gods are pleased.");
81. 
82. switch(rn2((u.uluck + 6)/2)) {
83. 
84. case 0: pline("but nothing seems to happen.");
85. break;
86. case 1:
87. #ifdef KAA
88. if(!uwep) {
89. pline("but nothing seems to happen.");
90. break;
91. }
92. if(uwep->olet == WEAPON_SYM) {
93. if (uwep->cursed) {
94. uwep->cursed=0;
95. pline("Your %s %s.", aobjnam(uwep,"softly glow"), 
96. Hallucination ? hcolor() : "amber");
97. } else if(uwep->otyp >= ARROW && uwep->otyp <= SPEAR) {
98. uwep->dknown=1;
99. tmp = Hallucination ? hcolor() : "light blue";
100. pline("Your %s with a%s %s aura.", aobjnam(uwep,"softly glow"),
101. index("aeiou",*tmp) ? "n" : "", tmp);
102. }
103. } else
104. #endif
105. pline("but nothing seems to happen.");
106. break;
107. case 2:
108. case 3:
109. pline("A %s glow surrounds you",
110. Hallucination ? hcolor() : "golden");
111. u.uhp = u.uhpmax += 5;
112. u.ustr = u.ustrmax;
113. if (u.uhunger < 900) init_uhunger();
114. if (u.uluck < 0) u.uluck = 0;
115. if (Blind) Blind = 1;
116. break;
117. case 4:
118. case 5: pline("A voice booms out: We are pleased with your progress,");
119. pline("and grant you the gift of");
120. if (!(HTelepat & INTRINSIC)) {
121. HTelepat = HTelepat || INTRINSIC;
122. pline ("Telepathy,");
123. } else if (!(Fast & INTRINSIC)) {
124. Fast = Fast || INTRINSIC;
125. pline ("Speed,");
126. } else if (!(Stealth & INTRINSIC)) {
127. Stealth = Stealth || INTRINSIC;
128. pline ("Stealth,");
129. } else {
130. if (!(Protection & INTRINSIC)) {
131. Protection = Protection || INTRINSIC;
132. if (!u.ublessed) u.ublessed = rnd(3) + 1;
133. } else u.ublessed++;
134. pline ("our protection,");
135. }
136. pline ("Use it wisely in our names!");
137. break;
138. 
139. case 6: pline ("An object appears at your feet!");
140. mkobj_at("+", u.ux, u.uy);
141. break;
142. 
143. case 7: pline("A voice booms out: We crown thee...");
144. pline("The Hand of Elbereth!");
145. HInvis |= INTRINSIC;
146. HSee_invisible |= INTRINSIC;
147. HFire_resistance |= INTRINSIC;
148. HCold_resistance |= INTRINSIC;
149. HPoison_resistance |= INTRINSIC;
150. break;
151. 
152. default: impossible("Confused deity!");
153. break;
154. }
155. u.ublesscnt = 300;
156. #ifdef HARD
157. u.ublesscnt += (u.udemigod * 1000);
158. #endif
159. return(0);
160. }
161. #endif /* PRAYERS /**/
162. 
[[Category:NetHack 1.3d source code|pray.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''pray.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/pray.c#line123|<nowiki>[[NetHack 1.3d/pray.c#line123]]</nowiki>]], for example.
+Below is the full text to '''pray.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]].
-'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]
+'''Warning!''' This is the source code from an old release. For newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 00:17, 4 March 2008
(No difference)

Source:NetHack 1.3d/pray.c - Revision history

Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 1.3d/pray.c moved to Source:NetHack 1.3d/pray.c: Robot: moved page

Jaytbot: Automated source code upload