--***********************************************************
--                Moving objects test.
--***********************************************************

function InitialiseLevel()
    LoadLevel("landscapes/MP/ScriptPack/M4.xom",true)
    TriggerCrateCollected = {false, false} --подобран ли ящик-триггер
    PlatformPoints = {"buildHere0028", "buildHere0040"} --позиции платформы
end

function MakeTriggerCrate(N) --создание ящика-триггера
    crate = CreateCrate()
    crate.Contents = kWF_TRIGGER_CRATE
    crate.NumContents = 1
    crate.TeamDestructible = -1
    crate.WormCollectable = -1
    crate.TeamCollectable = -1
    crate.GroundSnap = false
    crate.FixedPosition = true
    crate.UXB = false
    crate.Destructible = false
    crate.Pushable = false
    crate.CollectableByPayload = false
    crate.Collectable = true
    crate.Model = "Crate.Critical"
    crate.SpinBaby = true
    crate.ScaleFactor = 0.5
    crate.CrateId = N --+1000
    SpawnCrate( crate.Index, PlatformPoints[N] )
end

function HideWormsNow()
    ObjData = GetDetailObjectData("holygrail") --настройка параметров объекта
    ObjData.IsVisible = true
    ObjData.IsCollidable = true
    ObjData.CanBeDamaged = false
    ObjData.CanBeDestroyed = false
    ObjData.DisappearsWhenDestroyed = true
    ObjData.TimerEventsAreRepeating = false
    ObjData.MovementSpeed = 1.5
    ObjData.TimeToReachMovementSpeed = 3.0
    ObjData.MaxHealth = 100.0
    ObjData.CurrentHealth = 100.0
    WarpDetailObjectToPoint("holygrail", PlatformPoints[1]) --мгновенное перемещение на стартовую позицию
    local CrateN = 1 --создание ящиков-триггеров
    while CrateN <= 2 do
  MakeTriggerCrate(CrateN)
    CrateN = CrateN + 1
    end
end

function CrateCollected(CrateIndex,WormIndex)
    crate = GetCrateData(CrateIndex)
    if crate.Contents == kWF_TRIGGER_CRATE then --проверка на ящик-триггер
  TriggerCrateCollected[crate.CrateId] = true
  WarpDetailObjectToPoint("holygrail", PlatformPoints[crate.CrateId]) --мгновенное перемещение на позицию рядом с ящиком
  if crate.CrateId == 1 then --плавное перемещение на другую позицию
   ObjData.TimeToReachMovementSpeed = 3.0
   MoveDetailObjectToPoint("holygrail", PlatformPoints[2])
  elseif crate.CrateId == 2 then
   ObjData.TimeToReachMovementSpeed = 5.0
   MoveDetailObjectToPoint("holygrail", PlatformPoints[1])
  end
    end
    collectgarbage()
end

function TurnEnded()
    local CrateN = 1 --восстановление взятых ящиков
    while CrateN <= 2 do
  if TriggerCrateCollected[CrateN] then
   MakeTriggerCrate(CrateN)
   TriggerCrateCollected[CrateN] = false
  end
    CrateN = CrateN + 1
    end
end

moving = IsDetailObjectMoving("Sheep001")

function DetailObjectCollisionWithWeapon(ObjectName)
function DetailObjectCollisionWithWorm(ObjectName, WormIndex)
function DetailObjectDamaged(ObjectName, AssailantTaskId, DamageAmount)

ObjData = GetDetailObjectData("bullet001")
ObjData.IsVisible = true
ObjData.IsCollidable = true
ObjData.TimerEventsAreRepeating = true
ObjData.MovementSpeed = 10.0 --число от балды
ObjData.TimeToReachMovementSpeed = 0.0
SetDetailObjectTimerEvent("bullet001", kEventMoveToPoint, 0, "wfRefPointSheepDip")