                   value
                   (- value))))))
 
-(defn- create-indicies
-  "Creates an indicies list modified by crisis tags and normalised
-  Requries crisies to be initialised"
-  [scenRec]
-
 (defn- get-crisis-id-list
   "Taking a full crisis record, returns a collection of the crisis ids"
   [{crisises :crisises :as crisRec}]
-  (map (partial :c_id)
-       crisises))
+  (map :c_id crisises))
+
+(defn- select-crisis-tags
+  "Selects all the crisis tags for a single crisis"
+  [crisisNum]
+  (map :ct_tag (sql/query "SELECT * FROM crisis_tag WHERE c_id = ?;" crisisNum)))
+
+(defn- normalise-all-indicies
+  "Normalises the sector indicies, and the service group indicies"
+  [indicies]
+  (->> indicies
+      (normalise-specific-indicies sectorIndicies)
+      (normalise-specific-indicies (map key (remove (partial some (into #{} sectorIndicies)) indicies)))))
+
+(defn- load-crisis-indicies
+  "Updates the indicies list modified by crisis tags and normalised
+  Requries crisies and base indicies to be initialised"
+  [scenRec]
+  (update-in scenRec [:indicies]
+              (apply comp (map partial
+                               (repeat adjust-index)
+                               (apply concat (map select-crisis-tags (get-crisis-id-list scenRec)))))
+              ))
 
 (defn- add-crisis-desc
   "Given a crisis map, adds an :extraDesc field with a vector of string descriptors"

       (select-secret-society-missions)
       (select-secret-society-missions-unused)
       (select-minion-lists)
       )))

(keys (create-scenario))

  [choices indicies]
  ;; Take the negative average of all the chosen indicies
  (let [avg
        (- (int (Math/floor (/ (reduce + ;; Get the negative integer average
                           (map val ;; Get their values
                                (filter (partial some (into #{} choices))
                                        indicies))) ;; Get all the indicies in the choices
                   (count choices)))))]
    ;; Apply to all the keywords
    ((apply comp
            (map (fn [kw]
                   (fn [ind]
                     (update-in ind [kw] + avg)))
                 choices)) indicies)))

(defn- fuzzify-indicies
  "Randomly adds, subtracts, or leaves alone each of the indicies"
