mirror of
https://github.com/FlightControl-Master/MOOSE_MISSIONS.git
synced 2026-08-24 16:41:31 +00:00
funkyfranky
59 lines
2.2 KiB
Lua
59 lines
2.2 KiB
Lua
-------------------------------------------------------------------------
|
|
-- SET-SCENERY-100 - Scenery Set From Zone
|
|
-------------------------------------------------------------------------
|
|
-- Documentation
|
|
--
|
|
-- SET_SCENERY: https://flightcontrol-master.github.io/MOOSE_DOCS_DEVELOP/Documentation/Core.Set.html##(SET_SCENERY)
|
|
--
|
|
-------------------------------------------------------------------------
|
|
-- Join the game master slot initially, and then the Tank in
|
|
-- Combined Arms after a few seconds. Shoot and destroy on of the tanks
|
|
-- ahead.
|
|
-------------------------------------------------------------------------
|
|
-- Date: November 2022
|
|
-------------------------------------------------------------------------
|
|
|
|
-- Get our ZONE object and draw it
|
|
local zone = ZONE:FindByName("OilTankZone")
|
|
zone:DrawZone(-1,{0,0,1},nil,nil,nil,1)
|
|
-- Create a SET_SCENERY from the map objects in the zone
|
|
local oilstation = SET_SCENERY:NewFromZone(zone)
|
|
-- we'll use this SET for further filtering
|
|
local oiltanks = SET_SCENERY:New()
|
|
|
|
-- An Airbase has a lot of map objects, but we only want to have tanks
|
|
oilstation:ForEachScenery(
|
|
function(object)
|
|
local scenery = object --Wrapper.Scenery#SCENERY
|
|
local name = scenery:GetName()
|
|
local desc = scenery:GetDesc()
|
|
BASE:I({desc.typeName})
|
|
if string.find(string.lower(desc.typeName),"tank") then
|
|
oiltanks:AddObject(scenery)
|
|
end
|
|
end
|
|
)
|
|
|
|
-- Count how many we have
|
|
local NumberTanks0 = oiltanks:CountAlive()
|
|
-- user flag OilTanks will be zero initially
|
|
local flag = USERFLAG:New("OilTanks")
|
|
flag:Set(0)
|
|
|
|
-- Function to check number of alive tanks regularly
|
|
function CheckOnOilTanks(TankSet,InitialNo,Threshold)
|
|
local NumberTanks = TankSet:CountAlive()
|
|
MESSAGE:New("Oil Tanks alive: "..NumberTanks,15,"OilTanks"):ToAll()
|
|
if NumberTanks <= InitialNo*Threshold then
|
|
-- Success!
|
|
MESSAGE:New("Success! Oil Tanks have been diminished!",15,"OilTanks"):ToAll()
|
|
-- Set a Flag in Mission Editor
|
|
flag:Set(999)
|
|
end
|
|
end
|
|
|
|
-- Create a timer to run the check function
|
|
local TankTimer = TIMER:New(CheckOnOilTanks,oiltanks,NumberTanks0,0.2)
|
|
-- check every minute
|
|
TankTimer:Start(10,30,3600)
|