DragonDice

Check-in [706c71665d]
Login

Check-in [706c71665d]

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

Overview
Comment:Replacing language placeholders: Merfolk -> Sylvan (Aquan), Vampire -> Infernal
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 706c71665d1dc4f4dbfef16ad5cb7d5f2088e59a95b9d2ab252c64ec0527e4ba
User & Date: murphy 2020-05-06 11:24:55.000
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
Unified Diff 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"
︙︙