{-# LANGUAGE TemplateHaskell #-}
module Content.RuleKind
( standardRules
) where
import Prelude ()
import Language.Haskell.TH.Syntax
import System.FilePath
import System.IO (readFile)
import qualified Paths_Allure as Self (getDataFileName, version)
import Game.LambdaHack.Content.RuleKind
standardRules :: RuleContent
standardRules = RuleContent
{ rtitle = "Allure of the Stars"
, rXmax = 80
, rYmax = 42
, rfontDir = $(do
x <- qRunIO (Self.getDataFileName "GameDefinition/fonts")
lift x)
, rexeVersion = Self.version
, rcfgUIName = "config.ui" <.> "ini"
, rcfgUIDefault = $(do
let path = "GameDefinition" </> "config.ui" <.> "default"
qAddDependentFile path
x <- qRunIO (readFile path)
lift x)
, rwriteSaveClips = 1000000
, rleadLevelClips = 50
, rscoresFile = "Allure.scores"
, rnearby = 20
, rstairWordCarried = ["staircase", "lift"]
, rsymbolProjectile = '{'
}