#include "include\AIM.src"

void proc OnEnterLocation(char item) // Вызывается, Когда игрок входит на локацию
{
   //SetPelengPoint("B_L11_ARLINGLAB"); // установить пеленг на лабараторию Арлингов (тест)
   
   if (!GetVar("AIM.NAU.CREATED")) // Если значение переменной "AIM.NAU.CREATED" не положительное (отрицательное или отсутствует или ровно нулю), то
   {
      CreateGroup("TS_GRP_NAUTILUS");; // Создать группу "TS_GRP_NAUTILUS" - Наутилуса
      SetMechGeneration("TS_GRP_NAUTILUS", 8); // Присвоить группе "TS_GRP_NAUTILUS" поколения 8
      SetVar("AIM.NAU.CREATED"); // Установить переменной "AIM.NAU.CREATED" положительное значение (скорее всего 1)
      //SetPelengPoint("TS_GRP_NAUTILUS"); // установить пеленг на Наутилуса (тест)

      CreateGroup("DERCINT"); // Создать группу "DERCINT"
      SetMechGeneration("DERCINT", 4); // Присвоить группе "DERCINT" поколения 4
   }
}

void proc OnHour(char locID) // Вызывается Каждый внутриигровой час
{
   ThrowGoodsOnRoad("TOV_FUNGUS", 10); // Раскидать 10 единиц товара "грибы" возле дорог NPC
}

#include "include\AIM.cpp"

void proc OnTalk(char gliderID) // "Общение" механоидов на глайдерах - когда один отправляет другому привет или любое другое сообщение
{
   if (!GetItem("TS_ITEM3")) // Если у игрока нету Квазиментального диффузора
      DamageGlider("PLAYER", 10000000); // Наносим гладйеру игрока 10 млн урона, что призведет до уничтожения глайдера и, следовательно, конца игры

   // * если это первое общение, то *  (комментарий разработчика от 2005)
   if (GetVar("AIM.NET.NAU.2") && !GetVar("AIM.NET.NAU.3"))
   {
      Dialog("TS_L11_TEXT2_3"); // Диалогое окно "<color=orange>Ментальный диффузор активирован. Поглощены аномальные импульсы.<color>"
      SetQuestPart("TS_L11_J_Q1_1", "TS_L11_J_TEXT2_3"); // Переход на следующий этап квеста
      SetVar("AIM.NET.NAU.3"); // Установить значение переменной (второй аргумент не указан, исходя из include/AIM.cpp он будет равен единице = 1)
   }      

   // * Второе общение с Наутилусом после синигр * (комментарий разработчика от 2005)
   if (GetVar("AIM.NET.SIN.3") && !GetVar("AIM.NET.SIN.4"))
   {
      Dialog("TS_L11_TEXT3_2"); // Показать диалогое окно с текстом "<color=orange>Ментальный диффузор активирован. Поглощаются аномальные импульсы.<p>Коммуникатор активирован. Сообщение передано.<color>"
      SetVar("AIM.NET.SIN.4"); // Установить значение переменной "AIM.NET.SIN.4" (равной 1)
      SetQuestPart("TS_L11_J_Q1_6", "TS_L11_J_TEXT3_1"); // Установить часть квеста (переход на следующую часть квеста)
      SetTimer("OnDestroyEffector", 24); // Задать таймер чтобы через 24 внутриигровых часа вызвать функцию OnDestroyEffector
      SetTimer("OnHour", 1); // Задать таймер чтобы через 1 внутриигровой час вызвать функцию OnHour
      SetVar("AIM.NAU.HOUR", 24); // Установить значение переменной "AIM.NAU.HOUR" равной 24
      GliderInvis(gliderID, 1); // Сделать глайдер неивидимым
   }
}

void proc OnDestroyEffector() // По логике эта функция вызовется лишь один раз, спустя 24 внутриигровых часа после второго общения с Наутилусом
{
   SetVar("AIM.NAU.DESTROY"); // Установить положительное значение переменной "AIM.NAU.DESTROY" = 1 - (за кадром) она обозначает что Наутилус пробил контурное поле в секторе Болот для Синигр
}

void proc OnHour()
{
   int iHour; // целое число iHour
   iHour = GetVar("AIM.NAU.HOUR")-1; // установить значение iHour как значение переменной "AIM.NAU.HOUR" минус один
   if (iHour<0) iHour = 0; // если iHour меньше нуля, то установить значение iHour равным 0
   SetVar("AIM.NAU.HOUR", iHour); // Установить значение "AIM.NAU.HOUR" равнім числу iHour
   if (iHour) // Если iHour (если значение iHour положительное)
      SetTimer("OnHour", 1); // Установить таймер, чтобы вызвать функцию "OnHour" через один внутриигровой час
}

#include "include\AIM.src"
#include "include\simnautilus.cpp"

void proc OnEnterLocation(char item)
{
   if (!GetVar("location11.FISRT"))
   {
      // SetPelengPoint("B_L11_ARLINGLAB");
      
      SetMechName("PLAYER", "NAUTILUS"); // (Это было добавлено в 004)
      
      AddAmount(AMOUNT_ENERGY, 123456); // DENEG DAT'
      InstallEquipLayer(EQIP_CONFIG, "CFG_NAUTILUS"); // POSTAVIT CFG KAK Y HAUTILUSA
      
      SetVar("location11.FISRT");
   }
}

void proc OnHour(char locID)
{
   ThrowGoodsOnRoad("TOV_FUNGUS", 10);
}

#include "include\AIM.cpp"

void proc StartGame()
{
   MoveToLocation("location11");
}

StartGame();

#include "include\AIM.cpp"
#include "include\simnautilus.cpp"

void proc OnTalk(char gliderID)
{
   // Nautilus - ubyet vseh!
   DamageGlider(gliderID, 10000000);
}

; Мод "Симулятор Наутилуса"

[COMMON]
Autorun=AIMII.src
Name=Механоиды II. Война кланов.;

[OBJECTS]
location11=Locations\loc11.src

[EVENTS]
OnTalk=Events\Talk.src

#include "include\AIM.src"
#include "include\simnautilus.cpp"

void proc OnEnterLocation(char item)
{
   if (!GetVar("location11.FISRT"))
   {
      // SetPelengPoint("B_L11_ARLINGLAB");
      
      SetMechName("PLAYER", "NAUTILUS");
      
      AddAmount(AMOUNT_ENERGY, 123456); // DENEG DAT'
      InstallEquipLayer(EQIP_CONFIG, "CFG_NAUTILUS"); // POSTAVIT CFG KAK Y HAUTILUSA
      
      SetVar("location11.FISRT");
   }
}

void proc OnHour(char locID)
{
   ThrowGoodsOnRoad("TOV_FUNGUS", 10);
}