module Nrdb where

import Packs
import Data.List

nrdbSearch :: ([DataPack], [BigBox]) -> String
nrdbSearch (d, b) =
   "https://netrunnerdb.com/find/?q=e%3A" ++
   intercalate "%7C" (
      sort ((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"