Форумы Трилогия серии игр S.T.A.L.K.E.R » Модификации и квесты Вопросы и ответы [Тень Чернобыля]

Создаём новый файл, например _new_create.script и в нём вписываем нашу функцию:

---

function create_anom(name_anom, posit_anom, lvid_anom, gvid_anom, radius_anom, power_anom)
local obj = alife():create(name_anom, posit_anom, lvid_anom, gvid_anom)

-----------------------write----------------------
local packet = net_packet()
obj:STATE_Write(packet)

-------------------------load---------------------
-- cse_alife_object
local game_vertex_id = packet:r_u16()
local distance = packet:r_float()
local direct_control = packet:r_u32()
local level_vertex_id = packet:r_u32()
local object_flags = packet:r_u32()
local custom_data = packet:r_stringZ()
local story_id = packet:r_u32()
local spawn_story_id = packet:r_u32()

-- cse_shape
local shape_count = packet:r_u8()
for i=1,shape_count do
local shape_type = packet:r_u8()
if shape_type == 0 then
-- sphere
local center = packet:r_vec3()
local radius = packet:r_float()
else
-- box
local box = packet:r_matrix()
end
end

-- cse_alife_space_restrictor
local restrictor_type = packet:r_u8()

-- cse_alife_custom_zone
local max_power = packet:r_float()
local owner_id = packet:r_u32()
local enabled_time = packet:r_u32()
local disabled_time = packet:r_u32()
local start_time_shift = packet:r_u32()

-- cse_alife_anomalous_zone
local offline_interactive_radius = packet:r_float()
local artefact_spawn_count = packet:r_u16()
local artefact_position_offset = packet:r_u32()

-- se_zone_anom
local last_spawn_time_present = packet:r_u8()

local left = packet:r_elapsed()
if (string.find (name_anom, 'zone_zharka_static') ~= nil
or string.find (name_anom, 'zone_witches_galantine') ~= nil
or string.find (name_anom, 'zone_mosquito_bald') ~= nil
or string.find (name_anom, 'zone_mincer') ~= nil
or string.find (name_anom, 'zone_gravi_zone') ~= nil
or string.find (name_anom, 'zone_buzz') ~= nil )
and left ~= 0 then
abort("left=%d", left)
end

---------------------------save--------------------
-- cse_alife_object
packet:w_begin(game_vertex_id)
packet:w_float(distance)
packet:w_u32(direct_control)
packet:w_u32(level_vertex_id)
object_flags = bit_not(193)
packet:w_u32(object_flags)
packet:w_stringZ(custom_data)
packet:w_u32(-1)
packet:w_u32(spawn_story_id)

-- cse_shape
packet:w_u8(1) -- количество фигур
packet:w_u8(0) -- тип фигуры: сфера
packet:w_vec3(vector():set(0, 0, 0))
if radius_anom ~= nil then
packet:w_float(radius_anom)
else
packet:w_float(1.0)
end

-- cse_alife_space_restrictor
packet:w_u8(restrictor_type)

-- cse_alife_custom_zone
if power_anom ~= nil then
packet:w_float(power_anom)
else
packet:w_float(max_power)
end
packet:w_u32(owner_id)
packet:w_u32(enabled_time)
packet:w_u32(disabled_time)
packet:w_u32(start_time_shift)

-- cse_alife_anomalous_zone
packet:w_float(offline_interactive_radius)
packet:w_u16(artefact_spawn_count)
packet:w_u32(artefact_position_offset)

-- se_zone_anom
packet:w_u8(last_spawn_time_present)

------------------------read---------------------------
packet:r_seek(0)
obj:STATE_Read(packet, packet:w_tell())

end

---

Спавн аномалии производится из любой функции, таким образом:

_new_create.create_anom('name', pos, lv, gv, radius, power)

Где:

'name' --имя(тип) аномалии (в кавычках)
pos --позиция спавна аномалии vector():set(x,y,z)
lv --левел вертекс позиции спавна
gv --гейм вертекс позиции спавна
radius --радиус аномальной зоны (в метрах)
power --сила действия аномалии (1.0 равняется силе, прописанной в конфиге типа аномалии)

function del_nah()
local sim = alife()
local se_obj = sim:story_object(сид№1)
if se_obj then
sim:release(se_obj, true)
end
local sim = alife()
local se_obj = sim:story_object(сид№2)
if se_obj then
sim:release(se_obj, true)
end
end

Процессор AMD Athlon II X3 425 2.7GHz/1.5MB/2000MHz AM3
ASUS M3A-H/HDMI AMD 780G, 1xAM2+, 4xDDR2 DIMM, 1xPCI-E x16, встроенный звук: HDA, 7.1, встроенная графика,
Ethernet: 1000 Мбит/с, форм-фактор ATX, HDMI
Память DDR-II DIMM 1Gb PC2-6400 - 3 шт
ASUS Radeon HD 4870 ядро: 750 МГц, память: 512 Мб, GDDR5, 3600 МГц, 256 бит, DVI x2
HDD Samsung 1 TB 7200
HDD Western Digital 750 Гб Caviar Green 5400
БП OCZ 600W StealthXStream Power Supply *EOL

function init_commands_dialog(dlg)
mylog("init cmd dlg")
local phr, scr
phr=dlg:AddPhrase("Обращаюсь ко всем!",0,-1,0)
phr=dlg:AddPhrase("",1,0,0)
phr=dlg:AddPhrase("Двигаемся в таком порядке...",10,1,0)
phr=dlg:AddPhrase("Если увидел врага, то ",20,1,0)
phr=dlg:AddPhrase("Отбой. ",30,1,0)
phr=dlg:AddPhrase("",11,10,0)
phr=dlg:AddPhrase("",21,20,0)
phr=dlg:AddPhrase("я иду первым, вы за мной уступом.",100,11,0)
phr=dlg:AddPhrase("Никак нет, трщ командир. Выполнить не могу.",1000,100,0)
phr=dlg:AddPhrase("Это ещё почему?",10000,1000,0)
phr=dlg:AddPhrase("Не имею возможности! Туповат-с. Но обещаю исправится.",10001,10000,0)

phr=dlg:AddPhrase("идёте впереди, я сзади прикрываю.",101,11,0)
phr=dlg:AddPhrase("Товарищ командир разрешите обратиться!",1010,101,0)
phr=dlg:AddPhrase("Обращайтесь.",10100,1010,0)
phr=dlg:AddPhrase("Отставить разговорчики в строю!",10101,1010,0)
phr=dlg:AddPhrase("Команду выполнить не могу по причине мозговой травмы. Но скоро выздоровею.",10105,10100,0)
phr=dlg:AddPhrase("Есть!",10106,10101,0)

phr=dlg:AddPhrase("ждите меня здесь.",102,11,0)
phr=dlg:AddPhrase("Есть!",1020,102,0)
scr=phr:GetPhraseScript(phr)
scr:AddAction("actor_need_help.anh_set_state_wait")

phr=dlg:AddPhrase("как толпа баранов.",103,11,0)
phr=dlg:AddPhrase("Есть! Можно вопрос?",1030,103,0)
scr=phr:GetPhraseScript(phr)
scr:AddAction("actor_need_help.anh_set_state_normal")
phr=dlg:AddPhrase("Можно машку за ляжку. А тут... кх-кх. Спрашивай.",10300,1030,0)
phr=dlg:AddPhrase("Не 'можно', а 'разрешите обратиться'. Не разрешаю.",10301,1030,0)
phr=dlg:AddPhrase("А как это толпой баранов?",10395,10300,0)
phr=dlg:AddPhrase("Объясняю для тупых. Это значит организованно бегать вокруг меня взад-назад. Эта тактическая схема была разработана генш... Эээ... Разговорчики в строю! Выполнять приказ!",10396,10395,0)
phr=dlg:AddPhrase("Есть!",10397,10396,0)

phr=dlg:AddPhrase("без изменений, двигаемся как сейчас.",104,11,0)
phr=dlg:AddPhrase("Есть!",1040,104,0)

phr=dlg:AddPhrase("Рядовой, доложить порядок движения.",105,1,0)
phr=dlg:AddPhrase("Порядок движения - ждать здесь, трщ командир.",1050,105,0)
scr=phr:GetPhraseScript(phr)
scr:AddPrecondition("actor_need_help.anh_movstate_is_wait")
phr=dlg:AddPhrase("Молодец! Чего нам теперь ещё не хватает?",10500,1050,0)
phr=dlg:AddPhrase("Банки бодрящего и соленой рыбки, господин капрал! Э... Трщ командир!",10595,10500,0)
phr=dlg:AddPhrase("Ну мы это... как стадо баранов, в общем.",1051,105,0)
scr=phr:GetPhraseScript(phr)
scr:AddPrecondition("actor_need_help.anh_movstate_is_normal")
phr=dlg:AddPhrase("Никак нет! Приказа не имеем!",1052,105,0)
scr=phr:GetPhraseScript(phr)
scr:AddPrecondition("actor_need_help.anh_movstate_is_unknown")

phr=dlg:AddPhrase("убей вражину.",200,21,0)
phr=dlg:AddPhrase("открывай огонь только после меня.",201,21,0)
phr=dlg:AddPhrase("открывай огонь только если тебя заметили.",202,21,0)
phr=dlg:AddPhrase("реагируй как было сказано.",203,21,0)
phr=dlg:AddPhrase("Приказываю доложить ваши действия при появлении врага!",204,21,0)

-- scr=phr:GetPhraseScript(phr)
-- scr:AddAction("actor_need_help.show_dialog")
end


function show_dialog()
-- local spwn=ui_cheat.cheat(get_hud())
-- spwn:SetClGame(level.main_input_receiver())
-- level.start_stop_menu(spwn,true)
end

local cur_movstate=0

function anh_set_state_wait()
if db.tc then
db.tc:set_center_point(db.actor:position(),db.actor:level_vertex_id())
end
cur_movstate=1
xr_logic.pstor_store(db.actor,"wait_level",level.name())
store_movstate()
end

function anh_set_state_normal()
if db.tc then
db.tc:set_center_point(nil,nil)
end
cur_movstate=2
xr_logic.pstor_store(db.actor,"wait_level",nil)
store_movstate()
end

function anh_movstate_is_wait()
return cur_movstate~=nil and cur_movstate==1
end

function anh_movstate_is_normal()
return cur_movstate~=nil and cur_movstate==2
end

function anh_movstate_is_unknown()
return not (anh_movstate_is_wait() or anh_movstate_is_normal())
end

function store_movstate()
xr_logic.pstor_store(db.actor,"movstate",cur_movstate)
end

function get_movstate()
if db.actor then
return xr_logic.pstro_retrieve(db.actor,"movstate",0)
end
return 0 -- ХЗ
end

function restore_scheme_state()
local movstate=xr_logic.pstor_retrieve(db.actor,"movstate",0)
if movstate==1 then
anh_set_state_wait()
elseif movstate==2 then
anh_set_state_normal()
else
anh_set_state_normal()
end
end