Magic, gems and some thinking.

[Vlos]

I started something like this a while back, trying to create a PrC which uses gems to cast spells.

Basically what I came up with (high level):
- Set rarity for each spell
- Based on spell rarity, cost of gem to store spell.
- Gems values, based on type, Size, Cut, Quality

Compute costs of Spells based on Level and rarity and casters than can find proper gems to store it.

Requires ingame skills (Craft/Profession) Gem Cutter.

So a Azurite has a base value of 10gp.


So a large Azurite of Standard quality with a Brilliant Cut is worth 75gp.
(Azurite)10gp x (large)2.5 x (Standard quality)1.0 x Brilliant Cut(3.0) = 75gp




The following is Perl code used to help generate costs. I never finished it as other things came up (as usual).

This is a bit complex and may be more than you are looking for.

%gemCutsList = (
      'Polished Cut - Natural' => [1.0, 'PCN'],
      'Polished Cut - Oval' => [1.0, 'PCO'],
      'Polished Cut - Tear' => [1.0, 'PCT'],
      'Polished Cut - Round' => [1.0, 'PCR'],
      'Step Cut - Square' => [2.0, 'SCO'],
      'Step Cut - Oval' => [2.0, 'SCO'],
      'Brilliant Cut - Heart' => [3.0, 'BCO'],
      'Mixed Cut - Heart' => [4.0, 'MCO'],
      'Fancy Cut - Heart' => [5.0, 'FCO'],
      'Fancy Cut - Fish' => [5.0, 'FCF'],
      'Fancy Cut - Unicorn' => [5.0, 'FCU'],
            );

@gemCuts = keys %gemCutsList;

@spellLevels = (1,2,3,4,5,6,7,8,9);

%spellRarity = (
      '1' => '1',
      '2' => '500',
      '3' => '1000',
      '4' => '2500'
      );

%gemMods = (
         );

srand(); # intitalize Randomizer



%gemList = ('Jade' => 5000,
         'Pearl' => 5000,
         'Spinel' => 5000,
         'Tourmaline' => 5000,
         'Aquamarine' => 5000,
         'Garnet' => 5000,
         'Peridot' => 5000,
         'Topaz' => 5000,
         'Black Opal' => 5000,
         'Emerald' => 5000,
         'Fire Opal' => 5000,
         'Opal' => 5000,
         'Oriental Amethyst' => 5000,
         'Ariental Topaz' => 5000,
         'Sapphire' => 5000,
         'Star Ruby' => 5000,
         'Star Sapphire' => 5000,
         'Black Sapphire' => 5000,
         'Diamond' => 5000,
         'Emerald' => 5000,
         'Jacinth' => 5000,
         'Oriental Emerald' => 5000,
         'Ruby' => 5000,
         'Sapphire' => 5000,
         'Star Ruby' => 5000,
         'Star Sapphire' => 5000,
         'Moonstone' => 1000,
         'Rock Crystal' => 1000,
         'Sardonyx' => 1000,
         'Smoky Quartz' => 1000,
         'Onyx' => 500,
         'Star Rose Quartz' => 500,
         'Zircon' => 500,
         'Alexandrite' => 500,
         'Amethyst' => 500,
         'Chrysoberyl' => 500,
         'Garnet' => 500,
         'Marble' => 500,
         'Coral' => 200,
         'Coral 2' => 200,
         'Amber' => 100,
         'Carnelian' => 100,
         'Chalcedony' => 100,
         'Chrysoprase' => 100,
         'Tiger Eye' => 100,
         'Obsidian' => 100,
         'Turquiose' => 50,
         'Turquiose 2' => 50,
         'Azurite' => 10,
         'Blue Quartz' => 10,
         'Hematite' => 10,
         'Lapis Lazuli' => 10,
         'Malachite' => 10,
         'Moss Agate' => 10,
         'Rhodochrosite' => 10,
         'White Quartz' => 10,
         'Banded Agate' => 10,
         'Jasper' => 10 );

@gemTypes = keys %gemList;

foreach $gemType (@gemTypes)
   {
    $gemGradesList{$gemList{$gemType}} .= qq($gemType:);
   }
@gemGrades = sort(keys(%gemGradesList));

%cutQualityList = (
         'Poor' => 0.5,
#         'Raw' => 1.0,
         'Standard' => 1.0,
         'Fine' => 1.5,
         'Exceptional' => 2.5,
         'Perfect' => 3.0,
         );