--To manually re-generate and replace the current campaign mission. For contingency only, not required for normal campaign play.
--Initiated by RedoMission.bat
------------------------------------------------------------------------------------------------------- 
-- last modification: cleancode_c
if not versionDCE then versionDCE = {} end
versionDCE["BAT_SkipMission.lua"] = "1.13.95"
-------------------------------------------------------------------------------------------------------
-- adjustment_n				(n targetList numeric)(m BAT)(l playable_m from data_divers)(k bugList)(j pairsByKeys)(i global TabTask)(h skipmission_flag)(g mise a niveau)(e: use io.stdin:read)(c: fire playable_m from conf_mod)(b: robust form) 
-- debug_d					(cd: EndMission)
-- cleancode_c
-- modification M61_a		SAR
-- modification M56_a		AssignCallnameSquad
-- modification M55_a		player can change the type of plane
-- modification M47_d		keeps the history of the campaign files (d: debug) (c: save debugging information during mission generation)
-- modification M46_d		singlePlayer with dedicated server (c: DF choice)(c: D choice with AI AirSpawn)
-- modification M40_f		Template Active GroundGroup moving front (f: sideBase, move db_airbase to Actice folder)
-- modification M38_n		Check and Help CampaignMaker (n: delete Ngroug)(h: KillTarget step by step)
-- modification M35_e		version ScriptsMod + camp (e: ScriptsMod_version from UTIL_Changelog)
-- modification M14			Versionning
-- modification M11A_b_l	Multiplayer (bl MP overRide)(g %target alive)(y: force same package)(x: only active Target)(t:display name )(s: T choice bug)(r: targets already destroyed)(q: displays all tasks of several squadrons)
-------------------------------------------------------------------------------------------------------

bugList = {}
skipmission_flag = true

local function AcceptMission()
	repeat
		print("\n\n Night or Day ? : "..daytime)													-- info day or not
		print("\n\nAccept Mission ?:")	
		
		print("a".." - Accept mission")
		print("s".." - Skip mission")
		
		m = tostring(io.stdin:read())
		m = string.lower(m)
		
		if not ( m ~= nil and ( m == "a" or m == "s" or m == "d")) then 
			print("\nInvalid entry.\n")
		end
	until m ~= nil and ( m == "a" or m == "s" or m == "d")
	
	if  m == "s" then
		TaskRefused = true
		return false
	elseif  m == "d" then
		os.execute('start "Debug" "notepad++.exe" "Debug/debugFlight' .. '.txt"')
		return true
	else
		return true
	end
end


-- random seed -----
math.randomseed(tonumber(tostring(os.time()):reverse():sub(1,6)))
math.random(); math.random(); math.random()

versionPackageICM = os.getenv('versionPackageICM')														-- modification M35.b version ScriptsMod
	   
dofile("Init/conf_mod.lua")
dofile("Active/camp_status.lua")

if not ChangePlane then
	require("Active/oob_air")
end
dofile("../../../ScriptsMod."..versionPackageICM.."/UTIL_Data.lua")
dofile("../../../ScriptsMod."..versionPackageICM.."/UTIL_DataMap.lua")
dofile("../../../ScriptsMod."..versionPackageICM.."/UTIL_Functions.lua")
dofile("Active/targetlist.lua")

local db_airbasesFile = "Active/db_airbases.lua"
local TestPath = io.open(db_airbasesFile, "r")																--cette maniere de chercer la presence d un fichier evite un plantage
if TestPath ~= nil then																					--check si le fichier existe dans ScriptsMod
	io.close(TestPath)
	dofile("Active/db_airbases.lua")
else	
	local db_airbasesFile2 = "Init/db_airbases.lua"
	local TestPath2 = io.open(db_airbasesFile2, "r")
	if TestPath2 ~= nil then																			--check si le fichier exist dans le dossier campagne
		io.close(TestPath2)
		dofile(db_airbasesFile2)
		--creer le fichier db_airbases dans Active, meme en cours de campagne, pour garder la retrocompatibilite
		print("MainA create copie db_airbase from Init")
		local airbases_Str = "db_airbases = " .. TableSerialization(db_airbases, 0)
		local trigFile = io.open("Active/db_airbases.lua", "w")
		trigFile:write(airbases_Str)
		trigFile:close()
	end
end

if not targetlist.blue[1] then
	targetlistToNum()
end

playable_m = {}

for planeType, value in pairsByKeys(data_divers) do	
	if value.playable then
		playable_m[planeType] = true
	end
end		


local showVersion = versionPackageICM

local verScriptsModPath = "../../../ScriptsMod."..versionPackageICM.."/UTIL_Changelog.lua"
local TestPath = io.open(verScriptsModPath, "r")
if  TestPath ~= nil then
	io.close(TestPath)
	dofile("../../../ScriptsMod."..versionPackageICM.."/UTIL_Changelog.lua")
	if versionDCE then
		showVersion = showVersion.." ("..versionDCE["UTIL_Changelog.lua"]..")"
	elseif VersionDCE then
		showVersion = showVersion.." ("..versionDCE["UTIL_Changelog.txt"]..")"
	end
end

--affiche le type d'avion selectionné et son squadrons M55_a
playerPlaneBAT = ""
playerSquadBAT = ""
playerCountryBAT = ""
for side, squadTL in  pairsByKeys(oob_air) do
	for squad_n, squad in  pairsByKeys(squadTL) do
		if squad.player then 
			playerPlaneBAT = squad.type
			playerSquadBAT = squad.name
			playerCountryBAT = squad.country
		end
	end
end

if versionPackageICM then
	print("= = = = = = = = = = = = = = = = = = = = = = = "..camp.title.." = = = = = = = = = = = = = = = = = =")
	print("= = = = = = = = = = = = = Campaign Version : "..tostring(camp.version))
	print("= = = = = = = = = = = = = Script Version : "..showVersion)
	print("= = = = = = = = = = = = = Player Plane : "..tostring(playerPlaneBAT).." "..tostring(playerSquadBAT).." "..tostring(playerCountryBAT))
	print()
else 
	print("= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =")
end	
	--===================================================================================
	-- Ecran N°0 Choix next campaign mission
local input
if not ChangePlane then	
	print("Skip current mission and generate next campaign mission. Continue? y(es)/n(o):\n")				--ask for user confirmation

	
	local playable_type = {}

	SinglePlayer = false
	if Multi == nil then
		Multi = 
		{
			NbGroup = 0,
		}
	end

	repeat
		input = string.lower(io.stdin:read())
		if input == "y" or input == "yes" or input == "n" or input == "no" then
			break
		else
			print("\n\nInvalid entry. Respond with y(es) or n(o):\n")
		end
	until input == "y" or input == "yes" or input == "n" or input == "no"			
else
	input = "y"
end

if input == "y" or input == "yes" then	

	repeat	
		--===================================================================================
		-- Ecran N°1 Choix entre Single ou Multiplayer
		
		local tabIndex01 = { 
			["s"] = true,
			["d"] = true,
			
			["df"] = true,
			
			["c"] = true,
			
			["n"] = true,
			["t"] = true,
			
			
			["y"] = true,
			["z"] = true,
			-- ["w"] = true,--ne pas le mettre pour renouveller un choix possible
		}
		
		repeat																							-- adjustment A01 : robust form 
		
			print("Select :\n"..
				"S (S)ingleplayer  \n"..
				"D Singleplayer with (D)edicated Server \n"..
				"DF Singleplayer with (D)edicated Server, (F)ull plane on Deck (Testing: Bug Catapult possible) \n"..
				"\n"..						
				"C (C)hange type of plane\n"..
				"\n"..
				"T Multiplayer by choice of (T)arget \n"..
				"N multiplayer by choice of (N)ATO")

			choix1 = io.stdin:read()
			choix1 = string.lower(choix1)

			if choix1 == "n" or  choix1 == "t"  then
				if choix1 == "t"  then
				--===================================================================================
				-- Ecran N°2 Selection du Target	
					print("choose a Single target")
					
					local tabIndex = {}	 
					-- for side, Targetlist in pairsByKeys(tableTargetlist) do
					for side, targetSide in pairs(targetlist) do
						local j = 1
						local Ckey = 0
						print() print(side..":")
						for key, target in ipairs(targetSide) do	
							if target.inactive ~= true and target.ATO and ( target.task == "Strike" or target.task == "Anti-ship Strike" or target.task == "CSAR") then
								if side == "red" then
									Ckey = key + #targetlist["blue"]															--permet de n'afficher qu'un nombre continue pour les 2 camps
								else 
									Ckey = key
								end											
								io.write(  Ckey.." "..side.." "..tostring(target.titleName) .."  "..tostring(target.alive).." %  X"..tostring(target.priority).."\n")
								if not tabIndex[Ckey]  then tabIndex[Ckey] = {} end
								tabIndex[Ckey]["side"] = side
								j = j+1	
							end
						end
					end

					repeat
						input = tonumber(io.stdin:read())
						if (input == nil or input == "") then input = 999 end
						if input >  #targetlist["blue"] then
							Ckey = input - #targetlist["blue"]
						else
							Ckey = input
						end
						if  tabIndex[input] then
							local side = tabIndex[input]["side"]
							if not Multi.Target then Multi.Target = {} end
							if not Multi.Target[side] then Multi.Target[side]= {} end
							Multi.Target[side] = targetlist[side][Ckey].titleName
							print("\n"..targetlist[side][Ckey].titleName.."\n")
						else 
							print("\nInvalid entry.\n")
						end
					until  tabIndex[input]
					
					io.write( "\n")	
				end	--if choix1 == "t"  then
			
			--===================================================================================
			-- Ecran N°3 Selection nb of Flight
				repeat
					print("Select number of Flight :\n")
					input = tonumber(io.stdin:read())
					if (input == nil or input == "") then input = 999 end
					if  (input >= 1 and  input <= 10) then
						Multi.NbGroup = input
					else 
						print("\nInvalid entry.\n")
					end
				until   (input >= 1 and  input <= 10) 

			--===================================================================================
			-- Ecran N°4 Selection du type d'avion Multiplayer	
				local tabIndex = {}
				for i = 1 , Multi.NbGroup do
					local ExPlaneA = ""
					local stopLoop = false
					for nSide , oob_airSide in pairsByKeys(oob_air) do														--pour afficher l'exemple de selection du premier avion présenté
						for m , unit in pairsByKeys(oob_airSide) do
							if playable_m[unit.type] and unit.inactive ~= true and not stopLoop then
								ExPlaneA = unit.type
								stopLoop = true
							end
						end
					end
								
					print("Choose your aircraft type for Flight n°"..i)
					print("(number of aircraft) (type of aircraft) (type of mission)")
					print("example for (4 "..ExPlaneA..": Escort): 4ae or 4AE") 

					if not Multi.Group then Multi.Group= {} end
					if not Multi.Group[i] then Multi.Group[i]= {} end
					
					local playable_type = {}
					local seen = {}	
					local tasks = {}
				local ti = 65 																						--char(65) == a
				tabTaskAvailable = {}
				
				-- parse toutes les unités et rempli le tab tabTaskAvailable pour etre sur de proposer toutes les task proposé active 
				for nSide , oob_airSide in pairsByKeys(oob_air) do	
					print() print(nSide..":")
					for m , unit in pairsByKeys(oob_airSide) do						
						if playable_m[unit.type]  and unit.inactive ~= true then							
							for taskStr , nbool in pairsByKeys(oob_air[nSide][m].tasks) do
								taskStr = tostring(taskStr)							
								
								if not tabTaskAvailable[nSide] then tabTaskAvailable[nSide] = {} end
								if not tabTaskAvailable[nSide][unit.type] then tabTaskAvailable[nSide][unit.type] = {} end
								if not tabTaskAvailable[nSide][unit.type][taskStr] then tabTaskAvailable[nSide][unit.type][taskStr] = nbool end
								if nbool == true then	tabTaskAvailable[nSide][unit.type][taskStr] = true	end
							end
						end
					end
				end
				
				-- display le tableau des choix d'avion et de task
				--tabTaskAvailable[nSide][unit.type][taskStr]
				for nSide , unit_type in pairsByKeys(tabTaskAvailable) do	
					print() print(nSide..":")
					for unitType , TabType in pairsByKeys(unit_type) do
							
						local IndexStringType = string.lower(string.char(ti))
						if not playable_type[IndexStringType] then playable_type[IndexStringType] = {} end													
						playable_type[IndexStringType]["type"] = unitType
						playable_type[IndexStringType]["side"] = nSide
						
						io.write(" (1 to 8): ("..IndexStringType.."): "..unitType..":")												
							
						for taskStr , nbool in pairsByKeys(TabType) do	
							if   nbool == true then
								io.write( " ("..TabTask[taskStr]..")"..taskStr.."")
								local FstLetTask = string.lower(string.sub (taskStr, 1, 1))
								tabIndex[tostring(1)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(2)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(3)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(4)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(5)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(6)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(7)..IndexStringType..TabTask[taskStr]] = true
								tabIndex[tostring(8)..IndexStringType..TabTask[taskStr]] = true
								
							end
						end
						io.write("\n")
						ti = ti+1
					end
				end

				io.write( "\n")
			--===================================================================================
				-- Ecran N°5 Selection Nombre d'avion Multiplayer
					repeat
						input = string.lower(io.stdin:read())
						if  tabIndex[input] then
							if not Multi.Group[i] then Multi.Group[i]= {} end
							
							local inputNb = tonumber(string.sub (input, 1, 1))
							Multi.Group[i].NbPlane = inputNb
							
							local inputTyp = tostring(string.sub (input, 2, 2))
							Multi.Group[i].PlaneType = playable_type[inputTyp].type
							Multi.Group[i].side = playable_type[inputTyp].side
							
							local inputTsk = tostring(string.sub (input, 3, 4))
							Multi.Group[i].task = TabTask[inputTsk]
							
						else 
							print("\nInvalid entry.\n")
						end
					until   tabIndex[input] 
					
					io.write( "\n")
				
					--========================= affiche le choix du joueurs
					print(" -------------------------------------------------------> Building your different Flight: ")
					for k=1, i do
						print(" -------------------------------------------------------> "..Multi.Group[k].NbPlane.." "..Multi.Group[k].PlaneType.." ("..Multi.Group[k].side..")".." "..Multi.Group[k].task)
					end
					io.write( "\n")
				
				end
			--===================================================================================
				-- Ecran N°6 SinglePlayer
			
			elseif choix1 == "s" then
			  SinglePlayer = true			  
			  
			elseif choix1 == "d" then
			  SinglePlayer = true
			  SingleWithDServer = true
			  SingleWithDServerAiAir = true
			  
			elseif choix1 == "df" then
			  SinglePlayer = true
			  SingleWithDServer = true
			  
			-- modification M38.e Check and helps CampaignMaker
			elseif choix1 == "w" then
				UTIL_KillTarget = true
			elseif choix1 == "w2" then
				dofile("../../../ScriptsMod."..versionPackageICM.."/UTIL_Divers.lua")
				os.execute 'pause'
				break				
			--M55_a		player can change the type of plane	
			elseif choix1 == "c" then
				dofile("../../../ScriptsMod."..versionPackageICM.."/UTIL_ChangePlane.lua")
			end
			
		until tabIndex01[choix1]
		
		MissionInstance = 0
		print("\n\n")
		repeat
			print("Generating Next Mission.\n")

			MissionInstance = MissionInstance + 1															--count the number of times the mission is generated

			camp.versionPackageICM = tostring(versionPackageICM)											-- modification M35 version ScriptsMod -- ajoute la version du script dans camp_status pour utilisation en fin de mission																				--set amount of players
			dofile("../../../ScriptsMod."..versionPackageICM.."/MAIN_NextMission.lua")																--generate mission
			
			if EndCampaign or camp.endCampaign then 																			-- debug01.b EndMission
				local EndInfo
				if EndCampaign == nil then
					EndInfo = camp.endCampaign
				else
					EndInfo = EndCampaign
				end
				print("\n This campaign is a ".. tostring(EndInfo).."  \nEND OF THE CAMPAIGN, SEE THE BRIEFING IN THE MISSION..\n")					-- end of camapaign
				break		
			elseif Multi.NbGroup >= 1 and PlayerFlight then 
				if AcceptMission() then
					print("\nMultiplayerCampaign Next mission generated.\n")								--confirmation text
					break
				end
			elseif SinglePlayer and PlayerFlight  then														--mission has a player flight
				if AcceptMission() then
					print("\nNext mission generated.\n")													--confirmation text
					break
				end	
			elseif stopBug then																			--mission has a player flight
				print("\n\n stopBug .\n")																--confirmation text
				break
			elseif MissionInstance == 20 then																--no player flight could be assigned in 20 tries, stop it
				print("Mission Generation Error. No eligible player flight in 20 attempts. Try again.\n\n")
				break
			else																							--no player flight could be assigned, advance time and try again
				if playability_criterium.active_unit == nil then
					print("Player unit is not active.\n\n")
				elseif playability_criterium.base == nil then
					print("Player airbase is not operational.\n\n")
				elseif playability_criterium.ready_aircraft == nil then
					print("Player unit has no ready aircraft.\n\n")
				elseif playability_criterium.tot == nil then
					print("Player aircraft type cannot operate at this time of day.\n\n")
				elseif playability_criterium.target == nil then
					print("No eligible mission available for player.\n\n")
				elseif playability_criterium.target_firepower == nil then
					print("Not enough ready aircraft for this mission.\n\n")
				elseif playability_criterium.weather == nil then
					print("Player aircraft type cannot operate in this weather.\n\n")
				elseif playability_criterium.target_range == nil then
					print("No eligible mission available for player.\n\n")
				elseif playability_criterium.coop == nil then
					print("Not enough ready aircraft for all clients.\n\n")
				elseif Multi.NbGroup and not PlayerFlight then
					print("Not enough ready aircraft for all clients.\n\n")
				elseif playability_criterium.intercept == nil then
					print("Ground alert intercept duty without launch.\n\n")
				end
			end
			if showVersion then
				print("= = = = = = = = = = = = = = = = = = = = = = = "..camp.title.." = = = = = = = = = = = = = = = = = =")
				print("= = = = = = = = = = = = = Campaign Version : "..tostring(camp.version))
				print("= = = = = = = = = = = = = Script Version : "..showVersion)
				print("= = = = = = = = = = = = = Player Plane : "..tostring(playerPlaneBAT).." "..tostring(playerSquadBAT).." "..tostring(playerCountryBAT))
				print()
			else 
				print("= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =")
			end	

		until 1 == 2

		break

	until 1 == 2

end
os.execute 'pause'																					--pause command window for user to read text
os.exit()