Source:NetHack 3.4.3/src/botl.c - Revision history

Furey: Fix instructions for linking to a particular line. Current instructions incorrectly link to a different version of NetHack.

2024-06-24T06:46:31Z

Fix instructions for linking to a particular line. Current instructions incorrectly link to a different version of NetHack.

Paxedbot: moved Source:Botl.c to Source:NetHack 3.4.3/src/botl.c: Moving src to subdirs

2011-01-31T19:20:55Z

moved Source:Botl.c to Source:NetHack 3.4.3/src/botl.c: Moving src to subdirs

Paxedbot: Adding MIXEDSYNTAXHIGHLIGHT

2010-11-20T18:53:03Z

Adding __MIXEDSYNTAXHIGHLIGHT__

Kernigh bot: Botl.c moved to Source:Botl.c: Robot: moved page

2008-03-03T21:30:56Z

Botl.c moved to Source:Botl.c: Robot: moved page

Kernigh: /* xlev_to_rank */ Document all possible outcomes of this function in a table.

2008-01-10T18:17:41Z

‎xlev_to_rank: Document all possible outcomes of this function in a table.

71.117.209.171: /* rank_to_lev */

2007-10-07T20:14:00Z

‎rank_to_lev

Eidolos: Add headers.

2006-08-19T21:02:02Z

Add headers.

Jaytbot: Automated source code upload

2006-06-22T09:43:58Z

Automated source code upload

New page

Below is the full text to src/botl.c from NetHack 3.4.3. To link to a particular line, write [[botl.c#line123|<nowiki>[[botl.c#line123]]</nowiki>]], for example.
1. /* SCCS Id: @(#)botl.c 3.4 1996/07/15 */
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* NetHack may be freely redistributed. See license for details. */
4. 

{{NGPL}}

5. #include "hack.h"
6. 
7. #ifdef OVL0
8. extern const char *hu_stat[]; /* defined in eat.c */
9. 
10. const char * const enc_stat[] = {
11. "",
12. "Burdened",
13. "Stressed",
14. "Strained",
15. "Overtaxed",
16. "Overloaded"
17. };
18. 
19. STATIC_DCL void NDECL(bot1);
20. STATIC_DCL void NDECL(bot2);
21. #endif /* OVL0 */
22. 
23. /* MAXCO must hold longest uncompressed status line, and must be larger
24. * than COLNO
25. *
26. * longest practical second status line at the moment is
27. * Astral Plane $:12345 HP:700(700) Pw:111(111) AC:-127 Xp:30/123456789
28. * T:123456 Satiated Conf FoodPois Ill Blind Stun Hallu Overloaded
29. * -- or somewhat over 130 characters
30. */
31. #if COLNO <= 140
32. #define MAXCO 160
33. #else
34. #define MAXCO (COLNO+20)
35. #endif
36. 
37. #ifndef OVLB
38. STATIC_DCL int mrank_sz;
39. #else /* OVLB */
40. STATIC_OVL NEARDATA int mrank_sz = 0; /* loaded by max_rank_sz (from u_init) */
41. #endif /* OVLB */
42. 
43. STATIC_DCL const char *NDECL(rank);
44. 
45. #ifdef OVL1
46. 
47. /* convert experience level (1..30) to rank index (0..8) */
48. int
49. xlev_to_rank(xlev)
50. int xlev;
51. {
52. return (xlev <= 2) ? 0 : (xlev <= 30) ? ((xlev + 2) / 4) : 8;
53. }
54. 
55. #if 0 /* not currently needed */
56. /* convert rank index (0..8) to experience level (1..30) */
57. int
58. rank_to_xlev(rank)
59. int rank;
60. {
61. return (rank <= 0) ? 1 : (rank <= 8) ? ((rank * 4) - 2) : 30;
62. }
63. #endif
64. 
65. const char *
66. rank_of(lev, monnum, female)
67. int lev;
68. short monnum;
69. boolean female;
70. {
71. register struct Role *role;
72. register int i;
73. 
74. 
75. /* Find the role */
76. for (role = (struct Role *) roles; role->name.m; role++)
77. if (monnum == role->malenum || monnum == role->femalenum)
78. break;
79. if (!role->name.m)
80. role = &urole;
81. 
82. /* Find the rank */
83. for (i = xlev_to_rank((int)lev); i >= 0; i--) {
84. if (female && role->rank[i].f) return (role->rank[i].f);
85. if (role->rank[i].m) return (role->rank[i].m);
86. }
87. 
88. /* Try the role name, instead */
89. if (female && role->name.f) return (role->name.f);
90. else if (role->name.m) return (role->name.m);
91. return ("Player");
92. }
93. 
94. 
95. STATIC_OVL const char *
96. rank()
97. {
98. return(rank_of(u.ulevel, Role_switch, flags.female));
99. }
100. 
101. int
102. title_to_mon(str, rank_indx, title_length)
103. const char *str;
104. int *rank_indx, *title_length;
105. {
106. register int i, j;
107. 
108. 
109. /* Loop through each of the roles */
110. for (i = 0; roles[i].name.m; i++)
111. for (j = 0; j < 9; j++) {
112. if (roles[i].rank[j].m && !strncmpi(str,
113. roles[i].rank[j].m, strlen(roles[i].rank[j].m))) {
114. if (rank_indx) *rank_indx = j;
115. if (title_length) *title_length = strlen(roles[i].rank[j].m);
116. return roles[i].malenum;
117. }
118. if (roles[i].rank[j].f && !strncmpi(str,
119. roles[i].rank[j].f, strlen(roles[i].rank[j].f))) {
120. if (rank_indx) *rank_indx = j;
121. if (title_length) *title_length = strlen(roles[i].rank[j].f);
122. return ((roles[i].femalenum != NON_PM) ?
123. roles[i].femalenum : roles[i].malenum);
124. }
125. }
126. return NON_PM;
127. }
128. 
129. #endif /* OVL1 */
130. #ifdef OVLB
131. 
132. void
133. max_rank_sz()
134. {
135. register int i, r, maxr = 0;
136. for (i = 0; i < 9; i++) {
137. if (urole.rank[i].m && (r = strlen(urole.rank[i].m)) > maxr) maxr = r;
138. if (urole.rank[i].f && (r = strlen(urole.rank[i].f)) > maxr) maxr = r;
139. }
140. mrank_sz = maxr;
141. return;
142. }
143. 
144. #endif /* OVLB */
145. #ifdef OVL0
146. 
147. #ifdef SCORE_ON_BOTL
148. long
149. botl_score()
150. {
151. int deepest = deepest_lev_reached(FALSE);
152. #ifndef GOLDOBJ
153. long ugold = u.ugold + hidden_gold();
154. 
155. if ((ugold -= u.ugold0) < 0L) ugold = 0L;
156. return ugold + u.urexp + (long)(50 * (deepest - 1))
157. #else
158. long umoney = money_cnt(invent) + hidden_gold();
159. 
160. if ((umoney -= u.umoney0) < 0L) umoney = 0L;
161. return umoney + u.urexp + (long)(50 * (deepest - 1))
162. #endif
163. + (long)(deepest > 30 ? 10000 :
164. deepest > 20 ? 1000*(deepest - 20) : 0);
165. }
166. #endif
167. 
168. STATIC_OVL void
169. bot1()
170. {
171. char newbot1[MAXCO];
172. register char *nb;
173. register int i,j;
174. 
175. Strcpy(newbot1, plname);
176. if('a' <= newbot1[0] && newbot1[0] <= 'z') newbot1[0] += 'A'-'a';
177. newbot1[10] = 0;
178. Sprintf(nb = eos(newbot1)," the ");
179. 
180. if (Upolyd) {
181. char mbot[BUFSZ];
182. int k = 0;
183. 
184. Strcpy(mbot, mons[u.umonnum].mname);
185. while(mbot[k] != 0) {
186. if ((k == 0 || (k > 0 && mbot[k-1] == ' ')) &&
187. 'a' <= mbot[k] && mbot[k] <= 'z')
188. mbot[k] += 'A' - 'a';
189. k++;
190. }
191. Sprintf(nb = eos(nb), mbot);
192. } else
193. Sprintf(nb = eos(nb), rank());
194. 
195. Sprintf(nb = eos(nb)," ");
196. i = mrank_sz + 15;
197. j = (nb + 2) - newbot1; /* aka strlen(newbot1) but less computation */
198. if((i - j) > 0)
199. Sprintf(nb = eos(nb),"%*s", i-j, " "); /* pad with spaces */
200. if (ACURR(A_STR) > 18) {
201. if (ACURR(A_STR) > STR18(100))
202. Sprintf(nb = eos(nb),"St:%2d ",ACURR(A_STR)-100);
203. else if (ACURR(A_STR) < STR18(100))
204. Sprintf(nb = eos(nb), "St:18/%02d ",ACURR(A_STR)-18);
205. else
206. Sprintf(nb = eos(nb),"St:18/** ");
207. } else
208. Sprintf(nb = eos(nb), "St:%-1d ",ACURR(A_STR));
209. Sprintf(nb = eos(nb),
210. "Dx:%-1d Co:%-1d In:%-1d Wi:%-1d Ch:%-1d",
211. ACURR(A_DEX), ACURR(A_CON), ACURR(A_INT), ACURR(A_WIS), ACURR(A_CHA));
212. Sprintf(nb = eos(nb), (u.ualign.type == A_CHAOTIC) ? " Chaotic" :
213. (u.ualign.type == A_NEUTRAL) ? " Neutral" : " Lawful");
214. #ifdef SCORE_ON_BOTL
215. if (flags.showscore)
216. Sprintf(nb = eos(nb), " S:%ld", botl_score());
217. #endif
218. curs(WIN_STATUS, 1, 0);
219. putstr(WIN_STATUS, 0, newbot1);
220. }
221. 
222. /* provide the name of the current level for display by various ports */
223. int
224. describe_level(buf)
225. char *buf;
226. {
227. int ret = 1;
228. 
229. /* TODO: Add in dungeon name */
230. if (Is_knox(&u.uz))
231. Sprintf(buf, "%s ", dungeons[u.uz.dnum].dname);
232. else if (In_quest(&u.uz))
233. Sprintf(buf, "Home %d ", dunlev(&u.uz));
234. else if (In_endgame(&u.uz))
235. Sprintf(buf,
236. Is_astralevel(&u.uz) ? "Astral Plane " : "End Game ");
237. else {
238. /* ports with more room may expand this one */
239. Sprintf(buf, "Dlvl:%-2d ", depth(&u.uz));
240. ret = 0;
241. }
242. return ret;
243. }
244. 
245. STATIC_OVL void
246. bot2()
247. {
248. char newbot2[MAXCO];
249. register char *nb;
250. int hp, hpmax;
251. int cap = near_capacity();
252. 
253. hp = Upolyd ? u.mh : u.uhp;
254. hpmax = Upolyd ? u.mhmax : u.uhpmax;
255. 
256. if(hp < 0) hp = 0;
257. (void) describe_level(newbot2);
258. Sprintf(nb = eos(newbot2),
259. "%c:%-2ld HP:%d(%d) Pw:%d(%d) AC:%-2d", oc_syms[COIN_CLASS],
260. #ifndef GOLDOBJ
261. u.ugold,
262. #else
263. money_cnt(invent),
264. #endif
265. hp, hpmax, u.uen, u.uenmax, u.uac);
266. 
267. if (Upolyd)
268. Sprintf(nb = eos(nb), " HD:%d", mons[u.umonnum].mlevel);
269. #ifdef EXP_ON_BOTL
270. else if(flags.showexp)
271. Sprintf(nb = eos(nb), " Xp:%u/%-1ld", u.ulevel,u.uexp);
272. #endif
273. else
274. Sprintf(nb = eos(nb), " Exp:%u", u.ulevel);
275. 
276. if(flags.time)
277. Sprintf(nb = eos(nb), " T:%ld", moves);
278. if(strcmp(hu_stat[u.uhs], " ")) {
279. Sprintf(nb = eos(nb), " ");
280. Strcat(newbot2, hu_stat[u.uhs]);
281. }
282. if(Confusion) Sprintf(nb = eos(nb), " Conf");
283. if(Sick) {
284. if (u.usick_type & SICK_VOMITABLE)
285. Sprintf(nb = eos(nb), " FoodPois");
286. if (u.usick_type & SICK_NONVOMITABLE)
287. Sprintf(nb = eos(nb), " Ill");
288. }
289. if(Blind) Sprintf(nb = eos(nb), " Blind");
290. if(Stunned) Sprintf(nb = eos(nb), " Stun");
291. if(Hallucination) Sprintf(nb = eos(nb), " Hallu");
292. if(Slimed) Sprintf(nb = eos(nb), " Slime");
293. if(cap > UNENCUMBERED)
294. Sprintf(nb = eos(nb), " %s", enc_stat[cap]);
295. curs(WIN_STATUS, 1, 1);
296. putstr(WIN_STATUS, 0, newbot2);
297. }
298. 
299. void
300. bot()
301. {
302. bot1();
303. bot2();
304. flags.botl = flags.botlx = 0;
305. }
306. 
307. #endif /* OVL0 */
308. 
309. /*botl.c*/
[[Category:source code]]

@@ Line 1: / Line 1: @@
 __MIXEDSYNTAXHIGHLIGHT__
-Below is the full text to src/botl.c from NetHack 3.4.3. To link to a particular line, write [[botl.c#line123|<nowiki>[[botl.c#line123]]</nowiki>]], for example.
+Below is the full text to src/botl.c from NetHack 3.4.3. To link to a particular line, write [[Source:NetHack 3.4.3/src/botl.c#line123]], for example.
 == Top of file ==

← Older revision		Revision as of 18:53, 20 November 2010
Line 1:		Line 1:
		+	__MIXEDSYNTAXHIGHLIGHT__
	Below is the full text to src/botl.c from NetHack 3.4.3. To link to a particular line, write [[botl.c#line123\|<nowiki>[[botl.c#line123]]</nowiki>]], for example.		Below is the full text to src/botl.c from NetHack 3.4.3. To link to a particular line, write [[botl.c#line123\|<nowiki>[[botl.c#line123]]</nowiki>]], for example.

@@ Line 63: / Line 63: @@
   <span id="line53">53.   }</span>
   <span id="line54">54.   </span>
 == rank_to_xlev ==

@@ Line 64: / Line 64: @@
   <span id="line54">54.   </span>
-== rank_to_lev ==
+== rank_to_xlev ==
   <span id="line55">55.   #if 0	/* not currently needed */</span>

@@ Line 1: / Line 1: @@
   <span id="line1">1.    /*	SCCS Id: @(#)botl.c	3.4	1996/07/15	*/</span>
   <span id="line2">2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span>
@@ Line 48: / Line 50: @@
   <span id="line43">43.   STATIC_DCL const char *NDECL(rank);</span>
   <span id="line44">44.   </span>
   <span id="line45">45.   #ifdef OVL1</span>
   <span id="line46">46.   </span>
@@ Line 58: / Line 63: @@
   <span id="line53">53.   }</span>
   <span id="line54">54.   </span>
   <span id="line55">55.   #if 0	/* not currently needed */</span>
   <span id="line56">56.   /* convert rank index (0..8) to experience level (1..30) */</span>
@@ Line 68: / Line 76: @@
   <span id="line63">63.   #endif</span>
   <span id="line64">64.   </span>
   <span id="line65">65.   const char *</span>
   <span id="line66">66.   rank_of(lev, monnum, female)</span>
@@ Line 98: / Line 109: @@
   <span id="line93">93.   </span>
   <span id="line94">94.   </span>
   <span id="line95">95.   STATIC_OVL const char *</span>
   <span id="line96">96.   rank()</span>
@@ Line 104: / Line 118: @@
   <span id="line99">99.   }</span>
   <span id="line100">100.  </span>
   <span id="line101">101.  int</span>
   <span id="line102">102.  title_to_mon(str, rank_indx, title_length)</span>
@@ Line 133: / Line 150: @@
   <span id="line128">128.  </span>
   <span id="line129">129.  #endif /* OVL1 */</span>
   <span id="line130">130.  #ifdef OVLB</span>
   <span id="line131">131.  </span>
@@ Line 148: / Line 168: @@
   <span id="line143">143.  </span>
   <span id="line144">144.  #endif /* OVLB */</span>
   <span id="line145">145.  #ifdef OVL0</span>
   <span id="line146">146.  </span>
@@ Line 171: / Line 194: @@
   <span id="line166">166.  #endif</span>
   <span id="line167">167.  </span>
   <span id="line168">168.  STATIC_OVL void</span>
   <span id="line169">169.  bot1()</span>
@@ Line 225: / Line 251: @@
   <span id="line220">220.  }</span>
   <span id="line221">221.  </span>
   <span id="line222">222.  /* provide the name of the current level for display by various ports */</span>
   <span id="line223">223.  int</span>
@@ Line 248: / Line 277: @@
   <span id="line243">243.  }</span>
   <span id="line244">244.  </span>
   <span id="line245">245.  STATIC_OVL void</span>
   <span id="line246">246.  bot2()</span>
@@ Line 302: / Line 334: @@
   <span id="line297">297.  }</span>
   <span id="line298">298.  </span>
   <span id="line299">299.  void</span>
   <span id="line300">300.  bot()</span>

← Older revision	Revision as of 19:20, 31 January 2011
(No difference)

← Older revision	Revision as of 21:30, 3 March 2008
(No difference)