Remove keyword keys to standardize strings as keys convention
This commit is contained in:
26
main.lisp
26
main.lisp
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user