e4s-sdk/gamedata/scripts/heli_fire.script

--[[------------------------------------------------------------------------------------------------
Helicopter combat
Àíäðóùåíêî Èâàí

--------------------------------------------------------------------------------------------------]]
local heli_firer = {}

function get_heli_firer(obj)
    if heli_firer[obj:id()] == nil then
        heli_firer[obj:id()] = heli_fire(obj)
    end
    return heli_firer[obj:id()]
end

class "heli_fire"

function heli_fire:__init(obj)
	self.obj            = obj
    self.enemy_         = nil
    self.fire_point     = nil
    self.enemy          = nil
    self.enemy_id       = nil
    self.flag_by_enemy  = true
    self.hit_count      = 0
    self.fire_id        = nil
    self.enumy_die      = true
    self.enemy_time     = time_global()
    self.upd_vis        = 0
    self.show_health    = false
    
end

function heli_fire:update_enemy_state()
    local heli = self.obj:get_helicopter()
--'    printf("update_enemy_state()")
    if self.hit_count > 2 then
        self.hit_count = 0
        self.flag_by_enemy  = true
    end
    if self.enemy and self.enemy_die and self.enemy_ == "all" then
        self:update_enemy_arr()
    end
    if self.enemy and time_global() - self.enemy_time > self.upd_vis * 1000 then
        --'printf("self.upd_vis  = %d", self.upd_vis);
        if not heli:isVisible( self.enemy )then
            if self.enemy_ == "all" then
                self:update_enemy_arr()
            end
        end
        self.enemy_time = time_global()
    end
    if self.enemy then
        if not heli:isVisible( self.enemy )then
            self.flag_by_enemy = true
        end
    end

    self:set_enemy()
end

function heli_fire:cs_heli() 		
    local hud = get_hud()
	local custom_static = hud:GetCustomStatic("cs_heli_health")
	if custom_static == nil then
		hud:AddCustomStatic("cs_heli_health", true)
        local xml = CScriptXmlInit()
        xml:ParseFile("heli_progress.xml")
        local st = hud:GetCustomStatic("cs_heli_health")
        local w = st:wnd()
        self.heli_progress = xml:InitProgressBar ("heli_health", w )
        self:set_cs_heli_progress_health()
	end
end

function heli_fire:set_cs_heli_progress_health()
    local heli = self.obj:get_helicopter()
    local hud = get_hud()
	local custom_static = hud:GetCustomStatic("cs_heli_health")
    local xml = CScriptXmlInit()
    xml:ParseFile("heli_progress.xml")
	if custom_static then
		hud:AddCustomStatic("cs_heli_health", true)
        local st = hud:GetCustomStatic("cs_heli_health")
        local w = st:wnd()
        local _progr = heli:GetfHealth()*100
        if _progr > 0 then
            self.heli_progress:Show(true)
            self.heli_progress:SetProgressPos(_progr)
        else
            self.heli_progress:Show(false)
            self.show_healt = false
            hud:RemoveCustomStatic("cs_heli_health")
        end
	end
end

function heli_fire:cs_remove()
    local hud = get_hud()
    local custom_static = hud:GetCustomStatic("cs_heli_health")
    if custom_static then
        hud:RemoveCustomStatic("cs_heli_health")
    end
end

function heli_fire:set_enemy()

    local heli = self.obj:get_helicopter()
    if self.flag_by_enemy then
        heli:ClearEnemy()
        --'printf("ClearEnemy()")
        self.enemy_die = false
        if self.enemy then
		    if heli:isVisible( self.enemy ) then
			    heli:SetEnemy( self.enemy)
                self.flag_by_enemy = false
		    end
        else
            if self.enemy_ then
		        if self.enemy_ == "actor" then
    		        if db.actor then
                        self.enemy = db.actor
                    end
                else
                    if self.enemy_ == "all" then
                        self:update_enemy_arr()
                    else
                        if self.enemy_ ~= "nil" then
                            self.enemy_id = id_by_sid( tonumber( self.enemy_ ) )
                            self.enemy = level.object_by_id( self.enemy_id )
                        end
                    end
                end
            end
            if self.enemy then
                heli:SetEnemy( self.enemy)
                --'printf("set_enemy(self.enemy, actor or SID)")
            else
                self.enemy_die = true
            end
            self.flag_by_enemy = false
        end
    end
    if not self.enemy_die and self.enemy:death_time() > 0 then
        --'printf("ClearEnemy()")
        heli:ClearEnemy()
        self.enemy_die = true
    end
    if self.enemy_die and self.fire_point then
        heli:SetEnemy(self.fire_point)
    end
end

function heli_fire:update_hit()
    if self.show_health then
        self:set_cs_heli_progress_health()
    else
        self:cs_remove()
    end
    if self.enemy:id() == self.fire_id then
        if self.enemy_ ~= "nil" then
            self.hit_count = self.hit_count + 1
	else 
		self.hit_count = 0
        end
    else
        self.fire_id = self.enemy:id()
        self.hit_count = 1
    end
end

function heli_fire:update_enemy_arr()
    --'printf("update_enemy_arr()")
    local heli = self.obj:get_helicopter()
    local index = 0
    local min_dist2D = 65000
   --' printf("heli_enemy_count=%d", db.heli_enemy_count)
    while index < db.heli_enemy_count do
        if db.heli_enemies[index] then
            if heli:isVisible( db.heli_enemies[index] ) then
                if distance_2d( self.obj:position(), db.heli_enemies[index]:position() ) < min_dist2D then
                    self.enemy = db.heli_enemies[index]
                    min_dist2D = distance_2d( self.obj:position(), db.heli_enemies[index]:position() )
                    self.flag_by_enemy  = true
                end
            end
        end
        index = index + 1
    end
    if heli:isVisible( db.actor ) and random_choice( false, true) or db.heli_enemy_count==0 then
        if distance_2d( self.obj:position(), db.actor:position() ) <= min_dist2D*2 then 
            self.enemy = db.actor
            min_dist2D = distance_2d( self.obj:position(), db.actor:position() )
        end
    end
end

function distance_2d( a, b )
	return math.sqrt( (b.x-a.x)^2 + (b.z-a.z)^2 )
end