src/shared/battle-map/BattleMap/Struct/DataSet.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

module BattleMap.Struct.DataSet exposing
   (
      Type,
      new,
      is_ready,
      get_tile,
      add_tile
   )

-- Elm -------------------------------------------------------------------------
import Dict

-- Battle ----------------------------------------------------------------------
import BattleMap.Struct.Tile

--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
type alias Type =
   {
      tiles : (Dict.Dict BattleMap.Struct.Tile.Ref BattleMap.Struct.Tile.Type)
   }

--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
new : Type
new =
   {
      tiles = (Dict.empty)
   }

is_ready : Type -> Bool
is_ready data_set =
   (
      (not (Dict.isEmpty data_set.tiles))
   )

---- Accessors -----------------------------------------------------------------

--------------
---- Tile ----
--------------
get_tile : (
      BattleMap.Struct.Tile.Ref ->
      Type ->
      BattleMap.Struct.Tile.Type
   )
get_tile tl_id data_set =
   case (Dict.get tl_id data_set.tiles) of
      (Just tl) -> tl
      Nothing -> BattleMap.Struct.Tile.none

add_tile : BattleMap.Struct.Tile.Type -> Type -> Type
add_tile tl data_set =
   {data_set |
      tiles =
         (Dict.insert
            (BattleMap.Struct.Tile.get_id tl)
            tl
            data_set.tiles
         )
   }