int m_move(struct monst *mtmp, int after) { struct monst *mtmp2; int nx = 0; int ny = 0; int omx; int omy; int appr; int nearer; int cnt; int i; int j; xchar gx; xchar gy; xchar nix; xchar niy; xchar chcnt; schar chi; boolean likegold = 0; boolean likegems = 0; boolean likeobjs = 0; /* Not strictly necessary: chi >= 0 will do */ schar mmoved = 0; coord poss[9]; int info[9]; if(mtmp->mtrapped != 0) { i = mintrap(mtmp); if(i == 2) { /* He died */ return 2; } if(i == 1) { /* Still in trap so didn't move */ return 0; } } if((mtmp->mhide != 0) && (o_at(mtmp->mx, mtmp->my) != NULL) && (rn2(10) != 0)) { /* Do not leave hiding place */ return 0; } /* My dog gets a special treatment */ if(mtmp->mtame != 0) { return dog_move(mtmp, after); } /* Likewise for shopkeeper */ if(mtmp->isshk != 0) { mmoved = shk_move(); if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } return mmoved; } /* And for the guard */ if(mtmp->isgd != 0) { mmoved = gd_move(); if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } return mmoved; } if((mtmp->data->mlet == 't') && (rn2(5) == 0)) { if(rn2(2) != 0) { mnexto(mtmp); } else { rloc(mtmp); } mmoved = 1; if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } return mmoved; } if((mtmp->data->mlet == 'D') && (mtmp->mcan == 0)) { inrange(mtmp); } if((Blind == 0) && (Confusion == 0) && (mtmp->data->mlet == 'U') && (mtmp->mcan == 0) && (cansee(mtmp->mx, mtmp->my) != 0) && (rn2(5) != 0)) { pline("%s's gaze has confused you!", Monnam(mtmp)); if(rn2(5) != 0) { mtmp->mcan = 1; } /* Timeout */ Confusion = d(3, 4); } if((mtmp->mflee == 0) && (u.uswallow != 0) && (u.ustuck != mtmp)) { return 1; } appr = 1; if(mtmp->mflee != 0) { appr = -1; } if((mtmp->mconf != 0) || (Invis != 0) || (mtmp->mcansee == 0) || ((index("Biy", mtmp->data->mlet) != 0) && (rn2(3) == 0))) { appr = 0; } omx = mtmp->mx; omy = mtmp->my; gx = u.ux; gy = u.uy; if((mtmp->data->mlet == 'L') && (appr == 1) && (mtmp->mgold > u.ugold)) { appr = -1; } #ifdef TRACK /* * Random criterion for 'smell' * should use mtmp->msmell */ if(('a' <= mtmp->data->mlet) && (mtmp->data->mlet <= 'z')) { coord *cp; schar mroom; mroom = inroom(omx, omy); if((mroom < 0) || (mroom != inroom(u.ux, u.uy))) { cp = gettrack(omx, omy); if(cp != 0) { gx = cp->x; gy = cp->y; } } } #endif /* Look for gold or jewels nearby */ if(index("LOD", mtmp->data->mlet) != NULL) { likegold = 1; } else { likegold = 0; } if(index("ODu", mtmp->data->mlet) != NULL) { likegems = 1; } else { likegems = 0; } likeobjs = mtmp->mhide; #define SRCHRADIUS 25 /* Not too far away */ xchar mind = SRCHRADIUS; int dd; if(likegold != 0) { struct gen *gold; for(gold = fgold; gold != NULL; gold = gold->ngen) { dd = DIST(omx, omy, gold->gx, gold->gy); if(dd < mind) { mind = dd; gx = gold->gx; gy = gold->gy; } } } if((likegems != 0) || (likeobjs != 0)) { struct obj *otmp; for(otmp = fobj; otmp != NULL; otmp = otmp->nobj) { if((likeobjs != 0) || (otmp->olet == GEM_SYM)) { if((mtmp->data->mlet != 'u') || (objects[otmp->otyp].g_val != 0)) { dd = DIST(omx, omy, otmp->ox, otmp->oy); if(dd < mind) { mind = dd; gx = otmp->ox; gy = otmp->oy; } } } } } if((mind < SRCHRADIUS) && (appr == -1)) { if(dist(omx, omy) < 10) { gx = u.ux; gy = u.uy; } else { appr = 1; } } nix = omx; niy = omy; if(mtmp->data->mlet == 'u') { cnt = mfndpos(mtmp, poss, info, NOTONL); } else { if(index(" VWZ", mtmp->data->mlet) != 0) { cnt = mfndpos(mtmp, poss, info, NOGARLIC); } else { cnt = mfndpos(mtmp, poss, info, ALLOW_TRAPS); } } /* ALLOW_ROCK for some monsters? */ chcnt = 0; chi = -1; for(i = 0; i < cnt; ++i) { nx = poss[i].x; nx = poss[i].y; for(j = 0; (j < MTSZ) && (j < (cnt - 1)); ++j) { if((nx == mtmp->mtrack[j].x) && (ny == mtmp->mtrack[j].y)) { if(rn2(4 * (cnt - j)) == 0) { #ifdef STUPID /* Some stupid compilers thing that is is too complicated */ int d1 = DIST(nx, ny, gx, gy); int d2 = DIST(nix, niy, gx, gy); if(d1 < d2) { nearer = 1; } else { nearer = 0; } #else if(DIST(nx, ny, gx, gy) < DIST(nix, niy, gx, gy)) { nearer = 1; } else { nearer = 0; } #endif if(((appr == 1) && (nearer != 0)) || ((appr == -1) && (nearer == 0)) || (mmoved == 0)) { nix = nx; niy = ny; chi = i; mmoved = 1; } else { if(appr == 0) { if(rn2(chcnt) == 0) { ++chcnt; nix = nx; niy = ny; chi = i; mmoved = 1; } else { ++chcnt; } } } } } } } if(mmoved != 0) { if((info[(int)chi] & ALLOW_M) != 0) { mtmp2 = m_at(nix, niy); if((hitmm(mtmp, mtmp2) == 1) && (rn2(4) != 0) && (hitmm(mtmp2, mtmp) == 2)) { return 2; } return 0; } if((info[(int)chi] & ALLOW_U) != 0) { hitu(mtmp, d(mtmp->data->damn, mtmp->data->damd) + 1); return 0; } mtmp->mx = nix; mtmp->my = niy; for(j = MTSZ - 1; j > 0; --j) { mtmp->mtrack[j] = mtmp->mtrack[j - 1]; } mtmp->mtrack[0].x = omx; mtmp->mtrack[0].y = omy; #ifndef NOWORM if(mtmp->wormno != 0) { worm_move(mtmp); } #endif } else { if((mtmp->data->mlet == 'u') && (rn2(2) != 0)) { rloc(mtmp); return 0; } #ifndef NOWORM if(mtmp->wormno != 0) { worm_nomove(mtmp); } #endif } if(mmoved == 1) { if(mintrap(mtmp) == 2) { /* He died */ return 2; } if(likegold != 0) { mpickgold(mtmp); } if(likegems != 0) { mpickgems(mtmp); } if(mtmp->mhide != 0) { mtmp->mundetected = 1; } } pmon(mtmp); return mmoved; }
int main(void) { #ifndef TEST_BZIP2 return 77; #else const char *filedir = "dirfile"; const char *format = "dirfile/format"; const char *format1 = "dirfile/format1"; const char *data = "dirfile/data"; const char *bz2data = "dirfile/data.bz2"; const char *format_data = "/INCLUDE format1\ndata RAW UINT16 11\nENCODING bzip2\n"; const char *format1_data = "ENCODING none\n"; uint16_t data_data[128]; int fd, ret, error, ge_ret, unlink_data, unlink_bz2data, r = 0, i = 0; char command[4096]; gd_entry_t E; DIRFILE *D; uint16_t d; rmdirfile(); mkdir(filedir, 0777); for (fd = 0; fd < 128; ++fd) data_data[fd] = fd * 0x201; fd = open(format, O_CREAT | O_EXCL | O_WRONLY, 0666); write(fd, format_data, strlen(format_data)); close(fd); fd = open(format1, O_CREAT | O_EXCL | O_WRONLY, 0666); write(fd, format1_data, strlen(format1_data)); close(fd); fd = open(data, O_CREAT | O_EXCL | O_WRONLY | O_BINARY, 0666); write(fd, data_data, 128 * sizeof(uint16_t)); close(fd); /* compress */ snprintf(command, 4096, "%s -f %s > /dev/null", BZIP2, data); if (gd_system(command)) return 1; #ifdef USE_BZIP2 D = gd_open(filedir, GD_RDWR | GD_VERBOSE | GD_UNENCODED); #else D = gd_open(filedir, GD_RDWR | GD_UNENCODED); #endif ret = gd_move(D, "data", 1, 1); error = gd_error(D); ge_ret = gd_entry(D, "data", &E); gd_close(D); #ifdef USE_BZIP2 fd = open(data, O_RDONLY | O_BINARY); if (fd >= 0) { while (read(fd, &d, sizeof(uint16_t))) { CHECKI(d, i * 0x201); i++; } close(fd); } else { perror("open"); r = 1; } #endif unlink(format1); unlink(format); unlink_data = unlink(data); unlink_bz2data = unlink(bz2data); rmdir(filedir); #ifdef USE_BZIP2 CHECKI(ret, 0); CHECKI(error, GD_E_OK); CHECKI(ge_ret, 0); CHECKI(E.fragment_index, 1); CHECKI(unlink_data, 0); CHECKI(unlink_bz2data, -1); #else CHECKI(ret, -1); CHECKI(error, GD_E_UNSUPPORTED); CHECKI(ge_ret, 0); CHECKI(E.fragment_index, 0); CHECKI(unlink_data, -1); CHECKI(unlink_bz2data, 0); #endif gd_free_entry_strings(&E); return r; #endif }