Triggers

//
// Custom Script to do sfx, sfrx, and cleanup stuff
//
// Colored Text:  |c00RRGGBBtext|r
//
// Variables Needed:
//
// location aa_sfx_target
// integer zz_sfx_cleanup_counter
// integer zz_sfx_repeater_counter
// trigger zz_sfx_repeater
// trigger zz_sfx_cleanup
// integer zz_SAFE_TO_CLEANUP_SIZE
//
// arrays:
// boolean zz_safe_to_cleanup
// boolean zz_sfx_active
// integer zz_delays
// integer zz_delays_counters
// integer zz_times
// integer zz_times_counters
// integer zz_patterns
// integer zz_distances
// integer zz_targets
// integer zz_paths
// effect zz_effects_to_cleanup
//
// Need a trigger to call zz_init_map on map initialisation
//
// Functions enabled:
//
// sfx( int pattern, int distance, string path)
// sfrx( int pattern, int distance, int times, int delay, string path)
// yesclean (int j)
// noclean (int j)
// canclean () returns boolean

// patterns:

// 0 - single shot
// 1 - 4 square
// 2 - 4 diagonal
// 3 - 1 random square
// 4 - 1 random circle




function noclean takes integer j returns nothing
set udg_zz_safe_to_cleanup[j] = false
endfunction

function yesclean takes integer j returns nothing
set udg_zz_safe_to_cleanup[j] = true
endfunction


function canclean takes nothing returns boolean
	local boolean safe = true
	local integer j = 0
    loop
        exitwhen j >= udg_zz_SAFE_TO_CLEANUP_SIZE
        if ( udg_zz_safe_to_cleanup[j] == false ) then
		        set safe = false
    	endif
    	set j = j + 1
    endloop
	return safe
endfunction


function zz_sfx_at_loc takes integer pattern, integer distance, location mytarget, string sfxpath returns nothing
   
local integer ndistance = distance * -1

if( pattern == 0 ) then
	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, 0, 0), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	
elseif( pattern == 1 ) then
	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, distance, 0), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, ndistance, 0), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, 0, distance), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, 0, ndistance), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	
elseif( pattern == 2 ) then
	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, distance, distance), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, ndistance, distance), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, distance, ndistance), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
    	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, ndistance, ndistance), sfxpath )
    	set udg_zz_sfx_cleanup_counter = udg_zz_sfx_cleanup_counter + 1
elseif( pattern == 3 ) then

	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( OffsetLocation(mytarget, GetRandomReal(ndistance, distance), GetRandomReal(ndistance, distance)), sfxpath )
    	set udg_zz_sfx_cleanup_counter = ( udg_zz_sfx_cleanup_counter )
    	
elseif( pattern == 4 ) then

	set udg_zz_effects_to_cleanup[udg_zz_sfx_cleanup_counter] = AddSpecialEffectLocBJ( PolarProjectionBJ( mytarget, distance, GetRandomReal(0, 360) ), sfxpath )
    	set udg_zz_sfx_cleanup_counter = ( udg_zz_sfx_cleanup_counter )

endif 
endfunction


function sfxr takes integer pattern, integer distance, integer times, integer delay, string sfxpath returns nothing
	set udg_zz_sfx_active[udg_zz_sfx_repeater_counter] = true
	set udg_zz_patterns[udg_zz_sfx_repeater_counter] = pattern
	set udg_zz_distances[udg_zz_sfx_repeater_counter] = distance
	set udg_zz_times[udg_zz_sfx_repeater_counter] = times
	set udg_zz_times_counters[udg_zz_sfx_repeater_counter] = 0
	set udg_zz_delays_counters[udg_zz_sfx_repeater_counter] = delay - 1
	set udg_zz_delays[udg_zz_sfx_repeater_counter] = delay
	set udg_zz_paths[udg_zz_sfx_repeater_counter] = sfxpath
	set udg_zz_targets[udg_zz_sfx_repeater_counter] = udg_aa_sfx_target
        set udg_zz_sfx_repeater_counter = udg_zz_sfx_repeater_counter + 1
endfunction
	

function sfx takes integer pattern, integer distance, string sfxpath returns nothing

call zz_sfx_at_loc( pattern, distance, udg_aa_sfx_target, sfxpath )
endfunction


function zz_sfx_repeater_actions takes nothing returns nothing
    local integer j = 0
    loop
        exitwhen j >= udg_zz_sfx_repeater_counter
        if ( udg_zz_sfx_active[j] == true ) then
        	set udg_zz_delays_counters[j] = udg_zz_delays_counters[j] + 1
        	if ( udg_zz_delays_counters[j] >= udg_zz_delays[j]) then

call zz_sfx_at_loc ( udg_zz_patterns[j], udg_zz_distances[j], udg_zz_targets[j],  udg_zz_paths[j])
set udg_zz_delays_counters[j] = 0 
set udg_zz_times_counters[j] = udg_zz_times_counters[j] + 1

endif
endif
if ( udg_zz_times_counters[j] >= udg_zz_times[j]) then
        set udg_zz_sfx_active[j] = false
endif
        set j = j + 1
    endloop
endfunction


function zz_init_sfx_repeater takes nothing returns nothing
    set udg_j = 0
    set udg_zz_sfx_repeater = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( udg_zz_sfx_repeater, 0.20 )
    call TriggerAddAction( udg_zz_sfx_repeater, function zz_sfx_repeater_actions )
    
    loop
	    exitwhen (udg_j >= udg_zz_SAFE_TO_CLEANUP_SIZE)
	    set udg_zz_safe_to_cleanup[udg_j] = true
	    set udg_j = udg_j + 1
    endloop
endfunction


function zz_sfx_cleanup_actions takes nothing returns nothing
    local integer j = 0
   
    if ( canclean() ) then
    loop
    	exitwhen j >= udg_zz_sfx_cleanup_counter
        call DestroyEffectBJ( udg_zz_effects_to_cleanup[j] )
        set j = j + 1
    endloop
    set udg_zz_sfx_cleanup_counter = 0
    endif
endfunction


function zz_init_sfx_cleanup takes nothing returns nothing
    set udg_zz_sfx_cleanup = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( udg_zz_sfx_cleanup, 4.00 )
    call TriggerAddAction( udg_zz_sfx_cleanup, function zz_sfx_cleanup_actions )
endfunction



function zz_init_map takes nothing returns nothing
	set udg_zz_SAFE_TO_CLEANUP_SIZE = 21
	call zz_init_sfx_repeater()
	call zz_init_sfx_cleanup()
endfunction