Mercurial > hg > early-roguelike

comparison srogue/command.c @ 36:2128c7dc8a40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Super-Rogue 9.0 from the Roguelike Restoration Project (r1490)
author elwin
date Thu, 25 Nov 2010 12:21:41 +0000
parents
children 5ea4a4d8f961
comparison
equal deleted inserted replaced
35:05018c63a721 36:2128c7dc8a40
1 /*
2 * Read and execute the user commands
3 *
4 * @(#)command.c 9.0 (rdk) 7/17/84
5 *
6 * Super-Rogue
7 * Copyright (C) 1984 Robert D. Kindelberger
8 * All rights reserved.
9 *
10 * Based on "Rogue: Exploring the Dungeons of Doom"
11 * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
12 * All rights reserved.
13 *
14 * See the file LICENSE.TXT for full copyright and licensing information.
15 */
16
17 #include <ctype.h>
18 #include <signal.h>
19 #include <limits.h>
20 #include "rogue.h"
21 #include "rogue.ext"
22 #ifdef __DJGPP__
23 #include <process.h>
24 #endif
25
26 /*
27 * command:
28 * Process the user commands
29 */
30 command()
31 {
32 reg char ch;
33 reg int ntimes = 1; /* Number of player moves */
34 static char countch, direction, newcount = FALSE;
35
36 if (pl_on(ISHASTE))
37 ntimes++;
38 /*
39 * Let the daemons start up
40 */
41 while (ntimes-- > 0) {
42 do_daemons(BEFORE);
43 look(TRUE);
44 if (!running)
45 door_stop = FALSE;
46 lastscore = purse;
47 wmove(cw, hero.y, hero.x);
48 if (!(running || count))
49 draw(cw); /* Draw screen */
50 take = 0;
51 after = TRUE;
52 /*
53 * Read command or continue run
54 */
55 if (wizard)
56 waswizard = TRUE;
57 if (player.t_nocmd <= 0) {
58 player.t_nocmd = 0;
59 if (running)
60 ch = runch;
61 else if (count)
62 ch = countch;
63 else {
64 ch = readchar();
65 if (mpos != 0 && !running) /* Erase message if its there */
66 msg("");
67 }
68 }
69 else
70 ch = '.';
71 if (player.t_nocmd > 0) {
72 if (--player.t_nocmd <= 0)
73 msg("You can move again.");
74 }
75 else {
76 /*
77 * check for prefixes
78 */
79 if (isdigit(ch)) {
80 count = 0;
81 newcount = TRUE;
82 while (isdigit(ch)) {
83 count = count * 10 + (ch - '0');
84 ch = readchar();
85 }
86 countch = ch;
87 /*
88 * turn off count for commands which don't make sense
89 * to repeat
90 */
91 switch (ch) {
92 case 'h': case 'j': case 'k': case 'l':
93 case 'y': case 'u': case 'b': case 'n':
94 case 'H': case 'J': case 'K': case 'L':
95 case 'Y': case 'U': case 'B': case 'N':
96 case 'q': case 'r': case 's': case 'f':
97 case 't': case 'C': case 'I': case '.':
98 case 'z': case 'p':
99 break;
100 default:
101 count = 0;
102 }
103 }
104 switch (ch) {
105 case 'f':
106 case 'g':
107 if (pl_off(ISBLIND)) {
108 door_stop = TRUE;
109 firstmove = TRUE;
110 }
111 if (count && !newcount)
112 ch = direction;
113 else
114 ch = readchar();
115 switch (ch) {
116 case 'h': case 'j': case 'k': case 'l':
117 case 'y': case 'u': case 'b': case 'n':
118 ch = toupper(ch);
119 }
120 direction = ch;
121 }
122 newcount = FALSE;
123 /*
124 * execute a command
125 */
126 if (count && !running)
127 count--;
128 switch (ch) {
129 case '!' : shell(); after = FALSE;
130 when 'h' : do_move(0, -1);
131 when 'j' : do_move(1, 0);
132 when 'k' : do_move(-1, 0);
133 when 'l' : do_move(0, 1);
134 when 'y' : do_move(-1, -1);
135 when 'u' : do_move(-1, 1);
136 when 'b' : do_move(1, -1);
137 when 'n' : do_move(1, 1);
138 when 'H' : do_run('h');
139 when 'J' : do_run('j');
140 when 'K' : do_run('k');
141 when 'L' : do_run('l');
142 when 'Y' : do_run('y');
143 when 'U' : do_run('u');
144 when 'B' : do_run('b');
145 when 'N' : do_run('n');
146 when 't':
147 if (!get_dir())
148 after = FALSE;
149 else
150 missile(delta.y, delta.x);
151 when 'Q' : after = FALSE; quit(-1);
152 when 'i' : after = FALSE; inventory(pack, 0);
153 when 'I' : after = FALSE; picky_inven();
154 when 'd' : drop(NULL);
155 when 'q' : quaff();
156 when 'r' : read_scroll();
157 when 'e' : eat();
158 when 'w' : wield();
159 when 'W' : wear();
160 when 'T' : take_off();
161 when 'P' : ring_on();
162 when 'R' : ring_off();
163 when 'O' : option();
164 when 'c' : call();
165 when '>' : after = FALSE; d_level();
166 when '<' : after = FALSE; u_level();
167 when '?' : after = FALSE; help();
168 when '/' : after = FALSE; identify(0);
169 when 's' : search();
170 when 'z' : do_zap(FALSE);
171 when 'p':
172 if (get_dir())
173 do_zap(TRUE);
174 else
175 after = FALSE;
176 when 'v': msg("Super Rogue version %s.",release);
177 when 'D': dip_it();
178 when CTRL('L') : after = FALSE; restscr(cw);
179 when CTRL('R') : after = FALSE; msg(huh);
180 when 'a': after = FALSE; dispmax();
181 when '@' : if (author())
182 msg("Hero @ %d,%d : Stairs @ %d,%d",hero.y,hero.x,stairs.y,stairs.x);
183 when 'S' :
184 after = FALSE;
185 if (save_game()) {
186 wclear(cw);
187 draw(cw);
188 endwin();
189 byebye(0);
190 }
191 when '.' : ; /* Rest command */
192 when ' ' : after = FALSE; /* do nothing */
193 when '=' :
194 if (author()) {
195 activity();
196 after = FALSE;
197 }
198 when CTRL('P') :
199 after = FALSE;
200 if (wizard) {
201 wizard = FALSE;
202 msg("Not wizard any more");
203 }
204 else {
205 wizard = passwd();
206 if (wizard) {
207 msg("Welcome back, Bob!!!!!");
208 waswizard = TRUE;
209 }
210 else
211 msg("Sorry");
212 }
213 when ESCAPE : /* Escape */
214 door_stop = FALSE;
215 count = 0;
216 after = FALSE;
217 when '#':
218 if (levtype == POSTLEV) /* buy something */
219 buy_it();
220 after = FALSE;
221 when '$':
222 if (levtype == POSTLEV) /* price something */
223 price_it();
224 after = FALSE;
225 when '%':
226 if (levtype == POSTLEV) /* sell something */
227 sell_it();
228 after = FALSE;
229 otherwise :
230 after = FALSE;
231 if (wizard) switch (ch) {
232 case CTRL('A') : ;
233 when 'C' : create_obj(FALSE);
234 when CTRL('I') : inventory(lvl_obj, 1);
235 when CTRL('W') : whatis(NULL);
236 when CTRL('D') : level++; new_level(NORMLEV);
237 when CTRL('U') : if (level > 1) level--; new_level(NORMLEV);
238 when CTRL('F') : displevl();
239 when CTRL('X') : dispmons();
240 when CTRL('T') : teleport(rndspot,&player);
241 when CTRL('E') : msg("food left: %d", food_left);
242 when CTRL('O') : add_pass();
243 when 'M' : {
244 int tlev, whichlev;
245 prbuf[0] = '\0';
246 msg("Which level? ");
247 if (get_str(prbuf,cw) == NORM) {
248 whichlev = NORMLEV;
249 tlev = atoi(prbuf);
250 if (tlev < 1)
251 level = 1;
252 if (tlev >= 200) {
253 tlev -= 199;
254 whichlev = MAZELEV;
255 }
256 else if (tlev >= 100) {
257 tlev -= 99;
258 whichlev = POSTLEV;
259 }
260 level = tlev;
261 new_level(whichlev);
262 }
263 }
264 when CTRL('N') : {
265 struct linked_list *item;
266
267 item = get_item("charge", STICK);
268 if (item != NULL) {
269 (OBJPTR(item))->o_charges = 10000;
270 msg("");
271 }
272 }
273 when CTRL('H') : {
274 int i;
275 struct linked_list *item;
276 struct object *obj;
277
278 him->s_exp = e_levels[him->s_lvl + 7] + 1;
279 check_level();
280 /*
281 * Give the rogue a very good sword
282 */
283 item = new_thing(FALSE, WEAPON, TWOSWORD);
284 obj = OBJPTR(item);
285 obj->o_hplus = 3;
286 obj->o_dplus = 3;
287 obj->o_flags = ISKNOW;
288 i = add_pack(item, TRUE);
289 if (i)
290 cur_weapon = obj;
291 else
292 discard(item);
293 /*
294 * And his suit of armor
295 */
296 item = new_thing(FALSE, ARMOR, PLATEARMOR);
297 obj = OBJPTR(item);
298 obj->o_ac = -8;
299 obj->o_flags = ISKNOW;
300 i = add_pack(item, TRUE);
301 if (i)
302 cur_armor = obj;
303 else
304 discard(item);
305 nochange = FALSE;
306 }
307 otherwise:
308 msg(illegal, unctrl(ch));
309 count = 0;
310 }
311 else {
312 msg(illegal, unctrl(ch));
313 count = 0;
314 }
315 }
316 /*
317 * turn off flags if no longer needed
318 */
319 if (!running)
320 door_stop = FALSE;
321 }
322 /*
323 * If he ran into something to take, let the
324 * hero pick it up if not in a trading post.
325 */
326 if (take != 0 && levtype != POSTLEV)
327 pick_up(take);
328 if (!running)
329 door_stop = FALSE;
330 }
331 /*
332 * Kick off the rest if the daemons and fuses
333 */
334 if (after) {
335 int j;
336
337 look(FALSE);
338 do_daemons(AFTER);
339 do_fuses();
340 if (pl_on(ISSLOW))
341 waste_time();
342 for (j = LEFT; j <= RIGHT; j++) {
343 if (cur_ring[j] != NULL) {
344 if (cur_ring[j]->o_which == R_SEARCH)
345 search();
346 else if (cur_ring[j]->o_which == R_TELEPORT)
347 if (rnd(100) < 5)
348 teleport(rndspot, &player);
349 }
350 }
351 }
352 }
353
354
355 /*
356 * quit:
357 * Have player make certain, then exit.
358 */
359 void
360 quit(int a)
361 {
362 reg char ch, good;
363 /*
364 * Reset the signal in case we got here via an interrupt
365 */
366 if (signal(SIGINT, quit) != quit)
367 mpos = 0;
368 msg("Really quit? [y/n/s]");
369 /* ch = tolower(readchar());*/
370 ch = readchar();
371 if (ch == 'y') {
372 clear();
373 move(LINES-1, 0);
374 refresh();
375 score(purse, CHICKEN, 0);
376 byebye(0);
377 }
378 else if (ch == 's') {
379 good = save_game();
380 if (good) {
381 wclear(cw);
382 draw(cw);
383 endwin();