Difference between revisions of "Source:NetHack 3.6.0/src/minion.c"
Jump to navigation
Jump to search
Line 6: | Line 6: | ||
== Top of file == | == Top of file == | ||
− | <span id="line1">1. /* NetHack 3.6 minion.c $NHDT-Date: 1432512773 2015/05/25 00:12:53 $ $NHDT-Branch: master $:$NHDT-Revision: 1.33 $ */</span> | + | |
− | <span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span> | + | == Top of file == |
− | <span id="line3">3. /* NetHack may be freely redistributed. See license for details. */</span> | + | |
− | <span id="line4">4. </span> | + | <span id="line1">1. /* NetHack 3.6 minion.c $NHDT-Date: 1432512773 2015/05/25 00:12:53 $ $NHDT-Branch: master $:$NHDT-Revision: 1.33 $ */</span> |
− | <span id="line5">5. #include "hack.h"</span> | + | <span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span> |
− | <span id="line6">6. </span> | + | <span id="line3">3. /* NetHack may be freely redistributed. See license for details. */</span> |
− | <span id="line7">7. | + | <span id="line4">4. </span> |
− | <span id="line8">8. | + | <span id="line5">5. #include "hack.h"</span> |
− | <span id="line9">9. | + | <span id="line6">6. </span> |
− | <span id="line10">10. {</span> | + | |
− | <span id="line11">11. | + | == newemin == |
− | <span id="line12">12. | + | |
− | <span id="line13">13. | + | <span id="line7">7. void</span> |
− | <span id="line14">14. | + | <span id="line8">8. newemin(mtmp)</span> |
− | <span id="line15">15. | + | <span id="line9">9. struct monst *mtmp;</span> |
− | <span id="line16">16. | + | <span id="line10">10. {</span> |
− | <span id="line17">17. }</span> | + | <span id="line11">11. if (!mtmp->mextra)</span> |
− | <span id="line18">18. </span> | + | <span id="line12">12. mtmp->mextra = newmextra();</span> |
− | <span id="line19">19. | + | <span id="line13">13. if (!EMIN(mtmp)) {</span> |
− | <span id="line20">20. | + | <span id="line14">14. EMIN(mtmp) = (struct emin *) alloc(sizeof(struct emin));</span> |
− | <span id="line21">21. | + | <span id="line15">15. (void) memset((genericptr_t) EMIN(mtmp), 0, sizeof(struct emin));</span> |
− | <span id="line22">22. {</span> | + | <span id="line16">16. }</span> |
− | <span id="line23">23. | + | <span id="line17">17. }</span> |
− | <span id="line24">24. | + | <span id="line18">18. </span> |
− | <span id="line25">25. | + | |
− | <span id="line26">26. | + | == free_emin == |
− | <span id="line27">27. | + | |
+ | <span id="line19">19. void</span> | ||
+ | <span id="line20">20. free_emin(mtmp)</span> | ||
+ | <span id="line21">21. struct monst *mtmp;</span> | ||
+ | <span id="line22">22. {</span> | ||
+ | <span id="line23">23. if (mtmp->mextra && EMIN(mtmp)) {</span> | ||
+ | <span id="line24">24. free((genericptr_t) EMIN(mtmp));</span> | ||
+ | <span id="line25">25. EMIN(mtmp) = (struct emin *) 0;</span> | ||
+ | <span id="line26">26. }</span> | ||
+ | <span id="line27">27. mtmp->isminion = 0;</span> | ||
<span id="line28">28. }</span> | <span id="line28">28. }</span> | ||
<span id="line29">29. </span> | <span id="line29">29. </span> | ||
+ | |||
+ | == monster_census == | ||
+ | |||
<span id="line30">30. /* count the number of monsters on the level */</span> | <span id="line30">30. /* count the number of monsters on the level */</span> | ||
<span id="line31">31. int</span> | <span id="line31">31. int</span> | ||
Line 40: | Line 52: | ||
<span id="line33">33. boolean spotted; /* seen|sensed vs all */</span> | <span id="line33">33. boolean spotted; /* seen|sensed vs all */</span> | ||
<span id="line34">34. {</span> | <span id="line34">34. {</span> | ||
− | <span id="line35">35. | + | <span id="line35">35. struct monst *mtmp;</span> |
− | <span id="line36">36. | + | <span id="line36">36. int count = 0;</span> |
<span id="line37">37. </span> | <span id="line37">37. </span> | ||
− | <span id="line38">38. | + | <span id="line38">38. for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {</span> |
− | <span id="line39">39. | + | <span id="line39">39. if (DEADMONSTER(mtmp))</span> |
− | <span id="line40">40. | + | <span id="line40">40. continue;</span> |
− | <span id="line41">41. | + | <span id="line41">41. if (spotted && !canspotmon(mtmp))</span> |
− | <span id="line42">42. | + | <span id="line42">42. continue;</span> |
− | <span id="line43">43. | + | <span id="line43">43. ++count;</span> |
− | <span id="line44">44. | + | <span id="line44">44. }</span> |
− | <span id="line45">45. | + | <span id="line45">45. return count;</span> |
<span id="line46">46. }</span> | <span id="line46">46. }</span> | ||
<span id="line47">47. </span> | <span id="line47">47. </span> | ||
+ | |||
+ | == msummon == | ||
+ | |||
<span id="line48">48. /* mon summons a monster */</span> | <span id="line48">48. /* mon summons a monster */</span> | ||
<span id="line49">49. int</span> | <span id="line49">49. int</span> | ||
Line 58: | Line 73: | ||
<span id="line51">51. struct monst *mon;</span> | <span id="line51">51. struct monst *mon;</span> | ||
<span id="line52">52. {</span> | <span id="line52">52. {</span> | ||
− | <span id="line53">53. | + | <span id="line53">53. struct permonst *ptr;</span> |
− | <span id="line54">54. | + | <span id="line54">54. int dtype = NON_PM, cnt = 0, result = 0, census;</span> |
− | <span id="line55">55. | + | <span id="line55">55. aligntyp atyp;</span> |
− | <span id="line56">56. | + | <span id="line56">56. struct monst *mtmp;</span> |
<span id="line57">57. </span> | <span id="line57">57. </span> | ||
− | <span id="line58">58. | + | <span id="line58">58. if (mon) {</span> |
− | <span id="line59">59. | + | <span id="line59">59. ptr = mon->data;</span> |
− | <span id="line60">60. | + | <span id="line60">60. atyp = mon->ispriest ? EPRI(mon)->shralign</span> |
− | <span id="line61">61. | + | <span id="line61">61. : mon->isminion ? EMIN(mon)->min_align</span> |
− | <span id="line62">62. | + | <span id="line62">62. : (ptr->maligntyp == A_NONE)</span> |
− | <span id="line63">63. | + | <span id="line63">63. ? A_NONE</span> |
− | <span id="line64">64. | + | <span id="line64">64. : sgn(ptr->maligntyp);</span> |
− | <span id="line65">65. | + | <span id="line65">65. } else {</span> |
− | <span id="line66">66. | + | <span id="line66">66. ptr = &mons[PM_WIZARD_OF_YENDOR];</span> |
− | <span id="line67">67. | + | <span id="line67">67. atyp = (ptr->maligntyp == A_NONE) ? A_NONE : sgn(ptr->maligntyp);</span> |
− | <span id="line68">68. | + | <span id="line68">68. }</span> |
<span id="line69">69. </span> | <span id="line69">69. </span> | ||
− | <span id="line70">70. | + | <span id="line70">70. if (is_dprince(ptr) || (ptr == &mons[PM_WIZARD_OF_YENDOR])) {</span> |
− | <span id="line71">71. | + | <span id="line71">71. dtype = (!rn2(20)) ? dprince(atyp) : (!rn2(4)) ? dlord(atyp)</span> |
− | <span id="line72">72. | + | <span id="line72">72. : ndemon(atyp);</span> |
− | <span id="line73">73. | + | <span id="line73">73. cnt = (!rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;</span> |
− | <span id="line74">74. | + | <span id="line74">74. } else if (is_dlord(ptr)) {</span> |
− | <span id="line75">75. | + | <span id="line75">75. dtype = (!rn2(50)) ? dprince(atyp) : (!rn2(20)) ? dlord(atyp)</span> |
− | <span id="line76">76. | + | <span id="line76">76. : ndemon(atyp);</span> |
− | <span id="line77">77. | + | <span id="line77">77. cnt = (!rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;</span> |
− | <span id="line78">78. | + | <span id="line78">78. } else if (is_ndemon(ptr)) {</span> |
− | <span id="line79">79. | + | <span id="line79">79. dtype = (!rn2(20)) ? dlord(atyp) : (!rn2(6)) ? ndemon(atyp)</span> |
− | <span id="line80">80. | + | <span id="line80">80. : monsndx(ptr);</span> |
− | <span id="line81">81. | + | <span id="line81">81. cnt = 1;</span> |
− | <span id="line82">82. | + | <span id="line82">82. } else if (is_lminion(mon)) {</span> |
− | <span id="line83">83. | + | <span id="line83">83. dtype = (is_lord(ptr) && !rn2(20))</span> |
− | <span id="line84">84. | + | <span id="line84">84. ? llord()</span> |
− | <span id="line85">85. | + | <span id="line85">85. : (is_lord(ptr) || !rn2(6)) ? lminion() : monsndx(ptr);</span> |
− | <span id="line86">86. | + | <span id="line86">86. cnt = (!rn2(4) && !is_lord(&mons[dtype])) ? 2 : 1;</span> |
− | <span id="line87">87. | + | <span id="line87">87. } else if (ptr == &mons[PM_ANGEL]) {</span> |
− | <span id="line88">88. | + | <span id="line88">88. /* non-lawful angels can also summon */</span> |
− | <span id="line89">89. | + | <span id="line89">89. if (!rn2(6)) {</span> |
− | <span id="line90">90. | + | <span id="line90">90. switch (atyp) { /* see summon_minion */</span> |
− | <span id="line91">91. | + | <span id="line91">91. case A_NEUTRAL:</span> |
− | <span id="line92">92. | + | <span id="line92">92. dtype = PM_AIR_ELEMENTAL + rn2(4);</span> |
− | <span id="line93">93. | + | <span id="line93">93. break;</span> |
− | <span id="line94">94. | + | <span id="line94">94. case A_CHAOTIC:</span> |
− | <span id="line95">95. | + | <span id="line95">95. case A_NONE:</span> |
− | <span id="line96">96. | + | <span id="line96">96. dtype = ndemon(atyp);</span> |
− | <span id="line97">97. | + | <span id="line97">97. break;</span> |
− | <span id="line98">98. | + | <span id="line98">98. }</span> |
− | <span id="line99">99. | + | <span id="line99">99. } else {</span> |
− | <span id="line100">100. | + | <span id="line100">100. dtype = PM_ANGEL;</span> |
− | <span id="line101">101. | + | <span id="line101">101. }</span> |
− | <span id="line102">102. | + | <span id="line102">102. cnt = (!rn2(4) && !is_lord(&mons[dtype])) ? 2 : 1;</span> |
− | <span id="line103">103. | + | <span id="line103">103. }</span> |
<span id="line104">104. </span> | <span id="line104">104. </span> | ||
− | <span id="line105">105. | + | <span id="line105">105. if (dtype == NON_PM)</span> |
− | <span id="line106">106. | + | <span id="line106">106. return 0;</span> |
<span id="line107">107. </span> | <span id="line107">107. </span> | ||
− | <span id="line108">108. | + | <span id="line108">108. /* sanity checks */</span> |
− | <span id="line109">109. | + | <span id="line109">109. if (cnt > 1 && (mons[dtype].geno & G_UNIQ))</span> |
− | <span id="line110">110. | + | <span id="line110">110. cnt = 1;</span> |
− | <span id="line111">111. | + | <span id="line111">111. /*</span> |
− | <span id="line112">112. | + | <span id="line112">112. * If this daemon is unique and being re-summoned (the only way we</span> |
− | <span id="line113">113. | + | <span id="line113">113. * could get this far with an extinct dtype), try another.</span> |
− | <span id="line114">114. | + | <span id="line114">114. */</span> |
− | <span id="line115">115. | + | <span id="line115">115. if (mvitals[dtype].mvflags & G_GONE) {</span> |
− | <span id="line116">116. | + | <span id="line116">116. dtype = ndemon(atyp);</span> |
− | <span id="line117">117. | + | <span id="line117">117. if (dtype == NON_PM)</span> |
− | <span id="line118">118. | + | <span id="line118">118. return 0;</span> |
− | <span id="line119">119. | + | <span id="line119">119. }</span> |
<span id="line120">120. </span> | <span id="line120">120. </span> | ||
− | <span id="line121">121. | + | <span id="line121">121. /* some candidates can generate a group of monsters, so simple</span> |
− | <span id="line122">122. | + | <span id="line122">122. count of non-null makemon() result is not sufficient */</span> |
− | <span id="line123">123. | + | <span id="line123">123. census = monster_census(FALSE);</span> |
<span id="line124">124. </span> | <span id="line124">124. </span> | ||
− | <span id="line125">125. | + | <span id="line125">125. while (cnt > 0) {</span> |
− | <span id="line126">126. | + | <span id="line126">126. mtmp = makemon(&mons[dtype], u.ux, u.uy, MM_EMIN);</span> |
− | <span id="line127">127. | + | <span id="line127">127. if (mtmp) {</span> |
− | <span id="line128">128. | + | <span id="line128">128. result++;</span> |
− | <span id="line129">129. | + | <span id="line129">129. /* an angel's alignment should match the summoner */</span> |
− | <span id="line130">130. | + | <span id="line130">130. if (dtype == PM_ANGEL) {</span> |
− | <span id="line131">131. | + | <span id="line131">131. mtmp->isminion = 1;</span> |
− | <span id="line132">132. | + | <span id="line132">132. EMIN(mtmp)->min_align = atyp;</span> |
− | <span id="line133">133. | + | <span id="line133">133. /* renegade if same alignment but not peaceful</span> |
− | <span id="line134">134. | + | <span id="line134">134. or peaceful but different alignment */</span> |
− | <span id="line135">135. | + | <span id="line135">135. EMIN(mtmp)->renegade =</span> |
− | <span id="line136">136. | + | <span id="line136">136. (atyp != u.ualign.type) ^ !mtmp->mpeaceful;</span> |
− | <span id="line137">137. | + | <span id="line137">137. }</span> |
− | <span id="line138">138. | + | <span id="line138">138. }</span> |
− | <span id="line139">139. | + | <span id="line139">139. cnt--;</span> |
− | <span id="line140">140. | + | <span id="line140">140. }</span> |
<span id="line141">141. </span> | <span id="line141">141. </span> | ||
− | <span id="line142">142. | + | <span id="line142">142. /* how many monsters exist now compared to before? */</span> |
− | <span id="line143">143. | + | <span id="line143">143. if (result)</span> |
− | <span id="line144">144. | + | <span id="line144">144. result = monster_census(FALSE) - census;</span> |
<span id="line145">145. </span> | <span id="line145">145. </span> | ||
− | <span id="line146">146. | + | <span id="line146">146. return result;</span> |
<span id="line147">147. }</span> | <span id="line147">147. }</span> | ||
<span id="line148">148. </span> | <span id="line148">148. </span> | ||
+ | |||
+ | == summon_minion == | ||
+ | |||
<span id="line149">149. void</span> | <span id="line149">149. void</span> | ||
<span id="line150">150. summon_minion(alignment, talk)</span> | <span id="line150">150. summon_minion(alignment, talk)</span> | ||
Line 159: | Line 177: | ||
<span id="line152">152. boolean talk;</span> | <span id="line152">152. boolean talk;</span> | ||
<span id="line153">153. {</span> | <span id="line153">153. {</span> | ||
− | <span id="line154">154. | + | <span id="line154">154. register struct monst *mon;</span> |
− | <span id="line155">155. | + | <span id="line155">155. int mnum;</span> |
<span id="line156">156. </span> | <span id="line156">156. </span> | ||
− | <span id="line157">157. | + | <span id="line157">157. switch ((int) alignment) {</span> |
− | <span id="line158">158. | + | <span id="line158">158. case A_LAWFUL:</span> |
− | <span id="line159">159. | + | <span id="line159">159. mnum = lminion();</span> |
− | <span id="line160">160. | + | <span id="line160">160. break;</span> |
− | <span id="line161">161. | + | <span id="line161">161. case A_NEUTRAL:</span> |
− | <span id="line162">162. | + | <span id="line162">162. mnum = PM_AIR_ELEMENTAL + rn2(4);</span> |
− | <span id="line163">163. | + | <span id="line163">163. break;</span> |
− | <span id="line164">164. | + | <span id="line164">164. case A_CHAOTIC:</span> |
− | <span id="line165">165. | + | <span id="line165">165. case A_NONE:</span> |
− | <span id="line166">166. | + | <span id="line166">166. mnum = ndemon(alignment);</span> |
− | <span id="line167">167. | + | <span id="line167">167. break;</span> |
− | <span id="line168">168. | + | <span id="line168">168. default:</span> |
− | <span id="line169">169. | + | <span id="line169">169. impossible("unaligned player?");</span> |
− | <span id="line170">170. | + | <span id="line170">170. mnum = ndemon(A_NONE);</span> |
− | <span id="line171">171. | + | <span id="line171">171. break;</span> |
− | <span id="line172">172. | + | <span id="line172">172. }</span> |
− | <span id="line173">173. | + | <span id="line173">173. if (mnum == NON_PM) {</span> |
− | <span id="line174">174. | + | <span id="line174">174. mon = 0;</span> |
− | <span id="line175">175. | + | <span id="line175">175. } else if (mnum == PM_ANGEL) {</span> |
− | <span id="line176">176. | + | <span id="line176">176. mon = makemon(&mons[mnum], u.ux, u.uy, MM_EMIN);</span> |
− | <span id="line177">177. | + | <span id="line177">177. if (mon) {</span> |
− | <span id="line178">178. | + | <span id="line178">178. mon->isminion = 1;</span> |
− | <span id="line179">179. | + | <span id="line179">179. EMIN(mon)->min_align = alignment;</span> |
− | <span id="line180">180. | + | <span id="line180">180. EMIN(mon)->renegade = FALSE;</span> |
− | <span id="line181">181. | + | <span id="line181">181. }</span> |
− | <span id="line182">182. | + | <span id="line182">182. } else if (mnum != PM_SHOPKEEPER && mnum != PM_GUARD</span> |
− | <span id="line183">183. | + | <span id="line183">183. && mnum != PM_ALIGNED_PRIEST && mnum != PM_HIGH_PRIEST) {</span> |
− | <span id="line184">184. | + | <span id="line184">184. /* This was mons[mnum].pxlth == 0 but is this restriction</span> |
− | <span id="line185">185. | + | <span id="line185">185. appropriate or necessary now that the structures are separate? */</span> |
− | <span id="line186">186. | + | <span id="line186">186. mon = makemon(&mons[mnum], u.ux, u.uy, MM_EMIN);</span> |
− | <span id="line187">187. | + | <span id="line187">187. if (mon) {</span> |
− | <span id="line188">188. | + | <span id="line188">188. mon->isminion = 1;</span> |
− | <span id="line189">189. | + | <span id="line189">189. EMIN(mon)->min_align = alignment;</span> |
− | <span id="line190">190. | + | <span id="line190">190. EMIN(mon)->renegade = FALSE;</span> |
− | <span id="line191">191. | + | <span id="line191">191. }</span> |
− | <span id="line192">192. | + | <span id="line192">192. } else {</span> |
− | <span id="line193">193. | + | <span id="line193">193. mon = makemon(&mons[mnum], u.ux, u.uy, NO_MM_FLAGS);</span> |
− | <span id="line194">194. | + | <span id="line194">194. }</span> |
− | <span id="line195">195. | + | <span id="line195">195. if (mon) {</span> |
− | <span id="line196">196. | + | <span id="line196">196. if (talk) {</span> |
− | <span id="line197">197. | + | <span id="line197">197. pline_The("voice of %s booms:", align_gname(alignment));</span> |
− | <span id="line198">198. | + | <span id="line198">198. verbalize("Thou shalt pay for thine indiscretion!");</span> |
− | <span id="line199">199. | + | <span id="line199">199. if (!Blind)</span> |
− | <span id="line200">200. | + | <span id="line200">200. pline("%s appears before you.", Amonnam(mon));</span> |
− | <span id="line201">201. | + | <span id="line201">201. mon->mstrategy &= ~STRAT_APPEARMSG;</span> |
− | <span id="line202">202. | + | <span id="line202">202. }</span> |
− | <span id="line203">203. | + | <span id="line203">203. mon->mpeaceful = FALSE;</span> |
− | <span id="line204">204. | + | <span id="line204">204. /* don't call set_malign(); player was naughty */</span> |
− | <span id="line205">205. | + | <span id="line205">205. }</span> |
<span id="line206">206. }</span> | <span id="line206">206. }</span> | ||
<span id="line207">207. </span> | <span id="line207">207. </span> | ||
+ | |||
+ | == demon_talk == | ||
+ | |||
<span id="line208">208. #define Athome (Inhell && (mtmp->cham == NON_PM))</span> | <span id="line208">208. #define Athome (Inhell && (mtmp->cham == NON_PM))</span> | ||
<span id="line209">209. </span> | <span id="line209">209. </span> | ||
Line 220: | Line 241: | ||
<span id="line213">213. register struct monst *mtmp;</span> | <span id="line213">213. register struct monst *mtmp;</span> | ||
<span id="line214">214. {</span> | <span id="line214">214. {</span> | ||
− | <span id="line215">215. | + | <span id="line215">215. long cash, demand, offer;</span> |
<span id="line216">216. </span> | <span id="line216">216. </span> | ||
− | <span id="line217">217. | + | <span id="line217">217. if (uwep && uwep->oartifact == ART_EXCALIBUR) {</span> |
− | <span id="line218">218. | + | <span id="line218">218. pline("%s looks very angry.", Amonnam(mtmp));</span> |
− | <span id="line219">219. | + | <span id="line219">219. mtmp->mpeaceful = mtmp->mtame = 0;</span> |
− | <span id="line220">220. | + | <span id="line220">220. set_malign(mtmp);</span> |
− | <span id="line221">221. | + | <span id="line221">221. newsym(mtmp->mx, mtmp->my);</span> |
− | <span id="line222">222. | + | <span id="line222">222. return 0;</span> |
− | <span id="line223">223. | + | <span id="line223">223. }</span> |
<span id="line224">224. </span> | <span id="line224">224. </span> | ||
− | <span id="line225">225. | + | <span id="line225">225. if (is_fainted()) {</span> |
− | <span id="line226">226. | + | <span id="line226">226. reset_faint(); /* if fainted - wake up */</span> |
− | <span id="line227">227. | + | <span id="line227">227. } else {</span> |
− | <span id="line228">228. | + | <span id="line228">228. stop_occupation();</span> |
− | <span id="line229">229. | + | <span id="line229">229. if (multi > 0) {</span> |
− | <span id="line230">230. | + | <span id="line230">230. nomul(0);</span> |
− | <span id="line231">231. | + | <span id="line231">231. unmul((char *) 0);</span> |
− | <span id="line232">232. | + | <span id="line232">232. }</span> |
− | <span id="line233">233. | + | <span id="line233">233. }</span> |
<span id="line234">234. </span> | <span id="line234">234. </span> | ||
− | <span id="line235">235. | + | <span id="line235">235. /* Slight advantage given. */</span> |
− | <span id="line236">236. | + | <span id="line236">236. if (is_dprince(mtmp->data) && mtmp->minvis) {</span> |
− | <span id="line237">237. | + | <span id="line237">237. boolean wasunseen = !canspotmon(mtmp);</span> |
<span id="line238">238. </span> | <span id="line238">238. </span> | ||
− | <span id="line239">239. | + | <span id="line239">239. mtmp->minvis = mtmp->perminvis = 0;</span> |
− | <span id="line240">240. | + | <span id="line240">240. if (wasunseen && canspotmon(mtmp)) {</span> |
− | <span id="line241">241. | + | <span id="line241">241. pline("%s appears before you.", Amonnam(mtmp));</span> |
− | <span id="line242">242. | + | <span id="line242">242. mtmp->mstrategy &= ~STRAT_APPEARMSG;</span> |
− | <span id="line243">243. | + | <span id="line243">243. }</span> |
− | <span id="line244">244. | + | <span id="line244">244. newsym(mtmp->mx, mtmp->my);</span> |
− | <span id="line245">245. | + | <span id="line245">245. }</span> |
− | <span id="line246">246. | + | <span id="line246">246. if (youmonst.data->mlet == S_DEMON) { /* Won't blackmail their own. */</span> |
− | <span id="line247">247. | + | <span id="line247">247. pline("%s says, \"Good hunting, %s.\"", Amonnam(mtmp),</span> |
− | <span id="line248">248. | + | <span id="line248">248. flags.female ? "Sister" : "Brother");</span> |
− | <span id="line249">249. | + | <span id="line249">249. if (!tele_restrict(mtmp))</span> |
− | <span id="line250">250. | + | <span id="line250">250. (void) rloc(mtmp, TRUE);</span> |
− | <span id="line251">251. | + | <span id="line251">251. return (1);</span> |
− | <span id="line252">252. | + | <span id="line252">252. }</span> |
− | <span id="line253">253. | + | <span id="line253">253. cash = money_cnt(invent);</span> |
− | <span id="line254">254. | + | <span id="line254">254. demand =</span> |
− | <span id="line255">255. | + | <span id="line255">255. (cash * (rnd(80) + 20 * Athome))</span> |
− | <span id="line256">256. | + | <span id="line256">256. / (100 * (1 + (sgn(u.ualign.type) == sgn(mtmp->data->maligntyp))));</span> |
<span id="line257">257. </span> | <span id="line257">257. </span> | ||
− | <span id="line258">258. | + | <span id="line258">258. if (!demand || multi < 0) { /* you have no gold or can't move */</span> |
− | <span id="line259">259. | + | <span id="line259">259. mtmp->mpeaceful = 0;</span> |
− | <span id="line260">260. | + | <span id="line260">260. set_malign(mtmp);</span> |
− | <span id="line261">261. | + | <span id="line261">261. return 0;</span> |
− | <span id="line262">262. | + | <span id="line262">262. } else {</span> |
− | <span id="line263">263. | + | <span id="line263">263. /* make sure that the demand is unmeetable if the monster</span> |
− | <span id="line264">264. | + | <span id="line264">264. has the Amulet, preventing monster from being satisfied</span> |
− | <span id="line265">265. | + | <span id="line265">265. and removed from the game (along with said Amulet...) */</span> |
− | <span id="line266">266. | + | <span id="line266">266. if (mon_has_amulet(mtmp))</span> |
− | <span id="line267">267. | + | <span id="line267">267. demand = cash + (long) rn1(1000, 40);</span> |
<span id="line268">268. </span> | <span id="line268">268. </span> | ||
− | <span id="line269">269. | + | <span id="line269">269. pline("%s demands %ld %s for safe passage.", Amonnam(mtmp), demand,</span> |
− | <span id="line270">270. | + | <span id="line270">270. currency(demand));</span> |
<span id="line271">271. </span> | <span id="line271">271. </span> | ||
− | <span id="line272">272. | + | <span id="line272">272. if ((offer = bribe(mtmp)) >= demand) {</span> |
− | <span id="line273">273. | + | <span id="line273">273. pline("%s vanishes, laughing about cowardly mortals.",</span> |
− | <span id="line274">274. | + | <span id="line274">274. Amonnam(mtmp));</span> |
− | <span id="line275">275. | + | <span id="line275">275. } else if (offer > 0L && (long) rnd(40) > (demand - offer)) {</span> |
− | <span id="line276">276. | + | <span id="line276">276. pline("%s scowls at you menacingly, then vanishes.",</span> |
− | <span id="line277">277. | + | <span id="line277">277. Amonnam(mtmp));</span> |
− | <span id="line278">278. | + | <span id="line278">278. } else {</span> |
− | <span id="line279">279. | + | <span id="line279">279. pline("%s gets angry...", Amonnam(mtmp));</span> |
− | <span id="line280">280. | + | <span id="line280">280. mtmp->mpeaceful = 0;</span> |
− | <span id="line281">281. | + | <span id="line281">281. set_malign(mtmp);</span> |
− | <span id="line282">282. | + | <span id="line282">282. return 0;</span> |
− | <span id="line283">283. | + | <span id="line283">283. }</span> |
− | <span id="line284">284. | + | <span id="line284">284. }</span> |
− | <span id="line285">285. | + | <span id="line285">285. mongone(mtmp);</span> |
− | <span id="line286">286. | + | <span id="line286">286. return (1);</span> |
<span id="line287">287. }</span> | <span id="line287">287. }</span> | ||
<span id="line288">288. </span> | <span id="line288">288. </span> | ||
+ | |||
+ | == bribe == | ||
+ | |||
<span id="line289">289. long</span> | <span id="line289">289. long</span> | ||
<span id="line290">290. bribe(mtmp)</span> | <span id="line290">290. bribe(mtmp)</span> | ||
<span id="line291">291. struct monst *mtmp;</span> | <span id="line291">291. struct monst *mtmp;</span> | ||
<span id="line292">292. {</span> | <span id="line292">292. {</span> | ||
− | <span id="line293">293. | + | <span id="line293">293. char buf[BUFSZ];</span> |
− | <span id="line294">294. | + | <span id="line294">294. long offer;</span> |
− | <span id="line295">295. | + | <span id="line295">295. long umoney = money_cnt(invent);</span> |
<span id="line296">296. </span> | <span id="line296">296. </span> | ||
− | <span id="line297">297. | + | <span id="line297">297. getlin("How much will you offer?", buf);</span> |
− | <span id="line298">298. | + | <span id="line298">298. if (sscanf(buf, "%ld", &offer) != 1)</span> |
− | <span id="line299">299. | + | <span id="line299">299. offer = 0L;</span> |
<span id="line300">300. </span> | <span id="line300">300. </span> | ||
− | <span id="line301">301. | + | <span id="line301">301. /*Michael Paddon -- fix for negative offer to monster*/</span> |
− | <span id="line302">302. | + | <span id="line302">302. /*JAR880815 - */</span> |
− | <span id="line303">303. | + | <span id="line303">303. if (offer < 0L) {</span> |
− | <span id="line304">304. | + | <span id="line304">304. You("try to shortchange %s, but fumble.", mon_nam(mtmp));</span> |
− | <span id="line305">305. | + | <span id="line305">305. return 0L;</span> |
− | <span id="line306">306. | + | <span id="line306">306. } else if (offer == 0L) {</span> |
− | <span id="line307">307. | + | <span id="line307">307. You("refuse.");</span> |
− | <span id="line308">308. | + | <span id="line308">308. return 0L;</span> |
− | <span id="line309">309. | + | <span id="line309">309. } else if (offer >= umoney) {</span> |
− | <span id="line310">310. | + | <span id="line310">310. You("give %s all your gold.", mon_nam(mtmp));</span> |
− | <span id="line311">311. | + | <span id="line311">311. offer = umoney;</span> |
− | <span id="line312">312. | + | <span id="line312">312. } else {</span> |
− | <span id="line313">313. | + | <span id="line313">313. You("give %s %ld %s.", mon_nam(mtmp), offer, currency(offer));</span> |
− | <span id="line314">314. | + | <span id="line314">314. }</span> |
− | <span id="line315">315. | + | <span id="line315">315. (void) money2mon(mtmp, offer);</span> |
− | <span id="line316">316. | + | <span id="line316">316. context.botl = 1;</span> |
− | <span id="line317">317. | + | <span id="line317">317. return (offer);</span> |
<span id="line318">318. }</span> | <span id="line318">318. }</span> | ||
<span id="line319">319. </span> | <span id="line319">319. </span> | ||
+ | |||
+ | == dprince == | ||
+ | |||
<span id="line320">320. int</span> | <span id="line320">320. int</span> | ||
<span id="line321">321. dprince(atyp)</span> | <span id="line321">321. dprince(atyp)</span> | ||
<span id="line322">322. aligntyp atyp;</span> | <span id="line322">322. aligntyp atyp;</span> | ||
<span id="line323">323. {</span> | <span id="line323">323. {</span> | ||
− | <span id="line324">324. | + | <span id="line324">324. int tryct, pm;</span> |
<span id="line325">325. </span> | <span id="line325">325. </span> | ||
− | <span id="line326">326. | + | <span id="line326">326. for (tryct = !In_endgame(&u.uz) ? 20 : 0; tryct > 0; --tryct) {</span> |
− | <span id="line327">327. | + | <span id="line327">327. pm = rn1(PM_DEMOGORGON + 1 - PM_ORCUS, PM_ORCUS);</span> |
− | <span id="line328">328. | + | <span id="line328">328. if (!(mvitals[pm].mvflags & G_GONE)</span> |
− | <span id="line329">329. | + | <span id="line329">329. && (atyp == A_NONE || sgn(mons[pm].maligntyp) == sgn(atyp)))</span> |
− | <span id="line330">330. | + | <span id="line330">330. return (pm);</span> |
− | <span id="line331">331. | + | <span id="line331">331. }</span> |
− | <span id="line332">332. | + | <span id="line332">332. return (dlord(atyp)); /* approximate */</span> |
<span id="line333">333. }</span> | <span id="line333">333. }</span> | ||
<span id="line334">334. </span> | <span id="line334">334. </span> | ||
+ | |||
+ | == dlord == | ||
+ | |||
<span id="line335">335. int</span> | <span id="line335">335. int</span> | ||
<span id="line336">336. dlord(atyp)</span> | <span id="line336">336. dlord(atyp)</span> | ||
<span id="line337">337. aligntyp atyp;</span> | <span id="line337">337. aligntyp atyp;</span> | ||
<span id="line338">338. {</span> | <span id="line338">338. {</span> | ||
− | <span id="line339">339. | + | <span id="line339">339. int tryct, pm;</span> |
<span id="line340">340. </span> | <span id="line340">340. </span> | ||
− | <span id="line341">341. | + | <span id="line341">341. for (tryct = !In_endgame(&u.uz) ? 20 : 0; tryct > 0; --tryct) {</span> |
− | <span id="line342">342. | + | <span id="line342">342. pm = rn1(PM_YEENOGHU + 1 - PM_JUIBLEX, PM_JUIBLEX);</span> |
− | <span id="line343">343. | + | <span id="line343">343. if (!(mvitals[pm].mvflags & G_GONE)</span> |
− | <span id="line344">344. | + | <span id="line344">344. && (atyp == A_NONE || sgn(mons[pm].maligntyp) == sgn(atyp)))</span> |
− | <span id="line345">345. | + | <span id="line345">345. return (pm);</span> |
− | <span id="line346">346. | + | <span id="line346">346. }</span> |
− | <span id="line347">347. | + | <span id="line347">347. return (ndemon(atyp)); /* approximate */</span> |
<span id="line348">348. }</span> | <span id="line348">348. }</span> | ||
<span id="line349">349. </span> | <span id="line349">349. </span> | ||
+ | |||
+ | == llord == | ||
+ | |||
<span id="line350">350. /* create lawful (good) lord */</span> | <span id="line350">350. /* create lawful (good) lord */</span> | ||
<span id="line351">351. int</span> | <span id="line351">351. int</span> | ||
<span id="line352">352. llord()</span> | <span id="line352">352. llord()</span> | ||
<span id="line353">353. {</span> | <span id="line353">353. {</span> | ||
− | <span id="line354">354. | + | <span id="line354">354. if (!(mvitals[PM_ARCHON].mvflags & G_GONE))</span> |
− | <span id="line355">355. | + | <span id="line355">355. return (PM_ARCHON);</span> |
<span id="line356">356. </span> | <span id="line356">356. </span> | ||
− | <span id="line357">357. | + | <span id="line357">357. return (lminion()); /* approximate */</span> |
<span id="line358">358. }</span> | <span id="line358">358. }</span> | ||
<span id="line359">359. </span> | <span id="line359">359. </span> | ||
+ | |||
+ | == lminion == | ||
+ | |||
<span id="line360">360. int</span> | <span id="line360">360. int</span> | ||
<span id="line361">361. lminion()</span> | <span id="line361">361. lminion()</span> | ||
<span id="line362">362. {</span> | <span id="line362">362. {</span> | ||
− | <span id="line363">363. | + | <span id="line363">363. int tryct;</span> |
− | <span id="line364">364. | + | <span id="line364">364. struct permonst *ptr;</span> |
<span id="line365">365. </span> | <span id="line365">365. </span> | ||
− | <span id="line366">366. | + | <span id="line366">366. for (tryct = 0; tryct < 20; tryct++) {</span> |
− | <span id="line367">367. | + | <span id="line367">367. ptr = mkclass(S_ANGEL, 0);</span> |
− | <span id="line368">368. | + | <span id="line368">368. if (ptr && !is_lord(ptr))</span> |
− | <span id="line369">369. | + | <span id="line369">369. return (monsndx(ptr));</span> |
− | <span id="line370">370. | + | <span id="line370">370. }</span> |
<span id="line371">371. </span> | <span id="line371">371. </span> | ||
− | <span id="line372">372. | + | <span id="line372">372. return NON_PM;</span> |
<span id="line373">373. }</span> | <span id="line373">373. }</span> | ||
<span id="line374">374. </span> | <span id="line374">374. </span> | ||
+ | |||
+ | == ndemon == | ||
+ | |||
<span id="line375">375. int</span> | <span id="line375">375. int</span> | ||
<span id="line376">376. ndemon(atyp)</span> | <span id="line376">376. ndemon(atyp)</span> | ||
<span id="line377">377. aligntyp atyp;</span> | <span id="line377">377. aligntyp atyp;</span> | ||
<span id="line378">378. {</span> | <span id="line378">378. {</span> | ||
− | <span id="line379">379. | + | <span id="line379">379. int tryct;</span> |
− | <span id="line380">380. | + | <span id="line380">380. struct permonst *ptr;</span> |
<span id="line381">381. </span> | <span id="line381">381. </span> | ||
− | <span id="line382">382. | + | <span id="line382">382. for (tryct = 0; tryct < 20; tryct++) {</span> |
− | <span id="line383">383. | + | <span id="line383">383. ptr = mkclass(S_DEMON, 0);</span> |
− | <span id="line384">384. | + | <span id="line384">384. if (ptr && is_ndemon(ptr)</span> |
− | <span id="line385">385. | + | <span id="line385">385. && (atyp == A_NONE || sgn(ptr->maligntyp) == sgn(atyp)))</span> |
− | <span id="line386">386. | + | <span id="line386">386. return (monsndx(ptr));</span> |
− | <span id="line387">387. | + | <span id="line387">387. }</span> |
<span id="line388">388. </span> | <span id="line388">388. </span> | ||
− | <span id="line389">389. | + | <span id="line389">389. return NON_PM;</span> |
<span id="line390">390. }</span> | <span id="line390">390. }</span> | ||
<span id="line391">391. </span> | <span id="line391">391. </span> | ||
+ | |||
+ | == lose_guardian_angel == | ||
+ | |||
<span id="line392">392. /* guardian angel has been affected by conflict so is abandoning hero */</span> | <span id="line392">392. /* guardian angel has been affected by conflict so is abandoning hero */</span> | ||
<span id="line393">393. void</span> | <span id="line393">393. void</span> | ||
Line 402: | Line 444: | ||
<span id="line395">395. struct monst *mon; /* if null, angel hasn't been created yet */</span> | <span id="line395">395. struct monst *mon; /* if null, angel hasn't been created yet */</span> | ||
<span id="line396">396. {</span> | <span id="line396">396. {</span> | ||
− | <span id="line397">397. | + | <span id="line397">397. coord mm;</span> |
− | <span id="line398">398. | + | <span id="line398">398. int i;</span> |
<span id="line399">399. </span> | <span id="line399">399. </span> | ||
− | <span id="line400">400. | + | <span id="line400">400. if (mon) {</span> |
− | <span id="line401">401. | + | <span id="line401">401. if (canspotmon(mon)) {</span> |
− | <span id="line402">402. | + | <span id="line402">402. if (!Deaf) {</span> |
− | <span id="line403">403. | + | <span id="line403">403. pline("%s rebukes you, saying:", Monnam(mon));</span> |
− | <span id="line404">404. | + | <span id="line404">404. verbalize("Since you desire conflict, have some more!");</span> |
− | <span id="line405">405. | + | <span id="line405">405. } else {</span> |
− | <span id="line406">406. | + | <span id="line406">406. pline("%s vanishes!", Monnam(mon));</span> |
− | <span id="line407">407. | + | <span id="line407">407. }</span> |
− | <span id="line408">408. | + | <span id="line408">408. }</span> |
− | <span id="line409">409. | + | <span id="line409">409. mongone(mon);</span> |
− | <span id="line410">410. | + | <span id="line410">410. }</span> |
− | <span id="line411">411. | + | <span id="line411">411. /* create 2 to 4 hostile angels to replace the lost guardian */</span> |
− | <span id="line412">412. | + | <span id="line412">412. for (i = rn1(3, 2); i > 0; --i) {</span> |
− | <span id="line413">413. | + | <span id="line413">413. mm.x = u.ux;</span> |
− | <span id="line414">414. | + | <span id="line414">414. mm.y = u.uy;</span> |
− | <span id="line415">415. | + | <span id="line415">415. if (enexto(&mm, mm.x, mm.y, &mons[PM_ANGEL]))</span> |
− | <span id="line416">416. | + | <span id="line416">416. (void) mk_roamer(&mons[PM_ANGEL], u.ualign.type, mm.x, mm.y,</span> |
− | <span id="line417">417. | + | <span id="line417">417. FALSE);</span> |
− | <span id="line418">418. | + | <span id="line418">418. }</span> |
<span id="line419">419. }</span> | <span id="line419">419. }</span> | ||
<span id="line420">420. </span> | <span id="line420">420. </span> | ||
+ | |||
+ | == gain_guardian_angel == | ||
+ | |||
<span id="line421">421. /* just entered the Astral Plane; receive tame guardian angel if worthy */</span> | <span id="line421">421. /* just entered the Astral Plane; receive tame guardian angel if worthy */</span> | ||
<span id="line422">422. void</span> | <span id="line422">422. void</span> | ||
<span id="line423">423. gain_guardian_angel()</span> | <span id="line423">423. gain_guardian_angel()</span> | ||
<span id="line424">424. {</span> | <span id="line424">424. {</span> | ||
− | <span id="line425">425. | + | <span id="line425">425. struct monst *mtmp;</span> |
− | <span id="line426">426. | + | <span id="line426">426. struct obj *otmp;</span> |
− | <span id="line427">427. | + | <span id="line427">427. coord mm;</span> |
<span id="line428">428. </span> | <span id="line428">428. </span> | ||
− | <span id="line429">429. | + | <span id="line429">429. Hear_again(); /* attempt to cure any deafness now (divine</span> |
− | <span id="line430">430. | + | <span id="line430">430. message will be heard even if that fails) */</span> |
− | <span id="line431">431. | + | <span id="line431">431. if (Conflict) {</span> |
− | <span id="line432">432. | + | <span id="line432">432. pline("A voice booms:");</span> |
− | <span id="line433">433. | + | <span id="line433">433. verbalize("Thy desire for conflict shall be fulfilled!");</span> |
− | <span id="line434">434. | + | <span id="line434">434. /* send in some hostile angels instead */</span> |
− | <span id="line435">435. | + | <span id="line435">435. lose_guardian_angel((struct monst *) 0);</span> |
− | <span id="line436">436. | + | <span id="line436">436. } else if (u.ualign.record > 8) { /* fervent */</span> |
− | <span id="line437">437. | + | <span id="line437">437. pline("A voice whispers:");</span> |
− | <span id="line438">438. | + | <span id="line438">438. verbalize("Thou hast been worthy of me!");</span> |
− | <span id="line439">439. | + | <span id="line439">439. mm.x = u.ux;</span> |
− | <span id="line440">440. | + | <span id="line440">440. mm.y = u.uy;</span> |
− | <span id="line441">441. | + | <span id="line441">441. if (enexto(&mm, mm.x, mm.y, &mons[PM_ANGEL])</span> |
− | <span id="line442">442. | + | <span id="line442">442. && (mtmp = mk_roamer(&mons[PM_ANGEL], u.ualign.type, mm.x, mm.y,</span> |
− | <span id="line443">443. | + | <span id="line443">443. TRUE)) != 0) {</span> |
− | <span id="line444">444. | + | <span id="line444">444. mtmp->mstrategy &= ~STRAT_APPEARMSG;</span> |
− | <span id="line445">445. | + | <span id="line445">445. if (!Blind)</span> |
− | <span id="line446">446. | + | <span id="line446">446. pline("An angel appears near you.");</span> |
− | <span id="line447">447. | + | <span id="line447">447. else</span> |
− | <span id="line448">448. | + | <span id="line448">448. You_feel("the presence of a friendly angel near you.");</span> |
− | <span id="line449">449. | + | <span id="line449">449. /* guardian angel -- the one case mtame doesn't</span> |
− | <span id="line450">450. | + | <span id="line450">450. * imply an edog structure, so we don't want to</span> |
− | <span id="line451">451. | + | <span id="line451">451. * call tamedog().</span> |
− | <span id="line452">452. | + | <span id="line452">452. */</span> |
− | <span id="line453">453. | + | <span id="line453">453. mtmp->mtame = 10;</span> |
− | <span id="line454">454. | + | <span id="line454">454. /* make him strong enough vs. endgame foes */</span> |
− | <span id="line455">455. | + | <span id="line455">455. mtmp->m_lev = rn1(8, 15);</span> |
− | <span id="line456">456. | + | <span id="line456">456. mtmp->mhp = mtmp->mhpmax =</span> |
− | <span id="line457">457. | + | <span id="line457">457. d((int) mtmp->m_lev, 10) + 30 + rnd(30);</span> |
− | <span id="line458">458. | + | <span id="line458">458. if ((otmp = select_hwep(mtmp)) == 0) {</span> |
− | <span id="line459">459. | + | <span id="line459">459. otmp = mksobj(SILVER_SABER, FALSE, FALSE);</span> |
− | <span id="line460">460. | + | <span id="line460">460. if (mpickobj(mtmp, otmp))</span> |
− | <span id="line461">461. | + | <span id="line461">461. panic("merged weapon?");</span> |
− | <span id="line462">462. | + | <span id="line462">462. }</span> |
− | <span id="line463">463. | + | <span id="line463">463. bless(otmp);</span> |
− | <span id="line464">464. | + | <span id="line464">464. if (otmp->spe < 4)</span> |
− | <span id="line465">465. | + | <span id="line465">465. otmp->spe += rnd(4);</span> |
− | <span id="line466">466. | + | <span id="line466">466. if ((otmp = which_armor(mtmp, W_ARMS)) == 0</span> |
− | <span id="line467">467. | + | <span id="line467">467. || otmp->otyp != SHIELD_OF_REFLECTION) {</span> |
− | <span id="line468">468. | + | <span id="line468">468. (void) mongets(mtmp, AMULET_OF_REFLECTION);</span> |
− | <span id="line469">469. | + | <span id="line469">469. m_dowear(mtmp, TRUE);</span> |
− | <span id="line470">470. | + | <span id="line470">470. }</span> |
− | <span id="line471">471. | + | <span id="line471">471. }</span> |
− | <span id="line472">472. | + | <span id="line472">472. }</span> |
<span id="line473">473. }</span> | <span id="line473">473. }</span> | ||
<span id="line474">474. </span> | <span id="line474">474. </span> | ||
<span id="line475">475. /*minion.c*/</span> | <span id="line475">475. /*minion.c*/</span> | ||
[[Category:NetHack 3.6.0 source code|src/minion.c]] | [[Category:NetHack 3.6.0 source code|src/minion.c]] |
Latest revision as of 22:02, 3 January 2016
Below is the full text to minion.c from the source code of NetHack 3.6.0. To link to a particular line, write [[Source:NetHack 3.6.0/src/minion.c#line123]], for example.
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.
Contents
Top of file
Top of file
/* NetHack 3.6 minion.c $NHDT-Date: 1432512773 2015/05/25 00:12:53 $ $NHDT-Branch: master $:$NHDT-Revision: 1.33 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed. See license for details. */
#include "hack.h"
newemin
void
newemin(mtmp)
struct monst *mtmp;
{
if (!mtmp->mextra)
mtmp->mextra = newmextra();
if (!EMIN(mtmp)) {
EMIN(mtmp) = (struct emin *) alloc(sizeof(struct emin));
(void) memset((genericptr_t) EMIN(mtmp), 0, sizeof(struct emin));
}
}
free_emin
void
free_emin(mtmp)
struct monst *mtmp;
{
if (mtmp->mextra && EMIN(mtmp)) {
free((genericptr_t) EMIN(mtmp));
EMIN(mtmp) = (struct emin *) 0;
}
mtmp->isminion = 0;
}
monster_census
/* count the number of monsters on the level */
int
monster_census(spotted)
boolean spotted; /* seen|sensed vs all */
{
struct monst *mtmp;
int count = 0;
for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
if (DEADMONSTER(mtmp))
continue;
if (spotted && !canspotmon(mtmp))
continue;
++count;
}
return count;
}
msummon
/* mon summons a monster */
int
msummon(mon)
struct monst *mon;
{
struct permonst *ptr;
int dtype = NON_PM, cnt = 0, result = 0, census;
aligntyp atyp;
struct monst *mtmp;
if (mon) {
ptr = mon->data;
atyp = mon->ispriest ? EPRI(mon)->shralign
: mon->isminion ? EMIN(mon)->min_align
: (ptr->maligntyp == A_NONE)
? A_NONE
: sgn(ptr->maligntyp);
} else {
ptr = &mons[PM_WIZARD_OF_YENDOR];
atyp = (ptr->maligntyp == A_NONE) ? A_NONE : sgn(ptr->maligntyp);
}
if (is_dprince(ptr) || (ptr == &mons[PM_WIZARD_OF_YENDOR])) {
dtype = (!rn2(20)) ? dprince(atyp) : (!rn2(4)) ? dlord(atyp)
: ndemon(atyp);
cnt = (!rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;
} else if (is_dlord(ptr)) {
dtype = (!rn2(50)) ? dprince(atyp) : (!rn2(20)) ? dlord(atyp)
: ndemon(atyp);
cnt = (!rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;
} else if (is_ndemon(ptr)) {
dtype = (!rn2(20)) ? dlord(atyp) : (!rn2(6)) ? ndemon(atyp)
: monsndx(ptr);
cnt = 1;
} else if (is_lminion(mon)) {
dtype = (is_lord(ptr) && !rn2(20))
? llord()
: (is_lord(ptr) || !rn2(6)) ? lminion() : monsndx(ptr);
cnt = (!rn2(4) && !is_lord(&mons[dtype])) ? 2 : 1;
} else if (ptr == &mons[PM_ANGEL]) {
/* non-lawful angels can also summon */
if (!rn2(6)) {
switch (atyp) { /* see summon_minion */
case A_NEUTRAL:
dtype = PM_AIR_ELEMENTAL + rn2(4);
break;
case A_CHAOTIC:
case A_NONE:
dtype = ndemon(atyp);
break;
}
} else {
dtype = PM_ANGEL;
}
cnt = (!rn2(4) && !is_lord(&mons[dtype])) ? 2 : 1;
}
if (dtype == NON_PM)
return 0;
/* sanity checks */
if (cnt > 1 && (mons[dtype].geno & G_UNIQ))
cnt = 1;
/*
* If this daemon is unique and being re-summoned (the only way we
* could get this far with an extinct dtype), try another.
*/
if (mvitals[dtype].mvflags & G_GONE) {
dtype = ndemon(atyp);
if (dtype == NON_PM)
return 0;
}
/* some candidates can generate a group of monsters, so simple
count of non-null makemon() result is not sufficient */
census = monster_census(FALSE);
while (cnt > 0) {
mtmp = makemon(&mons[dtype], u.ux, u.uy, MM_EMIN);
if (mtmp) {
result++;
/* an angel's alignment should match the summoner */
if (dtype == PM_ANGEL) {
mtmp->isminion = 1;
EMIN(mtmp)->min_align = atyp;
/* renegade if same alignment but not peaceful
or peaceful but different alignment */
EMIN(mtmp)->renegade =
(atyp != u.ualign.type) ^ !mtmp->mpeaceful;
}
}
cnt--;
}
/* how many monsters exist now compared to before? */
if (result)
result = monster_census(FALSE) - census;
return result;
}
summon_minion
void
summon_minion(alignment, talk)
aligntyp alignment;
boolean talk;
{
register struct monst *mon;
int mnum;
switch ((int) alignment) {
case A_LAWFUL:
mnum = lminion();
break;
case A_NEUTRAL:
mnum = PM_AIR_ELEMENTAL + rn2(4);
break;
case A_CHAOTIC:
case A_NONE:
mnum = ndemon(alignment);
break;
default:
impossible("unaligned player?");
mnum = ndemon(A_NONE);
break;
}
if (mnum == NON_PM) {
mon = 0;
} else if (mnum == PM_ANGEL) {
mon = makemon(&mons[mnum], u.ux, u.uy, MM_EMIN);
if (mon) {
mon->isminion = 1;
EMIN(mon)->min_align = alignment;
EMIN(mon)->renegade = FALSE;
}
} else if (mnum != PM_SHOPKEEPER && mnum != PM_GUARD
&& mnum != PM_ALIGNED_PRIEST && mnum != PM_HIGH_PRIEST) {
/* This was mons[mnum].pxlth == 0 but is this restriction
appropriate or necessary now that the structures are separate? */
mon = makemon(&mons[mnum], u.ux, u.uy, MM_EMIN);
if (mon) {
mon->isminion = 1;
EMIN(mon)->min_align = alignment;
EMIN(mon)->renegade = FALSE;
}
} else {
mon = makemon(&mons[mnum], u.ux, u.uy, NO_MM_FLAGS);
}
if (mon) {
if (talk) {
pline_The("voice of %s booms:", align_gname(alignment));
verbalize("Thou shalt pay for thine indiscretion!");
if (!Blind)
pline("%s appears before you.", Amonnam(mon));
mon->mstrategy &= ~STRAT_APPEARMSG;
}
mon->mpeaceful = FALSE;
/* don't call set_malign(); player was naughty */
}
}
demon_talk
#define Athome (Inhell && (mtmp->cham == NON_PM))
/* returns 1 if it won't attack. */
int
demon_talk(mtmp)
register struct monst *mtmp;
{
long cash, demand, offer;
if (uwep && uwep->oartifact == ART_EXCALIBUR) {
pline("%s looks very angry.", Amonnam(mtmp));
mtmp->mpeaceful = mtmp->mtame = 0;
set_malign(mtmp);
newsym(mtmp->mx, mtmp->my);
return 0;
}
if (is_fainted()) {
reset_faint(); /* if fainted - wake up */
} else {
stop_occupation();
if (multi > 0) {
nomul(0);
unmul((char *) 0);
}
}
/* Slight advantage given. */
if (is_dprince(mtmp->data) && mtmp->minvis) {
boolean wasunseen = !canspotmon(mtmp);
mtmp->minvis = mtmp->perminvis = 0;
if (wasunseen && canspotmon(mtmp)) {
pline("%s appears before you.", Amonnam(mtmp));
mtmp->mstrategy &= ~STRAT_APPEARMSG;
}
newsym(mtmp->mx, mtmp->my);
}
if (youmonst.data->mlet == S_DEMON) { /* Won't blackmail their own. */
pline("%s says, \"Good hunting, %s.\"", Amonnam(mtmp),
flags.female ? "Sister" : "Brother");
if (!tele_restrict(mtmp))
(void) rloc(mtmp, TRUE);
return (1);
}
cash = money_cnt(invent);
demand =
(cash * (rnd(80) + 20 * Athome))
/ (100 * (1 + (sgn(u.ualign.type) == sgn(mtmp->data->maligntyp))));
if (!demand || multi < 0) { /* you have no gold or can't move */
mtmp->mpeaceful = 0;
set_malign(mtmp);
return 0;
} else {
/* make sure that the demand is unmeetable if the monster
has the Amulet, preventing monster from being satisfied
and removed from the game (along with said Amulet...) */
if (mon_has_amulet(mtmp))
demand = cash + (long) rn1(1000, 40);
pline("%s demands %ld %s for safe passage.", Amonnam(mtmp), demand,
currency(demand));
if ((offer = bribe(mtmp)) >= demand) {
pline("%s vanishes, laughing about cowardly mortals.",
Amonnam(mtmp));
} else if (offer > 0L && (long) rnd(40) > (demand - offer)) {
pline("%s scowls at you menacingly, then vanishes.",
Amonnam(mtmp));
} else {
pline("%s gets angry...", Amonnam(mtmp));
mtmp->mpeaceful = 0;
set_malign(mtmp);
return 0;
}
}
mongone(mtmp);
return (1);
}
bribe
long
bribe(mtmp)
struct monst *mtmp;
{
char buf[BUFSZ];
long offer;
long umoney = money_cnt(invent);
getlin("How much will you offer?", buf);
if (sscanf(buf, "%ld", &offer) != 1)
offer = 0L;
/*Michael Paddon -- fix for negative offer to monster*/
/*JAR880815 - */
if (offer < 0L) {
You("try to shortchange %s, but fumble.", mon_nam(mtmp));
return 0L;
} else if (offer == 0L) {
You("refuse.");
return 0L;
} else if (offer >= umoney) {
You("give %s all your gold.", mon_nam(mtmp));
offer = umoney;
} else {
You("give %s %ld %s.", mon_nam(mtmp), offer, currency(offer));
}
(void) money2mon(mtmp, offer);
context.botl = 1;
return (offer);
}
dprince
int
dprince(atyp)
aligntyp atyp;
{
int tryct, pm;
for (tryct = !In_endgame(&u.uz) ? 20 : 0; tryct > 0; --tryct) {
pm = rn1(PM_DEMOGORGON + 1 - PM_ORCUS, PM_ORCUS);
if (!(mvitals[pm].mvflags & G_GONE)
&& (atyp == A_NONE || sgn(mons[pm].maligntyp) == sgn(atyp)))
return (pm);
}
return (dlord(atyp)); /* approximate */
}
dlord
int
dlord(atyp)
aligntyp atyp;
{
int tryct, pm;
for (tryct = !In_endgame(&u.uz) ? 20 : 0; tryct > 0; --tryct) {
pm = rn1(PM_YEENOGHU + 1 - PM_JUIBLEX, PM_JUIBLEX);
if (!(mvitals[pm].mvflags & G_GONE)
&& (atyp == A_NONE || sgn(mons[pm].maligntyp) == sgn(atyp)))
return (pm);
}
return (ndemon(atyp)); /* approximate */
}
llord
/* create lawful (good) lord */
int
llord()
{
if (!(mvitals[PM_ARCHON].mvflags & G_GONE))
return (PM_ARCHON);
return (lminion()); /* approximate */
}
lminion
int
lminion()
{
int tryct;
struct permonst *ptr;
for (tryct = 0; tryct < 20; tryct++) {
ptr = mkclass(S_ANGEL, 0);
if (ptr && !is_lord(ptr))
return (monsndx(ptr));
}
return NON_PM;
}
ndemon
int
ndemon(atyp)
aligntyp atyp;
{
int tryct;
struct permonst *ptr;
for (tryct = 0; tryct < 20; tryct++) {
ptr = mkclass(S_DEMON, 0);
if (ptr && is_ndemon(ptr)
&& (atyp == A_NONE || sgn(ptr->maligntyp) == sgn(atyp)))
return (monsndx(ptr));
}
return NON_PM;
}
lose_guardian_angel
/* guardian angel has been affected by conflict so is abandoning hero */
void
lose_guardian_angel(mon)
struct monst *mon; /* if null, angel hasn't been created yet */
{
coord mm;
int i;
if (mon) {
if (canspotmon(mon)) {
if (!Deaf) {
pline("%s rebukes you, saying:", Monnam(mon));
verbalize("Since you desire conflict, have some more!");
} else {
pline("%s vanishes!", Monnam(mon));
}
}
mongone(mon);
}
/* create 2 to 4 hostile angels to replace the lost guardian */
for (i = rn1(3, 2); i > 0; --i) {
mm.x = u.ux;
mm.y = u.uy;
if (enexto(&mm, mm.x, mm.y, &mons[PM_ANGEL]))
(void) mk_roamer(&mons[PM_ANGEL], u.ualign.type, mm.x, mm.y,
FALSE);
}
}
gain_guardian_angel
/* just entered the Astral Plane; receive tame guardian angel if worthy */
void
gain_guardian_angel()
{
struct monst *mtmp;
struct obj *otmp;
coord mm;
Hear_again(); /* attempt to cure any deafness now (divine
message will be heard even if that fails) */
if (Conflict) {
pline("A voice booms:");
verbalize("Thy desire for conflict shall be fulfilled!");
/* send in some hostile angels instead */
lose_guardian_angel((struct monst *) 0);
} else if (u.ualign.record > 8) { /* fervent */
pline("A voice whispers:");
verbalize("Thou hast been worthy of me!");
mm.x = u.ux;
mm.y = u.uy;
if (enexto(&mm, mm.x, mm.y, &mons[PM_ANGEL])
&& (mtmp = mk_roamer(&mons[PM_ANGEL], u.ualign.type, mm.x, mm.y,
TRUE)) != 0) {
mtmp->mstrategy &= ~STRAT_APPEARMSG;
if (!Blind)
pline("An angel appears near you.");
else
You_feel("the presence of a friendly angel near you.");
/* guardian angel -- the one case mtame doesn't
* imply an edog structure, so we don't want to
* call tamedog().
*/
mtmp->mtame = 10;
/* make him strong enough vs. endgame foes */
mtmp->m_lev = rn1(8, 15);
mtmp->mhp = mtmp->mhpmax =
d((int) mtmp->m_lev, 10) + 30 + rnd(30);
if ((otmp = select_hwep(mtmp)) == 0) {
otmp = mksobj(SILVER_SABER, FALSE, FALSE);
if (mpickobj(mtmp, otmp))
panic("merged weapon?");
}
bless(otmp);
if (otmp->spe < 4)
otmp->spe += rnd(4);
if ((otmp = which_armor(mtmp, W_ARMS)) == 0
|| otmp->otyp != SHIELD_OF_REFLECTION) {
(void) mongets(mtmp, AMULET_OF_REFLECTION);
m_dowear(mtmp, TRUE);
}
}
}
}
/*minion.c*/