44 lines
1.7 KiB
Common Lisp
44 lines
1.7 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 ((program-name (car sb-ext:*posix-argv*))
|
|
(args (rest sb-ext:*posix-argv*)))
|
|
(when (member "--fail" args :test #'string=)
|
|
(error "Simulated error!"))
|
|
(when (member "--version" args :test #'string=)
|
|
(let ((write-time (file-write-date program-name)))
|
|
(multiple-value-bind (second minute hour date month year)
|
|
(decode-universal-time write-time)
|
|
(let ((dt (format nil "~4,'0d-~2,'0d-~2,'0d ~2,'0d:~2,'0d:~2,'0d"
|
|
year month date hour minute second)))
|
|
(format t "lispostory, created ~a~%" dt)))))))
|
|
|
|
(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))))))))
|