module Data where

import Types
import Functions

chooseCostume :: Bool -> IO (Int, Int)
chooseCostume = pickProp "Which dress? " [("Orange Sequins",  -1)
                                         ,("Blue Sequins",     1)
                                         ,("Purple Sequins",   1)
                                         ,("Cyan Jumpsuit",    1)
                                         ,("Pink Jumpsuit",   -1)
                                         ,("Green Jumpsuit",  -1)
                                         ,("White Leather",   -1)
                                         ,("Red Leather",      1)
                                         ,("Black Leather",    1)
                                         ,("See-through",     -1)
                                         ,("Polish Milkmaid",  1)]


chooseTopic :: Bool -> IO (Int, Int)
chooseTopic = pickProp "Which topic? " [("Peace",    -1)
                                       ,("Love",      1)
                                       ,("Freedom",  -1)
                                       ,("Cake",      1)
                                       ,("Sunshine",  1)
                                       ,("Kittens",   1)
                                       ,("Internet",  1)
                                       ,("Grandma",  -1)
                                       ,("Football", -1)
                                       ,("Europe",   -1)]


chooseMusic :: Bool -> IO (Int, Int)
chooseMusic = pickProp "Which genre? " [("Glam Rock",     -1)
                                       ,("Power Ballad",   1)
                                       ,("R&B",            1)
                                       ,("’70s Disco",    -1)
                                       ,("Celtic",         1)
                                       ,("Europop",        1)
                                       ,("Reggae",        -1)
                                       ,("50s Rock&Roll", -1)
                                       ,("’90s Dance",     1)
                                       ,("Country",       -1)]


choosePreformer :: Bool -> IO (Int, Int)
choosePreformer = pickProp "Which performer? " [("Long blond hair, woman",           1)
                                               ,("Long brown hair, woman",          -1)
                                               ,("Long red hair, woman",            -1)
                                               ,("Black, black hair, woman",         1)
                                               ,("Punk woman",                      -1)
                                               ,("Blond short hair, woman",          1)
                                               ,("Bearded, brown hair, man",         1)
                                               ,("Red hair, man",                   -1)
                                               ,("Black, bald, something",           1)
                                               ,("Mustache, black hair, man",       -1)
                                               ,("Bearded, long brown hair, woman",  2)]


chooseExtra :: Bool -> IO (Int, Int)
chooseExtra = pickProp "Which extra? " [("None",            0)
                                       ,("Headphones",      1)
                                       ,("Red Nose",       -1)
                                       ,("Contact Lenses", -1)
                                       ,("New Teeth",       1)
                                       ,("Gold Chain",      1)
                                       ,("Studded Collar", -1)
                                       ,("Glam Make-up",   -1)
                                       ,("Sunglasses",      1)]


chooseEffect :: Bool -> IO (Int, Int)
chooseEffect = pickProp "Which gimmick? " [("Bucks Fizz  ",  1)
                                          ,("Flying",        1)
                                          ,("Darkness",     -1)
                                          ,("Green Screen", -1)
                                          ,("Lasers",        1)
                                          ,("Riverprance",  -1)
                                          ,("Candles",      -1)
                                          ,("Balloons",     -1)
                                          ,("Rainbow",       1)
                                          ,("Smartphone",    1)]


chooseCountry :: Bool -> IO (Int, Ints)
chooseCountry = pickProp "Which country? " [("Utd Kingdom", Ints [10,5,8,3,7,3,1,2,4,2,4,3,3,1])
                                           ,("Ireland",     Ints [10,5,5,5,5,3,6,5,5,7,4,3,3,4])
                                           ,("Israel",      Ints [6,6,5,5,5,4,5,5,5,5,3,5,3,5])
                                           ,("Malta",       Ints [6,6,5,6,5,5,5,5,5,7,6,4,5,2])
                                           ,("France",      Ints [4,4,4,7,6,8,8,2,3,8,5,3,6,3])
                                           ,("Spain",       Ints [5,5,5,6,4,7,8,5,4,6,6,5,6,5])
                                           ,("Italy",       Ints [3,3,5,9,7,6,6,5,4,7,5,5,5,4])
                                           ,("Germany",     Ints [4,4,5,3,8,4,5,5,4,7,5,4,6,6])
                                           ,("Russia",      Ints [4,4,5,3,4,6,5,2,9,4,4,10,5,5])
                                           ,("Latvia",      Ints [3,4,5,3,5,5,5,3,7,3,6,9,3,8])
                                           ,("Luxembourg",  Ints [1,5,5,6,7,6,5,5,5,5,5,5,5,5])
                                           ,("Greece",      Ints [4,4,5,5,4,6,8,2,5,5,5,6,5,6])
                                           ,("Ukraine",     Ints [3,3,5,4,3,3,5,6,10,8,3,6,5,6])
                                           ,("Sweden",      Ints [9,6,5,3,4,4,5,7,3,4,3,5,5,10])
                                           ,("Finland",     Ints [8,6,5,4,5,4,5,6,3,4,3,6,3,10])]
