Remove keyword keys to standardize strings as keys convention

main.lisp

@@ -7,16 +7,20 @@
 (comment
   (reload-mob-data)
 
- (defvar foo nil)
- (setf foo (serapeum/bundle:random-elt *chronostory-mobs*))
+  (defvar foo nil
+    (setf foo (serapeum/bundle:random-elt *chronostory-mobs*)
           *chronostory-drops*
 
+          (reload-item-data
            (filter-map
             (lambda (m)
               (when (= (parse-integer (gethash "DROPPERID" m))
                        (parse-integer (href foo "mob" "mob_id")))
-       (gethash "ITEMNAME" m)))
-   (coerce *chronostory-drops* 'list)))
+                (gethash "ITEMNAME" m))
+              (coerce *chronostory-drops* 'list)
 
 
-; (sb-ext:save-lisp-and-die "my-prog" :toplevel #'show-mobs :executable t)
+              (hash-table-keys (aref (@ *chronostory-spawns* :el-nath) 0))
+              (hash-table-keys (aref *chronostory-drops* 0))))))))
+
+;; (sb-ext:save-lisp-and-die "my-prog" :toplevel #'show-mobs :executable t)

spawns.lisp

@@ -62,14 +62,14 @@ separate csvs."
     (loop for row in csv
           with mapname = ""
           for hm = (pairhash keys row (dict))
-          when (let ((name (gethash :monster hm)))
+          when (let ((name (gethash "Monster" hm)))
                  (and (string-not-equal "" name)
                       (string-not-equal "-" name)
                       (string-not-equal "Monster" name)))
             do (progn
-                 (if (and (string-not-equal mapname "") (string-equal (gethash :mapname hm) ""))
-                     (setf (gethash :mapname hm) mapname)
-                     (setf mapname (gethash :mapname hm)))
+                 (if (and (string-not-equal mapname "") (string-equal (gethash "MapName" hm) ""))
+                     (setf (gethash "MapName" hm) mapname)
+                     (setf mapname (gethash "MapName" hm)))
                  (vector-push-extend hm result)))
     result))
 
@@ -113,5 +113,3 @@ separate csvs."
   (if-not *chronostory-spawns*
                    (reload-spawn-data)
                    *chronostory-spawns*))
-
-(refresh-spawn-data)

utils.lisp

@@ -18,5 +18,4 @@
   (map 'vector func vec))
 
 (defun string-to-hash-table-key (s)
-  (let ((k2 (string-upcase (string-replace " " s ""))))
-    (intern k2 :keyword)))
+  (string-replace " " s ""))