        (update-in [:indicies] normalise-all-indicies)
        )))
 
-(:directives (create-scenario))
+(:zone (create-scenario))

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

       (select-news)


             (shuffle (concat (apply concat (map sql/get-news-crisis (get-crisis-id-list scenRec)))
                              (sql/get-news-random 6))))))

(defn- create-random-zone-name
  "Creates a randome 3 letter zone name"
  []
  (apply str (take 3 (repeatedly (fn [] (char (+ (int \A) (rand-int 26))))))))

(defn- check-zone-name
  "Checks for zone name, and if missing creates a random sector name"
  [{zone :zone :as scenRec}]
  (if (and zone
           (string? zone)
           (= (count zone) 3))
    scenRec
    (assoc-in scenRec [:zone] (create-random-zone-name))))

(defn add-character
  "Adds a high programmer character to the record under :hps"
  ([{hps :hps :as scenRec} {nam :name :as character}]
