(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))))))))