mirror of https://github.com/nmlgc/ReC98.git
420 lines
9.5 KiB
NASM
420 lines
9.5 KiB
NASM
; void pascal near lasers_update(void);
|
|
public LASERS_UPDATE
|
|
lasers_update proc near
|
|
push bp
|
|
mov bp, sp
|
|
push si
|
|
push di
|
|
mov si, offset _lasers
|
|
xor di, di
|
|
jmp @@more?
|
|
|
|
@@loop:
|
|
cmp [si+laser_t.mode], LM_NONE
|
|
jz @@next
|
|
cmp _bullet_clear_time, 0
|
|
jnz short @@shootout
|
|
cmp _bullet_clear_trigger, 0
|
|
jz short @@switch
|
|
|
|
@@shootout:
|
|
cmp [si+laser_t.mode], LM_SHOOTOUT
|
|
jnz short @@switch
|
|
mov [si+laser_t.mode], LM_DECAY
|
|
mov ax, [si+laser_t.shootout_speed]
|
|
cwd
|
|
sub ax, dx
|
|
sar ax, 1
|
|
mov [si+laser_t.shootout_speed], ax
|
|
|
|
@@switch:
|
|
mov al, [si+laser_t.mode]
|
|
mov ah, 0
|
|
dec ax
|
|
mov bx, ax
|
|
cmp bx, 6
|
|
ja @@age_inc
|
|
add bx, bx
|
|
jmp cs:lasers_update_switch[bx]
|
|
|
|
laser_update_shootout:
|
|
cmp [si+laser_t.coords.starts_at_distance], (550 shl 4)
|
|
jge short loc_FC52
|
|
mov ax, [si+laser_t.shootout_speed]
|
|
add [si+laser_t.coords.ends_at_distance], ax
|
|
|
|
loc_FC52:
|
|
mov ax, [si+laser_t.LASER_age]
|
|
cmp ax, [si+laser_t.moveout_at_age]
|
|
jl short loc_FC60
|
|
mov ax, [si+laser_t.shootout_speed]
|
|
add [si+laser_t.coords.starts_at_distance], ax
|
|
|
|
loc_FC60:
|
|
call laser_hittest pascal, si
|
|
jmp @@age_inc
|
|
; ---------------------------------------------------------------------------
|
|
|
|
laser_update_fixed_wait_to_grow:
|
|
cmp [si+laser_t.grow_at_age], 0
|
|
jle @@age_inc
|
|
mov ax, [si+laser_t.LASER_age]
|
|
cmp ax, [si+laser_t.grow_at_age]
|
|
jl @@age_inc
|
|
inc [si+laser_t.mode]
|
|
call snd_se_play pascal, 6
|
|
jmp @@age_inc
|
|
; ---------------------------------------------------------------------------
|
|
|
|
laser_update_fixed_grow:
|
|
test byte ptr [si+laser_t.LASER_age], 1
|
|
jz short @@grow_step
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
add al, 2
|
|
mov [si+laser_t.coords.LASER_width], al
|
|
|
|
@@grow_step:
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
cmp al, [si+laser_t.grow_to_width]
|
|
jb short @@age_inc
|
|
jmp short @@next_mode
|
|
; ---------------------------------------------------------------------------
|
|
|
|
laser_update_fixed_active:
|
|
call laser_hittest pascal, si
|
|
cmp [si+laser_t.shrink_at_age], 0
|
|
jle short @@age_inc
|
|
mov ax, [si+laser_t.LASER_age]
|
|
cmp ax, [si+laser_t.shrink_at_age]
|
|
jl short @@age_inc
|
|
|
|
@@next_mode:
|
|
inc [si+laser_t.mode]
|
|
jmp short @@age_inc
|
|
; ---------------------------------------------------------------------------
|
|
|
|
laser_update_fixed_shrink:
|
|
test byte ptr [si+laser_t.LASER_age], 1
|
|
jz short @@delete?
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
add al, -2
|
|
mov [si+laser_t.coords.LASER_width], al
|
|
|
|
@@delete?:
|
|
cmp [si+laser_t.coords.LASER_width], 1
|
|
jge short @@age_inc
|
|
jmp short @@delete
|
|
; ---------------------------------------------------------------------------
|
|
|
|
laser_update_fixed_shrink_and_wait_to_grow:
|
|
test byte ptr [si+laser_t.LASER_age], 1
|
|
jz short @@shrink_and_wait_to_grow_step
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
add al, -2
|
|
mov [si+laser_t.coords.LASER_width], al
|
|
|
|
@@shrink_and_wait_to_grow_step:
|
|
cmp [si+laser_t.coords.LASER_width], 1
|
|
jg short @@age_inc
|
|
mov [si+laser_t.mode], LM_FIXED_WAIT_TO_GROW
|
|
mov [si+laser_t.LASER_age], 0
|
|
jmp short @@age_inc
|
|
; ---------------------------------------------------------------------------
|
|
|
|
laser_update_decay:
|
|
cmp [si+laser_t.coords.starts_at_distance], (550 shl 4)
|
|
jge short loc_FCF4
|
|
mov ax, [si+laser_t.shootout_speed]
|
|
add [si+laser_t.coords.ends_at_distance], ax
|
|
|
|
loc_FCF4:
|
|
mov ax, [si+laser_t.LASER_age]
|
|
cmp ax, [si+laser_t.moveout_at_age]
|
|
jl short loc_FD02
|
|
mov ax, [si+laser_t.shootout_speed]
|
|
add [si+laser_t.coords.starts_at_distance], ax
|
|
|
|
loc_FD02:
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
add al, 2
|
|
mov [si+laser_t.coords.LASER_width], al
|
|
cmp [si+laser_t.coords.LASER_width], 28
|
|
jb short @@age_inc
|
|
|
|
@@delete:
|
|
mov [si+laser_t.mode], LM_NONE
|
|
|
|
@@age_inc:
|
|
inc [si+laser_t.LASER_age]
|
|
|
|
@@next:
|
|
inc di
|
|
add si, size laser_t
|
|
|
|
@@more?:
|
|
cmp di, LASER_COUNT
|
|
jl @@loop
|
|
pop di
|
|
pop si
|
|
pop bp
|
|
retn
|
|
lasers_update endp
|
|
|
|
; ---------------------------------------------------------------------------
|
|
lasers_update_switch label word
|
|
dw offset laser_update_shootout
|
|
dw offset laser_update_fixed_wait_to_grow
|
|
dw offset laser_update_fixed_grow
|
|
dw offset laser_update_fixed_active
|
|
dw offset laser_update_fixed_shrink
|
|
dw offset laser_update_fixed_shrink_and_wait_to_grow
|
|
dw offset laser_update_decay
|
|
; ---------------------------------------------------------------------------
|
|
|
|
; void pascal near lasers_render(void);
|
|
public LASERS_RENDER
|
|
lasers_render proc near
|
|
|
|
@@radius = byte ptr -0Ah
|
|
@@width_orig = byte ptr -9
|
|
@@end_distance_orig = word ptr -8
|
|
@@draw_y = word ptr -6
|
|
@@draw_x = word ptr -4
|
|
@@i = word ptr -2
|
|
|
|
push bp
|
|
mov bp, sp
|
|
sub sp, 0Ah
|
|
push si
|
|
push di
|
|
mov si, offset _lasers
|
|
mov [bp+@@i], 0
|
|
jmp @@more_lasers?
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@laser_loop:
|
|
cmp [si+laser_t.mode], LM_NONE
|
|
jz @@next_laser
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
mov [bp+@@width_orig], al
|
|
mov [bp+@@radius], al
|
|
push offset _drawpoint
|
|
push [si+laser_t.coords.origin.x]
|
|
push [si+laser_t.coords.origin.y]
|
|
push (16 shl 4)
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
push ax
|
|
call vector2_at
|
|
mov ax, _drawpoint.x
|
|
sar ax, 4
|
|
add ax, 32
|
|
mov [bp+@@draw_x], ax
|
|
mov ax, _drawpoint.y
|
|
sar ax, 4
|
|
add ax, 16
|
|
mov [bp+@@draw_y], ax
|
|
cmp [si+laser_t.mode], LM_DECAY
|
|
jz @@decay
|
|
cmp [bp+@@radius], 2
|
|
jnb short @@draw_outer_circle?
|
|
mov [bp+@@radius], 2
|
|
|
|
@@draw_outer_circle?:
|
|
cmp [si+laser_t.coords.LASER_width], 3
|
|
jb short @@draw_inner_circle?
|
|
mov ah, [si+laser_t.LASER_color]
|
|
call grcg_setcolor_direct_noint_1
|
|
cmp [si+laser_t.coords.starts_at_distance], (16 shl 4)
|
|
jg short @@draw_outer_ray?
|
|
push [bp+@@draw_x]
|
|
push [bp+@@draw_y]
|
|
mov al, [bp+@@radius]
|
|
mov ah, 0
|
|
push ax
|
|
call grcg_circlefill
|
|
mov al, [bp+@@radius]
|
|
add al, -2
|
|
mov [bp+@@radius], al
|
|
|
|
@@draw_outer_ray?:
|
|
cmp [si+laser_t.coords.ends_at_distance], (2 shl 4)
|
|
jle short @@draw_inner
|
|
mov ax, [si+laser_t.coords.ends_at_distance]
|
|
mov [bp+@@end_distance_orig], ax
|
|
sub [si+laser_t.coords.ends_at_distance], (2 shl 4)
|
|
lea ax, [si+laser_t.coords]
|
|
call laser_render_ray pascal, ax
|
|
mov ax, [bp+@@end_distance_orig]
|
|
mov [si+laser_t.coords.ends_at_distance], ax
|
|
|
|
@@draw_inner:
|
|
cmp [si+laser_t.coords.LASER_width], 5
|
|
jb short @@sub_2
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
add al, -4
|
|
jmp short @@set_inner_width
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@sub_2:
|
|
mov al, [si+laser_t.coords.LASER_width]
|
|
add al, -2
|
|
|
|
@@set_inner_width:
|
|
mov [si+laser_t.coords.LASER_width], al
|
|
|
|
@@draw_inner_circle?:
|
|
mov ah, 15
|
|
call grcg_setcolor_direct_noint_1
|
|
cmp [si+laser_t.coords.starts_at_distance], (16 shl 4)
|
|
jg short @@draw_inner_ray_or_line?
|
|
push [bp+@@draw_x]
|
|
push [bp+@@draw_y]
|
|
mov al, [bp+@@radius]
|
|
mov ah, 0
|
|
push ax
|
|
call grcg_circlefill
|
|
|
|
@@draw_inner_ray_or_line?:
|
|
cmp [si+laser_t.coords.LASER_width], 1
|
|
ja short @@draw_inner_ray
|
|
push offset _drawpoint
|
|
push [si+laser_t.coords.origin.x]
|
|
push [si+laser_t.coords.origin.y]
|
|
push [si+laser_t.coords.starts_at_distance]
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
push ax
|
|
call vector2_at
|
|
push offset _laser_line_endpoint
|
|
push [si+laser_t.coords.origin.x]
|
|
push [si+laser_t.coords.origin.y]
|
|
push [si+laser_t.coords.ends_at_distance]
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
push ax
|
|
call vector2_at
|
|
mov ax, _drawpoint.x
|
|
sar ax, 4
|
|
add ax, 32
|
|
mov _drawpoint.x, ax
|
|
mov ax, _drawpoint.y
|
|
sar ax, 4
|
|
add ax, 16
|
|
mov _drawpoint.y, ax
|
|
mov ax, _laser_line_endpoint.x
|
|
sar ax, 4
|
|
add ax, 32
|
|
mov _laser_line_endpoint.x, ax
|
|
mov ax, _laser_line_endpoint.y
|
|
sar ax, 4
|
|
add ax, 16
|
|
mov _laser_line_endpoint.y, ax
|
|
push _drawpoint.x
|
|
push _drawpoint.y
|
|
push _laser_line_endpoint.x
|
|
push ax
|
|
call grcg_line
|
|
jmp @@width_reset
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@draw_inner_ray:
|
|
lea ax, [si+laser_t.coords]
|
|
call laser_render_ray pascal, ax
|
|
or ax, ax
|
|
jz @@width_reset
|
|
mov [si+laser_t.mode], LM_NONE
|
|
jmp @@width_reset
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@decay:
|
|
mov ah, 15
|
|
call grcg_setcolor_direct_noint_1
|
|
shl [bp+@@radius], 3
|
|
push offset _drawpoint
|
|
push [si+laser_t.coords.origin.x]
|
|
push [si+laser_t.coords.origin.y]
|
|
mov al, [bp+@@radius]
|
|
mov ah, 0
|
|
push ax
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
add ax, 64
|
|
push ax
|
|
call vector2_at
|
|
xor di, di
|
|
jmp @@more_decay_lines?
|
|
; ---------------------------------------------------------------------------
|
|
|
|
@@decay_line_draw:
|
|
push offset _laser_line_endpoint
|
|
push _drawpoint.x
|
|
push _drawpoint.y
|
|
push [si+laser_t.coords.ends_at_distance]
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
push ax
|
|
call vector2_at
|
|
push offset _drawpoint
|
|
push _drawpoint.x
|
|
push _drawpoint.y
|
|
push [si+laser_t.coords.starts_at_distance]
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
push ax
|
|
call vector2_at
|
|
mov ax, _drawpoint.x
|
|
sar ax, 4
|
|
add ax, 32
|
|
mov _drawpoint.x, ax
|
|
mov ax, _drawpoint.y
|
|
sar ax, 4
|
|
add ax, 16
|
|
mov _drawpoint.y, ax
|
|
mov ax, _laser_line_endpoint.x
|
|
sar ax, 4
|
|
add ax, 32
|
|
mov _laser_line_endpoint.x, ax
|
|
mov ax, _laser_line_endpoint.y
|
|
sar ax, 4
|
|
add ax, 16
|
|
mov _laser_line_endpoint.y, ax
|
|
push _drawpoint.x
|
|
push _drawpoint.y
|
|
push _laser_line_endpoint.x
|
|
push ax
|
|
call grcg_line
|
|
push offset _drawpoint
|
|
push [si+laser_t.coords.origin.x]
|
|
push [si+laser_t.coords.origin.y]
|
|
mov al, [bp+@@radius]
|
|
mov ah, 0
|
|
push ax
|
|
mov al, [si+laser_t.coords.angle]
|
|
mov ah, 0
|
|
add ax, (-4 shl 4)
|
|
push ax
|
|
call vector2_at
|
|
inc di
|
|
|
|
@@more_decay_lines?:
|
|
cmp di, 2
|
|
jl @@decay_line_draw
|
|
|
|
@@width_reset:
|
|
mov al, [bp+@@width_orig]
|
|
mov [si+laser_t.coords.LASER_width], al
|
|
|
|
@@next_laser:
|
|
inc [bp+@@i]
|
|
add si, size laser_t
|
|
|
|
@@more_lasers?:
|
|
cmp [bp+@@i], LASER_COUNT
|
|
jl @@laser_loop
|
|
pop di
|
|
pop si
|
|
leave
|
|
retn
|
|
lasers_render endp
|