38 lines
1.5 KiB
Haskell
38 lines
1.5 KiB
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
import qualified Data.Text as T
|
||
|
|
import qualified Data.Text.IO as T
|
||
|
|
import qualified Data.Set as S
|
||
|
|
import Data.List
|
||
|
|
import Control.Monad
|
||
|
|
|
||
|
|
stats :: [(T.Text, [T.Text])]
|
||
|
|
stats = [
|
||
|
|
("brn", ["appraise", "bombs", "chemistry", "craft", "hack", "locksmith", "medic", "persuade", "pilot", "repair",
|
||
|
|
"science", "teach"]),
|
||
|
|
("sen", ["appraise", "dodge", "focus", "fuck", "scavenge", "sneak", "throw", "track", "whips"]),
|
||
|
|
("brw", ["clubs", "fists", "throw"]),
|
||
|
|
("refl", ["blades", "climb", "clubs", "dodge", "locksmith", "pilot", "pistols", "quickdraw", "rifles", "spears",
|
||
|
|
"whips"]),
|
||
|
|
("end", ["climb", "fish", "fists", "focus", "fuck", "scavenge", "spears", "swim"]),
|
||
|
|
("col", ["blades", "bombs", "fish", "pistols", "quickdraw", "rifles", "sneak", "persuade"])
|
||
|
|
]
|
||
|
|
|
||
|
|
doubleValue :: S.Set T.Text
|
||
|
|
doubleValue = S.fromList [
|
||
|
|
"chemistry", "craft", "hack", "medic", "repair",
|
||
|
|
"science", "swim", "teach", "track"
|
||
|
|
]
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main =
|
||
|
|
let skillSet =
|
||
|
|
sortOn snd $
|
||
|
|
stats >>= (\(st, skills) -> map (\skill -> (st, skill)) skills)
|
||
|
|
in
|
||
|
|
forM_ skillSet $
|
||
|
|
\(stat, skill) ->
|
||
|
|
let mup = if skill `S.member` doubleValue then "" else " * 0.5"
|
||
|
|
in
|
||
|
|
T.putStrLn $ " target_item.total_skills.entry(SkillType::" <> (T.toTitle skill) <> ")\n\
|
||
|
|
\ .and_modify(|sk| *sk += " <> stat <> mup <> ").or_insert(brn" <> mup <> ");"
|