-- Константы
require "Levels/enums"

--------------------------------------
-- ДЕКЛАРАТИВНЫЕ ОПИСАТЕЛИ
--------------------------------------
Title = GetConstant("Level 2 Title")
Description = GetConstant("Level 2 Description")
BriefingDialog = "level-2-briefing"
StartingDialog = "level-2-step1"
Music = "tiny_wanderers"
Level = 2
IsTutorialMode = true
IsAdrenalineEnabled = false

BerryCount = 0
BugCount = 0
FleaCount = 0
Statistics = ""
ShowStatistics = false
Stage = "Berries"

IsWin = false
HowManyBerriesNeeded = 15
IsFlyEaten = false

--------------------------------------
-- ИНИЦИАЛИЗАЦИЯ
--------------------------------------
function Init()

   -- Сразу нужное количество ягод при старте
   for i = 1, HowManyBerriesNeeded
   do
    CreateRandomBerry()
   end

   -- Начальные состояния ламп и кормушек
   SetDisplayState("MainTrigger", NO_SOUND, INFO, "\n\n\t\t" .. GetConstant("Level 2 No berries"))
   SetLampState("TriggerLight", OFF)
   SetFeederState("BugFeeder", OFF, SET)
   SetFeederState("FleaFeeder", OFF, SET)

end

--------------------------------------
-- ОБРАБОТКА ИГРОВЫХ СОБЫТИЙ
--------------------------------------
function WatchEvent(action, actor, actorName, target, targetName)

   -- Поедание ягодки
   if  action == "eaten" and target == BERRY
   then

    BerryCount = BerryCount + 1

    CreateRandomBerry()

    RefreshProgress()

   end

   -- Поедание жука
   if  action == "eaten" and target == REDBUG
   then

    BugCount = BugCount + 1

    RefreshProgress()

   end

   -- Поедание блохи
   if  Stage == "Fleas" and action == "eaten" and target == FLEA
   then

    FleaCount = FleaCount + 1

    RefreshProgress()
   end

   -- Поздравления при поедании мухи
   if  IsFlyEaten == false and action == "eaten" and target == FLY
   then
    IsFlyEaten = true
    ExecuteDialog("level-1-fly", OPTIONAL)
   end

   -- Подсветка при срабатывании экрана
   if action == "triggered" and targetName == "MainTrigger"
   then
    SetLampState("TriggerLight", ON)

    if  Stage == "Berries"
    then
     SetDisplayState("MainTrigger", TRIGGER_SOUND, POSITIVE,
         "\n\n" .. GetConstant("Level 2 No berries on metal"))
    else
     SetDisplayState("MainTrigger", TRIGGER_SOUND, POSITIVE,
         "\n\t\t" .. GetConstant("Level 2 Welcome") .. " "
         .. GetPlayerName() .. GetConstant("Level 2 Welcome2"))

    end
   end

   if action == "released" and targetName == "MainTrigger"
   then
    SetLampState("TriggerLight", OFF)

    if  Stage == "Berries"
    then
     SetDisplayState("MainTrigger", RELEASE_SOUND, INFO, "\n\n\t\t" .. GetConstant("Level 2 No berries"))
    else
     SetDisplayState("MainTrigger", RELEASE_SOUND, INFO, Statistics)
    end
   end

end

--------------------------------------
-- ОТСЧЕТ СЕКУНДЫ   
--------------------------------------
IsDialog2Showed = false
IsDialog3Showed = false

function ProcessTick()

   Length = GetWormLength("Player1")

   if (IsDialog2Showed == false and Length > 15)
   then
    Stage = "Bugs"
    TargetName = GetConstant("Bugs")
    SetFeederState("BugFeeder", ON, TRANSITION)
    ShowStatistics = true
    Counter = 0
    Target = 5
    IsDialog2Showed = true
    ExecuteDialog("level-2-step2", OVERRIDE)

   elseif (IsDialog3Showed == false and Length > 30)
   then
    Stage = "Fleas"
    TargetName = GetConstant("Fleas")
    SetFeederState("FleaFeeder", ON, TRANSITION)
    Counter = 0
    Target = 3
    IsDialog3Showed = true
    ExecuteDialog("level-2-step3", OVERRIDE)

   elseif (IsWin == false and Length > 45)
   then

    ExecuteDialog("level-2-win", OVERRIDE)
    IsWin = true
    Win()
   end

end

--------------------------------------
-- ИЗМЕНЕНИЕ GUI
--------------------------------------
function ProgressInfo()

   if ShowStatistics == true
   then

    Statistics = "\t\t" .. GetConstant("Level 2 Statistics") .. "\v" ..
        "\t\t\t\t" .. GetConstant("Level 2 Berries") .. ": " .. BerryCount .. "\n" ..
        "\t\t\t\t" .. GetConstant("Level 2 Bugs") .. ": " .. BugCount .. "\n" ..
        "\t\t\t\t" .. GetConstant("Level 2 Fleas") .. ": " .. FleaCount

    SetDisplayText("MainTrigger", NO_SOUND, Statistics)

   end

   return ""
end