DML/modules/bank.lua

bank = {}
bank.version = "1.0.0"
bank.requiredLibs = {
	"dcsCommon", -- always
	"cfxZones", -- Zones, of course 
}
bank.acts = {} -- 'accounts'

function bank.addFunds(act, amt)
	if not act then act = "!!NIL!!" end 
	if act == 1 then act = "red" end 
	if act == 2 then act = "blue" end 
	if act == 0 then act = "neutral" end 
	act = string.lower(act)
	
	local curVal = bank.acts[act] 
	if not curVal then 
		trigger.action.outText("+++Bank: no account <" .. act .. "> found. No transaction", 30)
		return false
	end 
	
	bank.acts[act] = curVal + amt 
	return true 
end

function bank.withdawFunds(act, amt)
	if not act then act = "!!NIL!!" end 
	if act == 1 then act = "red" end 
	if act == 2 then act = "blue" end 
	if act == 0 then act = "neutral" end 
	act = string.lower(act)
	
	local curVal = bank.acts[act] 
	if not curVal then 
		trigger.action.outText("+++Bank: no account <" .. act .. "> found. No transaction", 30)
		return false 
	end 
	if amt > curVal then return false end 
	
	bank.acts[act] = curVal - amt
	return true 
end

function bank.getBalance(act)
	if not act then act = "!!NIL!!" end 
	if act == 1 then act = "red" end 
	if act == 2 then act = "blue" end 
	if act == 0 then act = "neutral" end 
	act = string.lower(act)
	
	local curVal = bank.acts[act] 
	if not curVal then 
		trigger.action.outText("+++Bank: no account <" .. act .. "> found. No transaction", 30)
		return false, 0
	end 
	
	return true, curVal
end

function bank.openAccount(act, amount, oride)
	if not amount then amount = 0 end 
	if bank.acts[act] and not oride then return false end -- account exists 
	bank.acts[act] = amount 
	return true 
end

function bank.readConfigZone()
	local theZone = cfxZones.getZoneByName("bankConfig") 
	if not theZone then 
		theZone = cfxZones.createSimpleZone("bankConfig") 
	end 
	
	-- set initial balances 
	bank.red = theZone:getNumberFromZoneProperty ("red", 1000)
	bank.blue = theZone:getNumberFromZoneProperty ("blue", 1000)
	bank.neutral = theZone:getNumberFromZoneProperty ("neutral", 1000)

	bank.acts["red"] = bank.red 
	bank.acts["blue"] = bank.blue 
	bank.acts["neutral"] = bank.neutral 
	
	if theZone:hasProperty("sharedData") then -- future-proof
		bank.sharedData = theZone:getStringFromZoneProperty("sharedData", "cfxNameMissing")
	end 
	
	bank.verbose = theZone.verbose
end

--
-- load / save (persistence)
--
function bank.saveData()
	local theData = {}
	-- save current score list. simple clone 
	local acts = dcsCommon.clone(bank.acts)
	theData.acts = acts
	
	return theData, bank.sharedData
end


function bank.loadData()
	if not persistence then return end 
	local theData = persistence.getSavedDataForModule("bank", bank.sharedData)
	if not theData then 
		if bank.verbose then 
			trigger.action.outText("+++bank: no save data received, skipping.", 30)
		end
		return
	end
	
	local acts = theData.acts
	bank.acts = acts 
end

--
-- start
--
function bank.start()
	-- lib check
	if not dcsCommon.libCheck then 
		trigger.action.outText("bank requires dcsCommon", 30)
		return false 
	end 
	if not dcsCommon.libCheck("bank", bank.requiredLibs) then
		return false 
	end
	
	-- read config 
	bank.readConfigZone()

	-- load data if persisted 
	if persistence then 
		-- sign up for persistence 
		callbacks = {}
		callbacks.persistData = bank.saveData
		persistence.registerModule("bank", callbacks)
		-- now load my data 
		bank.loadData()
	end	

		
	trigger.action.outText("bank v" .. bank.version .. " started.", 30)
	return true 
end

if not bank.start() then 
	trigger.action.outText("bank aborted: missing libraries", 30)
	bank = nil 
end

--[[--
  Add 'creditLine' input to directly load a value into the bank?

--]]--