bool worm_move_and_draw(void) { worm_clear(); const bool move = worm_move(); worm_draw(); return move; }
void worm_move(Worm worm) { int i; // If sitting on a teleporter, teleport for (i = 0; i < NUMBER_OF_TELEPORTERS; i++) { Teleporter teleporter = worm->grid->teleporters[i]; if (worm_has_segment_at(worm, teleporter->location->x, teleporter->location->y)) { // worm_teleport(worm); // return; } } // Ok. Not teleporting, so do a real move // First determine if we're already moving if (worm->state->moving && worm->state->moveTo != NULL) { Location moveTo = worm->state->moveTo; debug("Moving to %d,%d", moveTo->x, moveTo->y); // Should we bother moving at this point? if (worm_has_segment_at(worm, moveTo->x, moveTo->y)) { // We've reached our destination free(worm->state->moveTo); worm->state->moveTo = NULL; worm->state->moving = 0; // Try to move again worm_move(worm); } worm->strategy(worm); } // Ok not moving yet else { // Determine strategy worm->state->moving = 1; // Pick a random place to move to worm->state->moveTo = location_rand(worm->grid); // Keep looking for another place to move to until it's a place not on the worm while (worm_has_segment_at_x(worm, worm->state->moveTo->x) || worm_has_segment_at_y(worm, worm->state->moveTo->y)) { worm->state->moveTo = location_rand(worm->grid); } debug("Moving to %d,%d", worm->state->moveTo->x, worm->state->moveTo->y); // Randomly choose a strategy for getting there worm->strategy = worm_move_strategy(); // Determine the direction to move in worm->state->xdirection = worm_move_get_x_direction(worm, worm->state->moveTo); worm->state->ydirection = worm_move_get_y_direction(worm, worm->state->moveTo); // worm-strategy(worm->front, worm->state->moveTo); worm->strategy = worm_move_diagonal; worm->strategy(worm); } }
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; }