DragonDice

Check-in [706c71665d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Replacing language placeholders: Merfolk -> Sylvan (Aquan), Vampire -> Infernal
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 706c71665d1dc4f4dbfef16ad5cb7d5f2088e59a95b9d2ab252c64ec0527e4ba
User & Date: murphy 2020-05-06 11:24:55
Context
2020-05-07
20:53
Allow deltas for skill checks and in some other commands check-in: 89253a68b2 user: murphy tags: trunk
2020-05-06
11:24
Replacing language placeholders: Merfolk -> Sylvan (Aquan), Vampire -> Infernal check-in: 706c71665d user: murphy tags: trunk
2020-05-01
18:06
Additional race (and language) options from Ixalan and Arkadia check-in: 350b0e4e3f user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to DragonDice/Language.fs.

45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
    ]

  let [<Literal>] Abyssal = "Abyssal"
  let [<Literal>] Celestial = "Celestial"
  let [<Literal>] Draconic = "Draconic"
  let [<Literal>] DeepSpeech = "Deep Speech"
  let [<Literal>] Infernal = "Infernal"
  let [<Literal>] Merfolk = "Merfolk"
  let [<Literal>] Primordial = "Primordial"
  let [<Literal>] Sylvan = "Sylvan"
  let [<Literal>] Undercommon = "Undercommon"
  let [<Literal>] Vampire = "Vampire"

  /// Set of exotic languages.
  let Exotic =
    Set.ofList [
      Abyssal
      Celestial
      Draconic
      DeepSpeech
      Infernal
      Merfolk
      Primordial
      Sylvan
      Undercommon
      Vampire
    ]

  let [<Literal>] Druidic = "Druidic"
  let [<Literal>] ThievesCant = "Thieves' Cant"
  let [<Literal>] DrowSilentCant = "Drow Silent Cant"

  /// Set of secret languages.







<



<









<



<







45
46
47
48
49
50
51

52
53
54

55
56
57
58
59
60
61
62
63

64
65
66

67
68
69
70
71
72
73
    ]

  let [<Literal>] Abyssal = "Abyssal"
  let [<Literal>] Celestial = "Celestial"
  let [<Literal>] Draconic = "Draconic"
  let [<Literal>] DeepSpeech = "Deep Speech"
  let [<Literal>] Infernal = "Infernal"

  let [<Literal>] Primordial = "Primordial"
  let [<Literal>] Sylvan = "Sylvan"
  let [<Literal>] Undercommon = "Undercommon"


  /// Set of exotic languages.
  let Exotic =
    Set.ofList [
      Abyssal
      Celestial
      Draconic
      DeepSpeech
      Infernal

      Primordial
      Sylvan
      Undercommon

    ]

  let [<Literal>] Druidic = "Druidic"
  let [<Literal>] ThievesCant = "Thieves' Cant"
  let [<Literal>] DrowSilentCant = "Drow Silent Cant"

  /// Set of secret languages.

Changes to DragonDice/Race.fs.

196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
      | Race.Dwarf      -> Set.ofList [Language.Common; Language.Dwarvish]
      | Race.Elf
      | Race.HalfElf    -> Set.ofList [Language.Common; Language.Elvish]
      | Race.Halfling   -> Set.ofList [Language.Common; Language.Halfling]
      | Race.Dragonborn -> Set.ofList [Language.Common; Language.Draconic]
      | Race.Gnome      -> Set.ofList [Language.Common; Language.Gnomish]
      | Race.HalfOrc    -> Set.ofList [Language.Common; Language.Orc]
      | Race.Merfolk    -> Set.ofList [Language.Common; Language.Merfolk]
      | Race.Phaedran   -> Set.ofList [Language.Common; Language.Sylvan]
      | Race.Tiefling   -> Set.ofList [Language.Common; Language.Infernal]
      | Race.Vampire    -> Set.ofList [Language.Common; Language.Vampire]
      | _               -> Set.singleton Language.Common
    
  /// Map a race tag to a name.
  let toString race =
    match race with
    | Race.HillDwarf         -> "Hill Dwarf"
    | Race.MountainDwarf     -> "Mountain Dwarf"







|

|
|







196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
      | Race.Dwarf      -> Set.ofList [Language.Common; Language.Dwarvish]
      | Race.Elf
      | Race.HalfElf    -> Set.ofList [Language.Common; Language.Elvish]
      | Race.Halfling   -> Set.ofList [Language.Common; Language.Halfling]
      | Race.Dragonborn -> Set.ofList [Language.Common; Language.Draconic]
      | Race.Gnome      -> Set.ofList [Language.Common; Language.Gnomish]
      | Race.HalfOrc    -> Set.ofList [Language.Common; Language.Orc]
      | Race.Merfolk
      | Race.Phaedran   -> Set.ofList [Language.Common; Language.Sylvan]
      | Race.Tiefling
      | Race.Vampire    -> Set.ofList [Language.Common; Language.Infernal]
      | _               -> Set.singleton Language.Common
    
  /// Map a race tag to a name.
  let toString race =
    match race with
    | Race.HillDwarf         -> "Hill Dwarf"
    | Race.MountainDwarf     -> "Mountain Dwarf"