2019-09-15 16:23:33 +00:00
|
|
|
public BOSS2_EXPLODE_SMALL
|
2019-03-02 22:23:38 +00:00
|
|
|
boss2_explode_small proc near
|
|
|
|
|
|
|
|
@@y = word ptr -4
|
|
|
|
@@x = word ptr -2
|
|
|
|
@@type = word ptr 4
|
|
|
|
|
|
|
|
enter 4, 0
|
|
|
|
mov ax, _boss_pos.cur.x
|
|
|
|
mov [bp+@@x], ax
|
|
|
|
mov ax, _boss_pos.cur.y
|
|
|
|
mov [bp+@@y], ax
|
|
|
|
mov eax, _boss2_pos.cur
|
|
|
|
mov _boss_pos.cur, eax
|
|
|
|
call boss_explode_small pascal, [bp+@@type]
|
|
|
|
mov ax, [bp+@@x]
|
|
|
|
mov _boss_pos.cur.x, ax
|
|
|
|
mov ax, [bp+@@y]
|
|
|
|
mov _boss_pos.cur.y, ax
|
|
|
|
leave
|
|
|
|
retn 2
|
|
|
|
boss2_explode_small endp
|