A Classic Fairytale: Harden all missions against missing campaign variables in team file and assume default values
This assumes the worst case in which the team file is missing all campaign variables except Progress.
This has been successfully tested with all 10 missions and still generates a logical storyline.
By default, the game assumes:
- The cyborg's offer in mission 2 was refused
- The traitor in mission 5 was killed
As a consequence, missions 8 and 10 use the princessScene cut scene.
{- * Hedgewars, a free turn based strategy game * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; version 2 of the License * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. \-}{-# LANGUAGE CPP, ScopedTypeVariables, OverloadedStrings #-}module Main whereimport Network.Socketimport Network.BSDimport Control.Concurrent.Chanimport qualified Control.Exception as Eimport System.Log.Logger-----------------------------------import Optsimport CoreTypesimport ServerCore#if defined(OFFICIAL_SERVER)import ConfigFile#endif#if !defined(mingw32_HOST_OS)import System.Posix#endifsetupLoggers :: IO ()setupLoggers = do updateGlobalLogger "Clients" (setLevel NOTICE) updateGlobalLogger "Core" (setLevel NOTICE) updateGlobalLogger "REPLAYS" (setLevel NOTICE)server :: ServerInfo -> IO ()server si = do proto <- getProtocolNumber "tcp" E.bracket (socket AF_INET Stream proto) sClose (\sock -> do setSocketOption sock ReuseAddr 1 bindSocket sock (SockAddrInet (listenPort si) iNADDR_ANY) listen sock maxListenQueue startServer si{serverSocket = Just sock} )handleRestart :: ShutdownException -> IO ()handleRestart ShutdownException = do noticeM "Core" "Shutting down" return ()main :: IO ()main = withSocketsDo $ do#if !defined(mingw32_HOST_OS) _ <- installHandler sigPIPE Ignore Nothing _ <- installHandler sigCHLD Ignore Nothing#endif setupLoggers dbQueriesChan <- newChan coreChan' <- newChan serverInfo' <- getOpts $ newServerInfo coreChan' dbQueriesChan Nothing Nothing#if defined(OFFICIAL_SERVER) si <- readServerConfig serverInfo'#else let si = serverInfo'#endif (server si) `E.catch` handleRestart