59 lines
1.5 KiB
Haskell
59 lines
1.5 KiB
Haskell
module Nrdb where
|
|
|
|
import Packs
|
|
import Data.List
|
|
|
|
nrdbSearch :: ([DataPack], [BigBox]) -> String
|
|
nrdbSearch (d, b) =
|
|
"https://netrunnerdb.com/find/?q=e%3A" ++
|
|
intercalate "%7C" (
|
|
(map nrdbPackCodes d) ++
|
|
(map nrdbBoxCodes b)
|
|
)
|
|
|
|
nrdbPackCodes :: DataPack -> String
|
|
nrdbPackCodes Lunar1 = "up"
|
|
nrdbPackCodes Lunar2 = "tsb"
|
|
nrdbPackCodes Lunar3 = "fc"
|
|
nrdbPackCodes Lunar4 = "uao"
|
|
nrdbPackCodes Lunar5 = "atr"
|
|
nrdbPackCodes Lunar6 = "ts"
|
|
nrdbPackCodes Sansan1 = "val"
|
|
nrdbPackCodes Sansan2 = "bb"
|
|
nrdbPackCodes Sansan3 = "cc"
|
|
nrdbPackCodes Sansan4 = "uw"
|
|
nrdbPackCodes Sansan5 = "oh"
|
|
nrdbPackCodes Sansan6 = "uot"
|
|
nrdbPackCodes Mumbad1 = "kg"
|
|
nrdbPackCodes Mumbad2 = "bf"
|
|
nrdbPackCodes Mumbad3 = "dag"
|
|
nrdbPackCodes Mumbad4 = "si"
|
|
nrdbPackCodes Mumbad5 = "tlm"
|
|
nrdbPackCodes Mumbad6 = "ftm"
|
|
nrdbPackCodes Flash1 = "23s"
|
|
nrdbPackCodes Flash2 = "bm"
|
|
nrdbPackCodes Flash3 = "es"
|
|
nrdbPackCodes Flash4 = "in"
|
|
nrdbPackCodes Flash5 = "ml"
|
|
nrdbPackCodes Flash6 = "qu"
|
|
nrdbPackCodes Red1 = "dc"
|
|
nrdbPackCodes Red2 = "so"
|
|
nrdbPackCodes Red3 = "eas"
|
|
nrdbPackCodes Red4 = "baw"
|
|
nrdbPackCodes Red5 = "fm"
|
|
nrdbPackCodes Red6 = "cd"
|
|
nrdbPackCodes Kitara1 = "ss"
|
|
nrdbPackCodes Kitara2 = "dtwn"
|
|
nrdbPackCodes Kitara3 = "cotc"
|
|
nrdbPackCodes Kitara4 = "tdatd"
|
|
nrdbPackCodes Kitara5 = "win"
|
|
nrdbPackCodes Kitara6 = "ka"
|
|
|
|
nrdbBoxCodes :: BigBox -> String
|
|
nrdbBoxCodes Cc = "cac"
|
|
nrdbBoxCodes Hp = "hap"
|
|
nrdbBoxCodes Oc = "oac"
|
|
nrdbBoxCodes Dd = "dad"
|
|
nrdbBoxCodes Td = "td"
|
|
nrdbBoxCodes Rr = "rar"
|