Lly в 11:15, 25 ноября 2016

2016-11-25T11:15:22Z
188.134.33.162: Новая страница: «Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем: `-- *********************************...»`


2012-05-10T17:15:02Z
Новая страница: «Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем: <code> -- *********************************...»
Новая страница
Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем:

<code>

-- ************************************************

-- **                    Imp                     **

-- **       Биндер самодельных телепортов        **

-- ** Поддерживает работу самопальных телепортов **

-- ************************************************



local teleport_binders ={}	-- Список телепортов



function abs_comp(a,b)

	-- Служебная функция вычисления разности

	if( a < b) then

		return (b - a)

	else

		return (a - b)

	end

end



function teleportate(x,y,z)

-- Функция телепортации

	local a = vector()

	-- Задаем координаты

	a.x = x

	a.y = y

	a.z = z



	-- Сама телепортация

	db.actor:set_actor_position(a)



	-- Звуковое сопровождение

	local snd_obj = xr_sound.get_safe_sound_object([[affects\tinnitus3a]])

	snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)



end





function actor_update(delta)

	local i,v,acter_poz,s



	-- Получим позицию актера (что-бы каждый раз не запрашивать)

	acter_poz = db.actor:position()



	-- Проверяем наши телепорты

	for i, v in pairs(teleport_binders) do

		s = v.parametrs



		local obj = level.object_by_id( i )

		if obj ~= nil then

		-- Наш телепорт в онлайне проверяем дальше

			if s.teleporte ~= nil and s.teleporte ~= false then

				-- Телепорт запущен

				if ( time_global() <= s.time ) then

					-- Если время отведенное на показ спецэфектов

					-- прошло, производим телепортацию

					teleportate(s.poz_x,s.poz_y,s.poz_z)

					if s.rotate ~= nil then

						db.actor:set_actor_direction(s.rotate)

					end

					s.teleporte = false

				end

				return

			end



			-- Пороверим не забрел-ли актер в наш телепорт

			if (abs_comp(s.x, acter_poz.x)< v.parametrs.radius  and

			    abs_comp(s.z, acter_poz.z)< v.parametrs.radius  and

			    abs_comp(s.y, acter_poz.y)< v.parametrs.z_radius) then

				-- Актер в зоне действия телепорта, запустим телепорт

				s["teleporte"] = true

				s["time"] = time_global() + 500



				-- Запускаем спецэфекты телепортации

				level.add_pp_effector ("teleport.ppe", 2006, false)

			end

		end

	end

end



function bind( obj )

	obj:bind_object( restrictor_teleport( obj ) ) 

end



----------------------------------------------------------------------------------------------------

class "restrictor_teleport" ( object_binder )



function restrictor_teleport:__init(obj, char_ini) super(obj)

end



function restrictor_teleport:net_spawn(data)

	local char_ini = system_ini()



	-- Если это телепорт то занесем его в специальный список телепортов

	if self.teleport == true then

		teleport_binders[self.object:id()] = self



		-- Заполним таблицу параметров

		self["parametrs"] = {}

		if char_ini:line_exist(self.section, "radius") then

			self.parametrs["radius"] = tonumber(char_ini:r_string(self.section, "radius"))

		else

			self.parametrs["radius"] = 2 -- Дефолтный радиус по xy

		end

		if char_ini:line_exist(self.section, "z_radius") then

			self.parametrs["z_radius"] = tonumber(char_ini:r_string(self.section, "z_radius"))

		else

			self.parametrs["z_radius"] = self.parametrs["radius"] -- если радиус высоты не задан то задаем равным радиусу xy

		end



		-- Запомним позицию что-бы каждый раз не считать

		local s_obj = alife():object(self.object:id())

		self.parametrs["x"] = tonumber(s_obj.position.x);

		self.parametrs["y"] = tonumber(s_obj.position.y);

		self.parametrs["z"] = tonumber(s_obj.position.z);



		-- Запомним координаты куда телепортимся

		self.parametrs["poz_x"] = tonumber(char_ini:r_string(self.section, "poz_x"))

		self.parametrs["poz_y"] = tonumber(char_ini:r_string(self.section, "poz_y"))

		self.parametrs["poz_z"] = tonumber(char_ini:r_string(self.section, "poz_z"))



		if char_ini:line_exist(self.section, "rotate") then

			self.parametrs["rotate"] = tonumber(char_ini:r_string(self.section, "rotate"))

		end

	end

	return true

end



function restrictor_teleport:net_destroy()

	-- Удаляем наш телепорт

	teleport_binders[self.object:id()] = nil

	self.parametrs = nil

	object_binder.net_destroy(self)

end



function restrictor_teleport:reload(section)

	local char_ini = system_ini()



	self.section = section

	-- Если это телепорт то 

	if char_ini ~= nil and char_ini:line_exist(self.section, "teleport") then

		self["teleport"] = true

	end

end

</code>

В файле bind_stalker прописываем спавн и обновление телепортатора. Находим:

function actor_binder:update(delta) 



В ней найдем вызов обновления рестрикторов bind_restrictor.actor_update(delta) под которым вставим строку с вызовом нашей функции обновления: bind_mteleport.actor_update(delta) 



Мы запрограммировали телепорт. Осталось его заспавнить. В config\misc\zone_teleport.ltx в конце пишем:

<code>

[m_teleport]:zone_teleport

teleport			= standart

script_binding          	= bind_mteleport.bind

;Параметры нашего телепорта

radius				= 2

;Высота захвата телепорта

z_radius			= 2



;Куда телепортируемся (телепортация всегда идет в пределах карты)

poz_x				= 22.78

poz_y				= 20.35

poz_z				= 659.24



; Угол зрения при появлении. Если параметра нет то не меняется.

rotate = 1.5

</code>

Теперь создаем файл create_teleport.script в gamedata/scripts, и в него суем:

<lua>

function create_teleport()

	local obj

	local a = vector()  -- тип переменной

	a.x = x  -- подставьте вектор

	a.y = y  -- подставьте вектор

	a.z = z  -- подставьте вектор

	obj = alife():create("m_teleport",a,lvertex,gvertex)

end

</lua>

Теперь в том-же bind_stalker.script под bind_restrictor.actor_update(delta) в функции function actor_binder:update(delta) пишем "create_teleport.create_teleport" БЕЗ КАВЫЧЕК.

ГОТОВО!
Спавн телепортов в ТЧ - История изменений

Lly в 11:15, 25 ноября 2016

188.134.33.162: Новая страница: «Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем: -- *********************************...»

188.134.33.162: Новая страница: «Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем: `-- *********************************...»`
