Commit | Line | Data |
---|---|---|
2e70843d KB |
1 | /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ |
2 | /* hack.cmd.c - version 1.0.3 */ | |
3 | ||
4 | #include "hack.h" | |
5 | #include "def.func_tab.h" | |
6 | ||
7 | int doredraw(),doredotopl(),dodrop(),dodrink(),doread(),dosearch(),dopickup(), | |
8 | doversion(),doweararm(),dowearring(),doremarm(),doremring(),dopay(),doapply(), | |
9 | dosave(),dowield(),ddoinv(),dozap(),ddocall(),dowhatis(),doengrave(),dotele(), | |
10 | dohelp(),doeat(),doddrop(),do_mname(),doidtrap(),doprwep(),doprarm(), | |
11 | doprring(),doprgold(),dodiscovered(),dotypeinv(),dolook(),doset(), | |
12 | doup(), dodown(), done1(), donull(), dothrow(), doextcmd(), dodip(), dopray(); | |
13 | #ifdef SHELL | |
14 | int dosh(); | |
15 | #endif SHELL | |
16 | #ifdef SUSPEND | |
17 | int dosuspend(); | |
18 | #endif SUSPEND | |
19 | ||
20 | struct func_tab cmdlist[]={ | |
21 | '\020', doredotopl, | |
22 | '\022', doredraw, | |
23 | '\024', dotele, | |
24 | #ifdef SUSPEND | |
25 | '\032', dosuspend, | |
26 | #endif SUSPEND | |
27 | 'a', doapply, | |
28 | /* 'A' : UNUSED */ | |
29 | /* 'b', 'B' : go sw */ | |
30 | 'c', ddocall, | |
31 | 'C', do_mname, | |
32 | 'd', dodrop, | |
33 | 'D', doddrop, | |
34 | 'e', doeat, | |
35 | 'E', doengrave, | |
36 | /* 'f', 'F' : multiple go (might become 'fight') */ | |
37 | /* 'g', 'G' : UNUSED */ | |
38 | /* 'h', 'H' : go west */ | |
39 | 'I', dotypeinv, /* Robert Viduya */ | |
40 | 'i', ddoinv, | |
41 | /* 'j', 'J', 'k', 'K', 'l', 'L', 'm', 'M', 'n', 'N' : move commands */ | |
42 | /* 'o', doopen, */ | |
43 | 'O', doset, | |
44 | 'p', dopay, | |
45 | 'P', dowearring, | |
46 | 'q', dodrink, | |
47 | 'Q', done1, | |
48 | 'r', doread, | |
49 | 'R', doremring, | |
50 | 's', dosearch, | |
51 | 'S', dosave, | |
52 | 't', dothrow, | |
53 | 'T', doremarm, | |
54 | /* 'u', 'U' : go ne */ | |
55 | 'v', doversion, | |
56 | /* 'V' : UNUSED */ | |
57 | 'w', dowield, | |
58 | 'W', doweararm, | |
59 | /* 'x', 'X' : UNUSED */ | |
60 | /* 'y', 'Y' : go nw */ | |
61 | 'z', dozap, | |
62 | /* 'Z' : UNUSED */ | |
63 | '<', doup, | |
64 | '>', dodown, | |
65 | '/', dowhatis, | |
66 | '?', dohelp, | |
67 | #ifdef SHELL | |
68 | '!', dosh, | |
69 | #endif SHELL | |
70 | '.', donull, | |
71 | ' ', donull, | |
72 | ',', dopickup, | |
73 | ':', dolook, | |
74 | '^', doidtrap, | |
75 | '\\', dodiscovered, /* Robert Viduya */ | |
76 | WEAPON_SYM, doprwep, | |
77 | ARMOR_SYM, doprarm, | |
78 | RING_SYM, doprring, | |
79 | '$', doprgold, | |
80 | '#', doextcmd, | |
81 | 0,0,0 | |
82 | }; | |
83 | ||
84 | struct ext_func_tab extcmdlist[] = { | |
85 | "dip", dodip, | |
86 | "pray", dopray, | |
87 | (char *) 0, donull | |
88 | }; | |
89 | ||
90 | extern char *parse(), lowc(), unctrl(), quitchars[]; | |
91 | ||
92 | rhack(cmd) | |
93 | register char *cmd; | |
94 | { | |
95 | register struct func_tab *tlist = cmdlist; | |
96 | boolean firsttime = FALSE; | |
97 | register res; | |
98 | ||
99 | if(!cmd) { | |
100 | firsttime = TRUE; | |
101 | flags.nopick = 0; | |
102 | cmd = parse(); | |
103 | } | |
4b15ae8f KB |
104 | if(!*cmd || (*cmd & 0377) == 0377 || |
105 | (flags.no_rest_on_space && *cmd == ' ')){ | |
2e70843d KB |
106 | bell(); |
107 | flags.move = 0; | |
108 | return; /* probably we just had an interrupt */ | |
109 | } | |
110 | if(movecmd(*cmd)) { | |
111 | walk: | |
112 | if(multi) flags.mv = 1; | |
113 | domove(); | |
114 | return; | |
115 | } | |
116 | if(movecmd(lowc(*cmd))) { | |
117 | flags.run = 1; | |
118 | rush: | |
119 | if(firsttime){ | |
120 | if(!multi) multi = COLNO; | |
121 | u.last_str_turn = 0; | |
122 | } | |
123 | flags.mv = 1; | |
124 | #ifdef QUEST | |
125 | if(flags.run >= 4) finddir(); | |
126 | if(firsttime){ | |
127 | u.ux0 = u.ux + u.dx; | |
128 | u.uy0 = u.uy + u.dy; | |
129 | } | |
130 | #endif QUEST | |
131 | domove(); | |
132 | return; | |
133 | } | |
134 | if((*cmd == 'f' && movecmd(cmd[1])) || movecmd(unctrl(*cmd))) { | |
135 | flags.run = 2; | |
136 | goto rush; | |
137 | } | |
138 | if(*cmd == 'F' && movecmd(lowc(cmd[1]))) { | |
139 | flags.run = 3; | |
140 | goto rush; | |
141 | } | |
142 | if(*cmd == 'm' && movecmd(cmd[1])) { | |
143 | flags.run = 0; | |
144 | flags.nopick = 1; | |
145 | goto walk; | |
146 | } | |
147 | if(*cmd == 'M' && movecmd(lowc(cmd[1]))) { | |
148 | flags.run = 1; | |
149 | flags.nopick = 1; | |
150 | goto rush; | |
151 | } | |
152 | #ifdef QUEST | |
153 | if(*cmd == cmd[1] && (*cmd == 'f' || *cmd == 'F')) { | |
154 | flags.run = 4; | |
155 | if(*cmd == 'F') flags.run += 2; | |
156 | if(cmd[2] == '-') flags.run += 1; | |
157 | goto rush; | |
158 | } | |
159 | #endif QUEST | |
160 | while(tlist->f_char) { | |
161 | if(*cmd == tlist->f_char){ | |
162 | res = (*(tlist->f_funct))(); | |
163 | if(!res) { | |
164 | flags.move = 0; | |
165 | multi = 0; | |
166 | } | |
167 | return; | |
168 | } | |
169 | tlist++; | |
170 | } | |
171 | { char expcmd[10]; | |
172 | register char *cp = expcmd; | |
173 | while(*cmd && cp-expcmd < sizeof(expcmd)-2) { | |
174 | if(*cmd >= 040 && *cmd < 0177) | |
175 | *cp++ = *cmd++; | |
176 | else { | |
177 | *cp++ = '^'; | |
178 | *cp++ = *cmd++ ^ 0100; | |
179 | } | |
180 | } | |
181 | *cp++ = 0; | |
182 | pline("Unknown command '%s'.", expcmd); | |
183 | } | |
184 | multi = flags.move = 0; | |
185 | } | |
186 | ||
187 | doextcmd() /* here after # - now read a full-word command */ | |
188 | { | |
189 | char buf[BUFSZ]; | |
190 | register struct ext_func_tab *efp = extcmdlist; | |
191 | ||
192 | pline("# "); | |
193 | getlin(buf); | |
194 | clrlin(); | |
195 | if(buf[0] == '\033') | |
196 | return(0); | |
197 | while(efp->ef_txt) { | |
198 | if(!strcmp(efp->ef_txt, buf)) | |
199 | return((*(efp->ef_funct))()); | |
200 | efp++; | |
201 | } | |
202 | pline("%s: unknown command.", buf); | |
203 | return(0); | |
204 | } | |
205 | ||
206 | char | |
207 | lowc(sym) | |
208 | char sym; | |
209 | { | |
210 | return( (sym >= 'A' && sym <= 'Z') ? sym+'a'-'A' : sym ); | |
211 | } | |
212 | ||
213 | char | |
214 | unctrl(sym) | |
215 | char sym; | |
216 | { | |
217 | return( (sym >= ('A' & 037) && sym <= ('Z' & 037)) ? sym + 0140 : sym ); | |
218 | } | |
219 | ||
220 | /* 'rogue'-like direction commands */ | |
221 | char sdir[] = "hykulnjb><"; | |
222 | schar xdir[10] = { -1,-1, 0, 1, 1, 1, 0,-1, 0, 0 }; | |
223 | schar ydir[10] = { 0,-1,-1,-1, 0, 1, 1, 1, 0, 0 }; | |
224 | schar zdir[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 1,-1 }; | |
225 | ||
226 | movecmd(sym) /* also sets u.dz, but returns false for <> */ | |
227 | char sym; | |
228 | { | |
229 | register char *dp; | |
230 | ||
231 | u.dz = 0; | |
232 | if(!(dp = index(sdir, sym))) return(0); | |
233 | u.dx = xdir[dp-sdir]; | |
234 | u.dy = ydir[dp-sdir]; | |
235 | u.dz = zdir[dp-sdir]; | |
236 | return(!u.dz); | |
237 | } | |
238 | ||
239 | getdir(s) | |
240 | boolean s; | |
241 | { | |
242 | char dirsym; | |
243 | ||
244 | if(s) pline("In what direction?"); | |
245 | dirsym = readchar(); | |
246 | if(!movecmd(dirsym) && !u.dz) { | |
247 | if(!index(quitchars, dirsym)) | |
248 | pline("What a strange direction!"); | |
249 | return(0); | |
250 | } | |
251 | if(Confusion && !u.dz) | |
252 | confdir(); | |
253 | return(1); | |
254 | } | |
255 | ||
256 | confdir() | |
257 | { | |
258 | register x = rn2(8); | |
259 | u.dx = xdir[x]; | |
260 | u.dy = ydir[x]; | |
261 | } | |
262 | ||
263 | #ifdef QUEST | |
264 | finddir(){ | |
265 | register int i, ui = u.di; | |
266 | for(i = 0; i <= 8; i++){ | |
267 | if(flags.run & 1) ui++; else ui += 7; | |
268 | ui %= 8; | |
269 | if(i == 8){ | |
270 | pline("Not near a wall."); | |
271 | flags.move = multi = 0; | |
272 | return(0); | |
273 | } | |
274 | if(!isroom(u.ux+xdir[ui], u.uy+ydir[ui])) | |
275 | break; | |
276 | } | |
277 | for(i = 0; i <= 8; i++){ | |
278 | if(flags.run & 1) ui += 7; else ui++; | |
279 | ui %= 8; | |
280 | if(i == 8){ | |
281 | pline("Not near a room."); | |
282 | flags.move = multi = 0; | |
283 | return(0); | |
284 | } | |
285 | if(isroom(u.ux+xdir[ui], u.uy+ydir[ui])) | |
286 | break; | |
287 | } | |
288 | u.di = ui; | |
289 | u.dx = xdir[ui]; | |
290 | u.dy = ydir[ui]; | |
291 | } | |
292 | ||
293 | isroom(x,y) register x,y; { /* what about POOL? */ | |
294 | return(isok(x,y) && (levl[x][y].typ == ROOM || | |
295 | (levl[x][y].typ >= LDOOR && flags.run >= 6))); | |
296 | } | |
297 | #endif QUEST | |
298 | ||
299 | isok(x,y) register x,y; { | |
300 | /* x corresponds to curx, so x==1 is the first column. Ach. %% */ | |
301 | return(x >= 1 && x <= COLNO-1 && y >= 0 && y <= ROWNO-1); | |
302 | } |