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;
}