Обитель модмейкеров | страница 43 (Elite Games)

/* код содержит и функции IsPilot, IsShip, IsFlight, get_name, msg_data из моего дополнения к движку ЗВ2.ГВ */
/* в примере имена пилотов-наёмников из Ретро. Стандартные имена пилотов для ЗВ2.ГВ, это: "RecruitPilot", "RecruitOfficer", "RecruitAce" */

Код:

--удаление наемников, созданных движком после найма на торговой станции
function RecruitsDelete()
--после создания, объекты наёмников никак не выводятся движком в контекст Луа.
--доступ к объектам наёмников в Луа возможен через функцию GetPilot() (по именам их пилотов)
--
--(!) только для движка StarWolves2."Civil War".
-- аналога функции GetPilot() в более ранних версиях волков просто нет.

local result;
--вывод информации только на отладочную консоль
local LOG = SLOG;
local this_function = get_name();
local mask_info_pilot_check = '%s: Check recruit pilot name: %s';
local mask_info_object_detected = '%s: Recruit <%s> object detected: %s';
local mask_info_object_deleted = '%s: Recruit <%s> object deleted: %s';
--имена наёмников, указанные в recruits.xml для <FightUnits><pilot_name>
--НЕ должны использоваться в игре нигде, кроме recruits.xml
local recruit_names = {'Mercenary_1', 'Mercenary_2', 'Mercenary_3', 'Mercenary_4', 'Mercenary_5'};
--переменные для цикла
local this_pilot, this_flight, this_ship;
--флаг проверки имени
local name_processed;
--цикл по всем известным именам пилотов-наёмников
for i = 1, getn(recruit_names) do
name_processed = nil;
--цикл обработки одного имени пилота
repeat
LOG(format(mask_info_pilot_check, this_function, recruit_names[i]));
this_pilot = GetPilot(recruit_names[i]);
if this_pilot
then if IsPilot(this_pilot)
then LOG(format(mask_info_object_detected, this_function, 'pilot', msg_data(this_pilot)));
this_flight = this_pilot:GetFlight();
if IsFlight(this_flight)
then LOG(format(mask_info_object_detected, this_function, 'flight', msg_data(this_flight)));
--удаление флайта со всеми объектами <ship> и <pilot>
this_flight:Delete();
LOG(format(mask_info_object_deleted, this_function, 'flight', msg_data(this_flight)));
else if IsPilot(this_flight)
then --GetFlight return self
local this_ship = this_pilot:GetShip();
if IsShip(this_ship)
then LOG(format(mask_info_object_detected, this_function, 'ship', msg_data(this_ship)));
--удаление корабля вместе с пилотом
this_ship:Delete();
LOG(format(mask_info_object_deleted, this_function, 'ship', msg_data(this_ship)));
else --удаление только пилота
this_pilot:Kill();
LOG(format(mask_info_object_deleted, this_function, 'pilot', msg_data(this_pilot)));
end;
end;
end;

--удалить в цикле сразу все объекты не получится:
-- GetPilot() сразу после удаления пилота,
-- и вызове с тем же самым именем ничего не находит (возвращает <nil>)
-- /* не успевает отработать удаление в движке */

--прерывание выполнения функции с отложенным повторным запуском (с начала цикла)
Timer_Seq(1, RecruitsDelete);
return TRUE;
end;--объект <pilot>
else name_processed = TRUE;
end;
until name_processed;--цикл обработки одного имени пилота
end;--цикл по именам пилотов-наёмников

result = name_processed;--last name
return result;
end;--function RecruitsDelete()