Adv2Game/Types.hs at master · dskecse/Adv2Game · GitHub

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
module Types where

data Location = Home
              | FriendYard
              | Garden
              | OtherRoom
      deriving (Eq, Show, Read)

-- Where to go using Walk and Go commands
data Direction = North
               | South
               | West
               | East
       deriving (Eq, Show, Read)

-- Player's actions
data Action = Look
            | Go Direction
            | Inventory
            | Take
            | Drop
            | Investigate Object
            | Quit
            | Save
            | Load
            | New
    deriving (Eq, Show, Read)

data Object = Table
            | Umbrella
            | Drawer
            | Phone
            | MailBox
            | FriendKey
    deriving (Eq, Show, Read)