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