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

--[[
-- 1, 2, 3, 4, 5, 6, 7, 8 - ноги
-- 19 , 31 - плечи
-- 20, 32 - предплечья
-- 21, 33 - кисть
-- 22,23,24,25,26,27,28,29,30 \ 34,35,36,37,38,39,40,41,42 - пальцы
-- 13 - башка
-- 14, 15 - глаза
-- 9 - низ торса
-- 10 - верх торса
-- 11, 18 - ключицы
-- 16 - челюсть
-- 17 - шея
--]][
понятия не имею что это... и от куда...
/spoiler]
Сама идея:

---

db.actor:health()
Так ты сможешь узнать сколько у ГГ жизни.

---

Добавлю, что узнать этим методом можно только по серверному актору, т.е. alife():actor():health()

function load_schemes()
if mon_sleep then
load_scheme("mon_sleep","sleep",stype_stalker)
end
--if mon_look then
-- load_scheme("mon_look","look",stype_stalker)
--end
if mon_psyh then
load_scheme("mon_psyh","psyh",stype_stalker)
end
if mon_suicid and amk and amk_mod then
load_scheme("mon_suicid","suicid",stype_stalker)
end
if mon_knife then
load_scheme("mon_knife","knife",stype_stalker)
end
if mon_hunter_heli then
load_scheme("mon_hunter_heli","hunter_heli",stype_stalker)
end
if mon_trade then
load_scheme("mon_trade","trade",stype_stalker)
end
if mon_drink then
load_scheme("mon_drink","drink",stype_stalker)
end
end

function disable_schemes(npc)
end

function enable_schemes(ini,npc)
if mon_sleep then
mon_sleep.set_scheme(npc,ini,"sleep","sleep")
end
--if mon_look then
-- mon_look.set_scheme(npc,ini,"look","look")
--end
if mon_psyh then
mon_psyh.set_scheme(npc,ini,"psyh","psyh")
end
if mon_suicid and amk and amk_mod then
mon_suicid.set_scheme(npc,ini,"suicid","suicid")
end
if mon_knife then
mon_knife.set_scheme(npc,ini,"knife","knife")
end
if mon_hunter_heli then
mon_hunter_heli.set_scheme(npc,ini,"hunter_heli","hunter_heli")
end
if mon_trade then
mon_trade.set_scheme(npc,ini,"trade","trade")
end
if mon_drink then
mon_drink.set_scheme(npc,ini,"drink","drink")
end
end

function addCommonPrecondition(action)
if mon_sleep then
action:add_precondition(world_property(mon_sleep.evid_sleep,false))
end
--if mon_look then
-- action:add_precondition(world_property(mon_look.evid_look,false))
--end
if mon_psyh then
action:add_precondition(world_property(mon_psyh.evid_psyh,false))
end
if mon_suicid and amk and amk_mod then
action:add_precondition(world_property(mon_suicid.evid_suicid,false))
end
if mon_knife then
action:add_precondition(world_property(mon_knife.evid_knife,false))
end
if mon_hunter_heli then
action:add_precondition(world_property(mon_hunter_heli.evid_hunter_heli,false))
end
if mon_trade then
action:add_precondition(world_property(mon_trade.evid_trade,false))
end
if mon_drink then
action:add_precondition(world_property(mon_drink.evid_drink,false))
end
end

evid_mon_base = 18826
actid_mon_base = evid_mon_base

function issue_event(npc,name,...)
local st = db.storage[npc:id()]
if not st or not st.mon_callbacks then
return
end
for k,v in pairs(st.mon_callbacks) do
if v and k[name] then
k[name](k,...)
end
end
end

function subscribe_for_events(npc,obj)
local st = db.storage[npc:id()]
if not st.mon_callbacks then
st.mon_callbacks = {}
end
st.mon_callbacks[obj] = true
end

function unsubscribe_from_events(npc,obj)
local st = npc and db.storage[npc:id()]
if st and st.mon_callbacks then
if obj then
st.mon_callbacks[obj] = nil
else
st.mon_callbacks = nil
end
end
end

function npc_death(npc,who)
if npc then
issue_event(npc,"death_callback",who)
end
end

function npc_hit(npc,amount,dir,who,bone_id)
if npc and amount ~= 0 then
issue_event(npc,"hit_callback",amount,dir,who,bone_id)
end
end

function load_schemes()
if mon_sleep then
load_scheme("mon_sleep","sleep",stype_stalker)
end
--if mon_look then
-- load_scheme("mon_look","look",stype_stalker)
--end
if mon_psyh then
load_scheme("mon_psyh","psyh",stype_stalker)
end
if mon_suicid and amk and amk_mod then
load_scheme("mon_suicid","suicid",stype_stalker)
end
if mon_knife then
load_scheme("mon_knife","knife",stype_stalker)
end
if mon_hunter_heli then
load_scheme("mon_hunter_heli","hunter_heli",stype_stalker)
end
if mon_trade then
load_scheme("mon_trade","trade",stype_stalker)
end
if mon_drink then
load_scheme("mon_drink","drink",stype_stalker)
end
if rx_reload then
load_scheme("rx_reload","reload",stype_stalker)
end
if rx_gl then
load_scheme("rx_gl","launch_grenade",stype_stalker)
end
if rx_facer then
load_scheme("rx_facer","facer",stype_stalker)
end
if rx_bandage then
load_scheme("rx_bandage","bandage",stype_stalker)
end
if rx_ff then
load_scheme("rx_ff","rx_ff",stype_stalker)
end
end

function issue_event(npc,name,...)
local st = get_storage(npc:id(),"events")
if not st then
return
end
-- printf("issue[%s]:%s",npc:name(),name)
for k,v in pairs(st) do
if v and k[name] then
k[name](k,...)
end
end
end

function issue_event(npc,name,...)
local st = db.storage[npc:id()]
if not st or not st.mon_callbacks then
return
end
for k,v in pairs(st.mon_callbacks) do
if v and k[name] then
k[name](k,...)
end
end
end