| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'client/elm/battlemap/src/Shim')
| -rw-r--r-- | client/elm/battlemap/src/Shim/Battlemap.elm | 11 | ||||
| -rw-r--r-- | client/elm/battlemap/src/Shim/Battlemap/Tile.elm | 40 | ||||
| -rw-r--r-- | client/elm/battlemap/src/Shim/Model.elm | 50 | 
3 files changed, 101 insertions, 0 deletions
| diff --git a/client/elm/battlemap/src/Shim/Battlemap.elm b/client/elm/battlemap/src/Shim/Battlemap.elm new file mode 100644 index 0000000..820ceec --- /dev/null +++ b/client/elm/battlemap/src/Shim/Battlemap.elm @@ -0,0 +1,11 @@ +module Shim.Battlemap exposing (generate) + +import Shim.Battlemap.Tile + +--generate : Battlemap.Type +generate = +   { +      width = 6, +      height = 6, +      content = (Shim.Battlemap.Tile.generate) +   } diff --git a/client/elm/battlemap/src/Shim/Battlemap/Tile.elm b/client/elm/battlemap/src/Shim/Battlemap/Tile.elm new file mode 100644 index 0000000..e3ab7bb --- /dev/null +++ b/client/elm/battlemap/src/Shim/Battlemap/Tile.elm @@ -0,0 +1,40 @@ +module Shim.Battlemap.Tile exposing (generate) + +import Array +import List + +import Battlemap.Direction +import Battlemap.Tile + +from_int : Int -> Battlemap.Tile.Type +from_int i = +   if (i >= 10) +   then +      { +         floor_level = (i - 10), +         nav_level = Battlemap.Direction.None, +         char_level = (Just (toString (i - 10))) +      } +   else +      { +         floor_level = i, +         nav_level = Battlemap.Direction.None, +         char_level = Nothing +      } + + +generate : (Array.Array Battlemap.Tile.Type) +generate = +   (Array.fromList +      (List.map +         (from_int) +         [ +            10,   1,    1,    2,    2,    2, +            1,    0,    0,    0,    11,   2, +            1,    0,    1,    2,    0,    2, +            3,    0,    3,    4,    0,    4, +            3,    12,   0,    0,    0,    4, +            3,    3,    3,    4,    4,    4 +         ] +      ) +   ) diff --git a/client/elm/battlemap/src/Shim/Model.elm b/client/elm/battlemap/src/Shim/Model.elm new file mode 100644 index 0000000..517f80d --- /dev/null +++ b/client/elm/battlemap/src/Shim/Model.elm @@ -0,0 +1,50 @@ +module Shim.Model exposing (generate) + +import Dict + +--import Model + +import Shim.Battlemap + +--generate : Model.Type +generate = +   { +      battlemap = (Shim.Battlemap.generate), +      navigator = Nothing, +      selection = Nothing, +      characters = +         (Dict.insert +            "2" +            { +               id = "2", +               name = "Char2", +               icon = "Icon2", +               portrait = "Portrait2", +               location = {x = 1, y = 4}, +               movement_points = 6 +            } +            (Dict.insert +               "1" +               { +                  id = "1", +                  name = "Char1", +                  icon = "Icon1", +                  portrait = "Portrait1", +                  location = {x = 4, y = 1}, +                  movement_points = 10 +               } +               (Dict.insert +                  "0" +                  { +                     id = "0", +                     name = "Char0", +                     icon = "Icon0", +                     portrait = "Portrait0", +                     location = {x = 0, y = 0}, +                     movement_points = 16 +                  } +                  Dict.empty +               ) +            ) +         ) +   } | 


