Aaxelb: The script I used to generate the monster resistances tables

2013-05-06T19:22:24Z

The script I used to generate the monster resistances tables

New page

Here's the little script I wrote to generate the body of the [[monster resistances]] table (as well as the [[Monster resistances (UnNetHack)|UnNetHack version]]). It uses [[User:Adeon|Adeon]]'s [https://github.com/Noeda/pinobot pinobot code]. This page is as much for my own reference as for anyone else, and this was my first time playing with a purely functional language, let alone with Haskell, so please be gentle.

To run this script, put it in a file (say, <code>resistancesTable.hs</code>) in the <code>pinobot/src</code> directory, then:
<syntaxhighlight lang="bash">
ghc --make resistancesTable
./resistancesTable vanilla > vanillaResistances.txt
./resistancesTable unnethack > unnethackResistances.txt</syntaxhighlight>

And here's the script:
<syntaxhighlight lang="haskell">
import qualified NetHack.Data.Monster as MD
import qualified NetHack.Imported.Vanilla as Vanilla
import qualified NetHack.Imported.UnNetHack as UnNetHack
import qualified Data.Text as T
import System.Environment
import Data.Maybe ( fromJust )
import Data.List.Utils ( join, contains )

data Variant = Vanilla
| UnNetHack

wikitableBody :: Variant -> String
wikitableBody variant = join "\n|-\n" [wikitableMonsterLine variant monName | monName <- (allMonsters variant)]

monsterFetcher :: Variant -> T.Text -> Maybe MD.Monster
monsterFetcher Vanilla = Vanilla.monster
monsterFetcher UnNetHack = UnNetHack.monster

allMonsters :: Variant -> [T.Text]
allMonsters Vanilla = Vanilla.allMonsterNames
allMonsters UnNetHack = UnNetHack.allMonsterNames

wikitableMonsterLine :: Variant -> T.Text -> String
wikitableMonsterLine variant monName = wikitableMonsterLine' (fromJust $ monsterFetcher variant monName)

wikitableMonsterLine' :: MD.Monster -> String
wikitableMonsterLine' mon = "| " ++ join " || "
[
"{{monsymlink|" ++ T.unpack (MD.moName mon) ++ "}}",
hasResistance mon MD.ReFire,
hasResistance mon MD.ReCold,
hasResistance mon MD.RePoison,
hasResistance mon MD.ReSleep,
hasResistance mon MD.ReElectricity,
hasResistance mon MD.ReDisintegrate,
hasResistance mon MD.ReAcid,
hasResistance mon MD.RePetrification,
hasResistance mon MD.ReDrain,
hasResistance mon MD.ReMagic ]
where
hasResistance mon res = formatCell res (contains [res] (MD.moResistances mon))

resistanceName MD.ReFire = "Fire resistance"
resistanceName MD.ReCold = "Cold resistance"
resistanceName MD.ReSleep = "Sleep resistance"
resistanceName MD.ReDisintegrate = "Disintegration resistance"
resistanceName MD.ReElectricity = "Shock resistance"
resistanceName MD.RePoison = "Poison resistance"
resistanceName MD.ReAcid = "Acid resistance"
resistanceName MD.RePetrification = "Petrification resistance"
resistanceName MD.ReDrain = "Drain resistance"
resistanceName MD.ReMagic = "Magic resistance"

formatCell res hasRes = "title='" ++ resistanceName res ++ "' " ++ yesify hasRes
yesify True = "{{yes}}"
yesify False = "{{no}}"

variantFetcher :: String -> Variant
variantFetcher "vanilla" = Vanilla
variantFetcher "unnethack" = UnNetHack

main = do
(variant:_) <- getArgs
putStrLn $ wikitableBody (variantFetcher variant)</syntaxhighlight>

User:Aaxelb/Monster resistances - Revision history

Aaxelb: The script I used to generate the monster resistances tables