globals
//globals from LibUSync:
constant boolean LIBRARY_LibUSync=true
constant integer LibUSync___MAX_MESSAGE_LEN= 3
constant integer LibUSync___POINT_COUNT= 25
constant real LibUSync___MAX_MESSAGE_POWER= Pow(LibUSync___POINT_COUNT, LibUSync___MAX_MESSAGE_LEN) - 1
    
constant integer LibUSync___UNIT_COUNT= LibUSync___POINT_COUNT
constant integer LibUSync___UNIT_ID= 'h000'
constant player LibUSync___UNIT_PLAYER= Player(PLAYER_NEUTRAL_PASSIVE)
    // if the value is 0.12345, the unit will automatically be moved to the edge of the map
real LibUSync___UNIT_X= 0.12345
real LibUSync___UNIT_Y= 0.12345
    
unit array LibUSync___UNITS
real array LibUSync___POWERS
constant hashtable LibUSync___IS_UNIT= InitHashtable()
//endglobals from LibUSync
    // Generated
trigger gg_trg_USync= null
trigger gg_trg_CameraSync= null
trigger gg_trg_CameraSync1= null
trigger gg_trg_DataSync= null
trigger gg_trg_Init= null
unit gg_unit_hpea_0001= null
unit gg_unit_opeo_0002= null
real real_data= - 50
integer int_data= - 100

trigger l__library_init

//JASSHelper struct globals:
constant integer si__LibUSync___PendingData=1
integer si__LibUSync___PendingData_F=0
integer si__LibUSync___PendingData_I=0
integer array si__LibUSync___PendingData_V
real array s__LibUSync___PendingData_value
real array s__LibUSync___PendingData_x
real array s__LibUSync___PendingData_y
constant integer si__LibUSync___BasicMetadata=2
integer si__LibUSync___BasicMetadata_F=0
integer si__LibUSync___BasicMetadata_I=0
integer array si__LibUSync___BasicMetadata_V
real array s__LibUSync___BasicMetadata_min
real array s__LibUSync___BasicMetadata_max
real array s__LibUSync___BasicMetadata_dist
boolean array s__LibUSync___BasicMetadata_is_int
integer array s__LibUSync___BasicMetadata_message_len
constant integer si__LibUSync___CoordinateMetadata=3
integer si__LibUSync___CoordinateMetadata_F=0
integer si__LibUSync___CoordinateMetadata_I=0
integer array si__LibUSync___CoordinateMetadata_V
integer array s__LibUSync___CoordinateMetadata_message_len_x
integer array s__LibUSync___CoordinateMetadata_message_len_y
integer array s__LibUSync___CoordinateMetadata_message_len
real s__LibUSync___CoordinateMetadata_min_x
real s__LibUSync___CoordinateMetadata_max_x
real s__LibUSync___CoordinateMetadata_dist_x
real s__LibUSync___CoordinateMetadata_min_y
real s__LibUSync___CoordinateMetadata_max_y
real s__LibUSync___CoordinateMetadata_dist_y
constant integer si__LibUSync___MessageType=4
integer si__LibUSync___MessageType_F=0
integer si__LibUSync___MessageType_I=0
integer array si__LibUSync___MessageType_V
integer s__LibUSync___MessageType_BASIC= 1
integer s__LibUSync___MessageType_COORDINATE= 2
constant integer si__LibUSync___Message=5
integer si__LibUSync___Message_F=0
integer si__LibUSync___Message_I=0
integer array si__LibUSync___Message_V
string array s__LibUSync___Message_name
integer array s__LibUSync___Message_point_id
integer array s__LibUSync___Message_meta_type
integer array s__LibUSync___Message_metadata
integer array s__LibUSync___Message_len
trigger array s__LibUSync___Message_trigger
boolean array s__LibUSync___Message_buffering
boolean array s__LibUSync___Message_is_reached
boolean array s__LibUSync___Message_need_update
integer array s__LibUSync___Message_pending_data
hashtable s__LibUSync___Message_NAME_TO_MESSAGE= InitHashtable()
hashtable s__LibUSync___Message_POINT_TO_MESSAGE= InitHashtable()
constant integer si__LibUSync___Registrar=6
integer si__LibUSync___Registrar_F=0
integer si__LibUSync___Registrar_I=0
integer array si__LibUSync___Registrar_V
integer s__LibUSync___Registrar_point_id= - 1
boolean s__LibUSync___Registrar_register_is_over= false
constant integer si__LibUSync___EventData=7
integer si__LibUSync___EventData_F=0
integer si__LibUSync___EventData_I=0
integer array si__LibUSync___EventData_V
integer s__LibUSync___EventData_player_id
integer array s__LibUSync___EventData_unit_count
constant integer si__USync=9
integer si__USync_F=0
integer si__USync_I=0
integer array si__USync_V
boolean array s__USync_is_start
integer array s__USync_current_data_len
integer array s__USync_need_data_len
integer array s___USync_data
constant integer s___USync_data_size=3
integer array s__USync_data
integer array s__USync_message
integer array s__USync_metadata
integer array s__USync_meta_type
integer s__USync_player_id
real s__USync_real
integer s__USync_integer
real s__USync_x
real s__USync_y
real s__USync_int_error= 0.499
real s__USync_min
real s__USync_dist
boolean s__USync_is_int
constant integer si__LibUSync___EventTrigger=11
integer si__LibUSync___EventTrigger_F=0
integer si__LibUSync___EventTrigger_I=0
integer array si__LibUSync___EventTrigger_V
boolean s__LibUSync___EventTrigger_is_select_start= false
integer s__LibUSync___EventTrigger_player_id
integer s__LibUSync___EventTrigger_player_count
integer array s__LibUSync___EventTrigger_players
timer s__LibUSync___EventTrigger_selection_timer= CreateTimer()
unit array s__s__LibUSync___EventData_units

endglobals


//Generated allocator of LibUSync___PendingData
function s__LibUSync___PendingData__allocate takes nothing returns integer
 local integer this=si__LibUSync___PendingData_F
    if (this!=0) then
        set si__LibUSync___PendingData_F=si__LibUSync___PendingData_V[this]
    else
        set si__LibUSync___PendingData_I=si__LibUSync___PendingData_I+1
        set this=si__LibUSync___PendingData_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___PendingData_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___PendingData
function s__LibUSync___PendingData_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___PendingData_V[this]!=-1) then
        return
    endif
    set si__LibUSync___PendingData_V[this]=si__LibUSync___PendingData_F
    set si__LibUSync___PendingData_F=this
endfunction

//Generated allocator of LibUSync___EventTrigger
function s__LibUSync___EventTrigger__allocate takes nothing returns integer
 local integer this=si__LibUSync___EventTrigger_F
    if (this!=0) then
        set si__LibUSync___EventTrigger_F=si__LibUSync___EventTrigger_V[this]
    else
        set si__LibUSync___EventTrigger_I=si__LibUSync___EventTrigger_I+1
        set this=si__LibUSync___EventTrigger_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___EventTrigger_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___EventTrigger
function s__LibUSync___EventTrigger_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___EventTrigger_V[this]!=-1) then
        return
    endif
    set si__LibUSync___EventTrigger_V[this]=si__LibUSync___EventTrigger_F
    set si__LibUSync___EventTrigger_F=this
endfunction

//Generated allocator of USync
function s__USync__allocate takes nothing returns integer
 local integer this=si__USync_F
    if (this!=0) then
        set si__USync_F=si__USync_V[this]
    else
        set si__USync_I=si__USync_I+1
        set this=si__USync_I
    endif
    if (this>2729) then
        return 0
    endif
    set s__USync_data[this]=(this-1)*3
    set si__USync_V[this]=-1
 return this
endfunction

//Generated destructor of USync
function s__USync_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__USync_V[this]!=-1) then
        return
    endif
    set si__USync_V[this]=si__USync_F
    set si__USync_F=this
endfunction

//Generated allocator of LibUSync___EventData
function s__LibUSync___EventData__allocate takes nothing returns integer
 local integer this=si__LibUSync___EventData_F
    if (this!=0) then
        set si__LibUSync___EventData_F=si__LibUSync___EventData_V[this]
    else
        set si__LibUSync___EventData_I=si__LibUSync___EventData_I+1
        set this=si__LibUSync___EventData_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___EventData_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___EventData
function s__LibUSync___EventData_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___EventData_V[this]!=-1) then
        return
    endif
    set si__LibUSync___EventData_V[this]=si__LibUSync___EventData_F
    set si__LibUSync___EventData_F=this
endfunction

//Generated allocator of LibUSync___Registrar
function s__LibUSync___Registrar__allocate takes nothing returns integer
 local integer this=si__LibUSync___Registrar_F
    if (this!=0) then
        set si__LibUSync___Registrar_F=si__LibUSync___Registrar_V[this]
    else
        set si__LibUSync___Registrar_I=si__LibUSync___Registrar_I+1
        set this=si__LibUSync___Registrar_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___Registrar_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___Registrar
function s__LibUSync___Registrar_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___Registrar_V[this]!=-1) then
        return
    endif
    set si__LibUSync___Registrar_V[this]=si__LibUSync___Registrar_F
    set si__LibUSync___Registrar_F=this
endfunction

//Generated allocator of LibUSync___Message
function s__LibUSync___Message__allocate takes nothing returns integer
 local integer this=si__LibUSync___Message_F
    if (this!=0) then
        set si__LibUSync___Message_F=si__LibUSync___Message_V[this]
    else
        set si__LibUSync___Message_I=si__LibUSync___Message_I+1
        set this=si__LibUSync___Message_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___Message_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___Message
function s__LibUSync___Message_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___Message_V[this]!=-1) then
        return
    endif
    set si__LibUSync___Message_V[this]=si__LibUSync___Message_F
    set si__LibUSync___Message_F=this
endfunction

//Generated allocator of LibUSync___MessageType
function s__LibUSync___MessageType__allocate takes nothing returns integer
 local integer this=si__LibUSync___MessageType_F
    if (this!=0) then
        set si__LibUSync___MessageType_F=si__LibUSync___MessageType_V[this]
    else
        set si__LibUSync___MessageType_I=si__LibUSync___MessageType_I+1
        set this=si__LibUSync___MessageType_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___MessageType_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___MessageType
function s__LibUSync___MessageType_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___MessageType_V[this]!=-1) then
        return
    endif
    set si__LibUSync___MessageType_V[this]=si__LibUSync___MessageType_F
    set si__LibUSync___MessageType_F=this
endfunction

//Generated allocator of LibUSync___CoordinateMetadata
function s__LibUSync___CoordinateMetadata__allocate takes nothing returns integer
 local integer this=si__LibUSync___CoordinateMetadata_F
    if (this!=0) then
        set si__LibUSync___CoordinateMetadata_F=si__LibUSync___CoordinateMetadata_V[this]
    else
        set si__LibUSync___CoordinateMetadata_I=si__LibUSync___CoordinateMetadata_I+1
        set this=si__LibUSync___CoordinateMetadata_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___CoordinateMetadata_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___CoordinateMetadata
function s__LibUSync___CoordinateMetadata_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___CoordinateMetadata_V[this]!=-1) then
        return
    endif
    set si__LibUSync___CoordinateMetadata_V[this]=si__LibUSync___CoordinateMetadata_F
    set si__LibUSync___CoordinateMetadata_F=this
endfunction

//Generated allocator of LibUSync___BasicMetadata
function s__LibUSync___BasicMetadata__allocate takes nothing returns integer
 local integer this=si__LibUSync___BasicMetadata_F
    if (this!=0) then
        set si__LibUSync___BasicMetadata_F=si__LibUSync___BasicMetadata_V[this]
    else
        set si__LibUSync___BasicMetadata_I=si__LibUSync___BasicMetadata_I+1
        set this=si__LibUSync___BasicMetadata_I
    endif
    if (this>8190) then
        return 0
    endif

    set si__LibUSync___BasicMetadata_V[this]=-1
 return this
endfunction

//Generated destructor of LibUSync___BasicMetadata
function s__LibUSync___BasicMetadata_deallocate takes integer this returns nothing
    if this==null then
        return
    elseif (si__LibUSync___BasicMetadata_V[this]!=-1) then
        return
    endif
    set si__LibUSync___BasicMetadata_V[this]=si__LibUSync___BasicMetadata_F
    set si__LibUSync___BasicMetadata_F=this
endfunction

//library LibUSync:


function LibUSync___get_message_len takes real dist,real maximum_error,string name returns integer
    local real need_count= dist / maximum_error
    local integer message_len= 1

    if need_count > LibUSync___MAX_MESSAGE_POWER then
        call BJDebugMsg("USyncWarring: it is impossible to meet the required accuracy when registering '" + name + "'")
        call BJDebugMsg("Increase MAX_MESSAGE_LEN or decrease dist or increase accuracy_error")
        return LibUSync___MAX_MESSAGE_LEN
    endif

    loop
    exitwhen message_len >= LibUSync___MAX_MESSAGE_LEN
        if LibUSync___POWERS[message_len] - 1 >= need_count then
            exitwhen true
        endif
    set message_len=message_len + 1
    endloop
    
    return message_len
endfunction


function LibUSync___round takes real val returns integer
    if val - R2I(val) < R2I(val + 1.) - val then
        return R2I(val)
    else
        return R2I(val) + 1
    endif
endfunction


function LibUSync___select_unit takes integer ind returns nothing
    call SelectUnit(LibUSync___UNITS[ind], true)
    call SelectUnit(LibUSync___UNITS[ind], false)
endfunction


function LibUSync___is_unit takes unit u returns boolean
    return HaveSavedBoolean(LibUSync___IS_UNIT, 0, GetHandleId(u))
endfunction







    function s__LibUSync___BasicMetadata_create takes real min,real max,real maximum_error,boolean is_int,string name returns integer
        local integer this= s__LibUSync___BasicMetadata__allocate()
        if is_int then
            set maximum_error=1.
        endif
        set s__LibUSync___BasicMetadata_min[this]=min
        set s__LibUSync___BasicMetadata_max[this]=max
        set s__LibUSync___BasicMetadata_dist[this]=max - min
        set s__LibUSync___BasicMetadata_is_int[this]=is_int
        set s__LibUSync___BasicMetadata_message_len[this]=LibUSync___get_message_len(s__LibUSync___BasicMetadata_dist[this] , maximum_error , name)
        return this
    endfunction






    function s__LibUSync___CoordinateMetadata_create takes real maximum_error,string name returns integer
        local integer this= s__LibUSync___CoordinateMetadata__allocate()
        set s__LibUSync___CoordinateMetadata_message_len_x[this]=LibUSync___get_message_len(s__LibUSync___CoordinateMetadata_dist_x , maximum_error , name)
        set s__LibUSync___CoordinateMetadata_message_len_y[this]=LibUSync___get_message_len(s__LibUSync___CoordinateMetadata_dist_y , maximum_error , name)
        set s__LibUSync___CoordinateMetadata_message_len[this]=s__LibUSync___CoordinateMetadata_message_len_x[this] + s__LibUSync___CoordinateMetadata_message_len_y[this]
        return this
    endfunction


    function s__LibUSync___CoordinateMetadata_init takes nothing returns nothing
        local rect world_rect= GetWorldBounds()
        set s__LibUSync___CoordinateMetadata_min_x=GetRectMinX(world_rect)
        set s__LibUSync___CoordinateMetadata_max_x=GetRectMaxX(world_rect)
        set s__LibUSync___CoordinateMetadata_dist_x=s__LibUSync___CoordinateMetadata_max_x - s__LibUSync___CoordinateMetadata_min_x
        set s__LibUSync___CoordinateMetadata_min_y=GetRectMinY(world_rect)
        set s__LibUSync___CoordinateMetadata_max_y=GetRectMaxY(world_rect)
        set s__LibUSync___CoordinateMetadata_dist_y=s__LibUSync___CoordinateMetadata_max_y - s__LibUSync___CoordinateMetadata_min_y
        set world_rect=null
    endfunction




    



    function s__LibUSync___Message_load_from_name takes string name returns integer
         return LoadInteger(s__LibUSync___Message_NAME_TO_MESSAGE, 0, StringHash(name))
    endfunction
    
    
    function s__LibUSync___Message_load_from_point takes integer point_id returns integer
        local integer mess= LoadInteger(s__LibUSync___Message_POINT_TO_MESSAGE, 0, point_id)
        return mess
    endfunction


    function s__LibUSync___Message_is_valid takes integer this returns boolean
        return this != 0
    endfunction

    function s__LibUSync___Message_save takes string name,integer point_id,integer message returns nothing
        call SaveInteger(s__LibUSync___Message_NAME_TO_MESSAGE, 0, StringHash(name), message)
        call SaveInteger(s__LibUSync___Message_POINT_TO_MESSAGE, 0, point_id, message)
    endfunction
    

    function s__LibUSync___Message_can_save takes string name returns boolean
        if s__LibUSync___Message_load_from_name(name) != 0 then
            call BJDebugMsg("USyncWarring: name '" + name + "' is already taken")
            return false
        endif
        return true
    endfunction


    function s__LibUSync___Message_create takes string name,integer point_id,integer mess_type,integer metadata,boolean buffering,code callback returns integer
        local integer this= s__LibUSync___Message__allocate()
        set s__LibUSync___Message_name[this]=name
        set s__LibUSync___Message_point_id[this]=point_id
        set s__LibUSync___Message_meta_type[this]=mess_type
        set s__LibUSync___Message_metadata[this]=metadata
        set s__LibUSync___Message_buffering[this]=buffering
        set s__LibUSync___Message_trigger[this]=CreateTrigger()
        call TriggerAddCondition(s__LibUSync___Message_trigger[this], Filter(callback))
        if not buffering then
            set s__LibUSync___Message_is_reached[this]=true
            set s__LibUSync___Message_pending_data[this]=s__LibUSync___PendingData__allocate()
        endif

        if mess_type == s__LibUSync___MessageType_BASIC then
            set s__LibUSync___Message_len[this]=s__LibUSync___BasicMetadata_message_len[(metadata)]
        elseif mess_type == s__LibUSync___MessageType_COORDINATE then
            set s__LibUSync___Message_len[this]=s__LibUSync___CoordinateMetadata_message_len[(metadata)]
        else
            call BJDebugMsg("USyncError: unknown metadata type " + I2S(mess_type))
            return 0
        endif
        
        if not s__LibUSync___Message_can_save(name) then
            return 0
        endif

        call s__LibUSync___Message_save(name , point_id , this)
        return this
    endfunction




    function s__LibUSync___Registrar_can_register takes string name,integer point_id returns boolean
        if s__LibUSync___Registrar_register_is_over or point_id >= LibUSync___POINT_COUNT then
            call BJDebugMsg("USyncError: too many registered events")
            call BJDebugMsg("Unable to register '" + name + "'")
            return false
        endif
        if not s__LibUSync___Message_can_save(name) then
            return false
        endif
        return true
    endfunction


    function s__LibUSync___Registrar_lenght_message takes integer message returns integer
        if not s__LibUSync___Message_is_valid(message) then
            return 0
        endif
        return s__LibUSync___Message_len[message]
    endfunction


    function s__LibUSync___Registrar_basic_register takes string name,real min,real max,real maximum_error,boolean is_int,boolean buffering,code callback returns integer
        local integer metadata
        local integer message

        if not s__LibUSync___Registrar_can_register(name , s__LibUSync___Registrar_point_id + 1) then
            return 0
        endif

        set s__LibUSync___Registrar_point_id=s__LibUSync___Registrar_point_id + 1

        set metadata=s__LibUSync___BasicMetadata_create(min , max , maximum_error , is_int , name)
        set message=s__LibUSync___Message_create(name , s__LibUSync___Registrar_point_id , s__LibUSync___MessageType_BASIC , metadata , buffering , callback)
        return s__LibUSync___Registrar_lenght_message(message)
    endfunction


    function s__LibUSync___Registrar_coordinate_register takes string name,real maximum_error,boolean buffering,code callback returns integer
        local integer metadata
        local integer message
        
        if not s__LibUSync___Registrar_can_register(name , s__LibUSync___Registrar_point_id + 1) then
            return 0
        endif
        
        set s__LibUSync___Registrar_point_id=s__LibUSync___Registrar_point_id + 1
        
        set metadata=s__LibUSync___CoordinateMetadata_create(maximum_error , name)
        set message=s__LibUSync___Message_create(name , s__LibUSync___Registrar_point_id , s__LibUSync___MessageType_COORDINATE , metadata , buffering , callback)
        return s__LibUSync___Registrar_lenght_message(message)
    endfunction




    
    // public data



    function s__USync_register_real takes string name,real min,real max,real maximum_error,boolean buffering,code callback returns integer
        return s__LibUSync___Registrar_basic_register(name , min , max , maximum_error , false , buffering , callback)
    endfunction


    function s__USync_register_integer takes string name,integer min,integer max,boolean buffering,code callback returns integer
        return s__LibUSync___Registrar_basic_register(name , min , max , 1. , true , buffering , callback)
    endfunction
    
    
    function s__USync_register_coordinate takes string name,real maximum_error,boolean buffering,code callback returns integer
        return s__LibUSync___Registrar_coordinate_register(name , maximum_error , buffering , callback)
    endfunction


    function s__USync_send_header takes integer point_id returns nothing
        call LibUSync___select_unit(point_id)
    endfunction


    function s__USync_send_data takes real val,integer message_len,real min,real dist returns integer
        local integer num
        local integer i= message_len - 1
        local integer kt

        // (0. - 1.) * (POINT_COUNT**message_len-1)
        set num=LibUSync___round(( ( val - min ) / dist ) * ( LibUSync___POWERS[message_len] - 1 ))
        loop
        exitwhen i < 0
            set kt=R2I(num / LibUSync___POWERS[i]) // 0 - POINT_COUNT-1
            set num=num - kt * R2I(LibUSync___POWERS[i])
            call LibUSync___select_unit(kt)
        set i=i - 1
        endloop
        return message_len
    endfunction


    function s__USync_can_send takes integer message,integer metadata,real val returns boolean
        if message == 0 then
            call BJDebugMsg("USyncWarring: Error send '" + s__LibUSync___Message_name[message] + "'")
            return false
        endif
        if val < s__LibUSync___BasicMetadata_min[metadata] or val > s__LibUSync___BasicMetadata_max[metadata] then
            call BJDebugMsg("USyncWarring: Sending an incorrect value " + R2S(val) + " to '" + s__LibUSync___Message_name[message] + "'")
            return false
        endif
        return true
    endfunction


    function s__USync_can_send_coordinate takes integer message,real x,real y returns boolean
        if message == 0 then
            call BJDebugMsg("USyncWarring: Error send '" + s__LibUSync___Message_name[message] + "'")
            return false
        endif
        if x < s__LibUSync___CoordinateMetadata_min_x or x > s__LibUSync___CoordinateMetadata_max_x then
            call BJDebugMsg("USyncWarring: Sending an incorrect x " + R2S(x) + " to '" + s__LibUSync___Message_name[message] + "'")
            return false
        endif
        if y < s__LibUSync___CoordinateMetadata_min_y or y > s__LibUSync___CoordinateMetadata_max_y then
            call BJDebugMsg("USyncWarring: Sending an incorrect y " + R2S(y) + " to '" + s__LibUSync___Message_name[message] + "'")
            return false
        endif
        return true
    endfunction


    function s__USync_send takes string name,real val returns boolean
        local integer message= s__LibUSync___Message_load_from_name(name)
        local integer metadata= (s__LibUSync___Message_metadata[message])

        if not s__USync_can_send(message , metadata , val) then
            return false
        endif

        if not s__LibUSync___Message_buffering[message] then
            if s__LibUSync___Message_is_reached[message] then
                set s__LibUSync___Message_is_reached[message]=false
            else
                set s__LibUSync___Message_need_update[message]=true
                set s__LibUSync___PendingData_value[s__LibUSync___Message_pending_data[message]]=val
                return true
            endif
        endif

        call s__USync_send_header(s__LibUSync___Message_point_id[message])
        call s__USync_send_data(val , s__LibUSync___Message_len[message] , s__LibUSync___BasicMetadata_min[metadata] , s__LibUSync___BasicMetadata_dist[metadata])
        return true
    endfunction


    function s__USync_send_coordinate takes string name,real x,real y returns boolean
        local integer message= s__LibUSync___Message_load_from_name(name)
        local integer metadata= (s__LibUSync___Message_metadata[message])

        if not s__USync_can_send_coordinate(message , x , y) then
            return false
        endif

        if not s__LibUSync___Message_buffering[message] then
            if s__LibUSync___Message_is_reached[message] then
                set s__LibUSync___Message_is_reached[message]=false
            else
                set s__LibUSync___Message_need_update[message]=true
                set s__LibUSync___PendingData_x[s__LibUSync___Message_pending_data[message]]=x
                set s__LibUSync___PendingData_y[s__LibUSync___Message_pending_data[message]]=y
                return true
            endif
        endif
        call s__USync_send_header(s__LibUSync___Message_point_id[message])
        call s__USync_send_data(x , s__LibUSync___CoordinateMetadata_message_len_x[metadata] , s__LibUSync___CoordinateMetadata_min_x , s__LibUSync___CoordinateMetadata_dist_x)
        call s__USync_send_data(y , s__LibUSync___CoordinateMetadata_message_len_y[metadata] , s__LibUSync___CoordinateMetadata_min_y , s__LibUSync___CoordinateMetadata_dist_y)
        return true
    endfunction


    function s__USync_start_collection takes integer this,integer point_id returns nothing
        local integer message= s__LibUSync___Message_load_from_point(point_id)
        if not s__LibUSync___Message_is_valid(message) then
            call BJDebugMsg("USyncError: received data error " + I2S(message))
            return
        endif
        set s__USync_message[this]=message
        set s__USync_metadata[this]=s__LibUSync___Message_metadata[message]
        set s__USync_meta_type[this]=s__LibUSync___Message_meta_type[message]
        set s__USync_current_data_len[this]=0
        set s__USync_need_data_len[this]=s__LibUSync___Message_len[message]
        set s__USync_is_start[this]=true
    endfunction


    function s__USync_build_number takes integer this,integer start,integer data_len returns real
        local integer end= start + data_len
        local integer num= 0
        local real result

        loop
        exitwhen start >= end
            set num=num * LibUSync___POINT_COUNT + s___USync_data[s__USync_data[this]+start]
        set start=start + 1
        endloop

        set result=s__USync_dist * ( num / ( LibUSync___POWERS[data_len] - 1 ) )

        if s__USync_is_int then
            set result=LibUSync___round(result)
        endif

        return s__USync_min + result
    endfunction


    function s__USync_build_and_update_data takes integer this returns nothing
        local integer message= s__USync_message[this]
        local integer message_len_x

        set s__LibUSync___Message_is_reached[message]=true

        if s__USync_meta_type[this] == s__LibUSync___MessageType_BASIC then
            set s__USync_min=s__LibUSync___BasicMetadata_min[(s__USync_metadata[this])]
            set s__USync_dist=s__LibUSync___BasicMetadata_dist[(s__USync_metadata[this])]
            set s__USync_is_int=s__LibUSync___BasicMetadata_is_int[(s__USync_metadata[this])]
            set s__USync_real=s__USync_build_number(this,0 , s__USync_need_data_len[this])

            if s__USync_is_int then
                set s__USync_integer=R2I(s__USync_real)
            endif

            if s__LibUSync___Message_need_update[message] then
                set s__LibUSync___Message_need_update[message]=false
                call s__USync_send(s__LibUSync___Message_name[message] , s__LibUSync___PendingData_value[s__LibUSync___Message_pending_data[message]])
            endif

        elseif s__USync_meta_type[this] == s__LibUSync___MessageType_COORDINATE then
            set message_len_x=s__LibUSync___CoordinateMetadata_message_len_x[(s__USync_metadata[this])]
            set s__USync_min=s__LibUSync___CoordinateMetadata_min_x
            set s__USync_dist=s__LibUSync___CoordinateMetadata_dist_x
            set s__USync_is_int=false
            set s__USync_x=s__USync_build_number(this,0 , message_len_x)

            set s__USync_min=s__LibUSync___CoordinateMetadata_min_y
            set s__USync_dist=s__LibUSync___CoordinateMetadata_dist_y
            set s__USync_y=s__USync_build_number(this,message_len_x , s__LibUSync___CoordinateMetadata_message_len_y[(s__USync_metadata[this])])

            if s__LibUSync___Message_need_update[message] then
                set s__LibUSync___Message_need_update[message]=false
                call s__USync_send_coordinate(s__LibUSync___Message_name[message] , s__LibUSync___PendingData_x[s__LibUSync___Message_pending_data[message]] , s__LibUSync___PendingData_y[s__LibUSync___Message_pending_data[message]])
            endif
        endif
    endfunction


   function s__USync_push takes integer this,integer num returns nothing
        if not s__USync_is_start[this] then
            call s__USync_start_collection(this,num)
            return
        endif
        set s___USync_data[s__USync_data[this]+s__USync_current_data_len[this]]=num
        set s__USync_current_data_len[this]=s__USync_current_data_len[this] + 1

        if s__USync_current_data_len[this] >= s__USync_need_data_len[this] then
            call s__USync_build_and_update_data(this)
            set s__USync_is_start[this]=false
            call TriggerEvaluate(s__LibUSync___Message_trigger[s__USync_message[this]])
        endif
   endfunction


    function s__USync_event_select takes nothing returns boolean
        local integer pid= s__LibUSync___EventData_player_id
        local integer event_count= s__LibUSync___EventData_unit_count[pid]
        local integer uplayer= (pid + 1)
        local integer i= 0
        set s__USync_player_id=pid
        loop
        exitwhen i >= event_count
            call s__USync_push(uplayer,GetUnitUserData(s__s__LibUSync___EventData_units[(pid)*(100)+i]))
        set i=i + 1
        endloop

        return false
    endfunction





    function s__LibUSync___EventTrigger_select_with_timer takes nothing returns nothing
        local integer i= 0
        set s__LibUSync___EventTrigger_is_select_start=false
        loop
        exitwhen i >= s__LibUSync___EventTrigger_player_count
            set s__LibUSync___EventData_player_id=s__LibUSync___EventTrigger_players[i]
            call s__USync_event_select()
        set i=i + 1
        endloop
    endfunction


    function s__LibUSync___EventTrigger_add_player takes integer pid returns nothing
        local integer i= 0
        loop
        exitwhen i >= s__LibUSync___EventTrigger_player_count
            if s__LibUSync___EventTrigger_players[i] == pid then
                return
            endif
        set i=i + 1
        endloop
        set s__LibUSync___EventTrigger_players[s__LibUSync___EventTrigger_player_count]=pid
        set s__LibUSync___EventTrigger_player_count=s__LibUSync___EventTrigger_player_count + 1

        set s__LibUSync___EventTrigger_player_id=pid
        set s__LibUSync___EventData_unit_count[pid]=0
    endfunction


    function s__LibUSync___EventTrigger_trigger_select takes nothing returns boolean
        local integer pid= GetPlayerId(GetTriggerPlayer())
        if not LibUSync___is_unit(GetTriggerUnit()) then
            return false
        endif
        if not s__LibUSync___EventTrigger_is_select_start then

            set s__LibUSync___EventTrigger_is_select_start=true

            set s__LibUSync___EventTrigger_players[0]=pid
            set s__LibUSync___EventTrigger_player_count=1

            set s__LibUSync___EventTrigger_player_id=pid
            set s__LibUSync___EventData_unit_count[pid]=0

            call TimerStart(s__LibUSync___EventTrigger_selection_timer, 0., false, function s__LibUSync___EventTrigger_select_with_timer)
        endif
        
        if s__LibUSync___EventTrigger_player_id != pid then
            call s__LibUSync___EventTrigger_add_player(pid)
        endif

        set s__s__LibUSync___EventData_units[(pid)*(100)+s__LibUSync___EventData_unit_count[pid]]= GetTriggerUnit()
        set s__LibUSync___EventData_unit_count[pid]=s__LibUSync___EventData_unit_count[pid] + 1
        return false
    endfunction


    function s__LibUSync___EventTrigger_init takes nothing returns nothing
        local trigger trig= CreateTrigger()
        local integer i= bj_MAX_PLAYERS
        loop
        exitwhen i < 0
            call TriggerRegisterPlayerUnitEvent(trig, Player(i), EVENT_PLAYER_UNIT_SELECTED, null)
        set i=i - 1
        endloop
        call TriggerAddCondition(trig, Condition(function s__LibUSync___EventTrigger_trigger_select))
        set trig=null
    endfunction


function LibUSync___initialization_unit takes nothing returns nothing
    local integer i= 0
    if LibUSync___UNITS[i] != null then
        return
    endif
    if LibUSync___UNIT_X == 0.12345 then
        set LibUSync___UNIT_X=s__LibUSync___CoordinateMetadata_min_x
    endif
    if LibUSync___UNIT_Y == 0.12345 then
        set LibUSync___UNIT_Y=s__LibUSync___CoordinateMetadata_min_y
    endif

    loop
    exitwhen i >= LibUSync___UNIT_COUNT
        set LibUSync___UNITS[i]=CreateUnit(LibUSync___UNIT_PLAYER, LibUSync___UNIT_ID, LibUSync___UNIT_X, LibUSync___UNIT_Y, 0.)
        call SetUnitUserData(LibUSync___UNITS[i], i)
        call SaveBoolean(LibUSync___IS_UNIT, 0, GetHandleId(LibUSync___UNITS[i]), true)
    set i=i + 1
    endloop
endfunction


function LibUSync___initialization_powers takes nothing returns nothing
    local integer i= 0
    
    loop
    exitwhen i > LibUSync___MAX_MESSAGE_LEN
        set LibUSync___POWERS[i]=Pow(LibUSync___POINT_COUNT, i)
    set i=i + 1
    endloop
endfunction


function LibUSync___initialization takes nothing returns nothing
    call s__LibUSync___EventTrigger_init()
    call s__LibUSync___CoordinateMetadata_init()
    call LibUSync___initialization_unit()
    call LibUSync___initialization_powers()
endfunction

//library LibUSync ends
//===========================================================================
// 
// Sync
// 
//   Warcraft III map script
//   Generated by the Warcraft III World Editor
//   Date: Sat Feb 04 16:16:15 2023
//   Map Author: Vlod
// 
//===========================================================================

//***************************************************************************
//*
//*  Global Variables
//*
//***************************************************************************


function InitGlobals takes nothing returns nothing
endfunction

//***************************************************************************
//*
//*  Unit Creation
//*
//***************************************************************************

//===========================================================================
function CreateUnitsForPlayer0 takes nothing returns nothing
    local player p= Player(0)
    local unit u
    local integer unitID
    local trigger t
    local real life

    set gg_unit_hpea_0001=CreateUnit(p, 'hpea', - 78.7, 125.3, 325.799)
endfunction

//===========================================================================
function CreateUnitsForPlayer1 takes nothing returns nothing
    local player p= Player(1)
    local unit u
    local integer unitID
    local trigger t
    local real life

    set gg_unit_opeo_0002=CreateUnit(p, 'opeo', - 71.7, 211.5, 251.441)
endfunction

//===========================================================================
function CreatePlayerBuildings takes nothing returns nothing
endfunction

//===========================================================================
function CreatePlayerUnits takes nothing returns nothing
    call CreateUnitsForPlayer0()
    call CreateUnitsForPlayer1()
endfunction

//===========================================================================
function CreateAllUnits takes nothing returns nothing
    call CreatePlayerBuildings()
    call CreatePlayerUnits()
endfunction

//***************************************************************************
//*
//*  Triggers
//*
//***************************************************************************

//===========================================================================
// Trigger: USync
//===========================================================================




//===========================================================================
// Trigger: CameraSync
//===========================================================================


function sync_xy takes nothing returns nothing
    local real x= GetCameraTargetPositionX()
    local real y= GetCameraTargetPositionY()
    
    if GetLocalPlayer() == Player(0) then
        call s__USync_send_coordinate("camera 0" , x , y)
    endif
endfunction


function event_camera_pl_0 takes nothing returns nothing
    local real x= s__USync_x
    local real y= s__USync_y
    call SetUnitX(gg_unit_hpea_0001, x)
    call SetUnitY(gg_unit_hpea_0001, y)
    call sync_xy()
endfunction


function Trig_CameraSync_Actions takes nothing returns nothing
    call s__USync_register_coordinate("camera 0" , 1 , true , function event_camera_pl_0)
    call sync_xy()
endfunction

//===========================================================================
function InitTrig_CameraSync takes nothing returns nothing
    set gg_trg_CameraSync=CreateTrigger()
    call TriggerAddAction(gg_trg_CameraSync, function Trig_CameraSync_Actions)
endfunction

//===========================================================================
// Trigger: CameraSync1
//===========================================================================


function event_camera_1 takes nothing returns nothing
    local real x= s__USync_x
    local real y= s__USync_y
    call SetUnitX(gg_unit_opeo_0002, x)
    call SetUnitY(gg_unit_opeo_0002, y)
endfunction


function timer_sync takes nothing returns nothing
    local real x= GetCameraTargetPositionX()
    local real y= GetCameraTargetPositionY()
    
    if GetLocalPlayer() == Player(1) then
        call s__USync_send_coordinate("camera 1" , x , y)
    endif
endfunction


function Trig_CameraSync1_Actions takes nothing returns nothing
    call s__USync_register_coordinate("camera 1" , 1 , false , function event_camera_1)
    call TimerStart(CreateTimer(), 0.15, true, function timer_sync)
endfunction

//===========================================================================
function InitTrig_CameraSync1 takes nothing returns nothing
    set gg_trg_CameraSync1=CreateTrigger()
    call TriggerAddAction(gg_trg_CameraSync1, function Trig_CameraSync1_Actions)
endfunction

//===========================================================================
// Trigger: DataSync
//===========================================================================


function event_real takes nothing returns nothing
    local real data= s__USync_real
    call BJDebugMsg("sync real_data " + R2S(data))
    call BJDebugMsg("sync player_id " + I2S(s__USync_player_id))
    call BJDebugMsg("--------------")
endfunction


function event_int takes nothing returns nothing
    local integer data= s__USync_integer
    call BJDebugMsg("sync int_data " + I2S(data))
    call BJDebugMsg("sync player_id " + I2S(s__USync_player_id))
    call BJDebugMsg("--------------")
endfunction


function timer_send_data takes nothing returns nothing
    local integer rand= GetRandomInt(0, 1)
    if GetLocalPlayer() == Player(0) then
        if rand == 0 then
            call BJDebugMsg("real_data " + R2S(real_data))

            call s__USync_send("data real" , real_data)
            set real_data=real_data + 0.5

        else
            call BJDebugMsg("int_data " + I2S(int_data))

            call s__USync_send("data int" , int_data)
            set int_data=int_data + 1
        endif
    endif
endfunction



function Trig_DataSync_Actions takes nothing returns nothing
    call s__USync_register_real("data real" , - 50 , 50 , 0.5 , true , function event_real)
    call s__USync_register_integer("data int" , - 100 , 100 , true , function event_int)
    call TimerStart(CreateTimer(), 3, true, function timer_send_data)
endfunction

//===========================================================================
function InitTrig_DataSync takes nothing returns nothing
    set gg_trg_DataSync=CreateTrigger()
    call TriggerAddAction(gg_trg_DataSync, function Trig_DataSync_Actions)
endfunction

//===========================================================================
// Trigger: Init
//===========================================================================
function Trig_Init_Actions takes nothing returns nothing
    call CreateFogModifierRectBJ(true, Player(0), FOG_OF_WAR_VISIBLE, GetPlayableMapRect())
endfunction

//===========================================================================
function InitTrig_Init takes nothing returns nothing
    set gg_trg_Init=CreateTrigger()
    call TriggerAddAction(gg_trg_Init, function Trig_Init_Actions)
endfunction

//===========================================================================
function InitCustomTriggers takes nothing returns nothing
    //Function not found: call InitTrig_USync()
    call InitTrig_CameraSync()
    call InitTrig_CameraSync1()
    call InitTrig_DataSync()
    call InitTrig_Init()
endfunction

//===========================================================================
function RunInitializationTriggers takes nothing returns nothing
    call ConditionalTriggerExecute(gg_trg_CameraSync)
    call ConditionalTriggerExecute(gg_trg_CameraSync1)
    call ConditionalTriggerExecute(gg_trg_DataSync)
    call ConditionalTriggerExecute(gg_trg_Init)
endfunction

//***************************************************************************
//*
//*  Players
//*
//***************************************************************************

function InitCustomPlayerSlots takes nothing returns nothing

    // Player 0
    call SetPlayerStartLocation(Player(0), 0)
    call SetPlayerColor(Player(0), ConvertPlayerColor(0))
    call SetPlayerRacePreference(Player(0), RACE_PREF_HUMAN)
    call SetPlayerRaceSelectable(Player(0), true)
    call SetPlayerController(Player(0), MAP_CONTROL_USER)

    // Player 1
    call SetPlayerStartLocation(Player(1), 1)
    call SetPlayerColor(Player(1), ConvertPlayerColor(1))
    call SetPlayerRacePreference(Player(1), RACE_PREF_ORC)
    call SetPlayerRaceSelectable(Player(1), true)
    call SetPlayerController(Player(1), MAP_CONTROL_USER)

endfunction

function InitCustomTeams takes nothing returns nothing
    // Force: TRIGSTR_005
    call SetPlayerTeam(Player(0), 0)
    call SetPlayerTeam(Player(1), 0)

endfunction

function InitAllyPriorities takes nothing returns nothing

    call SetStartLocPrioCount(0, 1)
    call SetStartLocPrio(0, 0, 1, MAP_LOC_PRIO_HIGH)

    call SetStartLocPrioCount(1, 1)
    call SetStartLocPrio(1, 0, 0, MAP_LOC_PRIO_HIGH)
endfunction

//***************************************************************************
//*
//*  Main Initialization
//*
//***************************************************************************

//===========================================================================
function main takes nothing returns nothing
    call SetCameraBounds(- 1280.0 + GetCameraMargin(CAMERA_MARGIN_LEFT), - 1536.0 + GetCameraMargin(CAMERA_MARGIN_BOTTOM), 1280.0 - GetCameraMargin(CAMERA_MARGIN_RIGHT), 1024.0 - GetCameraMargin(CAMERA_MARGIN_TOP), - 1280.0 + GetCameraMargin(CAMERA_MARGIN_LEFT), 1024.0 - GetCameraMargin(CAMERA_MARGIN_TOP), 1280.0 - GetCameraMargin(CAMERA_MARGIN_RIGHT), - 1536.0 + GetCameraMargin(CAMERA_MARGIN_BOTTOM))
    call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl", "Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
    call NewSoundEnvironment("Default")
    call SetAmbientDaySound("LordaeronSummerDay")
    call SetAmbientNightSound("LordaeronSummerNight")
    call SetMapMusic("Music", true, 0)
    call CreateAllUnits()
    call InitBlizzard()

call ExecuteFunc("jasshelper__initstructs168507546")
call ExecuteFunc("LibUSync___initialization")

    call InitGlobals()
    call InitCustomTriggers()
    call RunInitializationTriggers()

endfunction

//***************************************************************************
//*
//*  Map Configuration
//*
//***************************************************************************

function config takes nothing returns nothing
    call SetMapName("TRIGSTR_002")
    call SetMapDescription("")
    call SetPlayers(2)
    call SetTeams(2)
    call SetGamePlacement(MAP_PLACEMENT_TEAMS_TOGETHER)

    call DefineStartLocation(0, 0.0, 0.0)
    call DefineStartLocation(1, 0.0, 0.0)

    // Player setup
    call InitCustomPlayerSlots()
    call SetPlayerSlotAvailable(Player(0), MAP_CONTROL_USER)
    call SetPlayerSlotAvailable(Player(1), MAP_CONTROL_USER)
    call InitGenericPlayerSlots()
    call InitAllyPriorities()
endfunction




//Struct method generated initializers/callers:

//Functions for BigArrays:

function jasshelper__initstructs168507546 takes nothing returns nothing












endfunction

Готово.

Можно синкать через SelectUnit, он вроде как быстрее кэша.

call TriggerSleepAction

call TimerStart

call TriggerRegisterTimerEventPeriodic
call TriggerAddAction

TriggerSleepAction игнорирует паузу

и может десинкнуть из-за неточности внутреннего таймера.

TriggerSleepAction can't cause a desync (well, unless you do it for a local player)

TriggerSleepAction в цикле. Да вы батенька гений.

TriggerSleepAction(2) для сети не рекомендуется. Почитаешь какие последствия могут быть. Для одного игрока тебе будет идеальный вариант

Не то условие добавил
Через цикл все з таймером

globals
integer PLAYERS=12
integer array GO
endglobals

function GOO3_Actions takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
local integer j=1
loop
exitwhen j>10
if GO[i]==1 then
call BJDebugMsg("111 "+GetPlayerName(Player(i-1)))
call TriggerSleepAction(2)
endif
if GO[i]==1 then
call BJDebugMsg("222 "+GetPlayerName(Player(i-1)))
call TriggerSleepAction(2)
endif
if GO[i]==1 then
call BJDebugMsg("333 "+GetPlayerName(Player(i-1)))
call TriggerSleepAction(2)
endif
set j=j+1
endloop
endfunction

function GOO3 takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
if GO[i]==0 then
set GO[i]=1
call GOO3_Actions()
else
set GO[i]=0
endif
endfunction

function Start takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
if s=="-g3" then
call GOO3()
endif
endfunction

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
set i=i+1
endloop
call TriggerAddAction(t,function Start)
endfunction

call Start_init()

Три варианта

:3: syntax error
:3: Undefined type MAX_PLAYER
:4: syntax error
:4: Undefined type MAX_PLAYER
:37: Undeclared variable gg_trg_Loop

:4: syntax error
:4: Undefined type MAX_PLAYER1
:32: Undeclared variable gg_trg_StaticTimer

:3: syntax error
:3: Undefined type MAX_PLAYER2
:4: syntax error
:4: Undefined type MAX_PLAYER2
:34: Undeclared variable gg_trg_SaveHandle

I2S(l+1)
на
I2S(pId+1)

На какой версии фатал, где краш лог? ФПС даже на предыдущей прекрасно повышался. Можно не будем выдумывать баги? :(

fast_menu_v2.mix

ROC
UI\Glues\SpriteLayers\TopLeftPanel.mdx
UI\Glues\SpriteLayers\TopRightPanel.mdx
TFT
UI\Glues\SpriteLayers\Expansion\TopLeftPanel-Expansion.mdx
UI\Glues\SpriteLayers\Expansion\TopRightPanel-Expansion.mdx

globals
integer PLAYERS=12
integer array GO
integer array N
trigger array tgo2
integer array tgo2_init
hashtable ht=InitHashtable()
endglobals

function GOO2_Actions takes nothing returns nothing
local integer i=LoadInteger(ht,GetHandleId(GetTriggeringTrigger()),0)
set N[i]=N[i]+1
if ModuloInteger(N[i],3)==1 then
call BJDebugMsg(I2S(N[i])+" Action 1: "+GetPlayerName(Player(i-1)))
elseif ModuloInteger(N[i],3)==2 then
call BJDebugMsg(I2S(N[i])+" Action 2: "+GetPlayerName(Player(i-1)))
elseif ModuloInteger(N[i],3)==0 then
call BJDebugMsg(I2S(N[i])+" Action 3: "+GetPlayerName(Player(i-1)))
//set N[i]=0
endif
endfunction

function GOO2 takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
if tgo2_init[i]==0 then
set tgo2_init[i]=1
set tgo2[i]=CreateTrigger()
call SaveInteger(ht,GetHandleId(tgo2[i]),0,i)
call TriggerRegisterTimerEvent(tgo2[i], 1,true)
call TriggerAddAction(tgo2[i], function GOO2_Actions)
call DisableTrigger(tgo2[i])
endif
if GO[i]==0 then
set GO[i]=1
call EnableTrigger(tgo2[i])
else
set GO[i]=0
set N[i]=0
call DisableTrigger(tgo2[i])
call BJDebugMsg("STOP: "+GetPlayerName(Player(i-1)))
endif
endfunction

function Start takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
elseif s=="-g2" then
call GOO2()
endif
endfunction

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
set i=i+1
endloop
call TriggerAddAction(t,function Start)
endfunction

call Start_init()

Людочка, ты не поверишь.

Можешь проверить через Multiwindow.

Вот здесь идёт получение номера игрока из ХТ.

Держи

globals
string MyTimerLib___msg="-run"
integer MyTimerLib___i
integer array MyTimerLib___action
timer array MyTimerLib___ticker
boolean array MyTimerLib___running
hashtable MyTimerLib___ht=InitHashtable()
endglobals

function MyTimerLib___anon__1 takes nothing returns nothing
set MyTimerLib___i=LoadInteger(MyTimerLib___ht,GetHandleId(GetExpiredTimer()),0)
set MyTimerLib___action[MyTimerLib___i]=MyTimerLib___action[MyTimerLib___i]+1
call BJDebugMsg("Player: "+I2S(MyTimerLib___i)+", action: "+I2S(MyTimerLib___action[MyTimerLib___i]))
if(MyTimerLib___action[MyTimerLib___i]==2)then
set MyTimerLib___action[MyTimerLib___i]=-1
endif
endfunction

function MyTimerLib___anon__0 takes nothing returns nothing
set MyTimerLib___i=GetPlayerId(GetTriggerPlayer())
if(MyTimerLib___running[MyTimerLib___i])then
call PauseTimer(MyTimerLib___ticker[MyTimerLib___i])
set MyTimerLib___action[MyTimerLib___i]=-1
set MyTimerLib___running[MyTimerLib___i]=false
call BJDebugMsg("Player: "+I2S(MyTimerLib___i)+", stop")
return
endif
set MyTimerLib___running[MyTimerLib___i]=true
call TimerStart(MyTimerLib___ticker[MyTimerLib___i],.3,true,function MyTimerLib___anon__1)
endfunction

function MyTimerLib___onInit takes nothing returns nothing
local trigger t=CreateTrigger()
set MyTimerLib___i=0
loop
exitwhen(MyTimerLib___i>=bj_MAX_PLAYER_SLOTS)
if(GetPlayerController(Player(MyTimerLib___i))==MAP_CONTROL_USER and GetPlayerSlotState(Player(MyTimerLib___i))==PLAYER_SLOT_STATE_PLAYING)then
call TriggerRegisterPlayerChatEvent(t,Player(MyTimerLib___i),MyTimerLib___msg,false)
set MyTimerLib___action[MyTimerLib___i]=-1
set MyTimerLib___running[MyTimerLib___i]=false
set MyTimerLib___ticker[MyTimerLib___i]=CreateTimer()
call SaveInteger(MyTimerLib___ht,GetHandleId(MyTimerLib___ticker[MyTimerLib___i]),0,MyTimerLib___i)
endif
set MyTimerLib___i=MyTimerLib___i+1
endloop
call TriggerAddAction(t,function MyTimerLib___anon__0)
set t=null
endfunction

call ExecuteFunc("MyTimerLib___onInit")

globals
integer PLAYERS=12
integer array GO
integer array N
timer array Ti
endglobals

function OnPeriodic_4 takes nothing returns nothing
local integer i=4
set N[i]=N[i]+1
if N[i]==1 then
call BJDebugMsg("Action 1: "+GetPlayerName(Player(i-1)))
elseif N[i]==2 then
call BJDebugMsg("Action 2: "+GetPlayerName(Player(i-1)))
elseif N[i]==3 then
call BJDebugMsg("Action 3: "+GetPlayerName(Player(i-1)))
set N[i]=0
endif
endfunction
function OnPeriodic_3 takes nothing returns nothing
local integer i=3
set N[i]=N[i]+1
if N[i]==1 then
call BJDebugMsg("Action 1: "+GetPlayerName(Player(i-1)))
elseif N[i]==2 then
call BJDebugMsg("Action 2: "+GetPlayerName(Player(i-1)))
elseif N[i]==3 then
call BJDebugMsg("Action 3: "+GetPlayerName(Player(i-1)))
set N[i]=0
endif
endfunction
function OnPeriodic_2 takes nothing returns nothing
local integer i=2
set N[i]=N[i]+1
if N[i]==1 then
call BJDebugMsg("Action 1: "+GetPlayerName(Player(i-1)))
elseif N[i]==2 then
call BJDebugMsg("Action 2: "+GetPlayerName(Player(i-1)))
elseif N[i]==3 then
call BJDebugMsg("Action 3: "+GetPlayerName(Player(i-1)))
set N[i]=0
endif
endfunction
function OnPeriodic_1 takes nothing returns nothing
local integer i=1
set N[i]=N[i]+1
if ModuloInteger(N[i],3)==1 then
call BJDebugMsg(I2S(N[i])+" Action 1: "+GetPlayerName(Player(i-1)))
elseif ModuloInteger(N[i],3)==2 then
call BJDebugMsg(I2S(N[i])+" Action 2: "+GetPlayerName(Player(i-1)))
elseif ModuloInteger(N[i],3)==0 then
call BJDebugMsg(I2S(N[i])+" Action 3: "+GetPlayerName(Player(i-1)))
//set N[i]=0
endif
endfunction

function GOO takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
if GO[i]==0 then
set GO[i]=1
set Ti[i]=CreateTimer()
else
set GO[i]=0
call PauseTimer(Ti[i])
call DestroyTimer(Ti[i])
call BJDebugMsg("STOP: "+GetPlayerName(Player(i-1)))
endif
set N[i]=0
if GO[i]==1 and i==1 then
call TimerStart(Ti[i], 1, true, function OnPeriodic_1)
elseif GO[i]==1 and i==2 then
call TimerStart(Ti[i], 1, true, function OnPeriodic_2)
elseif GO[i]==1 and i==3 then
call TimerStart(Ti[i], 1, true, function OnPeriodic_3)
elseif GO[i]==1 and i==4 then
call TimerStart(Ti[i], 1, true, function OnPeriodic_4)
endif
endfunction

function Start takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
if s=="-g" then
call GOO()
endif
endfunction

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
set i=i+1
endloop
call TriggerAddAction(t,function Start)
endfunction

call Start_init()

Смысл примерно таков для цыкла

Вор

Можно один таймер для всех, а когда таймер истекает, то циклом проверять всех игроков и в зависимости переменной записаной на игрока выполнять действия

т.е Spell_1 Spell_2 Spell_3 + OnPeriodic_1 OnPeriodic_2 OnPeriodic_3

Мне кажется

globals
integer PLAYERS=12
integer array N
timer array Ti
timer array TIME
integer array GO
endglobals

function OnPeriodic takes nothing returns nothing
local integer i=1
loop
exitwhen i>PLAYERS
if GO[i]==1 then
set Ti[i] = GetExpiredTimer()
call BJDebugMsg("timer  i "+I2S(i)+"__GO[i] "+I2S(GO[i])+"__N [i] "+I2S(N[i])+"__Name "+GetPlayerName(Player(i-1)))
set N[i]=N[i]+1
endif
if GO[i]==0 then
call PauseTimer(Ti[i])
call DestroyTimer(Ti[i])
endif
set i=i+1
endloop
set Ti[i] = null
endfunction

function Spell takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
set TIME[i] = CreateTimer()
call BJDebugMsg("TIME "+I2S(i))
call TimerStart(TIME[i], 1, true, function OnPeriodic)
set TIME[i] = null
endfunction

function GOO takes nothing returns nothing
local integer i=GetPlayerId(GetTriggerPlayer())+1
if GO[i]==0 then
set GO[i]=1
call BJDebugMsg("GO 1")
call Spell()
else
set GO[i]=0
call BJDebugMsg("GO 0")
set N[i]=0
endif
endfunction

function Start takes nothing returns nothing
local string s=StringCase(GetEventPlayerChatString(),false)
if s=="-g" then
call GOO()
endif
endfunction

function Start_init takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=1
loop
exitwhen i>PLAYERS
call TriggerRegisterPlayerChatEvent(t,Player(i-1),"-",false)
set i=i+1
endloop
call TriggerAddAction(t,function Start)
endfunction

Вот пример через глобалку сделал.

integer i = 0;
BJDebugMsg("action 1: " + I2S(GetPlayerId(p)));
BJDebugMsg("action 2: " + I2S(GetPlayerId(p)));
BJDebugMsg("action 3: " + I2S(GetPlayerId(p)));

globals
integer MyTimerLib__n=-1
timer MyTimerLib__ticker=CreateTimer()
string MyTimerLib__msg="-run"
boolean MyTimerLib__running=false
player MyTimerLib__p
endglobals

function MyTimerLib__anon__1 takes nothing returns nothing
set MyTimerLib__n=MyTimerLib__n+1
if(MyTimerLib__n==0)then
call BJDebugMsg("action 1: "+I2S(GetPlayerId(MyTimerLib__p)))
endif
if(MyTimerLib__n==1)then
call BJDebugMsg("action 2: "+I2S(GetPlayerId(MyTimerLib__p)))
endif
if(MyTimerLib__n==2)then
call BJDebugMsg("action 3: "+I2S(GetPlayerId(MyTimerLib__p)))
set MyTimerLib__n=-1
endif
endfunction

function MyTimerLib__anon__0 takes nothing returns nothing
set MyTimerLib__p=GetTriggerPlayer()
if(MyTimerLib__running)then
call PauseTimer(MyTimerLib__ticker)
set MyTimerLib__n=-1
set MyTimerLib__running=false
call BJDebugMsg("stop")
return
endif
set MyTimerLib__running=true
call TimerStart(MyTimerLib__ticker,.3,true,function MyTimerLib__anon__1)
endfunction

function MyTimerLib__onInit takes nothing returns nothing
local trigger t=CreateTrigger()
local integer i=0
set i=0
loop
exitwhen(i>=bj_MAX_PLAYER_SLOTS)
if(GetPlayerController(Player(i))==MAP_CONTROL_USER and GetPlayerSlotState(Player(i))==PLAYER_SLOT_STATE_PLAYING)then
call TriggerRegisterPlayerChatEvent(t,Player(i),MyTimerLib__msg,false)
endif
set i=i+1
endloop
call TriggerAddAction(t,function MyTimerLib__anon__0)
set t=null
endfunction

call ExecuteFunc("MyTimerLib__onInit")

! zinc

globals
integer MyTimerLib___n=-1
timer MyTimerLib___ticker=CreateTimer()
integer MyTimerLib___i=GetPlayerId(GetTriggerPlayer())
endglobals

function MyTimerLib___anon__0 takes nothing returns nothing
set MyTimerLib___n=MyTimerLib___n+1
if(MyTimerLib___n==0)then
call BJDebugMsg("111 "+I2S(MyTimerLib___i))
endif
if(MyTimerLib___n==1)then
call BJDebugMsg("222 "+I2S(MyTimerLib___i))
endif
if(MyTimerLib___n==2)then
call BJDebugMsg("333 "+I2S(MyTimerLib___i))
set MyTimerLib___n=-1
endif
endfunction

function MyTimerLib___onInit takes nothing returns nothing
call TimerStart(MyTimerLib___ticker,.3,true,function MyTimerLib___anon__0)
endfunction
call ExecuteFunc("MyTimerLib___onInit")

! zinc

Я провёл эксперимент и вставил на свою карту фрагмент из другой, и другие вставали нормально