На главную | Регестрироваться | Вход Приветствую Вас Гость | RSS


[
Новые сообщения ·
Участники ·
Правила форума ·
Поиск ·
RSS ]

  • Страница 1 из 1
  • 1
Форум » МОДОСТРОЕНИЕ » МОДОСТРОЕНИЕ » Создаем телепорт
Создаем телепорт
aleks-dnkey1Дата: Воскресенье, 31.05.2009, 17:01 | Сообщение # 1
Свободный Админ
Группа: Администраторы
Сообщений: 38
Репутация: 1
Статус: Ушёл за Хабаром
Теория этого дела

В игре существует такой объект как "zone_teleport", но если мы его создадим через create, то он будет выглядеть и переливаться как настоящий телепорт, но телепортировать нас куда-либо увы не сможет. Связано это с тем что, у аномалий ( а телепорт это такая разновидность аномалии ) параметры задаются хитромудро, через all.spawn. Вобщем штатным способом телепорты без полнофункционального редактора карт не получить (хотя возможно я не прав уже после написания этого текста появились идеи как это сделать через all.spawn). Значит на нашу долю остаються способы "не штатные" wink Реализуем самый простой. Будем считать что у нас на карте есть квадрат с заданными координатами при попадании в который актера должно переместить в точку с другими координатами. Для этого будем периодически проверять координаты актера, и если он в квадрате - перемещяем. Вот в краце принцип действия нашего "самодельного" телепорта.
Реализация

В каталоге gamedata\scripts\ Создадим файл bind_mteleport.script с логикой работы нашего телепорта.

-- ************************************************
-- ** 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

Для постоянного обновления нужно прицепить функцию actor_update() к биндеру актера, для чего в файле bind_stalker.script найдем функцию:

function actor_binder:update(delta)

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

Все с программной частью закончили, теперь задаем данные телепорта.

В каталоге gamedata\config\misc открываем файл zone_teleport.ltx и в конце файла добавляем следующие строки описывающие конкретный телепорт:

[m_teleport_1]: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

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

* radius - на самом деле не радиус, а половина длинны стороны нашего квадрата (в начале я хотел сделать его кругом, но посчитал, что лучше не тратить процессорное врямя по пусту). Центром квадрата является точка респавна телепорта.

* z_radius - высота нашего телепорта.

* poz_x, poz_y, poz_z - координаты точки телепортации.

* rotate - Угол поворота после телепортации от оси X (я не разбирался в каких единицах задается, но 1.5 примерно равно 90 градусов). Если параметр удалить то будет оставатья угол под которым актер вошел в телепорт.

Использование

Теперь с помощью create создадим наш телепорт: Пример:

local obj
local a = vector()
a.x = -244.55
a.y = -19.46
a.z = -125.42
obj = alife():create("m_teleport_1",a,12829,8,65535)

Создаст телепорт возле выхода из бункера Сидоровича. Наш телепорт перебрасывает игрока на вышку блокпоста (перед выходом с уровня).

 
Форум » МОДОСТРОЕНИЕ » МОДОСТРОЕНИЕ » Создаем телепорт
  • Страница 1 из 1
  • 1
Поиск:
Статистика Top 5
Последние новости Самые отвечаемые темы Последние статьи Последние сообщения
Открытый плейтес... 17.07.2009
Сергей Григорови... 30.06.2009
"S.T.A.L.K.E.R.:... 11.06.2009
Рецензия S.T.A.L... 02.06.2009
Новые скриншоты ... 01.06.2009
Обсуждения 11
Пожелания и Пред... 7
Бар 6
Новости 3
Методы редактиро... 2
Тема Дата, Время Автор Раздел
А можно как иг... 22.09.2018, 03:18 emgobkokyl">emgobkokyl Другие игры
Методы редакти... 22.09.2018, 03:17 aleks-dnkey1">aleks-dnkey1 МОДОСТРОЕНИЕ
Новости 22.09.2018, 03:15 aleks-dnkey1">aleks-dnkey1 Call of Pripyat / Зов Припяти
Обсуждения 22.09.2018, 03:14 aleks-dnkey1">aleks-dnkey1 Call of Pripyat / Зов Припяти
sZone-online O... 10.04.2013, 04:29 stre_lokkkkk">stre_lokkkkk Другие игры
Шаблоны сталке... 11.02.2012, 20:45 Seo">Seo Моды на сталкера
Внешний вид са... 12.09.2009, 11:28 JOHN">JOHN Пожелания и Предложения
Создание новог... 12.09.2009, 11:11 aleks-dnkey1">aleks-dnkey1 МОДОСТРОЕНИЕ
Бар 12.09.2009, 10:52 aleks-dnkey1">aleks-dnkey1 Бар
Редактирование... 12.09.2009, 10:44 aleks-dnkey1">aleks-dnkey1 МОДОСТРОЕНИЕ
Новые пользователи Активные пользователи Лучшие комментаторы
sava636 0
hesheatshit 0
Voron4Reiha 0
emgobkokyl 4
molevlya 0
aleks-dnkey1 38
nose-anton 5
Санёк 5
JOHN 4
emgobkokyl 4
anton 4
БОВИЧ 4
stalker№1 3
Maskal 3
Klidrak 3
 КТО БЫЛ СЕГОДНЯ НА САЙТЕ


Зарег. на сайте
Всего: 1429
Новых за месяц: 1
Новых за неделю: 0
Новых вчера: 0
Новых сегодня: 0
Из них
Администраторов: 3
Модераторов: 1
Проверенных: 0
Обычных юзеров: 1425
Из них
Парней: 1353
Девушек: 76








Copyright MyCorp © 2020
Конструктор сайтов - uCoz