content: module Mud.TopLvlDefs.Vals where
  
  import Mud.Data.State.MudData
  
  -- $1 = 100 copper
  
  apronHeavyVal, apronLeatherVal :: Val
  apronHeavyVal   = Just 4000
  apronLeatherVal = Just 6000
  
  axeSmlVal :: Val
  axeSmlVal = Just 4500
  
  backSmlVal, backVal, backLrgVal :: Val
  backSmlVal = Just 7500
  backVal    = Just 10000
  backLrgVal = Just 12500
  
  bottleSmlVal, bottleVal, bottleLrgVal :: Val
  bottleSmlVal = Just 250
  bottleVal    = Just 375
  bottleLrgVal = Just 500
  
  bootsLeatherVal, bootsThighVal :: Val
  bootsLeatherVal = Just 6500
  bootsThighVal   = Just 8000
  
  braceletVal, braceletCharmVal, braceletPearlVal :: Val
  braceletVal      = Just 500
  braceletCharmVal = Just 850
  braceletPearlVal = Just 38500
  
  breadVal :: Val
  breadVal = Just 100
  
  breechesVal :: Val
  breechesVal = Just 2000
  
  capKnitVal :: Val
  capKnitVal = Just 600
  
  chemiseVal :: Val
  chemiseVal = Just 2000
  
  clubVal :: Val
  clubVal = Just 500
  
  coatFrockVal, coatHeavyVal :: Val
  coatFrockVal = Just 12000
  coatHeavyVal = Just 9500
  
  earVal :: Val
  earVal = Just 325
  
  fruitVal :: Val
  fruitVal = Just 75
  
  gorhnaVal :: Val
  gorhnaVal = Just 5
  
  helmLeatherVal :: Val
  helmLeatherVal = Just 1200
  
  jarSmlVal, jarVal, jarLrgVal :: Val
  jarSmlVal = Just 200
  jarVal    = Just 300
  jarLrgVal = Just 400
  
  jugSmlVal, jugVal, jugLrgVal :: Val
  jugSmlVal = Just 400
  jugVal    = Just 600
  jugLrgVal = Just 800
  
  knifeVal :: Val
  knifeVal = Just 725
  
  lampSmlVal, lampVal, lampLrgVal :: Val
  lampSmlVal = Just 1200
  lampVal    = Just 2000
  lampLrgVal = Just 4000
  
  maceVal :: Val
  maceVal = Just 5000
  
  neckBronzeVal, neckGoldVal, neckSilverVal :: Val
  neckBronzeVal = Just 500
  neckGoldVal   = Just 50000
  neckSilverVal = Just 5000
  
  noseVal :: Val
  noseVal = Just 350
  
  overallsVal :: Val
  overallsVal = Just 3500
  
  parchmentVal :: Val
  parchmentVal = Just 75
  
  potionFlaskVal, potionFlaskLrgVal :: Val
  potionFlaskVal    = Just 100
  potionFlaskLrgVal = Just 175
  
  ringVal :: Val
  ringVal = Just 35000
  
  sackSmlVal, sackVal, sackLrgVal :: Val
  sackSmlVal = Just 300
  sackVal    = Just 400
  sackLrgVal = Just 500
  
  sandalsLeatherVal :: Val
  sandalsLeatherVal = Just 1800
  
  shirtPeasantVal :: Val
  shirtPeasantVal = Just 1500
  
  spearVal :: Val
  spearVal = Just 4000
  
  staffQuarterVal :: Val
  staffQuarterVal = Just 1000
  
  swordBroadVal, swordLongVal, swordShortVal, swordVal :: Val
  swordBroadVal = Just 50000
  swordLongVal  = Just 70000
  swordShortVal = Just 40000
  swordVal      = Just 47500
  
  tabardVal :: Val
  tabardVal = Just 6500
  
  tinderboxVal :: Val
  tinderboxVal = Just 500
  
  torchVal :: Val
  torchVal = Just 480
  
  trousersVal :: Val
  trousersVal = Just 3200
  
  tunicHeavyVal :: Val
  tunicHeavyVal = Just 3000
  
  waterskinVal, waterskinLrgVal :: Val
  waterskinVal    = Just 750
  waterskinLrgVal = Just 1500
  