36 lines
1.2 KiB
Common Lisp
36 lines
1.2 KiB
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")
|
|
|
|
(defun main ()
|
|
(sb-ext:disable-debugger)
|
|
(let ((args (rest sb-ext:*posix-argv*)))
|
|
(when (member "--fail" args :test #'string=)
|
|
(error "Simulated error!"))))
|
|
|
|
(defun create-exe-and-die ()
|
|
(sb-ext:save-lisp-and-die
|
|
"lispostory"
|
|
:toplevel 'lispostory:main
|
|
:executable t
|
|
:save-runtime-options :accept-runtime-options))
|
|
|
|
(comment
|
|
(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))))))))
|