#lang racket

(require "core.rkt")

(define-oracle oracle/action
  scheme clash weaken initiate create swear avenge guard defeat control
  break risk surrender inspect raid evade assault deflect threaten attack
  leave preserve manipulate remove eliminate withdraw abandon investigate hold focus
  uncover breach aid uphold falter suppress hunt share destroy avoid
  reject demand explore bolster seize mourn reveal gather defy transform
  persevere serve begin move coordinate resist await impress take oppose
  capture overwhelm challenge acquire protect finish strengthen restore advance command
  refuse find deliver hide fortify betray secure arrive affect change
  defend debate support follow construct locate endure release lose reduce
  escalate distract journey escore learn communicate depart search charge summon)


(define-oracle oracle/theme
  risk ability price ally battle safety survival weapon wound shelter
  leader fear time duty secret innocence renown direction death honor
  labor solution tool balance love barrier creation decay trade bond
  hope superstition peace deception history world vow protection nature opinion
  burden vengeance opportunity faction danger corruption freedom debt hate possession
  stranger passage land creature disease advantage blood language rumor weakness
  greed family resource structure dream community war portent prize destiny
  momentum power memory ruin mysticism rival problem idea revenge health
  fellowship enemy religion spirit fame desolation strength knowledge truth quest
  pride loss law path warning relationship wealth home strategy supply)

;; TODO: figure out city regions
(define-oracle oracle/region
  (1 12 "Barrier Islands")
  (13 24 "Ragged Coast")
  (25 34 "Deep Wilds")
  (35 46 "Flooded Lands")
  (47 60 "Havens")
  (61 72 "Hinterlands")
  (73 84 "Tempest Hills")
  (85 94 "Veiled Mountains")
  (95 99 "Shattered Wastes")
  (100 "Elsewhere"))

;; TODO: figure out city locations
(define-oracle oracle/location
  (1 Hideout)
  (2 Ruin)
  (3 Mine)
  (4 Waste)
  (5 "Mystical Site")
  (6 Path)
  (7 Outpost)
  (8 Wall)
  (9 Battlefield)
  (10 Hovel)
  (11 Spring)
  (12 Lair)
  (13 Fort)
  (14 Bridge)
  (15 Camp)
  (16 Cairn/Grave)
  (17 18 Caravan)
  (19 20 Waterfall)
  (21 22 Cave)
  (23 24 Swamp)
  (25 26 Fen)
  (27 28 Ravine)
  (29 30 Road)
  (31 32 Tree)
  (33 34 Pond)
  (35 36 Fields)
  (37 38 Marsh)
  (39 40 Steading)
  (41 42 Rapids)
  (43 44 Pass)
  (45 46 Trail)
  (47 48 Glade)
  (49 50 Plain)
  (51 52 Ridge)
  (53 54 Cliff)
  (55 56 Grove)
  (57 58 Village)
  (59 60 Moor)
  (61 62 Thicket)
  (63 64 "River Ford")
  (65 66 Valley)
  (67 68 Bay/Fjord)
  (69 70 Foothills)
  (71 72 Lake)
  (73 75 River)
  (76 79 Forest)
  (80 83 Coast)
  (84 88 Hill)
  (89 93 Mountain)
  (94 99 Woods)
  (100 Anomaly))

(define-oracle oracle/challenge-rank
  ( 1  20 troublesome)
  (21  55 dangerous)
  (56  80 formidable)
  (81  93 extreme)
  (94 100 epic))