mirror of https://github.com/nmlgc/ReC98.git
238 lines
4.3 KiB
NASM
238 lines
4.3 KiB
NASM
; Spawns [n] new explosions at [origin].
|
|
; [origin] uses screen pixels, *not* the 1/16th-pixel units of the structure.
|
|
|
|
; void pascal zunsoft_pyro_new(Point origin, int n, char patnum_base)
|
|
_zunsoft_pyro_new proc pascal near
|
|
local @@pyros_created:word, @@i:word
|
|
arg @@origin:Point, @@n:word, @@patnum_base:byte
|
|
|
|
push si
|
|
push di
|
|
mov di, @@origin.y
|
|
mov @@pyros_created, 0
|
|
mov ax, 16
|
|
imul @@origin.x
|
|
mov @@origin.x, ax
|
|
mov ax, 16
|
|
imul di
|
|
mov di, ax
|
|
mov si, offset _zunsoft_pyros
|
|
mov @@i, 0
|
|
jmp short loc_B68D
|
|
|
|
loc_B63E:
|
|
cmp [si+zunsoft_pyro_t.alive], 0
|
|
jnz short loc_B687
|
|
mov [si+zunsoft_pyro_t.alive], 1
|
|
mov [si+zunsoft_pyro_t.frame], 0
|
|
mov [si+zunsoft_pyro_t.origin.x], di
|
|
mov ax, @@origin.x
|
|
mov [si+zunsoft_pyro_t.origin.y], ax
|
|
mov [si+zunsoft_pyro_t.distance], 0
|
|
mov [si+zunsoft_pyro_t.distance_prev], 0
|
|
call IRand
|
|
mov bx, 224
|
|
cwd
|
|
idiv bx
|
|
add dx, 64
|
|
mov [si+zunsoft_pyro_t.speed], dx
|
|
call IRand
|
|
mov [si+zunsoft_pyro_t.angle], al
|
|
mov al, @@patnum_base
|
|
mov [si+zunsoft_pyro_t.patnum_base], al
|
|
inc @@pyros_created
|
|
mov ax, @@pyros_created
|
|
cmp ax, @@n
|
|
jge short loc_B694
|
|
|
|
loc_B687:
|
|
inc @@i
|
|
add si, size zunsoft_pyro_t
|
|
|
|
loc_B68D:
|
|
cmp @@i, ZUNSOFT_PYRO_COUNT
|
|
jl short loc_B63E
|
|
|
|
loc_B694:
|
|
pop di
|
|
pop si
|
|
ret
|
|
_zunsoft_pyro_new endp
|
|
|
|
|
|
; void pascal zunsoft_update_and_render(void)
|
|
_zunsoft_update_and_render proc pascal near
|
|
local @@patnum:word, @@draw_y:word, @@draw_x:word, @@anim_sprite:word
|
|
|
|
push si
|
|
push di
|
|
mov si, offset _zunsoft_pyros
|
|
xor di, di
|
|
jmp loc_B7B9
|
|
|
|
loc_B6A8:
|
|
cmp [si+zunsoft_pyro_t.alive], 1
|
|
jnz loc_B7B5
|
|
inc [si+zunsoft_pyro_t.frame]
|
|
mov al, [si+zunsoft_pyro_t.frame]
|
|
mov ah, 0
|
|
mov bx, 4
|
|
cwd
|
|
idiv bx
|
|
mov @@anim_sprite, ax
|
|
mov al, [si+zunsoft_pyro_t.patnum_base]
|
|
mov ah, 0
|
|
add ax, @@anim_sprite
|
|
mov @@patnum, ax
|
|
cmp [si+zunsoft_pyro_t.frame], 40
|
|
jb short loc_B6DB
|
|
mov [si+zunsoft_pyro_t.alive], 0
|
|
mov [si+zunsoft_pyro_t.frame], 0
|
|
jmp loc_B7B5
|
|
|
|
loc_B6DB:
|
|
cmp [si+zunsoft_pyro_t.frame], 16
|
|
jnb short loc_B6FA
|
|
mov ax, [si+zunsoft_pyro_t.origin.x]
|
|
mov bx, 16
|
|
cwd
|
|
idiv bx
|
|
add ax, -8
|
|
push ax
|
|
mov ax, [si+zunsoft_pyro_t.origin.y]
|
|
cwd
|
|
idiv bx
|
|
add ax, -8
|
|
jmp loc_B7AC
|
|
|
|
loc_B6FA:
|
|
cmp [si+zunsoft_pyro_t.frame], 32
|
|
jnb short loc_B754
|
|
cmp [si+zunsoft_pyro_t.frame], 16
|
|
jnz short loc_B70D
|
|
call snd_se_play pascal, 15
|
|
|
|
loc_B70D:
|
|
mov ax, [si+zunsoft_pyro_t.distance]
|
|
mov [si+zunsoft_pyro_t.distance_prev], ax
|
|
mov ax, [si+zunsoft_pyro_t.speed]
|
|
add [si+zunsoft_pyro_t.distance], ax
|
|
push [si+zunsoft_pyro_t.origin.x]
|
|
push [si+zunsoft_pyro_t.distance]
|
|
mov al, [si+zunsoft_pyro_t.angle]
|
|
mov ah, 0
|
|
add ax, ax
|
|
mov bx, ax
|
|
push _CosTable8[bx]
|
|
call vector1_at
|
|
add ax, -128
|
|
mov @@draw_x, ax
|
|
push [si+zunsoft_pyro_t.origin.y]
|
|
push [si+zunsoft_pyro_t.distance]
|
|
mov al, [si+zunsoft_pyro_t.angle]
|
|
mov ah, 0
|
|
add ax, ax
|
|
mov bx, ax
|
|
push _SinTable8[bx]
|
|
call vector1_at
|
|
add ax, -128
|
|
jmp short loc_B799
|
|
|
|
loc_B754:
|
|
mov ax, [si+zunsoft_pyro_t.distance]
|
|
mov [si+zunsoft_pyro_t.distance_prev], ax
|
|
mov ax, [si+zunsoft_pyro_t.speed]
|
|
add [si+zunsoft_pyro_t.distance], ax
|
|
push [si+zunsoft_pyro_t.origin.x]
|
|
push [si+zunsoft_pyro_t.distance]
|
|
mov al, [si+zunsoft_pyro_t.angle]
|
|
mov ah, 0
|
|
add ax, ax
|
|
mov bx, ax
|
|
push _CosTable8[bx]
|
|
call vector1_at
|
|
add ax, -256
|
|
mov @@draw_x, ax
|
|
push [si+zunsoft_pyro_t.origin.y]
|
|
push [si+zunsoft_pyro_t.distance]
|
|
mov al, [si+zunsoft_pyro_t.angle]
|
|
mov ah, 0
|
|
add ax, ax
|
|
mov bx, ax
|
|
push _SinTable8[bx]
|
|
call vector1_at
|
|
add ax, -256
|
|
|
|
loc_B799:
|
|
mov @@draw_y, ax
|
|
mov ax, @@draw_x
|
|
mov bx, 16
|
|
cwd
|
|
idiv bx
|
|
push ax
|
|
mov ax, @@draw_y
|
|
cwd
|
|
idiv bx
|
|
|
|
loc_B7AC:
|
|
push ax
|
|
push @@patnum
|
|
call super_put_rect
|
|
|
|
loc_B7B5:
|
|
inc di
|
|
add si, size zunsoft_pyro_t
|
|
|
|
loc_B7B9:
|
|
cmp di, ZUNSOFT_PYRO_COUNT
|
|
jl loc_B6A8
|
|
pop di
|
|
pop si
|
|
ret
|
|
_zunsoft_update_and_render endp
|
|
|
|
|
|
; void pascal zunsoft_palette_update_and_show(int tone)
|
|
_zunsoft_palette_update_and_show proc near
|
|
arg @@tone:word
|
|
|
|
push bp
|
|
mov bp, sp
|
|
push si
|
|
push di
|
|
xor si, si
|
|
jmp short loc_B7F6
|
|
|
|
loc_B7CE:
|
|
xor di, di
|
|
jmp short loc_B7F0
|
|
|
|
loc_B7D2:
|
|
mov bx, si
|
|
imul bx, 3
|
|
mov al, _zunsoft_palette[bx+di]
|
|
mov ah, 0
|
|
imul @@tone
|
|
mov bx, 100
|
|
cwd
|
|
idiv bx
|
|
mov bx, si
|
|
imul bx, 3
|
|
mov Palettes[bx+di], al
|
|
inc di
|
|
|
|
loc_B7F0:
|
|
cmp di, 3
|
|
jl short loc_B7D2
|
|
inc si
|
|
|
|
loc_B7F6:
|
|
cmp si, 15
|
|
jl short loc_B7CE
|
|
call palette_show
|
|
pop di
|
|
pop si
|
|
pop bp
|
|
retn 2
|
|
_zunsoft_palette_update_and_show endp
|