/**
* hero_gets_poisoned - poison a hero
* @hero: the hero which gets poisoned
* @poison: the kind of poison
*/
void hero_gets_poisoned(Bit8u *hero, unsigned short poison) {
if (!hero_dead(hero)) {
host_writeb(hero + poison * 5 + 0xd6, 0xff);
host_writeb(hero + poison * 5 + 0xd7, 0x00);
host_writeb(hero + poison * 5 + 0xd8, 0x00);
host_writeb(hero + poison * 5 + 0xd9, 0x00);
host_writeb(hero + poison * 5 + 0xda, 0x00);
}
}
/**
* hero_get_sober - makes a drunken hero sober
* @hero: pointer to the hero
*
*/
void hero_get_sober(Bit8u *hero) {
/* This is checked twice */
/* Is hero drunken ? */
if (host_readb(hero + 0xa1) == 0)
return;
#if !defined(__BORLANDC__)
D1_INFO("%s ist wieder nuechtern\n", (char*)hero + 0x10);
#endif
/* set hero sober */
host_writeb(hero + 0xa1, 0);
/* Reset good attributes */
sub_ptr_bs(hero + 0x35, 1);
add_ptr_bs(hero + 0x38, 1);
add_ptr_bs(hero + 0x3b, 1);
add_ptr_bs(hero + 0x3e, 1);
add_ptr_bs(hero + 0x41, 1);
sub_ptr_bs(hero + 0x44, 1);
sub_ptr_bs(hero + 0x47, 1);
/* Reset bad attributes */
sub_ptr_bs(hero + 0x4a, 1);
add_ptr_bs(hero + 0x4d, 1);
add_ptr_bs(hero + 0x50, 1);
sub_ptr_bs(hero + 0x53, 1);
add_ptr_bs(hero + 0x56, 1);
sub_ptr_bs(hero + 0x59, 1);
sub_ptr_bs(hero + 0x5c, 1);
if (ds_readb(0x2845) == 20)
ds_writew(0x2846, 1);
}
/**
* hero_get_drunken() - let the hero feel the result of too much alcohol
* @hero: the hero
*/
void hero_get_drunken(Bit8u *hero)
{
if (!host_readbs(hero + 0xa1)) {
/* set the hero drunken */
host_writeb(hero + 0xa1, 1);
/* change good attributes */
add_ptr_bs(hero + 0x35, 1);
sub_ptr_bs(hero + 0x38, 1);
sub_ptr_bs(hero + 0x3b, 1);
sub_ptr_bs(hero + 0x3e, 1);
sub_ptr_bs(hero + 0x41, 1);
add_ptr_bs(hero + 0x44, 1);
add_ptr_bs(hero + 0x47, 1);
/* Reset bad attributes */
add_ptr_bs(hero + 0x4a, 1);
sub_ptr_bs(hero + 0x4d, 1);
sub_ptr_bs(hero + 0x50, 1);
add_ptr_bs(hero + 0x53, 1);
sub_ptr_bs(hero + 0x56, 1);
add_ptr_bs(hero + 0x59, 1);
add_ptr_bs(hero + 0x5c, 1);
/* do a burp FX2.VOC */
if (ds_readb(0x2845) == 20) {
ds_writew(0x2846, 1);
}
play_voc_delay(0x122);
}
}
static INLINE void hostWrite(HostPt off, Bitu val) {
if ( sizeof( Size ) == 1)
host_writeb( off, (Bit8u)val );
else if ( sizeof( Size ) == 2)
host_writew( off, (Bit16u)val );
else if ( sizeof( Size ) == 4)
host_writed( off, (Bit32u)val );
}
void hero_disappear(Bit8u *hero, unsigned short pos, signed char type)
{
/* decrement the number of heroes */
ds_writeb(0x2d3c, ds_readb(0x2d3c) - 1);
/* load a new savegame if no hero is present */
if (ds_readb(0x2d3c) == 0)
ds_writew(0xc3c1, 1);
/* decrement group counter */
ds_writeb(0x2d36 + ds_readb(CURRENT_GROUP),
ds_readb(0x2d36 + ds_readb(CURRENT_GROUP)) - 1);
/* write type to character sheet */
host_writeb(hero + 0x88, type);
/* reset position in group */
host_writeb(hero + 0x8a, 0);
if (pos == 6) {
/* NPC */
save_npc(0xe2 + host_readb(hero + 0x89));
/* reset NPC timer */
ds_writeb(0x3602 + host_readb(hero + 0x89), 0xff);
} else {
/* Regular Hero */
write_chr_temp(pos);
}
/* set typus to 0 */
host_writeb(hero + 0x21, 0);
if (type != -2) {
draw_main_screen();
init_ani(2);
ds_writew(0x2846, 1);
}
/* set flag to check all heros */
ds_writeb(CHECK_PARTY, 1);
}
/**
* hero_gets_diseased - diseases a hero
* @hero: the hero which gets diseased
* @disease: the kind of disease
*/
void hero_gets_diseased(Bit8u *hero, unsigned short disease)
{
#ifdef M302de_ORIGINAL_BUGFIX
/* not a real BUG, but very useless */
if (host_readb(hero + 0x21) == 0)
return;
#endif
if (!hero_dead(hero)) {
#if !defined(__BORLANDC__)
D1_INFO("%s erkrankt an %s\n",
(char*)hero + 0x10,
(char*)get_ltx((disease + 0x193) * 4));
#endif
host_writeb(hero + disease * 5 + 0xae, 0xff);
host_writeb(hero + disease * 5 + 0xaf, 0x00);
host_writeb(hero + disease * 5 + 0xb0, 0x00);
host_writeb(hero + disease * 5 + 0xb1, 0x00);
host_writeb(hero + disease * 5 + 0xb2, 0x00);
}
}
/**
* update_atpa() - recalculates the AT PA values
*
*/
void update_atpa(Bit8u *hero)
{
div_t erg;
signed short diff;
signed short i;
/* ATPA base = (IN + KK + GE) / 5 rounded */
erg = div(host_readbs(hero + 0x43) + host_readbs(hero + 0x46) + host_readbs(hero + 0x40), 5);
/* round up */
if (erg.rem >= 3)
erg.quot++;
/* calculate difference */
diff = erg.quot - host_readbs(hero + 0x67);
if (diff != 0) {
/* update atpa base value */
host_writeb(hero + 0x67, erg.quot);
/* prepare message */
sprintf((char*)Real2Host(ds_readd(DTP2)),
(char*)get_ltx(0x20), host_readbs(hero + 0x67));
/* print message */
GUI_output(Real2Host(ds_readd(DTP2)));
for (i = 0; i < 7; i++) {
/* add diff to AT value */
host_writeb(hero + 0x68 + i,
host_readbs(hero + 0x68 + i) + diff);
/* add diff to PA value */
host_writeb(hero + 0x6f + i,
host_readbs(hero + 0x6f + i) + diff);
}
}
}
/* Borlandified and identical */
void passages_init(void)
{
signed short si;
signed short i;
Bit8u *p = p_datseg + 0x6f00;
for (i = 0; i < 45; p += 8, i++) {
host_writeb(p + 4, (unsigned char)random_interval(0, host_readbs(p + 3)));
host_writeb(p + 7, (unsigned char)random_interval(70, 130));
si = random_schick(100);
if (!host_readbs(p + 5)) {
/* Hochseerouten */
host_writeb(p + 6, si <= 50 ? 0 : (si <= 80 ? 1 : (si <= 95 ? 2 : 3)));
} else {
/* Seerouten */
host_writeb(p + 6, si <= 10 ? 4 : (si <= 40 ? 5 : (si <= 80 ? 6 : 7)));
}
#if !defined(__BORLANDC__)
D1_LOG("%16s - %16s: %d %d %d %d %d %d\n",
(char*)get_ltx((host_readb(p + 0) + 0xeb) * 4),
(char*)get_ltx((host_readb(p + 1) + 0xeb) * 4),
host_readb(p + 2),
host_readb(p + 3),
host_readb(p + 4),
host_readb(p + 5),
host_readb(p + 6),
host_readb(p + 7));
#endif
}
}
/* Borlandified and identical */
Bit16s copy_ani_seq(Bit8u *dst, Bit16s ani, Bit16u type)
{
Bit8u *p_start, *p_seq;
signed short nr_anis;
signed short i;
signed char length;
/* get pointer from ANI.DAT */
p_start = Real2Host(ds_readd(BUFFER_ANIDAT));
/* check if we must use WEAPANI.DAT */
if (type == 3)
p_start = Real2Host(ds_readd(BUFFER_WEAPANIDAT));
/* get number of animation sequences */
nr_anis = host_readws(p_start);
/* sanity check */
if (ani < 0)
return 0;
if (ani > nr_anis)
return 0;
/* set p_seq to the first sequence */
p_seq = p_start;
p_seq += nr_anis + 2;
/* set length to the length of the first sequence */
length = host_readbs(p_start + 2);
/* fast forward to the requestet sequence */
for (i = 1; i <= ani; i++) {
p_seq += length;
length = host_readbs(p_start + i + 2);
}
/* skip the first byte */
p_seq++;
/* calc the length of the sequence */
length -= 2;
/* REMARK: the first an the last byte of the sequence are skipped */
/* copy them */
for (i = 0; i < length; p_seq++, dst++, i++)
host_writeb(dst, host_readbs(p_seq));
return length;
}
/* Borlandified and identical */
void seg044_002f(signed short v1, Bit8u *p, signed short v2, signed short target, signed short caster,
signed short v5)
{
signed short l1;
signed short x_target, y_target;
signed short x_caster, y_caster;
signed short dir;
signed short l2, l3; /* indicees to lp2 */
Bit8u *lp1; /* mostly written */
Bit8u *lp2; /* read only */
signed short dir2;
/* get a pointer from an array where the Monster-ID serves as index */
lp2 = Real2Host(ds_readd(0x2555 + host_readbs(p + 1) * 4));
FIG_search_obj_on_cb((signed char)caster, &x_caster, &y_caster);
FIG_search_obj_on_cb((signed char)target, &x_target, &y_target);
#if !defined(__BORLANDC__)
/* BE-fix */
x_caster = host_readws((Bit8u*)&x_caster);
y_caster = host_readws((Bit8u*)&y_caster);
x_target = host_readws((Bit8u*)&x_target);
x_target = host_readws((Bit8u*)&y_target);
#endif
if (x_target == x_caster) {
if (y_caster < y_target)
dir = 1;
else
dir = 3;
} else {
if (x_caster < x_target)
dir = 2;
else
dir = 0;
}
if ((signed char)caster == (signed char)target)
dir = host_readbs(p + 0x27);
/* this is true if a monster attacks a hero */
l1 = (v2 == 4) ? 29 : 16;
lp1 = p_datseg + 0xd8cf + v1 * 0xf3;
/* this is true if a monster attacks a hero */
l1 += (v2 == 4) ? dir : host_readbs(p + 0x27);
ds_writeb(0xd8ce + v1 * 0xf3, get_seq_header(host_readws(lp2 + l1 * 2)));
ds_writeb(0xd9c0 + v1 * 0xf3, host_readbs(p + 1));
if ((host_readbs(p + 0x27) != dir) && (v2 == 4)) {
ds_writeb(0xd8ce + v1 * 0xf3, 0);
l3 = l2 = -1;
dir2 = host_readbs(p + 0x27);
l3 = dir2;
dir2++;
if (dir2 == 4)
dir2 = 0;
if (dir2 != dir) {
l2 = dir2;
dir2++;
if (dir2 == 4)
dir2 = 0;
if (dir2 != dir) {
l3 = host_readbs(p + 0x27) + 4;
l2 = -1;
}
}
host_writebs(p + 0x27, (signed char)dir);
lp1 += copy_ani_seq(lp1, host_readws(lp2 + l3 * 2), 1);
if (l2 != -1)
lp1 += copy_ani_seq(lp1, host_readws(lp2 + l2 * 2), 1);
host_writeb(lp1, 0xfc);
lp1++;
host_writeb(lp1, get_seq_header(host_readws(lp2 + l1 * 2)));
lp1++;
host_writeb(lp1, 0);
lp1++;
}
lp1 += copy_ani_seq(lp1, host_readws(lp2 + l1 * 2), 1);
if (((ds_readw(0xe3a8) != 0) && (v5 == 0)) ||
((ds_readw(0xe3a6) != 0) && (v5 == 1))) {
host_writeb(lp1, 0xfc);
lp1++;
host_writeb(lp1, get_seq_header(host_readws(lp2 + 0x28)));
lp1++;
host_writeb(lp1, 0);
lp1++;
lp1 += copy_ani_seq(lp1, host_readws(lp2 + 0x28), 1);
}
host_writeb(lp1, 0xff);
/* check if the moster sprite ID needs two fields */
if (is_in_byte_array(host_readb(p + 1), p_datseg + TWO_FIELDED_SPRITE_ID)) {
memcpy(p_datseg + 0xdab4 + v1 * 0xf3, p_datseg + 0xd8ce + v1 * 0xf3, 0xf3);
}
}
/* Borlandified and identical */
void seg044_002a(Bit16u v1, Bit8u *hero, Bit16u v2, Bit16s obj1, Bit16s obj2,
Bit16u v5, Bit16u v6)
{
signed short x_obj1, y_obj1;
signed short x_obj2, y_obj2;
signed short dir;
signed short l2;
signed short l3;
Bit8u *lp1;
Bit8u *lp2;
signed short l_di;
signed short l_si;
/* get a pointer from an array where the Monster-ID serves as index */
lp2 = Real2Host(ds_readd(0x2555 + host_readbs(hero + 0x9b) * 4));
FIG_search_obj_on_cb((signed char)obj2, &x_obj2, &y_obj2);
FIG_search_obj_on_cb((signed char)obj1, &x_obj1, &y_obj1);
#if !defined(__BORLANDC__)
/* BE-fix */
x_obj1 = host_readws((Bit8u*)&x_obj1);
y_obj1 = host_readws((Bit8u*)&y_obj1);
x_obj2 = host_readws((Bit8u*)&x_obj2);
y_obj2 = host_readws((Bit8u*)&y_obj2);
#endif
if (x_obj1 == x_obj2) {
if (y_obj2 < y_obj1)
dir = 1;
else
dir = 3;
} else {
if (x_obj2 < x_obj1)
dir = 2;
else
dir = 0;
}
if ((signed char)obj2 == (signed char)obj1)
dir = host_readbs(hero + 0x82);
l_di = (v2 == 4) ? ((v5 == 1) ? 37 : 29) : 16;
l_di += (v2 == 4) ? dir : host_readbs(hero + 0x82);
lp1 = p_datseg + 0xd8cf + v1 * 0xf3;
ds_writeb(0xd8ce + v1 * 0xf3, get_seq_header(host_readws(lp2 + l_di * 2)));
#if !defined(__BORLANDC__)
ds_writeb(0xd9c0 + v1 * 0xf3, host_readbs(hero + 0x9b));
#else
/* another ugly hack */
asm {
les bx, hero
mov al, [es:bx+0x9b]
mov bx, v1
db 0x69, 0xdb, 0xf3, 0x00
mov [bx + 0xd9c0], al
}
#endif
if ((host_readbs(hero + 0x82) != dir) && (v2 == 4)) {
ds_writeb(0xd8ce + v1 * 0xf3, 0);
l3 = l2 = -1;
l_si = host_readbs(hero + 0x82);
l3 = l_si;
l_si++;
if (l_si == 4)
l_si = 0;
if (l_si != dir) {
l2 = l_si;
l_si++;
if (l_si == 4)
l_si = 0;
if (l_si != dir) {
l3 = host_readbs(hero + 0x82) + 4;
l2 = -1;
}
}
host_writebs(hero + 0x82, (signed char)dir);
lp1 += copy_ani_seq(lp1, host_readws(lp2 + l3 * 2), 2);
if (l2 != -1)
lp1 += copy_ani_seq(lp1, host_readws(lp2 + l2 * 2), 2);
host_writeb(lp1, 0xfc);
lp1++;
host_writeb(lp1, get_seq_header(host_readws(lp2 + l_di * 2)));
lp1++;
host_writeb(lp1, 0x00);
lp1++;
}
if ((v2 == 4) || check_hero(hero) ||
((ds_readw(0xe3a8) != 0) && (v6 == 0)) ||
((ds_readw(0xe3a6) != 0) && (v6 == 1))) {
lp1 += copy_ani_seq(lp1, host_readws(lp2 + l_di * 2), 2);
}
if (((ds_readw(0xe3a8) != 0) && (v6 == 0)) ||
((ds_readw(0xe3a6) != 0) && (v6 == 1))) {
host_writeb(lp1, 0xfc);
lp1++;
host_writeb(lp1, get_seq_header(host_readws(lp2 + 0x28)));
lp1++;
host_writeb(lp1, 0x00);
lp1++;
lp1 += copy_ani_seq(lp1, host_readws(lp2 + 0x28), 2);
}
host_writeb(lp1, 0xff);
}
/* Borlandified and identical */
void FIG_prepare_enemy_fight_ani(signed short a1, Bit8u *enemy, signed short f_action, signed short fid_attacker, signed short fid_target, signed short a7)
{
signed short l1;
signed short attacker_x;
signed short attacker_y;
signed short target_x;
signed short target_y;
signed short dir;
signed short l7;
signed short l8;
signed short l9;
signed short i;
Bit8u *p1;
Bit8u *p2;
Bit8u *p3; /* only user for two sprited figures */
Bit8u *p4; /* read only */
signed short weapon_type;
/* initialize with bare hands */
weapon_type = -1;
/* every enemy with the gfx_id < 22 has a sword type weapon */
if (host_readbs(enemy + 1) < 22) {
weapon_type = 2;
}
/* This byte is unknown atm */
if (host_readbs(enemy + 0x30) != 0) {
weapon_type = -1;
}
/* read a pointer from the datseg with the gfx_id as offset, read only */
p4 = Real2Host(ds_readd(0x2555 + host_readbs(enemy + 1) * 4));
/* find both actors on the chessboard */
FIG_search_obj_on_cb((signed char)fid_target, &target_x, &target_y);
FIG_search_obj_on_cb((signed char)fid_attacker, &attacker_x, &attacker_y);
#if !defined(__BORLANDC__)
/* BE-fix */
target_x = host_readws((Bit8u*)&target_x);
target_y = host_readws((Bit8u*)&target_y);
attacker_x = host_readws((Bit8u*)&attacker_x);
attacker_y = host_readws((Bit8u*)&attacker_y);
#endif
/* find out which direction the action will have */
if (attacker_x == target_x) {
if (target_y < attacker_y) {
dir = 1;
} else {
dir = 3;
}
} else {
if (target_x < attacker_x) {
dir = 2;
} else {
dir = 0;
}
}
l1 = (f_action == 2) ? 21 : /* melee attack */
25;
if ((host_readbs(enemy + 1) == 8) ||
(host_readbs(enemy + 1) == 9) ||
(host_readbs(enemy + 1) == 19) ||
(host_readbs(enemy + 1) == 20))
{
weapon_type = -1;
l1 = (f_action == 2) ? 45 : 49;
}
if (f_action == 15) {
l1 = 33;
weapon_type = -1;
}
l1 += dir;
p1 = p_datseg + 0xd8cf + a1 * 0xf3;
p2 = p_datseg + 0xdc9b + a1 * 0xf3;
ds_writeb(0xd8ce + 0xf3 * a1, get_seq_header(host_readws(p4 + l1 * 2)));
ds_writeb(0xd9c0 + 0xf3 * a1, host_readbs(enemy + 1));
/* first the enemy may turn */
if ((host_readbs(enemy + 0x27) != dir) &&
( ((f_action == 2) || (f_action == 15) ||
((f_action == 100) && !ds_readbs(0xd82d + (signed char)fid_attacker))) ||
((ds_readw(0xe3ac) != 0) && (a7 == 0)) ||
((ds_readw(0xe3aa) != 0) && (a7 == 1))))
{
ds_writeb(0xd8ce + a1 * 0xf3, 0);
/* find out the new direction */
l8 = l7 = -1;
/* try to turn right 90 degrees */
l9 = host_readbs(enemy + 0x27);
l8 = l9;
l9++;
if (l9 == 4) {
l9 = 0;
}
if (l9 != dir) {
l7 = l9;
l9++;
if (l9 == 4) {
l9 = 0;
}
if (l9 != dir) {
l8 = host_readbs(enemy + 0x27) + 4;
l7 = -1;
}
}
/* set the new direction in enemy sheet */
host_writebs(enemy + 0x27, (signed char)dir);
/* only if the turn is 90 degree */
if (l7 == -1) {
/* do not move for 2 frames */
for (i = 0; i < 2; i++) {
host_writeb(p1++, 0xfb);
host_writeb(p1++, 0);
host_writeb(p1++, 0);
}
}
p1 += copy_ani_seq(p1, host_readws(p4 + l8 * 2), 1);
if (l7 != -1) {
p1 += copy_ani_seq(p1, host_readws(p4 + l7 * 2), 1);
}
host_writeb(p1++, 0xfc);
host_writeb(p1++, get_seq_header(host_readws(p4 + l1 * 2)));
host_writeb(p1++, 0);
} else {
/* do not move for 5 frames */
for (i = 0; i < 5; i++) {
host_writeb(p1++, 0xfb);
host_writeb(p1++, 0);
host_writeb(p1++, 0);
}
}
if ((f_action == 2) || (f_action == 15) ||
((f_action == 100) && !ds_readbs(0xd82d + (signed char)fid_attacker)))
{
p1 += copy_ani_seq(p1, host_readws(p4 + l1 *2), 1);
if (weapon_type != -1) {
/* do not move for 5 frames */
for (i = 0; i < 5; i++) {
host_writeb(p2++, 0xfb);
host_writeb(p2++, 0);
host_writeb(p2++, 0);
}
/* copy the weapon ani */
p2 += copy_ani_seq(p2,
ds_readws(0x25fe +
( ds_readbs(0x268e + host_readbs(enemy + 1)) * 48 +
weapon_type * 16 +
((f_action == 2) ? 0 : 1) * 8 +
host_readbs(enemy + 0x27) * 2
)
), 3);
}
}
if (((ds_readws(0xe3ac) != 0) && (a7 == 0)) ||
((ds_readws(0xe3aa) != 0) && (a7 == 1))) {
p1 += copy_ani_seq(p1, host_readws(p4 + l1 * 2), 1);
if (weapon_type != -1) {
/* copy the weapon ani */
p2 += copy_ani_seq(p2,
ds_readws(0x25fe +
((ds_readbs(0x268e + host_readbs(enemy + 1)) * 48 + weapon_type * 16) +
((f_action == 2) ? 0 : 1) * 8 + host_readbs(enemy + 0x27) * 2)), 3);
}
}
if ( ((ds_readws(0xe3a8) != 0) && (a7 == 0)) ||
((ds_readws(0xe3a6) != 0) && (a7 == 1)))
{
host_writeb(p1++, 0xfc);
host_writeb(p1++, get_seq_header(host_readws(p4 + 0x28)));
host_writeb(p1++, 0);
p1 += copy_ani_seq(p1, host_readws(p4 + 0x28), 1);
}
FIG_set_0e(host_readbs(enemy + 0x26), (signed char)a1);
/* terminate figure animation array */
host_writebs(p1, -1);
/* does this sprite need two fields */
if (is_in_byte_array(host_readb(enemy + 1), p_datseg + TWO_FIELDED_SPRITE_ID)) {
memcpy(p_datseg + 0xdab4 + a1 * 0xf3, p_datseg + 0xd8ce + a1 * 0xf3, 0xf3);
p3 = Real2Host(FIG_get_ptr(host_readbs(enemy + 0x26)));
FIG_set_0e(ds_readbs(0xe35a + host_readbs(p3 + 0x13)), a1 + 2);
}
if (weapon_type != -1) {
FIG_set_0f(host_readbs(enemy + 0x26), a1 + 4);
/* terminate weapon animation array */
host_writeb(p2, 0xff);
}
if (f_action == 100) {
ds_writeb(0xd82d + (signed char)fid_attacker, 1);
}
}
/* Borlandified and identical */
void FIG_prepare_hero_fight_ani(signed short a1, Bit8u *hero, signed short weapon_type, signed short f_action, signed short fid_attacker, signed short fid_target, signed short a7)
{
signed short l1;
signed short attacker_x;
signed short attacker_y;
signed short target_x;
signed short target_y;
signed short dir;
signed short l7;
signed short l8;
signed short l9;
signed short l10;
Bit8u *p1;
Bit8u *p2;
signed short weapon;
Bit8u *p3;
p3 = Real2Host(ds_readd(0x2555 + host_readbs(hero + 0x9b) * 4));
weapon = host_readws(hero + 0x1c0);
if ((signed char)fid_target != 0) {
FIG_search_obj_on_cb((signed char)fid_target, &target_x, &target_y);
FIG_search_obj_on_cb((signed char)fid_attacker, &attacker_x, &attacker_y);
#if !defined(__BORLANDC__)
/* BE-fix */
target_x = host_readws((Bit8u*)&target_x);
target_y = host_readws((Bit8u*)&target_y);
attacker_x = host_readws((Bit8u*)&attacker_x);
attacker_y = host_readws((Bit8u*)&attacker_y);
#endif
if (attacker_x == target_x) {
if (target_y < attacker_y) {
dir = 1;
} else {
dir = 3;
}
} else {
if (target_x < attacker_x) {
dir = 2;
} else {
dir = 0;
}
}
} else {
dir = host_readbs(hero + 0x82);
}
if ((weapon_type == -1) || ((host_readbs(hero + 0x21) == 9) && (weapon == 0x85))) {
l1 = (f_action == 2) ? 45 : /* melee attack */
(f_action == 102) ? 41 : /* drink potion */
(f_action == 103) ? 53 : /* cast spell */
49;
} else {
l1 = (f_action == 2) ? 21: /* melee attack */
(f_action == 102) ? 41 : /* drink potion */
(f_action == 103) ? 53 : /* cast spell */
(f_action != 15) ? 25 :
(weapon_type == 3) ? 33 :
(weapon_type == 4) ? 57 :
61;
}
l1 += dir;
p1 = p_datseg + 0xd8cf + 0xf3 * a1;
p2 = p_datseg + 0xdc9b + 0xf3 * a1;
ds_writeb(0xd8ce + 0xf3 * a1, get_seq_header(host_readws(p3 + l1 * 2)));
ds_writeb(0xd9c0 + 0xf3 * a1, host_readbs(hero + 0x9b));
if (check_hero(hero) && (host_readbs(hero + 0x82) != dir) &&
((f_action == 2) || (f_action == 15) || (f_action == 103) ||
((f_action == 100) && !ds_readbs(0xd84a + (signed char)fid_attacker)) ||
((ds_readws(0xe3ac) != 0) && (a7 == 0)) ||
((ds_readws(0xe3aa) != 0) && (a7 == 1))))
{
ds_writeb(0xd8ce + a1 * 0xf3, 0);
l8 = l7 = -1;
l9 = host_readbs(hero + 0x82);
l8 = l9;
l9++;
if (l9 == 4) {
l9 = 0;
}
if (l9 != dir) {
l7 = l9;
l9++;
if (l9 == 4) {
l9 = 0;
}
if (l9 != dir) {
l8 = host_readbs(hero + 0x82) + 4;
l7 = -1;
}
}
host_writeb(hero + 0x82, (signed char)dir);
if (l7 == -1) {
for (l10 = 0; l10 < 2; l10++) {
host_writeb(p1++, 0xfb);
host_writeb(p1++, 0);
host_writeb(p1++, 0);
}
}
p1 += copy_ani_seq(p1, host_readws(p3 + l8 * 2), 2);
if (l7 != -1) {
p1 += copy_ani_seq(p1, host_readws(p3 + l7 * 2), 2);
}
host_writeb(p1++, 0xfc);
host_writeb(p1++, get_seq_header(host_readws(p3 + l1 * 2)));
host_writeb(p1++, 0);
} else {
for (l10 = 0; l10 < 5; l10++) {
host_writeb(p1++, 0xfb);
host_writeb(p1++, 0);
host_writeb(p1++, 0);
}
}
if ((check_hero(hero) && (f_action == 2)) ||
((f_action == 15) || (f_action == 102) || (f_action == 103) ||
((f_action == 100) && !ds_readbs(0xd84a + (signed char)fid_attacker))))
{
p1 += copy_ani_seq(p1, host_readws(p3 + l1 *2), 2);
if ((weapon_type != -1) && (weapon_type < 3) &&
(host_readb(hero + 0x21) != 9) &&
(host_readb(hero + 0x21) != 8))
{
for (l10 = 0; l10 < 5; l10++) {
host_writeb(p2++, 0xfb);
host_writeb(p2++, 0);
host_writeb(p2++, 0);
}
p2 += copy_ani_seq(p2,
ds_readw(0x25fe +
((ds_readbs(0x268e + host_readbs(hero + 0x9b)) * 48 + weapon_type * 16) +
((f_action == 2) ? 0 : 1) * 8 + host_readbs(hero + 0x82) * 2)), 3);
}
}
if ((check_hero(hero) && ds_readw(0xe3ac) != 0 && a7 == 0) ||
((ds_readw(0xe3aa) != 0) && (a7 == 1))) {
p1 += copy_ani_seq(p1, host_readws(p3 + l1 * 2), 2);
if ((weapon_type != -1) && (weapon_type < 3) &&
(host_readb(hero + 0x21) != 9) &&
(host_readb(hero + 0x21) != 8))
{
p2 += copy_ani_seq(p2,
ds_readw(0x25fe +
((ds_readbs(0x268e + host_readbs(hero + 0x9b)) * 48 + weapon_type * 16) +
((f_action == 2) ? 0 : 1) * 8 + host_readbs(hero + 0x82) * 2)), 3);
}
}
if ( ((ds_readw(0xe3a8) != 0) && (a7 == 0)) ||
((ds_readw(0xe3a6) != 0) && (a7 == 1)))
{
host_writeb(p1++, 0xfc);
host_writeb(p1++, get_seq_header(host_readws(p3 + 0x28)));
host_writeb(p1++, 0);
p1 += copy_ani_seq(p1, host_readws(p3 + 0x28), 2);
}
if (check_hero(hero) ||
((ds_readw(0xe3a8) != 0) && (a7 == 0)) ||
((ds_readw(0xe3a6) != 0) && (a7 == 1)))
{
FIG_set_0e(host_readb(hero + 0x81), (signed char)a1);
host_writebs(p1, -1);
if ( (weapon_type != -1) && (weapon_type < 3) &&
(host_readb(hero + 0x21) != 9) &&
(host_readb(hero + 0x21) != 8))
{
FIG_set_0f(host_readb(hero + 0x81), a1 + 4);
host_writeb(p2, 0xff);
}
}
host_writeb(p1, 0xff);
if (f_action == 100) {
ds_writeb(0xd84a + (signed char)fid_attacker, 1);
}
}
