diff options
Diffstat (limited to 'src/LivingVillage.Kernel/Sim.fs')
| -rw-r--r-- | src/LivingVillage.Kernel/Sim.fs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/LivingVillage.Kernel/Sim.fs b/src/LivingVillage.Kernel/Sim.fs index 9da7c46..5445e7d 100644 --- a/src/LivingVillage.Kernel/Sim.fs +++ b/src/LivingVillage.Kernel/Sim.fs @@ -39,6 +39,9 @@ module Sim = type ItemKind = | Food + | Fish + | Spice + | Scroll type NpcActionKind = | Eat @@ -529,6 +532,9 @@ module Sim = let basePrice = match request.Item with | Food -> 10.0f + | Fish -> 12.0f + | Spice -> 8.0f + | Scroll -> 15.0f let buyerUrgency = clamp ((100.0f - buyer.Mind.Needs.Hunger) / 100.0f) 0.0f 1.0f let stockPressure = 1.0f - clamp (float32 (inventoryQuantity request.Item seller.Inventory) / 20.0f) 0.0f 1.0f |