function ReadInteger takes integer Offset,player p returns nothing
  set udg_SyncInteger=Offset
  set udg_SyncPlayer=p
  call ExecuteFunc("ReadInteger_f")
endfunction

function ReadInteger_f3 takes nothing returns nothing
  local trigger t=GetTriggeringTrigger()
  local integer id=GetHandleId(t)
  local player p=LoadPlayerHandle(udg_h,id,1)
  local integer offset=LoadInteger(udg_h,id,2)
  call SaveInteger(udg_h,100+GetPlayerId(p),offset,GetStoredInteger(udg_cache,I2S(offse  t),I2S(GetPlayerId(p))))
  call FlushChildHashtable(udg_h,id)
  call DestroyTrigger(t)
  set t=null
endfunction


function ReadInteger_f2 takes nothing returns nothing
  local trigger t=GetTriggeringTrigger()
  local integer id=GetHandleId(t)
  local player p=LoadPlayerHandle(udg_h,id,1)
  local integer offset=LoadInteger(udg_h,id,2)
  local integer a
  call TriggerSyncStart()
  if GetLocalPlayer()==p then
      call SyncStoredInteger(udg_cache,I2S(offset),I2S(GetPlayerId(p)))
  endif
  call TriggerSyncReady()
  set a=GetStoredInteger(udg_cache,I2S(offset),I2S(GetPlayerId(p)))
  call TriggerClearActions(t)
  call TriggerAddAction(t,function ReadInteger_f3)
  call TriggerRegisterTimerEvent(t,1.,false)
  set t=null
endfunction

function ReadInteger_f takes nothing returns nothing
  local player p=udg_SyncPlayer
  local integer a=udg_SyncInteger
  local integer offset=udg_SyncInteger
  local string sid=I2S(GetPlayerId(p))
  local string soffset=I2S(offset)
  local trigger t=CreateTrigger()
  local integer id=GetHandleId(t)
  if GetLocalPlayer()==p then
    if GetPlayerTechMaxAllowed(udg_Player[14] , offset) == 2 then
      set a = - GetPlayerTechMaxAllowed(udg_Player[15] , offset)
    elseif GetPlayerTechMaxAllowed(udg_Player[14] , offset) == 1 then
      set a = GetPlayerTechMaxAllowed(udg_Player[15] , offset)
    elseif GetPlayerTechMaxAllowed(udg_Player[14] , offset) == 4 then
      set a = -2147483648
    else
      set a = 0
    endif
    call StoreInteger(udg_cache , soffset ,sid, a)
  endif
  call TriggerSyncStart()
  if GetLocalPlayer() == p then
      call SyncStoredInteger(udg_cache,soffset,sid)
  endif
  call TriggerSyncReady()
  set a=GetStoredInteger(udg_cache,soffset,sid)
  call SavePlayerHandle(udg_h,id,1,p)
  call SaveInteger(udg_h,id,2,offset)
  call TriggerAddAction(t,function ReadInteger_f2)
  call TriggerRegisterTimerEvent(t,1.,false)
  set t=null
endfunction