27 lines
1001 B
Common Lisp
27 lines
1001 B
Common Lisp
(in-package :lispostory)
|
|
|
|
(defparameter *chronostory-map-url-format* "https://chronostory.onrender.com/api/map-info?mapId=~a")
|
|
(defparameter *chronostory-gacha-search-format* "https://chronostory.onrender.com/api/gacha-search?itemId=~a")
|
|
(defparameter *chronostory-gacha-url-format "https://chronostory.onrender.com/api/gacha-items?gachaId=~a")
|
|
|
|
(comment
|
|
(reload-mob-data)
|
|
|
|
(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)
|
|
|
|
|
|
(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)
|