void
draw_animated_foreground (ALLEGRO_BITMAP *bitmap, int room)
{
int room_view_bkp = room_view;
room_view = room;
struct pos p;
p.room = room_view;
for (p.floor = FLOORS; p.floor >= -1; p.floor--)
for (p.place = -1; p.place < PLACES; p.place++) {
if (con (&p)->fg != MIRROR) continue;
update_mirror_bitmap (bitmap, &p);
draw_mirror (bitmap, &p, em, vm);
}
/* loose_floor_fall_debug (); */
for (p.floor = FLOORS; p.floor >= -1; p.floor--)
for (p.place = -1; p.place < PLACES; p.place++) {
draw_falling_loose_floor (bitmap, &p, em, vm);
}
draw_anims (bitmap, em, vm);
for (p.floor = FLOORS; p.floor >= -1; p.floor--)
for (p.place = -1; p.place < PLACES; p.place++) {
draw_potion (bitmap, &p, em, vm);
if (is_sword (&p)) draw_sword (bitmap, &p, vm);
}
room_view = room_view_bkp;
}
void
draw_animated_foreground (ALLEGRO_BITMAP *bitmap, int room)
{
room_view = room;
struct pos p; new_pos (&p, &global_level, room, -1, -1);
/* loose_floor_fall_debug (); */
for (p.floor = FLOORS; p.floor >= -1; p.floor--)
for (p.place = -1; p.place < PLACES; p.place++) {
draw_falling_loose_floor (bitmap, &p, em, vm);
}
draw_anims (bitmap, em, vm);
for (p.floor = FLOORS; p.floor >= -1; p.floor--)
for (p.place = -1; p.place < PLACES; p.place++) {
draw_potion (bitmap, &p, em, vm);
if (is_sword (&p)) draw_sword (bitmap, &p, vm);
}
/* editor graphics */
switch (edit) {
case EDIT_GUARD:
case EDIT_GUARD_SELECT:
case EDIT_GUARD_SKILL:
case EDIT_SKILL_LEGACY_TEMPLATES:
case EDIT_GUARD_TYPE:
case EDIT_GUARD_STYLE:
case EDIT_GUARD_SKILL_ATTACK:
case EDIT_GUARD_SKILL_COUNTER_ATTACK:
case EDIT_GUARD_SKILL_DEFENSE:
case EDIT_GUARD_SKILL_COUNTER_DEFENSE:
case EDIT_GUARD_SKILL_ADVANCE:
case EDIT_GUARD_SKILL_RETURN:
case EDIT_GUARD_SKILL_REFRACTION:
case EDIT_GUARD_SKILL_EXTRA_LIFE:
case EDIT_GUARD_LIVES:
draw_start_guards (bitmap, vm);
break;
case EDIT_KID:
draw_start_kid (bitmap, vm);
break;
default: break;
}
for (p.floor = FLOORS; p.floor >= -1; p.floor--)
for (p.place = -1; p.place < PLACES; p.place++)
draw_box (bitmap, &p, vm);
}
static bool
flow (struct anim *k)
{
struct coord nc; struct pos np, ptf, pbf;
enum confg ctf;
if (k->oaction != kid_couch) {
k->i = -1; k->fall = k->collision = k->misstep = false;
k->wait = 0;
}
if (k->uncouch_slowly) {
k->wait = 36;
k->uncouch_slowly = false;
}
if (k->oaction == kid_climb)
k->i = 10;
if (k->oaction == kid_couch_collision)
k->collision = true, k->inertia = k->cinertia = 0;
if (k->oaction == kid_fall) {
k->fall = true; k->inertia = k->cinertia = 0;
}
/* if (k->i > 2 && k->hit_by_loose_floor) */
/* k->i = -1; */
/* unclimb */
int dir = (k->f.dir == LEFT) ? +1 : -1;
ctf = survey (_tf, pos, &k->f, &nc, &ptf, &np)->fg;
survey (_bf, pos, &k->f, &nc, &pbf, &np);
struct pos ph; prel (&pbf, &ph, +1, dir);
if (k->i == -1
&& ! k->collision
&& ! k->fall
&& ! k->hit_by_loose_floor
&& k->item_pos.room == -1
&& is_hangable_pos (&ph, k->f.dir)
&& dist_next_place (&k->f, _tf, pos, 0, true) <= 27
&& ! (ctf == DOOR && k->f.dir == LEFT
&& door_at_pos (&ptf)->i > DOOR_CLIMB_LIMIT)) {
pos2room (&ph, k->f.c.room, &k->hang_pos);
kid_unclimb (k);
return false;
}
if (k->i == 12) {
k->hit_by_loose_floor = false;
kid_normal (k);
return false;
}
if (k->i == 2 && k->item_pos.room != -1
&& ! k->collision && ! k->fall) {
if (is_potion (&k->item_pos)) kid_drink (k);
else if (is_sword (&k->item_pos)) kid_raise_sword (k);
else {
k->item_pos.room = -1; goto no_item;
}
return false;
}
no_item:
if (k->i == 2 && k->key.down
&& k->cinertia == 0
&& k->wait-- <= 0
&& ((k->f.dir == LEFT && k->key.left)
|| (k->f.dir == RIGHT && k->key.right))) {
k->i = 0;
select_frame (k, kid_couch_frameset, 0);
return true;
}
if (k->i != 2 || (! k->key.down && k->wait-- <= 0))
k->i++;
if (k->i == 1 && k->wait > 0 &&
((k->fall == true && k->hurt)
|| k->hit_by_loose_floor))
k->i = 2;
select_frame (k, kid_couch_frameset, k->i);
if (k->oaction == kid_climb) k->fo.dx += 7;
if (k->i > 0 && k->i < 3) k->fo.dx -= k->cinertia;
if (k->cinertia > 0) k->cinertia--;
return true;
}
static bool
flow (struct anim *k)
{
struct pos pbf, pmt;
survey (_bf, pos, &k->f, NULL, &pbf, NULL);
k->collision = false;
k->hit_by_loose_floor = false;
bool turn = ((k->f.dir == RIGHT) && k->key.left)
|| ((k->f.dir == LEFT) && k->key.right);
bool walk = ((k->f.dir == RIGHT) && k->key.right && k->key.shift)
|| ((k->f.dir == LEFT) && k->key.left && k->key.shift);
bool run = (((k->f.dir == RIGHT) && k->key.right)
|| ((k->f.dir == LEFT) && k->key.left)) && ! walk;
bool jump = ((k->f.dir == RIGHT) && k->key.right && k->key.up)
|| ((k->f.dir == LEFT) && k->key.left && k->key.up);
bool couch = k->key.down;
bool vjump = k->key.up;
bool drink = is_potion (&pbf) && k->key.shift;
bool raise_sword = is_sword (&pbf) && k->key.shift;
bool take_sword = k->key.enter && k->has_sword;
survey (_mt, pos, &k->f, NULL, &pmt, NULL);
bool stairs = k->key.up && ! k->key.left && ! k->key.right
&& fg (&pmt) == LEVEL_DOOR
&& level_door_at_pos (&pmt)->i == 0
&& k == get_anim_by_id (0);
if (k->oaction == kid_normal
&& k->current_lives <= 0) {
survey (_mt, pos, &k->f, NULL, &pmt, NULL);
k->p = pmt;
kid_die (k);
return false;
}
if (k->oaction == kid_normal) {
if (stairs) {
k->p = pmt;
kid_stairs (k);
return false;
}
if (couch) {
kid_couch (k);
return false;
}
if (jump) {
kid_jump (k);
return false;
}
if (turn) {
kid_turn (k);
return false;
}
if (vjump) {
kid_vjump (k);
return false;
}
if (walk) {
kid_walk (k);
return false;
}
if (run) {
if (dist_collision (&k->f, _bf, -4, -4, &k->ci) < 29)
kid_walk (k);
else kid_start_run (k);
return false;
}
if (drink) {
k->item_pos = pbf;
place_frame (&k->f, &k->f, kid_couch_frameset[0].frame,
&k->item_pos, (k->f.dir == LEFT)
? PLACE_WIDTH + 3 : +9, +27);
kid_couch (k);
return false;
}
if (raise_sword) {
k->item_pos = pbf;
kid_couch (k);
return false;
}
if (take_sword) {
kid_take_sword (k);
return false;
}
}
k->fo.b = kid_normal_00;
k->fo.dx = k->fo.dy = +0;
if (k->f.b == kid_stabilize_frameset[3].frame) k->fo.dx = +2;
if (k->f.b == kid_walk_frameset[11].frame) k->fo.dx = -1;
if (k->f.b == kid_jump_frameset[17].frame) k->fo.dx = -2;
if (k->f.b == kid_couch_frameset[12].frame) k->fo.dx = -2;
if (k->f.b == kid_vjump_frameset[17].frame) k->fo.dx = +2;
if (k->f.b == kid_drink_frameset[7].frame) k->fo.dx = +0;
if (k->f.b == kid_keep_sword_frameset[9].frame) k->fo.dx = +2;
k->xf.b = NULL;
return true;
}
static int ready_weapon(struct obj *wep)
{
/* Separated function so swapping works easily */
int res = 0;
if (!wep) {
/* No weapon */
if (uwep) {
pline("You are empty %s.", body_part(HANDED));
setuwep(NULL);
res++;
} else
pline("You are already empty %s.", body_part(HANDED));
} else if (!uarmg && !Stone_resistance && wep->otyp == CORPSE
&& touch_petrifies(&mons[wep->corpsenm])) {
/* Prevent wielding cockatrice when not wearing gloves --KAA */
char kbuf[BUFSZ];
pline("You wield the %s corpse in your bare %s.",
mons[wep->corpsenm].mname, makeplural(body_part(HAND)));
sprintf(kbuf, "%s corpse", an(mons[wep->corpsenm].mname));
instapetrify(kbuf);
} else if (uarms && bimanual(wep))
pline("You cannot wield a two-handed %s while wearing a shield.",
is_sword(wep) ? "sword" :
wep->otyp == BATTLE_AXE ? "axe" : "weapon");
else if (wep->oartifact && !touch_artifact(wep, &youmonst)) {
res++; /* takes a turn even though it doesn't get wielded */
} else {
/* Weapon WILL be wielded after this point */
res++;
if (will_weld(wep)) {
const char *tmp = xname(wep), *thestr = "The ";
if (strncmp(tmp, thestr, 4) && !strncmp(The(tmp),thestr,4))
tmp = thestr;
else tmp = "";
pline("%s%s %s to your %s!", tmp, aobjnam(wep, "weld"),
(wep->quan == 1L) ? "itself" : "themselves", /* a3 */
bimanual(wep) ?
(const char *)makeplural(body_part(HAND))
: body_part(HAND));
wep->bknown = TRUE;
} else {
/* The message must be printed before setuwep (since
* you might die and be revived from changing weapons),
* and the message must be before the death message and
* Lifesaved rewielding. Yet we want the message to
* say "weapon in hand", thus this kludge.
*/
long dummy = wep->owornmask;
wep->owornmask |= W_WEP;
prinv(NULL, wep, 0L);
wep->owornmask = dummy;
}
setuwep(wep);
/* KMH -- Talking artifacts are finally implemented */
arti_speak(wep);
if (artifact_light(wep) && !wep->lamplit) {
begin_burn(wep, FALSE);
if (!Blind)
pline("%s to glow brilliantly!", Tobjnam(wep, "begin"));
}
if (wep->unpaid) {
struct monst *this_shkp;
if ((this_shkp = shop_keeper(level, inside_shop(level, u.ux, u.uy))) !=
NULL) {
pline("%s says \"You be careful with my %s!\"",
shkname(this_shkp),
xname(wep));
}
}
}
return res;
}
