Remove keyword keys to standardize strings as keys convention

This commit is contained in:
2026-01-03 22:15:42 -05:00
parent 0204a521b9
commit e15628b20a
3 changed files with 20 additions and 19 deletions

View File

@@ -5,18 +5,22 @@
(defparameter *chronostory-gacha-url-format "https://chronostory.onrender.com/api/gacha-items?gachaId=~a")
(comment
(reload-mob-data)
(reload-mob-data)
(defvar foo nil)
(setf foo (serapeum/bundle:random-elt *chronostory-mobs*))
*chronostory-drops*
(defvar foo nil
(setf foo (serapeum/bundle:random-elt *chronostory-mobs*)
*chronostory-drops*
(filter-map
(lambda (m)
(when (= (parse-integer (gethash "DROPPERID" m))
(parse-integer (href foo "mob" "mob_id")))
(gethash "ITEMNAME" m)))
(coerce *chronostory-drops* 'list)))
(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)
; (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)