--'*******************************************************************************
--' ** ** ** ** ** ** ** ** OUTFIT_HUD ** ** ** ** ** ** ** ** **
--'*******************************************************************************
local currhud
local curr_tex
local cur_weapon_fov

local hud_tbl={
--hud_gaz
svoboda_gaz_outfit_m1="hud_gaz",
dolg_gaz_outfit_m1="hud_gaz",
neytral_gaz_outfit_m1="hud_gaz",
neytral_novice_gaz_outfit_m1="hud_gaz",
svoboda_heavy_gaz_outfit_m1="hud_gaz",
bandit_gaz_outfit_m1="hud_gaz",
--hud_exo
neytral_exo_gaz_outfit_m1="hud_gaz",
svoboda_yellow_exo_outfit_m1="hud_exo",
exo_outfit="hud_exo",
--hud_merc
killer_gaz_outfit_m1="hud_merc",
--hud_sci
dolg_scientific_outfit="hud_sci",
ecolog_outfit="hud_sci",
protection_outfit="hud_sci",
scientific_outfit="hud_sci",
--hud_military
military_outfit="hud_military",
militaryspec_outfit="hud_military"
}

local current_static
local static_enabled
local current_zoom=1
update_hud=false

function set_hud_tex(static,enabled)
local zoom=67.5/device().fov
zoom=(zoom-1)*1.5+1
if zoom<1.001 then
zoom=1.001
end
local stretchy=0.75/(math.floor(device().aspect_ratio*1000)/1000)
if stretchy<1 then stretchy=1 end
local rect={x=-768*zoom+768,y=(-512*zoom+512)*stretchy-(stretchy-1)*300,w=1024*zoom,h=768*zoom*stretchy}
if amk.load_variable("option_hud",2)==2 then
set_blurs(enabled and curr_tex~="hud_sci" and static~=nil,rect)
else
set_blurs(false,rect)
end
if enabled==static_enabled and current_static==static and
zoom==current_zoom and (not update_hud) then
return
end
update_hud=false
current_zoom=zoom
local need_change=false
if current_static~=static then
if current_static then
get_hud():RemoveCustomStatic(current_static)
end
if static then
get_hud():AddCustomStatic(static)
end
need_change=true
current_static=static
end
local wnd=get_hud():GetCustomStatic(current_static) and
get_hud():GetCustomStatic(current_static):wnd()
if (not enabled) and wnd then
wnd:SetWidth(0)
elseif wnd then
wnd:SetWndRect(rect.x,rect.y,rect.w,rect.h)
end
static_enabled=enabled
end

local blurs=nil
local blurval=0 -- уровень запотевания от 0 до 1
local blurlt=0 -- время последнего обновления
local blurcyctime=0 -- время начала последнего цикла дыхания (выдох)
local blurlastphase=0

function set_blurs(enabled,rect)
if (not blurs) or get_hud():GetCustomStatic("hud_blur1")==nil then
blurs={}
for i=1,4 do
get_hud():AddCustomStatic("hud_blur"..i)
blurs[i]=get_hud():GetCustomStatic("hud_blur"..i):wnd()
blurs[i]:SetWidth(0)
end
end
if not enabled then
for i=1,4 do
blurs[i]:SetWidth(0)
end
return
end

-- Циклы в зависимости от силы дыхания: 0->1->0 0->1->2->4->5->0 0->1->2->3->4->5->0 5->4->3->4->5 4->3->4
local power=db.actor.power
local period=1.0+power*power*1.0 -- текущая частота дыхания от 30 до 120 циклов в минуту
local expirt=0.3
local breathpower=3

local delta=(time_global()-blurlt)/1000 -- дельта в секундах
local phase=(time_global()-blurcyctime)/1000 -- фаза дыхательного цикла в сек.
blurlt=time_global()
if phase>period then
phase=phase%period
blurcyctime=blurlt-phase*1000
end
if blurlastphase>phase then
blurlastphase=0
end

local blurdelta=delta*-0.7 -- работа вентилляции
if blurlastphase<expirt and phase<expirt then
blurdelta=blurdelta+(phase-blurlastphase)*breathpower
elseif blurlastphase<expirt then
blurdelta=blurdelta+(expirt-blurlastphase)*breathpower
end
blurlastphase=phase

blurval=blurval+blurdelta
if blurval>0.999 then
blurval=0.999
elseif blurval<0 then
blurval=0
end

local tm=math.floor(blurval*3)
local tmn=(tm+1)
local v=blurval*3-math.floor(blurval*3)
v=1-v
local v1=1-v
if tm~=0 then
blurs[tm]:SetColor(GetARGB(v*255,255,255,255))
end
if tmn~=0 then
blurs[tmn]:SetColor(GetARGB(v1*255,255,255,255))
end
for i=1,4 do
if i==tm or i==tmn then
blurs[i]:SetWndRect(rect.x,rect.y,rect.w,rect.h)
else
blurs[i]:SetWndRect(rect.x,rect.y,0,0)
end
end
end

local lhup=0
function check_hud()
local hudotf,actor
if db and db.actor then
actor=db.actor
else
return false
end

if amk.is_debug then
if lhup<time_global() then
lhup=time_global()+1000
local wnd
while true do
wnd=get_hud():GetCustomStatic("hud_coord") and
get_hud():GetCustomStatic("hud_coord"):wnd()
if wnd then break end
get_hud():AddCustomStatic("hud_coord")
end

local dir=device().cam_dir
local a=vector()

a.x=math.atan2(-dir.y,dir.z)
a.y=math.atan2(-dir.x,dir.z)
a.z=math.atan2(-dir.y,dir.x)

local pos=device().cam_pos
local act_pos=actor:position()
local lvid=actor:level_vertex_id()
local gvid=actor:game_vertex_id()
local vdist=level.vertex_position(lvid):distance_to(actor:position())
local aid,apos,arad,adist=amk_anoms.get_nearest_anomaly(db.actor)
local msg
if aid then
local an=level.object_by_id(aid)
if an then
local anname=an:name()
local sid=an:story_id()
msg=string.format("actor: x %.2f y %.2f z %.2f lvid %d gvid %d lv_dist %.1f\\ncam pos: x %.2f y %.2f z %.2f\\ncam angles: %.2f %.2f %.2f\\nanom %s sid %d dist %.1f",act_pos.x,act_pos.y,act_pos.z,lvid,gvid,vdist,pos.x,pos.y,pos.z,a.x,a.y,a.z,anname,sid,adist)
end
else
msg=string.format("actor: x %.2f y %.2f z %.2f lvid %d gvid %d lv_dist %.1f\\ncam pos: x %.2f y %.2f z %.2f\\ncam angles: %.2f %.2f %.2f", act_pos.x,act_pos.y,act_pos.z,lvid,gvid,vdist,pos.x,pos.y,pos.z,a.x,a.y,a.z)
end
wnd:SetTextST(msg)
end
end

local hudotf=actor:get_current_outfit()
local hudotf_id="nil"
if hudotf then
hudotf_id=hudotf:section()
end
local tex
if hudotf_id then
tex = hud_tbl[hudotf_id]
end
curr_tex=tex
local act_it=db.actor:active_item()

if db.actor.health>0 and not (act_it and act_it:section()=="wpn_binoc" and device().fov<50) and device().fov>30 and amk.load_variable("option_hud",2)~=0 then
set_hud_tex(tex,true)
else
set_hud_tex(tex,false)
end

if (ui_rad and db.actor.health>0 and amk.load_variable("option_rad",1) ~= 0) then
if act_it and act_it:section()=="wpn_binoc" then
local zoom=67.5/device().fov
zoom=(zoom-1)*1.5+1
if zoom<1.001 then zoom=1.001 end
if zoom > 1.3 then
ui_rad.update(false)
else
ui_rad.update(true)
end
else
ui_rad.update(true)
end
elseif (ui_rad) then
ui_rad.update(false)