LVZ RailWorks

----------------------------------------LVZ-----------------------------------------------
local LVZnapeti = Call("GetControlValue", "LVZnapeti", 0) --nacti hodnotu Vmetru do promenne
local LVZrezim = Call("GetControlValue", "LVZrezim", 0) --nacti hodnotu voliciho prepinace do promenne
local LVZstanoviste = Call("GetControlValue", "LVZstan", 0) --nacti hodnotu aktivniho stanoviste do promenne
local LVZvypinac = ToBolAndBack(Call("GetControlValue", "LVZhv", 0)) --vrat bool pro stav HV LVZ
local LVZstart = ToBolAndBack(Call("GetControlValue", "LVZstart", 0)) --vrat bool pro tlacitko startu bezkontaktniho menice
local LVZzkouseni = false --definuj volbu zkouseni

if baterie == 1 then
    if LVZnapeti < 1 and LVZvypinac then --pokud je napeti mensi nez 1 (24V) a je sepnuty vypinac VZ
        LVZnapeti = LVZnapeti + cas --napeti roste umerne s casem PC - kompenzace malych FPS
        Call("SetControlValue", "LVZnapeti", 0, LVZnapeti) --zapis hodnoty Vmetru
    end

    if LVZvypinac and LVZrezim < 0.25 and releEPV and soupatkoVZ == 0 then --pokud je zapaty HV, rezim je provoz, bezkontaktni menic bezi a je natazene soupatko, je VZ aktivni
        kontrolaBdelosti = true
    elseif LVZvypinac and LVZrezim < 0.25 then --pokud je zapaty HV a rezim je provoz a zaroven neni natazene soupatko, nebo vubec nebezi bezkontaktni menic
        releEPV = false --rozhod rele EPV
        kontrolaBdelosti = false
        soupatkoVZ = 1 --odpadni soupatko
    end
    if LVZvypinac and releEPV and LVZrezim > 0.25 and LVZrezim < 0.75 and soupatkoVZ == 0 then --je zapate HV, menic bezi, rezim je zkouseni a je natazene soupatko
        kontrolaBdelosti = true
        LVZzkouseni = true --aktivuj volbu "zkouseni"
    elseif LVZvypinac and LVZrezim > 0.25 and LVZrezim < 0.75 then --pokud je zapaty HV a rezim je testovani a nejsou splnene podm. vyse
        releEPV = false --rozhod rele EPV
        kontrolaBdelosti = false
        soupatkoVZ = 1 --odpadni soupatko
    end
    if LVZstart and LVZrezim > 0.75 and LVZvypinac then --pokud je rezim postrk a je zapaty vypinac, je mozne nazhavit bezkontaktni menic
        releEPV = true --natahni rele EPV
        soupatkoVZ = 0 --natahuje soupatko
    end
    if LVZrezim > 0.75 then --pokud je rezim postrk
        kontrolaBdelosti = false
        if not LVZvypinac then --zaroven pokud je zapaty HV
            soupatkoVZ = 0 --pritahni soupatko
        end
    end
    if not LVZvypinac then --pokud je vypaty vypinac LVZ
        releEPV = false --rozhod rele EPV
        kontrolaBdelosti = false
        if LVZrezim < 0.75 then --pokud je rezim vlak
            soupatkoVZ = 1 --odpada soupatko - v rezimu postrk zustava, soupatko drzi
        end
        Call("SetControlValue", "LVZmenic", 0, 0)
    else --pokud bezi bezkontaktni menic, tj. je zapaty HV a baterie, sviti jeho kontrolka
        Call("SetControlValue", "LVZmenic", 0, 1)
    end
end

if LVZnapeti > 0 and (not LVZvypinac or baterie ~= 1) then --pokud je na Vmetru napeti a je vypaty HV
    LVZnapeti = LVZnapeti - cas*2 --zmiz napeti
    Call("SetControlValue", "LVZnapeti", 0, LVZnapeti) --zapis napeti
end

--zakomentovane, LVZ ma vlastni privod mimo stykac baterii

if baterie ~= 1 then
    releEPV = false --rozhod rele EPV
    soupatkoVZ = 1
    kontrolaBdelosti = false
    Call("SetControlValue", "LVZmenic", 0, 0)
end

if LVZrezim > 0.75 then  --rezim posun
    if baterie == 1 and LVZstanoviste < 0.5 then --pokud je zapnuty HV, sviti vybaveni
        Call("SetControlValue", "LVZzivak", 0, 1)
    else
        Call("SetControlValue", "LVZzivak", 0, 0)
    end
end

Call("SetControlValue", "LVZvybaveni", 0, Call("GetControlValue","LVZzivak",0)) --kontrolka vybaveni

local kodNavesti = LVZ(Call("GetControlValue","SkutecnyKod",0),Call("GetControlValue","LVZzivak",0),cas,ToBolAndBack(Call("GetControlValue", "LVZmenic", 0)) and LVZstanoviste < 0.5)
--zavolej fci LVZ (fakove poruchy prenosu) a predej ji:
--      -skutecny prijaty kod z navestidla
--      -stav kontrolky vybaveni
--      -cas od posledniho update, ale realny z PC, nikoli "skoro cas" ze hry
--      -info o zapnutem / vypnutem LVZ

Call("SetControlValue","Mirel",0, kodNavesti) --watafuck??? Sorry, ale fakt netusim :D

if kontrolaBdelosti and baterie == 1 and soupatkoVZ == 0 then --samotna LVZ
    LVZtimer = LVZtimer + cas
    if LVZreset <= 0.25 and LVZresetOld == 1 and LVZstanoviste < 0.5 then
        if LVZtimer > 7 then
            LVZtimer = 0
        end
        LVZresetOld = 0
    end
    if valcePrimocinne >= 1.8 and not LVZzkouseni then
        LVZtimer = 0
    end
    if kodNavesti == 2 or kodNavesti == 4 then
        if LVZreset >= 0.25 and LVZstanoviste < 0.5 then
            nadbytecnaObsluha = true
            Call ("SetControlValue", "ZivakPip", 0, 1)
        end
        if LVZtimer > 10 then
            LVZtimer = 10
        end
    end
    if LVZreset <= 0.25 or LVZstanoviste > 0.5 then
        nadbytecnaObsluha = false
    end
    if LVZtimer <= 7 and LVZstanoviste < 0.5 then
        Call ("SetControlValue", "LVZzivak", 0, 1)
        if not nadbytecnaObsluha then
            Call ("SetControlValue", "ZivakPip", 0, 0)
        end
    elseif LVZtimer <= 15 and LVZstanoviste < 0.5 then
        if LVZreset >= 0.25 then
            Call ("SetControlValue", "LVZzivak", 0, 1)
        else
            Call ("SetControlValue", "LVZzivak", 0, 0)
        end
        if not nadbytecnaObsluha then
            Call ("SetControlValue", "ZivakPip", 0, 0)
        end
    elseif LVZtimer <= 19 and LVZstanoviste < 0.5 then
        if LVZreset >= 0.25 then
            Call ("SetControlValue", "LVZzivak", 0, 1)
        else
            Call ("SetControlValue", "LVZzivak", 0, 0)
        end
        Call ("SetControlValue", "ZivakPip", 0, 1)
    elseif LVZtimer > 19 then
        Call ("SetControlValue", "ZivakPip", 0, 0)
        if LVZreset >= 0.25 and LVZstanoviste < 0.5 then
            Call ("SetControlValue", "LVZzivak", 0, 1)
        else
            Call ("SetControlValue", "LVZzivak", 0, 0)
        end
        soupatkoVZ = 1
    elseif LVZstanoviste > 0.5 then
        Call ("SetControlValue", "LVZzivak", 0, 0)
    end
else
    Call ("SetControlValue", "ZivakPip", 0, 0)
    Call ("SetControlValue", "LVZzivak", 0, 0)
    LVZtimer = 0
end