mirror of https://github.com/nmlgc/ReC98.git
97 lines
2.3 KiB
NASM
97 lines
2.3 KiB
NASM
; void pascal near explosions_small_update_and_render(void);
|
|
public EXPLOSIONS_SMALL_UPDATE_AND_RENDER
|
|
explosions_small_update_and_render proc near
|
|
|
|
@@angle = byte ptr -7
|
|
@@i = word ptr -6
|
|
@@draw_y = word ptr -4
|
|
@@draw_x = word ptr -2
|
|
|
|
enter 8, 0
|
|
push si
|
|
push di
|
|
mov ax, GRAM_400
|
|
mov es, ax
|
|
assume es:nothing
|
|
call grcg_setmode_rmw_1
|
|
mov si, offset _explosions_small
|
|
mov [bp+@@i], 0
|
|
jmp @@more_explosions?
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@explosion_loop:
|
|
cmp [si+explosion_t.flag], 0
|
|
jz @@next_explosion
|
|
xor di, di
|
|
mov [bp+@@angle], 0
|
|
jmp short @@more_sprites?
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@sprite_loop:
|
|
push [si+explosion_t.center.x]
|
|
push [si+explosion_t.EXPLOSION_radius_cur.x]
|
|
mov al, [bp+@@angle]
|
|
mov ah, 0
|
|
add ax, ax
|
|
mov bx, ax
|
|
push _CosTable8[bx]
|
|
call vector1_at
|
|
mov [bp+@@draw_x], ax
|
|
push [si+explosion_t.center.y]
|
|
push [si+explosion_t.EXPLOSION_radius_cur.y]
|
|
mov al, [si+explosion_t.angle_offset]
|
|
add al, [bp+@@angle]
|
|
mov ah, 0
|
|
add ax, ax
|
|
mov bx, ax
|
|
push _SinTable8[bx]
|
|
call vector1_at
|
|
mov [bp+@@draw_y], ax
|
|
sar ax, 4
|
|
add ax, PLAYFIELD_Y - (EXPLOSION_SMALL_H / 2)
|
|
mov dx, ax
|
|
mov ax, [bp+@@draw_x]
|
|
sar ax, 4
|
|
add ax, PLAYFIELD_X - (EXPLOSION_SMALL_W / 2)
|
|
cmp ax, PLAYFIELD_X - EXPLOSION_SMALL_W
|
|
jbe short @@next_sprite
|
|
cmp ax, PLAYFIELD_X + PLAYFIELD_W
|
|
jnb short @@next_sprite
|
|
or dx, dx
|
|
jbe short @@next_sprite
|
|
cmp dx, PLAYFIELD_Y + PLAYFIELD_H
|
|
jnb short @@next_sprite
|
|
call z_super_roll_put_tiny_16x16_raw pascal, EXPLOSION_SMALL_PATNUM
|
|
|
|
@@next_sprite:
|
|
inc di
|
|
mov al, [bp+@@angle]
|
|
add al, (256 / EXPLOSION_SMALL_SPRITES)
|
|
mov [bp+@@angle], al
|
|
|
|
@@more_sprites?:
|
|
cmp di, EXPLOSION_SMALL_SPRITES
|
|
jl short @@sprite_loop
|
|
mov ax, [si+explosion_t.EXPLOSION_radius_delta.x]
|
|
add [si+explosion_t.EXPLOSION_radius_cur.x], ax
|
|
mov ax, [si+explosion_t.EXPLOSION_radius_delta.y]
|
|
add [si+explosion_t.EXPLOSION_radius_cur.y], ax
|
|
inc [si+explosion_t.age]
|
|
cmp [si+explosion_t.age], EXPLOSION_AGE_MAX
|
|
jb short @@next_explosion
|
|
mov [si+explosion_t.flag], 0
|
|
|
|
@@next_explosion:
|
|
inc [bp+@@i]
|
|
add si, size explosion_t
|
|
|
|
@@more_explosions?:
|
|
cmp [bp+@@i], 2
|
|
jl @@explosion_loop
|
|
GRCG_OFF_CLOBBERING dx
|
|
pop di
|
|
pop si
|
|
leave
|
|
retn
|
|
explosions_small_update_and_render endp
|