Форумы Архив » Свалка Как сделать свой мод? (по 17.04.10)

local tim = game.time()

function intr()
if (game.time() - tim)>= 36000 then
local htime = level.get_time_hours()
local h1 = hit()
h1.power = 0.0005
h1.direction = vector():set(0, 0, 1)
h1.impulse = 0
h1.draftsman = db.actor
h1.type = hit.radiation
local h2 = hit()
h2.power = 1
h2.direction = vector():set(0, 0, 1)
h2.impulse = 0
h2.draftsman = db.actor
h2.type = hit.chemical_burn
local h2a = hit()
h2a.power = 0.0001
h2a.direction = vector():set(0, 0, 1)
h2a.impulse = 0
h2a.draftsman = db.actor
h2a.type = hit.radiation

if htime == 1 and level.set_weather("rain") then
db.actor:hit(h2)
db.actor:hit(h2a)
elseif
htime == 12 and level.set_weather("rain") then
db.actor:hit(h1)
elseif
htime == 16 and level.set_weather("rain") then
db.actor:hit(h1)
elseif
htime == 17 and level.set_weather("rain") then
db.actor:hit(h2)
db.actor:hit(h2a)
tim = game.time()
end
end

local need_update = 0
local heart = nil
local id

function on_item_drop(item)
if item:section() ~= "mega_heart" then
return
end
--dbg.log("RES: on_item_drop item=%s", item:name())
heart = item
need_update = 1
end

function update()
if need_update == 0 then return end
--dbg.log("RES: update stage=%s", need_update)
if need_update == 1 then
local obj = heart:parent()
if obj == nil then
--dbg.log("RES: only drop. return")
return
end
id = obj:id()

local inv = level.main_input_receiver()
if inv ~= nil then
level.start_stop_menu(inv, false)
--dbg.log("RES: close inv")
end

amk.convert_npc[id] = true
local sim = alife ()
sim:set_switch_online (id, false)
sim:set_switch_offline (id, true)
--dbg.log("RES: [%s] move offline", obj:name())
need_update = 2
elseif need_update == 2 then
--dbg.log("RES: update 2")
local obj = level.object_by_id(id)
if obj == nil then
--dbg.log("RES: real move offline")
else
--dbg.log("RES: wait offline")
return
end
--dbg.log("RES: update 3")
local sobj = alife():object(id)
--dbg.log("RES: update 4")
t = amk.read_stalker_params(sobj)
--dbg.log("RES: update 5")
t.health=0.1
t.killerid=65535
for i=1,8 do t.game_death_time = 0 end
t.updhealth = 0.1
t.skeleton_flags=0
--dbg.log("RES: update 6")
amk.write_stalker_params(t, sobj)
--dbg.log("RES: repack packet")
need_update = 0
end
end

ui_npc_monster_zombieg
enc_mutant_zombieg_general

ui_npc_monster_zombie
enc_mutant_zombie_general

ui_npc_monster_chimera
enc_mutant_chimera_general

ui_npc_monster_fracture
enc_mutant_fracture_general

ui_npc_monster_burer
enc_mutant_burer_general

ui_npc_monster_cat
enc_mutant_cat_general

ui\ui_icon_photo
enc_mutant_crow_general

ui_npc_monster_flesh
enc_mutant_flesh_general

ui_npc_monster_dog
enc_mutant_blind_general

ui_npc_monster_tushkano
enc_mutant_tushkano

ui_npc_monster_mutant_boar
enc_mutant_boar_general

ui_npc_monster_pseudodog_grey
enc_mutant_pseudodog_general

ui_npc_monster_krovosos
enc_mutant_bloodsucker_general

ui_npc_monster_psevdogigant
enc_mutant_pseudogiant_general

ui_npc_monster_poltergeist
enc_mutant_poltergeist_general

ui_npc_monster_kontroler_4
enc_mutant_controller_general

ui_npc_monster_snork
enc_mutant_snork_general