Нужен совет. Хочу сделать следующее: Прибывает подкрепление с номером N. Если это подкрепление уничтожают, то оно появляется сново(здесь всё понятно), но это должно происходить не постоянно, а всего лишь 3-5 раз. Понимаю, что без переменных тут не обойтись, поэтому прошу помощи, наведите хотя бы на идею как это воплотить в реальность.

Можно это упростить, что бы не плодить лишних функций, и упаковать все внутрь одной, хотя бы так:

function Init()
      --С периодичностью 5 секунд производим проверку подкреплений
      RunScript("CheckPodkrep",5000);
      --Устанавливаем стартовое значение счетчика подкреплений
      SetIGlobalVar("temp.podkrep",5);
      --В функции Init() суицид не нужен
end;

function CheckPodkrep()
      --Если счетчик подкреплений больше нуля, разрешить вход в основной блок работы функции CheckPodkrep. Поскольку в основном блоке отсутствует прерыватель Suicide(), то по завершении данного прохода, функция вновь запустится через 5 секунд.
      if GetIGlobalVar("temp.podkrep",0)> 0 then
         --Если юнитов в группе №10 = 0, тогда высадить подкрепление №1 и уменьшить счетчик подкреплений на 1.
         if (GetNUnitsInScriptGroup(10,0)==0) then
             LandReinforcement(1);
             SetIGlobalVar("temp.podkrep",(GetIGlobalVar("temp.podkrep",0) - 1));
        end;
     --Если счетчик подкреплений равен или меньше нуля, выдать сообщение на экран и прервать цикл работы функции
     else
         DisplayTrace("Подкрепления закончились.");
         Suicide();
     end;
end;

ИС 3
Если можно, скинь мне полностью свою миссию (ту, в которой я как-то подсказал, как подправить скрипты; карта называлась "map1.bzm"). Только сегодня рассмотрел карту - мне понравилось, интересно глянуть ее в игре.

Выкладывал ссылку с примером, но потом решил сам проверить. Результат не утешительный. Мало того, похоже, что и остальные стандартные функции Луа в Б1шных скриптах не работают и даже не читаются/определяются. Даже банальная математические math не работают.

Вся беда скорее всего в том, что в Б1 луа лишь встроенный язык для скриптов, а не исполняемый. И по видимому библиотеки с библиотечными функциями луа в сишных исходниках Б1 были попросту не подключены за ненадобностью, поскольку весь расчет ведется на Си, а там свои библиотеки есть.

В твоём случае чтобы "скрипт не опережал бензовоз" лучше использовать оператор if. Наприме, так:
function BA()
LandReinforcement(45); --прибывает бензовоз
Cmd(0,66, GetScriptAreaParams("Zapravka1")); -- едет в первую зону
RunScript("Benzovoz1",5000); --запускает скрипт отслеживающий прибытие бензовоза в первую зону, каждые 5 секунд
Suicide();
end;

function Benzovoz1()
if (GetNScriptUnitsInArea(66,"Zapravka1")==1) then
RunScript("Peredacha1",10000); -- если бензовоз прибыл в первую зону, через 10 секунд запускается скрипт передачи
Suicide();
end;
end;

function Peredacha1 ()
DisplayTrace("Бронемашина заправлена");
ChangePlayer(115, 0); -- передача
Cmd(0,66, GetScriptAreaParams("Zapravka2")); -- бензовоз едет во вторую зону
RunScript("Benzovoz2",5000); -- запускает скрипт отслеживающий прибытие бензовоза во вторую зону, каждые 5 секунд
Suicide();
end;

function Benzovoz2()
if (GetNScriptUnitsInArea(66,"Zapravka2")==1) then
RunScript("Peredacha2",10000); --если бензовоз прибыл во вторую зону, через 10 секунд запускается скрипт передачи
Suicide();
end;
end;

и так далее...

Если предусматривается возможная гибель бензовоза, тогда следует добавить дополнительные скрипты отслеживающие жив он или нет, и соответственно при гибели прекращающие отслеживание его прибытия в зону заправки.

Да, и в данном случае наверное лучше сделать, чтобы бензовоз был не нейтралом, а союзником. Игроку он подчиняться не будет, но будет выглядеть как союзная сторона.

Подскажите как сделать в мультиплеерной карте возможность захвата нейтральной техники?

Сделал карту, написал к ней скрипт. При попытке загрузить через редактор комп виснет. Что делать? Может что-то со скриптом?

Вот скрипт:

function Won() 
if ( GetNUnitsInParty(1) < 1) then 
Win(0); 
Suicide(); 
end; 
end; 

function ToDefead() 
if ( GetNUnitsInParty(0) < 1) then 
Loose(0); 
Suicide(); 
end; 
end; 



function Init() 
RunScript( "Won",2000); 
RunScript( "ToDefead",2000); 
end; 


function Objective0() 
   if ( GetNUnitsInArea(perekrestok, 1) == 0) then 
      ObjectiveChanged(0, 1); 
                        RunScript( "RevealObjective1", 3000); 
      Suicide(); 
   end; 
end; 

function Objective1() 
   if ( GetNUnitsInArea(Olxovka, 1) == 0) then 
      ObjectiveChanged(1, 1); 
                        RunScript( "RevealObjective2", 3000); 
      Suicide(); 
   end; 
end; 

function Objective2() 
   if ( GetNUnitsInArea(aerodrom, 1) == 0) then 
      ObjectiveChanged(2, 1); 
      Suicide(); 
   end; 
end; 

function RevealObjective0() 
   ObjectiveChanged(0, 0); 
   Suicide(); 
end; 

function RevealObjective1() 
   ObjectiveChanged(1, 0); 
   Suicide(); 
end; 

function RevealObjective2() 
   ObjectiveChanged(2, 0); 
   Suicide(); 
end; 



function Init() 
            RunScript( "RevealObjective0", 2000); 
            RunScript( "Objective0", 2000); 
            RunScript( "Objective1", 2000); 
            RunScript( "Objective2", 2000); 

end; 

function Init()
RunScript("MoveCar",1000);
end;

function MoveCar()
Cmd(3,200,342,582);
Suicide();
end;

function Init()
if ( GetNUnitsInArea(perekrestok, 1) == 0) then
RunScript("Attac", 1000);
Suicide;
end;
end;

function Attac()
Cmd(3,204,12691,2851);
Suicide;
end;

function Init()
if ( GetNUnitsInArea(Olxovka, 1) == 0) then
RunScript("Attac2", 1000);
Suicide;
end;
end;

function Attac2()
Cmd(3,201,12622,8102);
Suicide;
end;

function Init()
if ( GetNUnitsInArea(perekrestok, 1) == 0) then
RunScript("podkrep", 1000);
Suicide;
end;
end;

function podkrep()
LandReinforcement(101);
Suicide(); 
end; 

function Init()
if ( GetNUnitsInArea(air, 0) == 0) then
RunScript("DA",1000)
Suicide;
end;
end;

function DA()
DisableAviation (0, -1);
Suicide;
end;

function Init()
if ( GetNUnitsInArea(aerodrom, 1) == 0) then 
RunScript("DA2",1000)
Suicide;
end;
end;

function DA2()
DisableAviation (1, -1);
Suicide;
end;

function Reinf2() 
LandReinforcement(102); 
Suicide(); 
end; 

function Init() 
RunScript( "Reinf2",100000); 
RunScript("MoveTruck", 4000); 
end; 

function MoveTruck() 
Cmd(3,205 ,942 ,386 );
end;

Pz.kpfw.V Ausf.A Panter
Ну во-первых зачем 9 Инитов? Грубейшая ошибка!    
Он должен быть один. В начале желательно.
Тут исправлять надо просто всё.
Лучше не в ините делать все функции, а после функции.
В ините даже есть иф! Грубая ошибка. Чёркать тут очень долго вот приведу пример:
function Init()
RunScript("DebugView",2000);
end;

function DebugView()
Password("www.dtf.ru");
--God(0, 2);
RunScript("brifing",2000);
Suicide();
end;

function brifing()
ObjectiveChanged(0, 0);
RunScript("brifing2",5000);
Suicide();
end;

function brifing2()
ObjectiveChanged(0, 1);
RunScript("RevealObjective1",3000);
Suicide();
end;

А почему скрипт такой маленький? карта каково размера то? Или это набросок?

Отредактировано Soldier110 (2012-08-09 17:50:23)

Пожалуйста. Рад помочь.
Это хорошо, что учишься. Я тоже учусь делать карты.

You had made three mistakes.

I've corrected your script. Now it should work.
I've marked the old wrong script, which it's actually OK, with "---------CHANGED" and "---------/CHANGED"

Отредактировано Kevin (2012-09-04 22:46:45)

GetNUnitsOfType (“iType”, iParty)

не реагирует на десантные самолёты, может и на другие типы тоже, не проверял

function AviaParad()
if GetNUnitsOfType("avia_lander",0)>0 then
DisplayTrace("ДАсамолет");
elseif GetNUnitsOfType("avia_lander",0)==0 then
DisplayTrace("НЕТсамолетов");
end;
end;

Странно, кажется реагирует только на все типы вместе

GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)==0

Если кому нужно
Скрипт случайного выбора авиации для игрока.

function Init()

DisableAviation(0, 0);
DisableAviation(0, 1);
DisableAviation(0, 2);
DisableAviation(0, 3);
DisableAviation(0, 4);

end;

function Wings()
if........................................ then   --условие
RunScript("AviaChange0", 5000);
RunScript("AviaChange1", 5000);
RunScript("AviaChange2", 5000);
RunScript("AviaChange3", 5000);
RunScript("AviaChange4", 5000);
RunScript("AviaStop",600000 + RandomInt(300000)); --регулироется по желанию, время смены видов доступной авиации
Suicide();
end;end;

function AviaChange0()
local t= RandomInt(3)+1;
if (t == 1) then
end;
if (t == 2) then
EnableAviation(0, 0);
end;
if (t == 3) then
end;
Suicide();
end;

function AviaChange1()
local t= RandomInt(3)+1;
if (t == 1) then
EnableAviation(0, 1);
end;
if (t == 2) then
end;
if (t == 3) then
end;
Suicide();
end;

function AviaChange2()
local t= RandomInt(3)+1;
if (t == 1) then
end;
if (t == 2) then
end;
if (t == 3) then
EnableAviation(0, 2);
RunScript("AviaPara", 500); --старт запрета вылета десантных самолётов после трёх вылетов, время от 500 до 1000, на слабых компах может промахнуть функцию при нагрузке, чем меньше, темнезаметнее для игрока
SetIGlobalVar("aavia_lander",3); --зависит от типа самолёта, может быть вариант aavia_bomber
end;
Suicide();
end;

function AviaPara()
if GetNUnitsOfType("avia_lander",0)>0 then
SetIGlobalVar("aavia_lander",GetIGlobalVar("aavia_lander",0)-1);
RunScript("CheckPara", 500);
RunScript("AviaPara1", 180000);
Suicide();
end;
end;

function AviaPara1()
if GetNUnitsOfType("avia_lander",0)>0 then
SetIGlobalVar("aavia_lander",GetIGlobalVar("aavia_lander",0)-1);
RunScript("AviaPara", 180000); --зависит от времени Relax Time
Suicide();
end;
end;

function CheckPara()
if GetIGlobalVar("aavia_lander",0)>0 then
Suicide();
elseif GetIGlobalVar("aavia_lander",0)==0 then
RunScript("StopPara", 1000); --запрет вылета десантных самолётов
KillScript("AviaPara");
KillScript("AviaPara1");
Suicide();
end;
end;

function StopPara()
if GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)==0 then
DisableAviation(0, 2);
Suicide();
elseif GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)~=0 then
RunScript("StopParaAlso",1000);
Suicide();
end;
end;

function StopParaAlso()
if GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)==0 then
DisableAviation(0, 2);
Suicide();
elseif GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)~=0 then
RunScript("StopPara",1000); --время от 500 до 1000, чем меньше, тем лучше, но на слабых компах нужно больше
Suicide();
end;
end;

function AviaChange3()
local t= RandomInt(3)+1;
if (t == 1) then
end;
if (t == 2) then
end;
if (t == 3) then
EnableAviation(0, 3);
end;
Suicide();
end;

function AviaChange4()
local t= RandomInt(3)+1;
if (t == 1) then
end;
if (t == 2) then
EnableAviation(0, 4);
end;
if (t == 3) then
end;
Suicide();
end;

function AviaStop()
if GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)==0 then
DisableAviation(0, 0);
DisableAviation(0, 1);
DisableAviation(0, 2);
DisableAviation(0, 3);
DisableAviation(0, 4);
RunScript("Wings",5000);
Suicide();
elseif GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)~=0 then
RunScript("AviaStopAlso",1000);
Suicide();
end;
end;

function AviaStopAlso()
if GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)==0 then
DisableAviation(0, 0);
DisableAviation(0, 1);
DisableAviation(0, 2);
DisableAviation(0, 3);
DisableAviation(0, 4);
RunScript("Wings",5000);
Suicide();
elseif GetNUnitsOfType("avia_attack",0)+GetNUnitsOfType("avia_bomber",0)+GetNUnitsOfType("avia_fighter",0)+GetNUnitsOfType("avia_lander",0)+
GetNUnitsOfType("avia_scout",0)~=0 then
RunScript("AviaStop",1000);
Suicide();
end;
end;

У игрока будет не постоянный набор авиации, а случайный, изменящийся через случайный промежуток времени

Здравствуйте! Играл в Блицкриг:Дьяволы в хаки. Скрипты к миссиям выглядят иначе (в оригинальном все понятно), карты не открываются в редакторе, ничего не изменить. Кто знает в чем дело?