globals gamecache udg_DinMass=null
//init mass
function MassInit takes string name returns  string
    call InitGameCacheBJ( name + ".w3v" )
    set udg_DinMass=GetLastCreatedGameCacheBJ()
endfunction 
//store int
function IS takes integer i, integer number,string mass returns nothing
    call StoreIntegerBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store real
function RS takes real i, integer number,string mass returns nothing
    call StoreRealBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store string
function IS takes string i, integer number,string mass returns nothing
    call StoreStringBJ(i,I2S(number),mass,udg_DinMass)
endfunction

globals 
    gamecache udg_DinMass=null
endglobals
//init mass
function MassInit takes string name returns nothing
    set udg_DinMass=InitGameCacheBJ( name+".w3v" )
endfunction 
//store int
function IS takes integer i, integer number,string mass returns nothing
    call StoreIntegerBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store real
function RS takes real i, integer number,string mass returns nothing
    call StoreRealBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store string
function IS2 takes string i, integer number,string mass returns nothing
    call StoreStringBJ(i,I2S(number),mass,udg_DinMass)
endfunction

globals 
gamecache udg_DinMass=null
endglobals
//init mass
function MassInit takes string name returns nothing
    call InitGameCacheBJ( name + ".w3v" )
    set udg_DinMass=GetLastCreatedGameCacheBJ()
endfunction 
//store int
function IS takes integer i, integer number,string mass returns nothing
    call StoreIntegerBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store real
function RS takes real i, integer number,string mass returns nothing
    call StoreRealBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store string
function SS takes string i, integer number,string mass returns nothing
    call StoreStringBJ(i,I2S(number),mass,udg_DinMass)
endfunction

//********************************************************************************  *****************
//                                        Handler 0.00.0                                          *
//********************************************************************************  *****************
//                                       Support Functions                                        *
//********************************************************************************  *****************
function H2I takes handle H returns integer
    return H
    return 0
endfunction

function H2S takes handle H returns string
     return I2S(H2I(H)) 
endfunction     

function Cache takes nothing returns gamecache
    if udg_Cache == null then
        call FlushGameCache(InitGameCache("Engine.J"))
        set udg_Cache = InitGameCache("Engine.J")
    endif
    return udg_Cache
endfunction
//********************************************************************************  *****************
//                                            Locals                                              *
//********************************************************************************  *****************
//T == Target                                                                                     *
//N == Name                                                                                       *
//D == Data to set                                                                                *
//********************************************************************************  *****************
function SetHandle takes handle T,string N,handle D returns nothing
    if D == null then
        call FlushStoredInteger(Cache(),H2S(T),N)
    else
        call StoreInteger(Cache(),H2S(T),N,H2I(D))
    endif
endfunction

function SetInt takes handle T,string N,integer D returns nothing
    if D == 0 then
        call FlushStoredInteger(Cache(),H2S(T),N)
    else
        call StoreInteger(Cache(),H2S(T),N,D)
    endif
endfunction

globals 
gamecache udg_DinMass=null
integer maxe
endglobals
//init mass
function MassInit takes string name returns nothing
    call InitGameCacheBJ( name + ".w3v" )
    set udg_DinMass=GetLastCreatedGameCacheBJ()
endfunction 
//store int
function IS takes integer i, integer number,string mass returns nothing
    call StoreIntegerBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store real
function RS takes real i, integer number,string mass returns nothing
    call StoreRealBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store string
function SS takes string i, integer number,string mass returns nothing
    call StoreStringBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//clear mass,not full
function GOFO takes integer min,integer max,string mass, string mtype returns nothing
    local integer i
    loop
    seti=min
    exitwhen i>max
        if (mtype=='i') then
          call IS(null,i,mass)
        else
            if (mtype=='r') then
              call RS(null,i,mass)
           else
             if (mtype=='s') then
               call SS(null,i,mass)
             else
             endif
           endif
        endif
    endloop
endfunction

//вотя


//************************
//             DeT'S Inc.
//************************

globals 
gamecache udg_DinMass=null
integer maxe
endglobals
//init mass
function MassInit takes string name returns nothing
    call InitGameCacheBJ( name + ".w3v" )
    set udg_DinMass=GetLastCreatedGameCacheBJ()
endfunction 
//store int
function IS takes integer i, integer number,string mass returns nothing
    call StoreIntegerBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store real
function RS takes real i, integer number,string mass returns nothing
    call StoreRealBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//store string
function SS takes string i, integer number,string mass returns nothing
    call StoreStringBJ(i,I2S(number),mass,udg_DinMass)
endfunction
//clear mass,not full
function GOFO takes integer min,integer max,string mass, string mtype returns nothing
    local integer i=min
    loop
    exitwhen i>max
        if (mtype=="i") then
          call IS(0,i,mass)
        else
            if (mtype=="r") then
              call RS(0.0,i,mass)
           else
             if (mtype=="s") then
               call SS(null,i,mass)
             else
             endif
           endif
        endif
    endloop
endfunction

//Full Clear
function FC takes string mass returns nothing
    call FlushStoredMissionBJ(mass, udg_DinMass)
endfunction