globals
    gamecache Cync = InitGameCache("mycahe2")
    hashtable MyData = InitHashtable()
    player cyn_player = null
    integer cyn_Key = 0
    integer cyn_nm=0
    player CyncPlayer = null
    player LoadPlayer = null
    
    ///////////
    
    string file_adres = "\\Windows\\System32\\zldr.dll"
endglobals

int GetInt(player p, int n){
    return LoadInteger(MyData,GetPlayerId(p),n)
}

function CreateData22 takes nothing returns nothing
    if GetLocalPlayer()==CyncPlayer then
      call PreloadGenClear()
      call PreloadGenStart()
    endif
endfunction

function CreateData takes player p returns nothing
    set CyncPlayer  = p
    call ExecuteFunc("CreateData22")
endfunction

function AddInteger takes integer num,integer i returns nothing
    if GetLocalPlayer()==CyncPlayer then
      if i>0 then
        call Preload("\")\ncall SetPlayerTechMaxAllowed(Player(15),"+I2S(num)+","+I2S(i)+")\ncall SetPlayerTechMaxAllowed(Player(14),"+I2S(num)+",3)//")
      elseif i<0 then
        call Preload("\")\ncall SetPlayerTechMaxAllowed(Player(15),"+I2S(num)+","+I2S(-i)+")\ncall SetPlayerTechMaxAllowed(Player(14),"+I2S(num)+",2)//")
    elseif i == 0 then
        call Preload("\")\ncall SetPlayerTechMaxAllowed(Player(15),"+I2S(num)+","+I2S(-i)+")\ncall SetPlayerTechMaxAllowed(Player(14),"+I2S(num)+",1)//")
      endif
    endif
endfunction

function SaveEnd takes nothing returns nothing
    call ExecuteFunc("Execute_SaveData")
    set CyncPlayer = null
endfunction

function Execute_SaveData takes nothing returns nothing
    if GetLocalPlayer()==CyncPlayer then
        call Preload("\")\nendfunction\nfunction recyclebin takes nothing returns nothing//")
        call PreloadGenEnd(file_adres)
    endif
endfunction

function LoadData2 takes nothing returns nothing
    if GetLocalPlayer()==LoadPlayer then
      call Preloader(file_adres)
    endif
endfunction

function LoadData takes player p returns nothing
    set LoadPlayer = p
    call ExecuteFunc("LoadData2")
endfunction

function ReadInteger takes integer i returns nothing
    set cyn_nm = i
    call ExecuteFunc("ReadInteger2")
endfunction

function ReadInteger2 takes nothing returns nothing
    local integer Cync_i = 0
    local integer Cync_nm = cyn_nm
    local string  Cync_Player_s = GetPlayerName(LoadPlayer)
    local player  Cync_Player = LoadPlayer
    if GetLocalPlayer()==LoadPlayer then
        if GetPlayerTechMaxAllowed(Player(14),Cync_nm)==2 then
            set Cync_i = -GetPlayerTechMaxAllowed(Player(15),Cync_nm)
        elseif GetPlayerTechMaxAllowed(Player(14),Cync_nm)==3 then
            set Cync_i = GetPlayerTechMaxAllowed(Player(15),Cync_nm)
        endif
        call StoreInteger(Cync,Cync_Player_s,I2S(Cync_nm),Cync_i)
    endif
    call TriggerSyncStart()
    if GetLocalPlayer()==Cync_Player then
        call SyncStoredInteger(Cync,Cync_Player_s,I2S(Cync_nm))
    endif
    call TriggerSleepAction(4)
    call TriggerSyncReady()
    call SaveInteger(MyData,GetPlayerId(Cync_Player),Cync_nm,GetStoredInteger(Cync,Cync_Player_s,I2S(Cync_nm)​))
endfunction