weyne/MOOSE_MISSIONS
1
0
Fork 0
mirror of https://github.com/FlightControl-Master/MOOSE_MISSIONS.git synced 2026-08-23 02:08:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated Moose.lua

Browse Source
This commit is contained in:
funkyfranky
2024-01-01 22:47:10 +00:00
parent f15138294b
commit 235e6f1a81
159 changed files with 7043 additions and 6992 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Core/Set/SET-SCENERY/SET-SCENERY-100 - Scenery Set From Zone/SET-SCENERY-100 - Scenery Set From Zone.lua
+58 -58
View File
@@ -1,58 +1,58 @@
-------------------------------------------------------------------------
-- 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)
-------------------------------------------------------------------------
-- 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)