function HackAct takes nothing returns nothing
    local player pl = GetTriggerPlayer()
    local timer t2 = LoadTimerHandle(udg_hash, GetHandleId(pl),2)
    local triggeraction ta = LoadTriggerActionHandle(udg_hash,GetHandleId(GetTriggeringTrigger()),1)
    call BJDebugMsg("...CONFIRM...")
    call DestroyTimer(t2)
    set t2 = null
    set pl = null
    call TriggerRemoveAction(GetTriggeringTrigger(),ta)
    call FlushChildHashtable(udg_hash,GetHandleId(GetTriggeringTrigger()))
    call DestroyTrigger(GetTriggeringTrigger())
    
endfunction

function HackError takes nothing returns nothing
    local timer t2 = GetExpiredTimer()
    local player pl = LoadPlayerHandle(udg_hash,GetHandleId(t2),0)
    local triggeraction ta = LoadTriggerActionHandle(udg_hash,GetHandleId(t2),1)
    call TriggerRemoveAction(LoadTriggerHandle(udg_hash,GetHandleId(t2),2),ta )
    call DestroyTrigger(LoadTriggerHandle(udg_hash,GetHandleId(t2),2))
    call BJDebugMsg("ERROR! HackingAttempt!")
    call SaveInteger(udg_hash, GetHandleId(pl),3,-1)
    call DestroyTimer(t2)
    call DestroyTimer(LoadTimerHandle(udg_hash,GetHandleId(t2),3))
    set t2 = null
    set pl = null
endfunction

function Hack takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local timer t2
    local string str = I2S(GetRandomInt(0,9))
    local trigger trg = CreateTrigger()
    local player pl = LoadPlayerHandle(udg_hash, GetHandleId(t), 0)
    local integer steps = LoadInteger(udg_hash, GetHandleId(pl), 3)

    if steps == 0 then
        call BJDebugMsg("!!!Succesful Hack!!!")
        call FlushChildHashtable(udg_hash,GetHandleId(t))
        call DestroyTimer(t)
        set t = null
        set t2 = null
        return 
    elseif steps == -1 then
        call BJDebugMsg("!!!ALARM!!!INTRUDER!!!")
    else   
        set steps = steps-1
        call SaveInteger(udg_hash, GetHandleId(pl),3,steps)
        call BJDebugMsg(str)
//Создаем таймер для провала
        set t2 = CreateTimer()
        call SaveTimerHandle(udg_hash, GetHandleId(pl),2,t2)
        call SavePlayerHandle(udg_hash, GetHandleId(t2),0,pl)
        call SaveTimerHandle(udg_hash, GetHandleId(t2),3,t)
        call TimerStart(t2,2,false,function HackError)
//Создаем триггер для успеха
        call TriggerRegisterPlayerChatEvent(trg, pl,str,true)
        local triggeraction ta = TriggerAddAction(trg, function HackAct)
        call SaveTriggerActionHandle(udg_hash, GetHandleId(t2),1,ta)
        call SaveTriggerActionHandle(udg_hash, GetHandleId(trg),1,ta)
        call SaveTriggerHandle(udg_hash,GetHandleId(t2),2,trg)
    endif
endfunction    
    
function HackingAttempt takes real lockClass, integer steps, player whichPlayer returns nothing
    local player pl=whichPlayer
    local timer t=CreateTimer()
    local real r = lockClass*0.3+(I2R(udg_SKLDecking[GetPlayerId(pl)])*0.1)
    call SaveInteger(udg_hash,GetHandleId(pl),3,steps)
    call SavePlayerHandle(udg_hash,GetHandleId(pl),0,pl)
    call SaveTimerHandle(udg_hash,GetHandleId(pl),1,t)
    call SavePlayerHandle(udg_hash,GetHandleId(t),0,pl)
    call TimerStart(t,r,true,function Hack)
endfunction