Treasure.pal

/* Palamedes OD&D Treasure Generator v0.1 */

/* TREASURE TYPES */

Type_A_Land <- {"cp": 1--6: 50%, "sp": 1--6: 30%, "gp": 2--12: 35%, "gems": 6--36: 50%, "jewelry": 6--36: 50%, "maps or magic": MapsOrMagic(40%, 3, [])}

Type_A_Desert <- {"cp": 1--4: 20%, "sp": 1--4: 25%, "gp": 1--6: 30%, "gems": 10--40: 50%, "jewelry": 10--40: 50%, "maps or magic": flip(60%) ? 3 # Magic : []}

Type_A_Water <- {"cp": Nil, "sp": Nil, "gp": 5--30: 60%, "gems": 10--60: 60%, "jewelry": 10--60: 60%, "maps or magic": flip(50%) ? Map : []}

Type_B <- {"cp": 1--8: 50%, "sp": 1--6: 25%, "gp": 1--3: 25%, "gems": 1--6: 25%, "jewelry": 1--6: 25%, "maps or magic": flip(10%) ? Weapon : []}

Type_C <- {"cp": 1--12: 20%, "sp": 1--4: 30%, "gp": Nil, "gems": 1--4: 25%, "jewelry": 1--4: 25%, "maps or magic": MapsOrMagic(10%, 2, [])}

Type_D <- {"cp": 1--8: 10%, "sp": 1--12: 15%, "gp": 1--6: 60%, "gems": 1--8: 30%, "jewelry": 1--8: 30%, "maps or magic": MapsOrMagic(20%, 2, [Potion])}

Type_E <- {"cp": 1--10: 5%, "sp": 1--12: 30%, "gp": 1--8: 25%, "gems": 1--10: 10%, "jewelry": 1--10: 10%, "maps or magic": MapsOrMagic(30%, 3, [Scroll])}

Type_F <- {"cp": Nil, "sp": 2--20: 10%, "gp": 1--12: 45%, "gems": 2--24: 20%, "jewelry": 2--24: 20%, "maps or magic": MapsOrMagic_Type_F}

Type_G <- {"cp": Nil, "sp": Nil, "gp": 10--40: 75%, "gems": 3--18: 25%, "jewelry": 1--10: 25%, "maps or magic": MapsOrMagic(40%, 4, [Scroll])}

Type_H <- {"cp": 3--24: 25%, "sp": 1--100: 50%, "gp": 10--60: 75%, "gems": 1--100: 50%, "jewelry": 10--40: 50%, "maps or magic": MapsOrMagic(20%, 4, [Potion, Scroll])}

Type_I <- {"cp": Nil, "sp": Nil, "gp": Nil, "gems": 2--16: 50%, "jewelry": 2--16: 50%, "maps or magic": MapsOrMagic(20%, 1, [])}

MapsOrMagic <- flip(_1) ? any(_2) concat _3 : []

any <- {n1 set binom(_, 25%); n2 set _ - n1; (n1 # Maps) concat (n2 # Magic)}

MapsOrMagic_Type_F <- flip(35%) ? any_Type_F concat [Potion, Scroll] : []

any_Type_F <- {n1 set binom(3, 25%); n2 set 3 - n1; (n1 # Maps) concat (n2 # Non_Weapon)}

json_formatter <- if[_1 in ["cp", "sp", "gp"] => commify(1000*_2), otherwise, _2]

/* MAGIC ITEMS */

Magic <- lookup [ d%, ...
    01--20  => Sword, ...
    21--35  => Armor, ...
    36--40  => Misc_Weapon, ...
    41--65  => Potion, ...
    66--85  => Scroll, ...
    86--90  => Ring, ...
    91--95  => Wand_Staff, ...
    96--100 => Misc_Magic ]

Weapon <- lookup [d40, ...
    01--20 => Sword, ...
    21--35 => Armor, ...
    36--40 => Misc_Weapon]

Non_Weapon <- Magic <- lookup [ d60 + 40, ...
    41--65  => Potion, ...
    66--85  => Scroll, ...
    86--90  => Ring, ...
    91--95  => Wand_Staff, ...
    96--100 => Misc_Magic ]

No_Swords <- lookup [ d80 + 20, ...
    21--35  => Armor, ...
    36--40  => Misc_Weapon, ...
    41--65  => Potion, ...
    66--85  => Scroll, ...
    86--90  => Ring, ...
    91--95  => Wand_Staff, ...
    96--100 => Misc_Magic ]

Sword <- lookup [ d%, ...
    01--35  => "Sword +1", ...
    36--40  => "Sword +1, +2 vs. Lycanthropes", ...
    41--45  => "Sword +1, +2 vs. Magic-Users and Enchanted Monsters", ...
    46--50  => "Sword +1, Locating Objects Ability", ...
    51--60  => "Sword +1, +3 vs. Trolls (Clerics)", ...
    61--65  => "Sword, Flaming: +1, +2 vs. Trolls (Pegasi, Hippogriffs, + Rocs), +3 vs. Undead (Treants)", ...
    66--70  => "Sword +1, Wishes Included (2–8 Wishes)", ...
    71--75  => "Sword +1, +3 vs. Dragons", ...
    76--78  => "Sword +2", ...
    79--80  => "Sword +2, Charm Person Ability", ...
    81--82  => "Sword +3", ...
    83      => "Sword, One Life Energy Draining Ability", ...
    84--100 => "Sword -2 (Cursed Sword)" ]

Armor <- lookup [ d%, ...
    01--30  => "Shield +1", ...
    31--60  => "Armor +1", ...
    61--75  => "Armor & Shield +1", ...
    76--83  => "Shield +2", ...
    84--90  => "Armor +2", ...
    91--97  => "Armor & Shield +2", ...
    98--100 => "Shield +3" ]

Misc_Weapon <- lookup [ z%, ...
  01--25 => "10 Magic Arrows", ...
  26--40 =>  3d10 + " Magic Arrows", ...
  41--55 => "Dagger +1 vs Man-Sized Opponents, +2 vs Goblins and Kobolds", ...
  56--60 => "Dagger +2 vs Man-Sized Opponents, +3 vs Orcs, Goblins and Kobolds", ...
  61--65 => "Magic Bow", ...
  66--70 => "Axe +1", ...
  71--80 => "Mace +2", ...
  81--85 => "War Hammer +1", ...
  86--89 => "War Hammer +2", ...
    90   => "War Hammer +3, 6 in. Throwing Range with Return", ...
  91--96 => "Spear +1", ...
  97--99 => "Spear +2", ...
    00   => "Spear +3"]

Potion <- "Potion of " + Potion_Lu

Potion_Lu <- lookup[ d%, ...
    01--04  => "Growth",              49--52  => "Clairvoyance", ...
    05--08  => "Diminution",          53--55  => "Clairaudience", ...
    09--12  => "Giant Strength",      56--60  => "Animal Control", ...
    13--16  => "Invisibility",        61--64  => "Undead Control", ...
    17--20  => "Gaseous Form",        65--68  => "Plant Control", ...
    21--24  => "Polymorph (Self)",    69--72  => "Human Control", ...
    25--28  => "Speed",               73--76  => "Giant Control", ...
    29--32  => "Levitation",          77--80  => "Dragon Control*", ...
    33--36  => "Flying",              81--84  => "Poison**", ...
    37--38  => "ESP",                 85--88  => "Invulnerability", ...
    39--40  => "Delusion",            89--92  => "Fire Resistance", ...
    41--44  => "Healing",             93--96  => "Treasure Finding", ...
    45--48  => "Longevity",           97--100 => "Heroism" ]

Potion_Fn <- {"*": "Referee to roll to determine which of the six types of Dragons will be controlled. " + Dragon_Type, "**": "Referee will mislead by naming any of the other Potions, but if carefully questioned should give it a singular feature."}

Dragon_Type <- choose["White", "Black", "Green", "Blue", "Red", "Golden"]

Scroll <- "Scroll of " + Scroll_Lu

Scroll_Lu <- lookup [ d%, ...
    01--20  => "1 Spell",             61--70  => "Protection: Lycanthropes", ...
    21--35  => "2 Spells",            71--80  => "Protection: Undead", ...
    36--45  => "3 Spells",            81--90  => "Protection: Elementals", ...
    46--50  => "7 Spells",            91--100 => "Protection: Magic", ...
    51--60  => "1 Curse*" ]

/* There is a 25% chance that any scroll of spells found will contain those usable by clerics. */

Scroll_Fn <- {"*": "The referee must take extreme care in handling all Scrolls with an eye towards duping the players when a Curse Scroll is found. The curse takes effect immediately upon reading the Scroll; therefore having non-Curse Scrolls disappear on occasion if not identified will help to force reading of Curse Scrolls. To determine the type of curse use the table below: " + Curse}

Curse <- lookup [ d8, ...
    1--2 => "Any monster of the referee’s choice", ...
    3--4 => "Disease, fatal in 3 turns unless healed", ...
    5--6 => "Polymorph to insect of referee’s choice", ...
      7  => "Transportation 1,000 miles, random direction", ...
      8  => "Transportation to another planet" ]

Ring <- "Ring of " + Ring_Lu

Ring_Lu <- lookup [ z%, ...
    01--09  => "Invisibility",          81--85  => "Protection, 5’ r.", ...
    10--15  => "Mammal Control",        86--90  => "Regeneration", ...
    16--21  => "Human Control",         91--92  => "Djinn Summoning", ...
    22--30  => "Weakness",              93--94  => "Telekinesis", ...
    31--39  => "Protection",            95--96  => "X-Ray Vision", ...
    40--49  => "Three Wishes",          97--98  => "Spell Turning", ...
    50--60  => "Delusion",                99    => "Spell Storing", ...
    61--70  => "Water Walking",           00    => "Many Wishes (" + 4d6 + ")", ...
    71--80  => "Fire Resistance" ]

Wand_Staff <- lookup [ z%, ...
    01--15  => "Wand of Metal Detection",       61--65  => "Wand of Polymorph", ...
    16--20  => "Wand of Enemy Detection",       66--70  => "Wand of Negation", ...
    21--25  => "Wand of Magic Detection",       71--80  => "Staff of Healing*", ...
    26--30  => "Wand of Secret Doors & Traps Detection",  81--85 => "Staff of Commanding**", ...
    31--35  => "Wand of Illusion",              86--90  => "Snake Staff*", ...
    36--40  => "Wand of Fear",                  91--95  => "Staff of Striking**", ...
    41--45  => "Wand of Cold",                  96--97  => "Staff of Withering*", ...
    46--50  => "Wand of Paralyzation",          98--99  => "Staff of Power***", ...
    51--55  => "Wand of Fire Balls",              00    => "Staff of Wizardry***" ]

Wand_Staff_Fn <- {"*": "Clerics only can employ", "**": "Clerics and Magic-Users may employ", "***": "Magic-Users only may employ"}

Misc_Magic <- lookup[ z%, ...
    01--04  => "Crystal Ball", ...
    05--06  => "Crystal Ball with Clairaudience", ...
      07    => "Crystal Ball with ESP", ...
    08--12  => "Medallion of ESP, 3” Range*", ...
    13--15  => "Medallion of ESP, 9” Range*", ...
    16--18  => "Amulet vs. Crystal Balls and ESP*", ...
    19--24  => "Scarab of Protection from Evil High Priests*", ...
    25--29  => "Bag of Holding*", ...
      30    => "Censer Controlling Air Elementals", ...
      31    => "Stone Controlling Earth Elementals", ...
      32    => "Brazier Commanding Fire Elementals", ...
      33    => "Bowl Commanding Water Elementals", ...
    34--35  => "Efreet Bottle*", ...
    36--38  => "Displacer Cloak*", ...
    39--47  => "Elven Cloak and Boots*", ...
    48--52  => "Boots of Speed*", ...
    53--57  => "Boots of Levitation*", ...
    58--62  => "Boots of Traveling and Leaping*", ...
    63--67  => "Broom of Flying", ...
    68--72  => "Helm of Reading Magic and Languages*", ...
    73--75  => "Helm of Telepathy*", ...
      76    => "Helm of Teleportation", ...
    77--87  => "Helm of Chaos (Law)*", ...
      88    => "Flying Carpet*", ...
      89    => "Drums of Panic, 24” Range*", ...
      90    => "Horn of Blasting, 10” Range*", ...
    91--97  => "Gauntlets of Ogre Power*", ...
    98--99  => "Girdle of Giant Strength*", ...
      00    => "Mirror of Life Trapping" ]

Misc_Magic_Fn <- {"*": "Usable by all classes"}

/* MAPS */

Maps <- "Map to " + Maps_Lu

Maps_Lu <- lookup [d%, ...
    01--60  => Treasure_Map, ...
    61--90  => stringify(Magic_Map, " & "), ...
    91--100 => Magic_Treasure_Map ]

Treasure_Map_1 <- commify(10000 *  d4) + " Silver"
Treasure_Map_2 <- commify( 1000 * 5d6) + " Gold"
Treasure_Map_3 <- Treasure_Map_1 + " & " + Treasure_Map_2
Treasure_Map_4 <- Treasure_Map_1 + " & " + 2d10 +  " Gems"
Treasure_Map_5 <- Treasure_Map_2 + " & " + 5d6  +  " Gems"
Treasure_Map_6 <- Treasure_Map_3 + " & " +  d%  + " Gems"
Treasure_Map_7 <- 10d6 + " Gems & " + 2d10 + " Jewelry"
Treasure_Map_8 <- Treasure_Map_3 + " & " + Treasure_Map_7

Treasure_Map <- lookup [d8, ...
    1 => Treasure_Map_1, ...
    2 => Treasure_Map_2, ...
    3 => Treasure_Map_3, ...
    4 => Treasure_Map_4, ...
    5 => Treasure_Map_5, ...
    6 => Treasure_Map_6, ...
    7 => Treasure_Map_7, ...
    8 => Treasure_Map_8 ]

Magic_Map_1 <- [Magic]
Magic_Map_4 <- 2 # Magic
Magic_Map_6 <- 2 # No_Swords
Magic_Map_7 <- (4 # Magic) concat [Potion]
Magic_Map_8 <- (5 # Magic) concat [Scroll, Potion]

Magic_Map <- lookup [d8, ...
    1--3 => Magic_Map_1, ...
    4--5 => Magic_Map_4, ...
      6  => Magic_Map_6, ...
      7  => Magic_Map_7, ...
      8  => Magic_Map_8 ]

Magic_Treasure_Map <- lookup [d8, ...
    1 => Treasure_Map_1 + " & " + Magic_Map_1, ...
    2 => Treasure_Map_2 + " & " + Magic_Map_1, ...
    3 => Treasure_Map_3 + " & " + Magic_Map_4, ...
    4 => Treasure_Map_7 + " & " + Magic_Map_6 + " (already there)", ...
    5 => Treasure_Map_5 + " & " + Magic_Map_4, ...
    6 => Treasure_Map_1 + " & " + Magic_Map_1 + " (already there)", ...
    7 => Treasure_Map_6 + " & " + Magic_Map_8, ...
    8 => Treasure_Map_8 + " & " + Magic_Map_7 ]

/* SWORDS */

TODO

/* GEMS */

gemvalue <- {"10":1,"50":2,"100":3,"500":4,"1000":5,"5000":6,"10000":7,"25000":8,"50000":9,"100000":10,"500000":11}

gemprob <- censor(p(geom(5/6) + (pick [1 => 10%, 2 => 15%, 3 => 50%, 4 => 15%, 5 => 10%])), 1, 11)

Gem <- pick(gemprob after gemvalue)

/* JEWELRY */

TODO