globals
integer gk=0
endglobals


function Trig_Evenload_Actions takes nothing returns nothing
local string s=""
local string data=""

call Preloader("save\\PreExp.txt")//меняет всем имя игрока 16 на индивидульное значение или не?  что будет если с фаила игрока 1
////// выгружается 1, а из игрока 2 - 50? а у игрока у кого нет фаилла вызвается "игрок 16"


if GetLocalPlayer()==Player(gk)  then
set s=GetPlayerName(Player(15)) // S примет индвидуальные значения от каждого игрока
endif

if GetPlayerController(Player(gk)) == MAP_CONTROL_USER then
call BJDebugMsg("Загрузка результатов для " +GetPlayerName(Player(gk)))
set data = SyncString(Player(gk), s)//пауза 2 сек
set cgame[gk]=S2I(data)

if cgame[gk]==0 then
call BJDebugMsg(GetPlayerName(Player(gk))+" играет первый раз")
else
call BJDebugMsg(GetPlayerName(Player(gk))+": сыграно игр - "+I2S(cgame[gk]))
endif

endif
set gk=gk+1

if gk==10 then
call BJDebugMsg("Загрузка результатов завершена")
endif

endfunction

//===========================================================================
function InitTrig_EvetLoadPeriud takes nothing returns nothing
    set gg_trg_EvetLoadPeriud = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_EvetLoadPeriud, 4 )//более частые вызовы всё ломают
    call TriggerAddAction( gg_trg_EvetLoadPeriud, function Trig_Evenload_Actions )
endfunction

function Trig_EventSave_Actions takes nothing returns nothing
local string s=""
local integer k=0

loop 
exitwhen k==10
if GetLocalPlayer()==Player(k) then
set s=I2S(cgame[k]+1)// запишем в переменную индивидуальные значения от каждого игрока
endif
set k=k+1
endloop

call Preload("\")\ncall SetPlayerName(Player(15),\""+s+"\")\ncall ExecuteFunc(\"Test\")\n//") // сохраним на каждый комп файл с уникальным значением
call BJDebugMsg(" ")
call Preload("\")\nendfunction\nfunction Other takes nothing returns nothing\n//")
call BJDebugMsg("2")
call PreloadGenEnd("save\\PreExp.txt")//!!!!!!!!!!!!!!!!!!!!!!!
////!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
call BJDebugMsg("Автосохранение прошло успешно, можно перезапускать тестовую карту") // и после этого десинхронизация!!!!!!!!!!!!!!!!!!!!!

endfunction

//===========================================================================
function InitTrig_EventSave takes nothing returns nothing
    set gg_trg_EventSave = CreateTrigger(  )
    call TriggerRegisterTimerEventSingle( gg_trg_EventSave, 20 )// функция должна вызываться в конце игры
    call TriggerAddAction( gg_trg_EventSave, function Trig_EventSave_Actions )
endfunction