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

вот пример скриптового рестриктора с динамическими ltx, который разработал singapur22

function spawn_restrictor()
local sid = nil
local pos = vector():set(-229.616,-20.199,-147.374) --\ координаты центра рестриктора
local lv = 25279
local gv = 47
local radius = nil
local x = 10 --\ размер по x - длина
local y = 10 --\размер по y - высота
local z = 10 --\размер по z ширина - в итоге имеем квадрат 10x10x10 метров
local ltx = "[logic]\n"..
"active = sr_idle\n"..

"[sr_idle]\n"..
"on_actor_inside = sr_idle@1 %=spawn%\n"..

"[sr_idle@1]\n"..
"on_actor_outside = sr_idle@nil\n"..

"[sr_idle@nil]"

this.create_restr(sid, pos, lv, gv, ltx, radius, x, y, z)

end

На вход в рестриктор сработает функция spawn, в которой нужно прописать кто и сколько должен заспавниться. Функция сработает одноразово - так как ей прописано затем уйти в nil . После рестриктор перейдет в состояние sr_idle@1 , а когда ГГ покинет рестриктор - тот самоликвидируется.

все подробности читай в его журнале, там же нужно брать и основную функцию для создания рестриктора, так как этот пример - только функция с данными. Схема логики - готовый вариант, который можно использовать.
Все это пишется в один файл.
ссылка на журнал
http://www.stalker-portal.ru/plug.php?e=weblogs&m=page&id=7306

да, забыл добавить: функцию спавна надо обязательно положить в файл xr_effects - так как из логики активируются тока функции из этого файла.

Так, вариант с nil в строчке "on_actor_inside = sr_idle@1 %=spawn%\n" не прокатил.
Так что исправил. А в остальном все норм. - чувачки заспавнились как тока эктор пересек границу рестриктора, затем рестриктор самоуничтожился и солдатики больше не спавнились.
Рестриктор - для того, чтобы он заспавнился тоже надо активировать - либо через диалог, либо банально через функцию function actor_binder:on_item_drop (obj) в bind_stalker.
Но для того, чтобы он не заспавнился снова, нужно поставить условие в виде отсутствия инофопоршня, который затем - в конце функции выдать. Это все можно сделать в функции спавна рестриктора. Либо в отдельной функции.

вот пример функции для активации рестриктора
еe надо ставить ставить на апдейт в function actor_binder:update(delta) - типа так имя_файла.function activate()

саму функцию туда же где и рестриктор.

function activate()
if level.name() == "l01_escape" and --\ пишешь нужный уровень
db.actor:has_info("info_1") and db.actor:dont_has_info("info_2") then --\ нужно будет выдать поршень - через диалог или логику непися.
this.spawn_restrictor() --\ активируем рестриктор
--db.actor:disable_info_portion ("info_1") -- убираем поршень - строчка не обязательна
db.actor:give_info_portion ("info_2") -- выдаем поршень, чтобы рестриктор больше не активировался.
end
end

если убрать условие в виде db.actor:has_info("info_1") то рестриктор заспавнится сразу как будет загружен указанный уровень.
функция сработает один раз и все. После ликвидации рестриктора второй раз он не заспавнится.

--------------------------------------------------------------------------------------------------
--/ Интерфейс опций для починки брони и оружия (с ремонтным набором)
---------------------------------------------------------------------------------------------------

class "ui_repair" (CUIScriptWnd)

function ui_repair:__init() super()
self:InitControls()
self:InitCallBacks()
end

function ui_repair:__finalize() end

function ui_repair:InitControls()
local scr = {x = 0, y = 0, width = 1024, height = 768}
local win = {x = 0, y = 0, width = 260, height = 300}
win.x = (scr.width - win.width )/2 + 25
win.y = (scr.height - win.height)/2 + 50
self:Init(win.x, win.y, win.width, win.height) --/ координаты левого верхнего угла и ширина-высота
self:Enable(true)
local xml = CScriptXmlInit() --/ файл-описатель элементов
xml:ParseFile("ui_repair.xml")
xml:InitStatic("background", self) --/ рамка
--xml:InitStatic("back_video", self) --/ видео на заднем плане
self:Register(xml:Init3tButton("caption", self),"caption") --/ заголовок
--/ кнопки
self:Register(xml:Init3tButton("btn_1", self),"btn_1")
self:Register(xml:Init3tButton("btn_2", self),"btn_2")
self:Register(xml:Init3tButton("btn_3", self),"btn_3")
self:Register(xml:Init3tButton("btn_quit", self),"btn_quit") --/ кнопка выхода
end

function ui_repair:InitCallBacks()
--/ интерактивные элементы, при определенном действии выполняется заданная функция
self:AddCallback("btn_quit", ui_events.BUTTON_CLICKED, self.on_quit, self)
self:AddCallback("btn_1", ui_events.BUTTON_CLICKED, self.repair_1, self)
self:AddCallback("btn_2", ui_events.BUTTON_CLICKED, self.repair_2, self)
self:AddCallback("btn_3", ui_events.BUTTON_CLICKED, self.repair_3, self)
end

function ui_repair:on_quit()
self:GetHolder():start_stop_menu(self,true)
get_console():execute("main_menu off") --/ закрываем и родительское main_menu
end

function ui_repair:OnKeyboard(dik, keyboard_action)
CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
if dik == DIK_keys.DIK_ESCAPE then self:on_quit() --/ на выходе - Esc
elseif dik == DIK_keys.DIK_NUMPAD1 then self:repair_1()
elseif dik == DIK_keys.DIK_NUMPAD3 then self:repair_2()
elseif dik == DIK_keys.DIK_NUMPAD3 then self:repair_3()
end
end
end

function ui_repair:repair_1()
repair.repair_wpn_1()
self:on_quit()
end

function ui_repair:repair_2()
repair.repair_wpn_2()
self:on_quit()
end


function ui_repair:repair_3()
repair.repair_armor()
self:on_quit()
end


в файле рипейр все функции ремонта и это

function chek_repkit()
local actor = db.actor
if actor then
if actor:object("repair_kit") == nil then
return
end
elseif actor and actor:object("repair_kit") ~= nil then
local gui_win = ui_repair(get_hud()) --/ вызов меню рем.комплекта
level.start_stop_menu(gui_win, true)
end
end
стоит на апдейте