Форумы Архив » Свалка Вопросы и ответы (старое, по 21.10.13)

class "se_turret_mgun" (cse_alife_helicopter)

function se_turret_mgun:__init(section) super(section)
self.spawner_present = false
self.health = 1.0
self.direction = vector():set(0, 0, 0)
end

function se_turret_mgun:can_switch_offline()
return cse_alife_helicopter.can_switch_offline(self)
end

function se_turret_mgun:can_switch_online()
if self.health <= 0.005 then
return false
end
if self.spawner_present == nil then
local ini = self:spawn_ini()
self.spawner_present = ini:section_exist("spawner")
end
if self.spawner_present == true then
return cse_alife_helicopter.can_switch_online(self)
end
return xr_spawner.check_spawn(self)
end

function se_turret_mgun:STATE_Read(packet, size)
cse_alife_helicopter.STATE_Read(self, packet, size)
self.health = packet:r_float()
self.direction = packet:r_vec3()
end

function se_turret_mgun:STATE_Write(packet)
cse_alife_helicopter.STATE_Write(self, packet)
packet:w_float(self.health)
packet:w_vec3(self.direction)
end

function heli_combat:read_custom_data( ini, section )
self.combat_use_rocket = utils.cfg_get_bool ( ini, section, "combat_use_rocket", self.object, false, true )
self.combat_use_mgun = utils.cfg_get_bool ( ini, section, "combat_use_mgun", self.object, false, true )
-- self.combat_ignore = utils.cfg_get_bool ( ini, section, "combat_ignore", self.object, false, false )

self.st.community = "military"

local combat_ignore = utils.cfg_get_string( ini, section, "combat_ignore", self.object, false, "", nil )
if combat_ignore then
self.combat_ignore = xr_logic.parse_condlist( self.object, section, "combat_ignore", combat_ignore )
else
self.combat_ignore = nil
end

local combat_enemy = utils.cfg_get_string( ini, section, "combat_enemy", self.object, false, "", nil )
self.combat_enemy = combat_enemy
self:set_enemy_from_custom_data( combat_enemy )

self.max_velocity = utils.cfg_get_number( ini, section, "combat_velocity", self.object, false, self.default_velocity )
self.safe_altitude = utils.cfg_get_number( ini, section, "combat_safe_altitude", self.object, false,
self.default_safe_altitude ) + self.level_max_y

self.section_changed = true
end

function check_rocket(target_id)
if target_id == nil then return false end
local target = level.object_by_id(target_id)
local prior = heli_target.get_target_priority(target)
if prior == 7 then
use_rocket = false -- Против вертушек бесполезны, просто не попасть
elseif prior == 6 then
use_rocket = true -- По БТР - самое оно
elseif prior == 5 and math.random() < 0.8 then
use_rocket = true -- По пулеметчикам - очень часто, они самые опасные
elseif prior == 4 and math.random() < 0.2 then
use_rocket = true -- С 20% вероятностью - по автоматчикам и сталкерам с винтовками
else
use_rocket = false -- На мутантов и слабо вооруженных сталкеров ракеты не переводим, пулемета выше крыши
end
return use_rocket
end

elseif self.state == flyby_state_to_enemy then
if not self.state_initialized then
self.heliObject:SetEnemy( self.enemy )
self.heliObject:UseFireTrail( false )
self.combat_use_rocket = check_rocket(self.enemy_id)
self.heliObject.m_use_rocket_on_attack = self.combat_use_rocket

self.flyby_states_for_one_pass = self.flyby_states_for_one_pass - 1
if self.flyby_states_for_one_pass <= 0 and not self.can_forget_enemy then
self.can_forget_enemy = true
end

self.state_initialized = true
end

local p = self.enemy_last_seen_pos
p:set( p.x, self.safe_altitude, p.z )

self.change_combat_type_allowed = distance_2d( self.object:position(), p ) > self.search_attack_dist

-- printf( "heli_combat:flyby_update_flight 2 SetDestPosition %f %f %f", p.x, p.y, p.z )
self.heliObject:SetDestPosition( p )
end
end

function heli_combat:flyby_update_shooting( see_enemy )
if see_enemy then
--self.heliObject:SetEnemy( self:lead_target(see_enemy) )
self.heliObject:SetEnemy( self.enemy )
self.heliObject.m_use_rocket_on_attack = self.combat_use_rocket
self.heliObject.m_use_mgun_on_attack = self.combat_use_mgun
else
if math.random() > 0.03 then -- с этой вероятностью может шарахнуть ракетой наугад, не видя цели
self.heliObject:ClearEnemy()
self.heliObject.m_use_rocket_on_attack = self.combat_use_rocket
self.heliObject.m_use_mgun_on_attack = self.combat_use_mgun
else
self.heliObject:SetEnemy( self.enemy )
self.heliObject.m_use_rocket_on_attack = true
self.heliObject.m_use_mgun_on_attack = false
end
end
end

function action_car:update(delta)

--' Апдейт объекта прицеливания
if self.object.health > 0 and car_trade.inside_the_car == true and car_trade.in_btr == true then
if car_trade.actor_target(self.object) then
car_trade.target = self.object:id()
end
end

if xr_logic.try_switch_to_another_section(self.object, self.st, db.actor) then
return
end
if self.combat_use_rocket = utils.cfg_get_bool ( ini, section, "combat_use_rocket", self.object, false, true )
if self.combat_use_mgun = utils.cfg_get_bool ( ini, section, "combat_use_mgun", self.object, false, true )
if self.car_use_rocket = utils.cfg_get_bool ( ini, section, "combat_use_rocket", self.object, false, true )
if self.car_use_mgun = utils.cfg_get_bool ( ini, section, "combat_use_mgun", self.object, false, true )
if self.btr_use_rocket = utils.cfg_get_bool ( ini, section, "combat_use_rocket", self.object, false, true )
if self.btr_use_mgun = utils.cfg_get_bool ( ini, section, "combat_use_mgun", self.object, false, true )
if self.use_rocket = utils.cfg_get_bool ( ini, section, "combat_use_rocket", self.object, false, true )
if self.use_mgun = utils.cfg_get_bool ( ini, section, "combat_use_mgun", self.object, false, true )
if self.destroyed then
xr_logic.switch_to_section(self.object, self.st, "nil")
return
end

if self.st.invulnerable then
self.object.health = self.def_health
end
end

--[[local bad_object_names = {"wpn_lr30053522", "wpn_lr30058409" } --"wpn_lr30025601", "wpn_lr30028817","wpn_lr30033589"
local i, se_name, se_obj

for i, se_name in ipairs(bad_object_names) do
se_obj = alife():object(se_name)
if se_obj then
news_manager.send_tip(db.actor,"Удалили глючный ствол:"..se_name,nil,nil,1000)
alife():release(se_obj, true)
end
end]]

Впиши этого кривого снайпера, предварительно раскомментировав, путём убирания скобок, что выделил красным т.е. сделай так:

local bad_object_names = {"wpn_lr30053522", "wpn_lr30058409", "ros_sniper2" } --"wpn_lr30025601", "wpn_lr30028817","wpn_lr30033589"
local i, se_name, se_obj

for i, se_name in ipairs(bad_object_names) do
se_obj = alife():object(se_name)
if se_obj then
news_manager.send_tip(db.actor,"Удалили глючный ствол:"..se_name,nil,nil,1000)
alife():release(se_obj, true)
end
end