Jaytbot: Automated source code upload

2006-08-31T13:47:49Z

Automated source code upload

New page

Below is the full text to '''cmd.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/cmd.c#line123|<nowiki>[[NetHack 1.3d/cmd.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: @(#)cmd.c 1.3 87/07/14
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* cmd.c - version 1.0.3 */
4. 
5. #include "hack.h"
6. #include "func_tab.h"
7. 
8. int doredraw(),doredotopl(),dodrop(),dodrink(),doread(),dosearch(),dopickup(),
9. doversion(),doweararm(),dowearring(),doremarm(),doddoremarm(),doremring(),
10. dopay(),doapply(),dosave(),dowield(),ddoinv(),dozap(),ddocall(),dowhatis(),
11. doengrave(),dotele(),dohelp(),doeat(),doddrop(),do_mname(),doidtrap(),
12. doprwep(),doprarm(),doprring(),doprgold(),dodiscovered(),dotypeinv(),dolook(),
13. doset(),doup(), dodown(), done1(), donull(), dothrow(), doextcmd(), dodip(),
14. dopray(), doextlist();
15. #ifdef NEWCLASS
16. int dosit();
17. #endif
18. #ifdef SPELLS
19. int docast(), dovspell(), doxcribe();
20. #endif
21. #ifdef SHELL
22. int dosh();
23. #endif
24. #ifdef SUSPEND
25. int dosuspend();
26. #endif
27. #ifdef KAA
28. int doremove(), dobreathe();
29. # ifdef KOPS
30. int dowipe();
31. # endif
32. #endif
33. 
34. int rndobjsym(), rndmonsym();
35. char *hcolor(), *rndmonnam(), *defmonnam();
36. 
37. extern char *occtxt;
38. extern int (*occupation)();
39. 
40. # ifdef DGKMOD
41. int dotogglepickup(), doMSCversion();
42. # ifdef DEBUG
43. int dodebug();
44. # endif
45. 
46. static int (*timed_occ_fn)();
47. 
48. /* Count down by decrementing multi */
49. timed_occupation() {
50. (*timed_occ_fn)();
51. if (multi > 0)
52. multi--;
53. return (multi > 0);
54. }
55. 
56. /* If a time is given, use it to timeout this function, otherwise the
57. * function times out by its own means.
58. */
59. void
60. set_occupation(fn, txt, time)
61. int (*fn)();
62. char *txt;
63. {
64. if (time) {
65. occupation = timed_occupation;
66. timed_occ_fn = fn;
67. } else
68. occupation = fn;
69. occtxt = txt;
70. occtime = 0;
71. }
72. #endif /* DGKMOD */
73. 
74. #ifdef REDO
75. /* Provide a means to redo the last command. The flag `in_doagain' is set
76. * to true while redoing the command. This flag is tested in commands that
77. * require additional input (like `throw' which requires a thing and a
78. * direction), and the input prompt is not shown. Also, while in_doagain is
79. * TRUE, no keystrokes can be saved into the saveq.
80. */
81. #define BSIZE 20
82. static char pushq[BSIZE], saveq[BSIZE];
83. static int phead, ptail, shead, stail;
84. int in_doagain;
85. 
86. char
87. popch() {
88. /* If occupied, return 0, letting tgetch know a character should
89. * be read from the keyboard. If the character read is not the
90. * ABORT character (as checked in main.c), that character will be
91. * pushed back on the pushq.
92. */
93. if (occupation) return(0);
94. if (in_doagain) return ((shead != stail) ? saveq[stail++] : 0);
95. else return ((phead != ptail) ? pushq[ptail++] : 0);
96. }
97. 
98. /* A ch == 0 resets the pushq */
99. void
100. pushch(ch)
101. char ch;
102. {
103. if (!ch)
104. phead = ptail = 0;
105. if (phead < BSIZE)
106. pushq[phead++] = ch;
107. }
108. 
109. /* A ch == 0 resets the saveq. Only save keystrokes when not
110. * replaying a previous command.
111. */
112. void
113. savech(ch)
114. char ch;
115. {
116. if (!in_doagain) {
117. if (!ch)
118. phead = ptail = shead = stail = 0;
119. else if (shead < BSIZE)
120. saveq[shead++] = ch;
121. }
122. }
123. # endif /* REDO */
124. 
125. struct func_tab cmdlist[]={
126. {'\020', doredotopl},
127. {'\022', doredraw},
128. {'\024', dotele},
129. #ifdef SUSPEND
130. {'\032', dosuspend},
131. #endif
132. {'a', doapply},
133. {'A', doddoremarm},
134. /* 'b', 'B' : go sw */
135. {'c', ddocall},
136. {'C', do_mname},
137. {'d', dodrop},
138. {'D', doddrop},
139. {'e', doeat},
140. {'E', doengrave},
141. /* Soon to be
142. {'f', dofight, "fighting"},
143. {'F', doFight, "fighting"},
144. */
145. /* 'g', 'G' : multiple go */
146. /* 'h', 'H' : go west */
147. {'I', dotypeinv}, /* Robert Viduya */
148. {'i', ddoinv},
149. /* 'j', 'J', 'k', 'K', 'l', 'L', 'm', 'M', 'n', 'N' : move commands */
150. /* 'o', doopen, */
151. {'O', doset},
152. {'p', dopay},
153. {'P', dowearring},
154. {'q', dodrink},
155. {'Q', done1},
156. {'r', doread},
157. {'R', doremring},
158. {'s', dosearch, "searching"},
159. {'S', dosave},
160. {'t', dothrow},
161. {'T', doremarm},
162. /* 'u', 'U' : go ne */
163. {'v', doversion},
164. {'w', dowield},
165. {'W', doweararm},
166. #ifdef SPELLS
167. {'x', dovspell}, /* Mike Stephenson */
168. {'X', doxcribe}, /* Mike Stephenson */ 
169. #endif
170. /* 'y', 'Y' : go nw */
171. {'z', dozap},
172. /* 'Z' : UNUSED */
173. {'<', doup},
174. {'>', dodown},
175. {'/', dowhatis},
176. {'?', dohelp},
177. #ifdef SHELL
178. {'!', dosh},
179. #endif
180. {'.', donull, "waiting"},
181. {' ', donull, "waiting"},
182. {',', dopickup},
183. {':', dolook},
184. {'^', doidtrap},
185. {'\\', dodiscovered}, /* Robert Viduya */
186. #ifdef DGKMOD
187. {'@', dotogglepickup},
188. {'V', doMSCversion},
189. # ifdef DEBUG_DOESNT_WORK
190. {'\004', dodebug}, /* generic debug function */
191. # endif
192. #endif
193. {WEAPON_SYM, doprwep},
194. {ARMOR_SYM, doprarm},
195. {RING_SYM, doprring},
196. {'$', doprgold},
197. {'#', doextcmd},
198. {0,0,0}
199. };
200. 
201. struct ext_func_tab extcmdlist[] = {
202. #ifdef KAA
203. "breathe", "breathe like a dragon", dobreathe,
204. #endif
205. #ifdef SPELLS
206. "cast", "cast a spell", docast,
207. #endif
208. "dip", "dip an object into something", dodip,
209. "pray", "pray to the gods for help", dopray,
210. #ifdef KAA
211. "remove", "remove a cursed item", doremove,
212. #endif
213. #ifdef NEWCLASS
214. "sit", "sit down", dosit,
215. #endif
216. #if defined(KOPS) && defined(KAA)
217. "wipe", "wipe your face off", dowipe,
218. #endif
219. "?", "get this list of extended commands", doextlist,
220. (char *) 0, (char *) 0, donull
221. };
222. 
223. extern char *parse(), lowc(), unctrl(), quitchars[];
224. 
225. rhack(cmd)
226. register char *cmd;
227. {
228. register struct func_tab *tlist = cmdlist;
229. boolean firsttime = FALSE;
230. register res;
231. 
232. if(!cmd) {
233. firsttime = TRUE;
234. flags.nopick = 0;
235. cmd = parse();
236. }
237. #ifdef REDO
238. if (*cmd == DOAGAIN && !in_doagain && saveq[0]) {
239. in_doagain = TRUE;
240. stail = 0;
241. rhack((char *) 0); /* read and execute command */
242. in_doagain = FALSE;
243. return;
244. }
245. 
246. /* Special case of *cmd == ' ' handled better below */
247. if(!*cmd || *cmd == 0377) {
248. #else
249. if(!*cmd || *cmd == 0377 || (flags.no_rest_on_space && *cmd == ' ')){
250. #endif
251. bell();
252. flags.move = 0;
253. return(0); /* probably we just had an interrupt */
254. }
255. if(movecmd(*cmd)) {
256. walk:
257. if(multi) flags.mv = 1;
258. domove();
259. return;
260. }
261. if(movecmd(lowc(*cmd))) {
262. flags.run = 1;
263. rush:
264. if(firsttime){
265. if(!multi) multi = COLNO;
266. u.last_str_turn = 0;
267. }
268. flags.mv = 1;
269. #ifdef QUEST
270. if(flags.run >= 4) finddir();
271. if(firsttime){
272. u.ux0 = u.ux + u.dx;
273. u.uy0 = u.uy + u.dy;
274. }
275. #endif
276. domove();
277. return;
278. }
279. if((*cmd == 'g' && movecmd(cmd[1])) || movecmd(unctrl(*cmd))) {
280. flags.run = 2;
281. goto rush;
282. }
283. if(*cmd == 'G' && movecmd(lowc(cmd[1]))) {
284. flags.run = 3;
285. goto rush;
286. }
287. if(*cmd == 'm' && movecmd(cmd[1])) {
288. flags.run = 0;
289. flags.nopick = 1;
290. goto walk;
291. }
292. if(*cmd == 'M' && movecmd(lowc(cmd[1]))) {
293. flags.run = 1;
294. flags.nopick = 1;
295. goto rush;
296. }
297. #ifdef QUEST
298. if(*cmd == cmd[1] && (*cmd == 'g' || *cmd == 'G')) {
299. flags.run = 4;
300. if(*cmd == 'G') flags.run += 2;
301. if(cmd[2] == '-') flags.run += 1;
302. goto rush;
303. }
304. #endif
305. while(tlist->f_char) {
306. if(*cmd == tlist->f_char){
307. #ifdef DGKMOD
308. /* Special case of *cmd == ' ' handled here */
309. if (*cmd == ' ' && flags.no_rest_on_space)
310. break;
311. 
312. /* Now control-A can stop lengthy commands */
313. if (tlist->f_text && !occupation && multi)
314. set_occupation(tlist->f_funct, tlist->f_text,
315. multi);
316. #endif
317. res = (*(tlist->f_funct))();
318. if(!res) {
319. flags.move = 0;
320. multi = 0;
321. }
322. return;
323. }
324. tlist++;
325. }
326. { char expcmd[10];
327. register char *cp = expcmd;
328. while(*cmd && cp-expcmd < sizeof(expcmd)-2) {
329. if(*cmd >= 040 && *cmd < 0177)
330. *cp++ = *cmd++;
331. else {
332. *cp++ = '^';
333. *cp++ = *cmd++ ^ 0100;
334. }
335. }
336. *cp++ = 0;
337. pline("Unknown command '%s'.", expcmd);
338. }
339. multi = flags.move = 0;
340. }
341. 
342. doextcmd() /* here after # - now read a full-word command */
343. {
344. char buf[BUFSZ];
345. register struct ext_func_tab *efp = extcmdlist;
346. 
347. pline("# ");
348. getlin(buf);
349. clrlin();
350. if(buf[0] == '\033')
351. return(0);
352. while(efp->ef_txt) {
353. if(!strcmp(efp->ef_txt, buf))
354. return((*(efp->ef_funct))());
355. efp++;
356. }
357. pline("%s: unknown command.", buf);
358. return(0);
359. }
360. 
361. doextlist() /* here after #? - now list all full-word commands */
362. {
363. register struct ext_func_tab *efp = extcmdlist;
364. char buf[BUFSZ];
365. 
366. set_pager(0);
367. if(page_line("") ||
368. page_line(" Extended Command Set:") ||
369. page_line("")) goto quit;
370. 
371. while(efp->ef_txt) {
372. 
373. (void)sprintf(buf, " %-8s - %s.", efp->ef_txt, efp->ef_desc);
374. if(page_line(buf)) goto quit;
375. efp++;
376. }
377. set_pager(1);
378. return(0);
379. quit:
380. set_pager(2);
381. return(0);
382. }
383. 
384. char
385. lowc(sym)
386. char sym;
387. {
388. return( (sym >= 'A' && sym <= 'Z') ? sym+'a'-'A' : sym );
389. }
390. 
391. char
392. unctrl(sym)
393. char sym;
394. {
395. return( (sym >= ('A' & 037) && sym <= ('Z' & 037)) ? sym + 0140 : sym );
396. }
397. 
398. /* 'rogue'-like direction commands */
399. char sdir[] = "hykulnjb><";
400. schar xdir[10] = { -1,-1, 0, 1, 1, 1, 0,-1, 0, 0 };
401. schar ydir[10] = { 0,-1,-1,-1, 0, 1, 1, 1, 0, 0 };
402. schar zdir[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 1,-1 };
403. 
404. movecmd(sym) /* also sets u.dz, but returns false for <> */
405. char sym;
406. {
407. register char *dp;
408. 
409. u.dz = 0;
410. if(!(dp = index(sdir, sym))) return(0);
411. u.dx = xdir[dp-sdir];
412. u.dy = ydir[dp-sdir];
413. u.dz = zdir[dp-sdir];
414. return(!u.dz);
415. }
416. 
417. getdir(s)
418. boolean s;
419. {
420. char dirsym;
421. 
422. #ifdef REDO
423. if (!in_doagain)
424. #endif
425. if(s) pline("In what direction?");
426. dirsym = readchar();
427. #ifdef REDO
428. savech(dirsym);
429. #endif
430. #ifdef KAA
431. if(dirsym == '.' || dirsym == 's')
432. u.dx = u.dy = u.dz = 0;
433. else
434. #endif
435. if(!movecmd(dirsym) && !u.dz) {
436. if(!index(quitchars, dirsym))
437. pline("What a strange direction!");
438. return(0);
439. }
440. if(Confusion && !u.dz) confdir();
441. return(1);
442. }
443. 
444. confdir()
445. {
446. register x = rn2(8);
447. u.dx = xdir[x];
448. u.dy = ydir[x];
449. }
450. 
451. #ifdef QUEST
452. finddir(){
453. register int i, ui = u.di;
454. for(i = 0; i <= 8; i++){
455. if(flags.run & 1) ui++; else ui += 7;
456. ui %= 8;
457. if(i == 8){
458. pline("Not near a wall.");
459. flags.move = multi = 0;
460. return(0);
461. }
462. if(!isroom(u.ux+xdir[ui], u.uy+ydir[ui]))
463. break;
464. }
465. for(i = 0; i <= 8; i++){
466. if(flags.run & 1) ui += 7; else ui++;
467. ui %= 8;
468. if(i == 8){
469. pline("Not near a room.");
470. flags.move = multi = 0;
471. return(0);
472. }
473. if(isroom(u.ux+xdir[ui], u.uy+ydir[ui]))
474. break;
475. }
476. u.di = ui;
477. u.dx = xdir[ui];
478. u.dy = ydir[ui];
479. }
480. 
481. isroom(x,y) register x,y; { /* what about POOL? */
482. return(isok(x,y) && (levl[x][y].typ == ROOM ||
483. (levl[x][y].typ >= LDOOR && flags.run >= 6)));
484. }
485. #endif /* QUEST /**/
486. 
487. isok(x,y) register x,y; {
488. /* x corresponds to curx, so x==1 is the first column. Ach. %% */
489. return(x >= 1 && x <= COLNO-1 && y >= 0 && y <= ROWNO-1);
490. }
[[Category:NetHack 1.3d source code|cmd.c]]

Source:NetHack 1.3d/cmd.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/cmd.c moved to Source:NetHack 1.3d/cmd.c: Robot: moved page

Jaytbot: Automated source code upload

@@ Line 1: / Line 1: @@
-Below is the full text to '''cmd.c''' from the [[NetHack 1.3d source code|source code]] of [[NetHack 1.3d]]. To link to a particular line, write [[NetHack 1.3d/cmd.c#line123|<nowiki>[[NetHack 1.3d/cmd.c#line123]]</nowiki>]], for example.
+Below is the full text to '''cmd.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 23:39, 3 March 2008
(No difference)