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