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

local item = nil
function use_menu()
if item and type(item) == "number" then
if not level.object_by_id(item) then
-- Сюда пишешь нужное действие.
end
item = nil
end
if item and type(item) == "userdata" then
item = item:id()
else
item = nil
end
end

function use_drop(obj)
if obj:section() == "название итема" then
item = obj
end
end

local item = nil
function use_menu()
if item and type(item) == "number" then
if not level.object_by_id(item) then
-- Сюда пишешь нужное действие.
end
item = nil
end
if item and type(item) == "userdata" then
item = item:id()
else
item = nil
end
end

function use_drop(obj)
if obj:section() == "название итема" then
item = obj
end
end

local item = nil
function use_menu()
if item and type(item) == "number" then
if not level.object_by_id(item) then
this.spawn_in_inv()
end
item = nil
end
if item and type(item) == "userdata" then
item = item:id()
else
item = nil
end
end

function actor_binder:update(delta)
object_binder.update(self, delta)

-- DEBUG slowdown
-- slowdown.update()

local time = time_global()

game_stats.update (delta, self.object)

-- апдейт погоды
self.weather_manager:update()

-- апдейт схемы детектора
self.actor_detector:update()

-- апдейт звуковой схемы актера
xr_sound.update_actor()

--моя функция для коллективного апдейта
taynik_rnd.on_actor_update(delta)

--а в указанном файле пишем такую вот функцию куда ставим просто вызовы нужных функций которые нужно обновлять
function on_actor_update(delta)
this.gratva()
this.activate()
this.use_thing()
stco.update()
this.weapon_2()
this.show_obj()
кол-во вызовов может быть довольном большим - но ближе к сотне наверно игра будет все таки подтормаживать
end

local count = 0
function uni_spawn(tab_items,tab_where)
for k, v in pairs(tab_items) do
if type(v)~='table' and type(tab_where)=='table' then
alife():create(v,vector():set(tab_where['x'],
tab_where['y'],tab_where['z']),
tab_where['lv'],tab_where['gv'])
elseif type(v)~='table' and type(tab_where)=='string' then
alife():create(v, db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id(), db.actor:id())
elseif type(v)=='table' and type(tab_where)=='table' then
for k, v in pairs (tab_items[k]) do
count = k
for i=1, count do
alife():create(v,vector():set(tab_where['x'],
tab_where['y'],tab_where['z']),
tab_where['lv'],tab_where['gv'])
end
end
elseif type(v)=='table' and type(tab_where)=='string' then
for k, v in pairs (tab_items[k]) do
count = k
for i=1, count do
alife():create(v, db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id(), db.actor:id())
end
end
end
end
end


function uny_spawn_1()
local tab_items ={{[3]="medkit"},{[3]="yod"},{[3]="stim"},{[3]="bandage"}}
local tab_where = "actor"
this.uni_spawn(tab_items,tab_where)
end

function uny_spawn_2()
local tab_items ={{[5]="medkit"},{[5]="yod"},{[3]="stim"},{[5]="bandage"},{[2]="antirad"}}
local tab_where = "actor"
this.uni_spawn(tab_items,tab_where)
end

function uny_spawn_3()
local tab_items ={{[7]="medkit"},{[5]="yod"},{[4]="stim"},{[7]="bandage"},{[5]="antirad"}}
local tab_where = "actor"
this.uni_spawn(tab_items,tab_where)
end

function use_item(user_item,my_do)
local item = nil
function use_menu()
if item and type(item) == "number" then
if not level.object_by_id(item) then
my_do
end
item = nil
end
if item and type(item) == "userdata" then
item = item:id()
else
item = nil
end
end
function use_drop(obj)
if obj:section() == user_item then
item = obj
end
end
end

function use_it_1()
user_item = "medlit"
my_do = this.uny_spawn_1()
this.use_item(user_item, my_do)
end

function get_min_distance(lname, pos)
local dist, point, object, distance
--берем координаты объектов-примет и получаем дистанцию до каждого от схрона
local baza = points[lname] --таблица points
local obj_dist ={}
for k, p in pairs(baza) do
--point = vector():set(p[1],p[2],p[3])
point = vector():set(p["p"][1],p["p"][2],p["p"][3])
local object = p.text
dist = point:distance_to(pos)

--пишем в таблицу строку с именем объекта и полученную дистанцию до него
table.insert(obj_dist, {o=object, d = dist})
end
--надо записать еще поинт?
local t_dist ={}
--пишем в таблицу только дистанции
for o, d in ipairs(obj_dist) do
table.insert(t_dist, d.d)
end
--получаем минимальную дистанцию
local min_dist = math.min(unpack(t_dist))
--ищем объект с этой дистанцией
for k, v in ipairs(obj_dist) do
if v.d == min_dist then
object, distance = v.o, v.d
break
end
end

obj_dist = nil
t_dist = nil
return object, distance
end

local points = {
["l01_escape"] = {
[1] = { name = "заброшенная фабрика", text = "заброшенной фабрики", text0 = "на заброшенной фабрике", p = {-6.99, 5.19, 86.94 }},
[2] = { name = "заброшенная Ферма", text = "заброшенной Фермы", text0 = "на заброшенной Ферме", p = {5.17, 2.31, 274.39 }},
[3] = { name = "АТП", text = "АТП", text0 = "на АТП", p = {112.56, -5.81, -16.56}},
[4] = { name = "железнодорожная насыпь", text = "железнодорожной насыпи", text0 = "на железнодорожной насыпи", p = {56.13, 3.29, 157.36}},
[5] = { name = "военный блокпост", text = "военного блокпоста", text0 = "на военном блокпосту", p = {-155.74, -28.49, -352.21}},
[6] = { name = "Блокпост перед Свалкой", text = "блокпоста перед Свалкой", text0 = "на блокпосту перед Свалкой", p = {14.08, 17.45, 669.28}},
[7] = { name = "лагерь новичков", text = "лагеря новичков", text0 = "в лагере новичков", p = {-193.57, -18.49, -145.71}}
},