(in-package :lispostory)

(defparameter *maplestory-items-url* "https://maplestory.io/api/gms/83/item")

(defun get-maplestory-items ()
  (http-get-json *maplestory-items-url*))

(defparameter *chronostory-item-url-format* "https://chronostory.onrender.com/api/item-info?itemId=~a")

(defparameter *chronostory-items* (make-array 0))

(defun chronostory-item-url (item-id)
  (format nil *chronostory-item-url-format* item-id))

(defun reload-item-data ()
  (let ((item-data (shasht:read-json (uiop:read-file-string "items.json"))))
    (setf *chronostory-items* item-data)
    item-data))

(defun load-item-data ()
  (if (/= (length *chronostory-items*) 0)
      *chronostory-items*
      (reload-item-data)))

(defun get-chrono-item (maple-item)
  (if (gethash "isCash" maple-item)
      nil
      (let* ((item-id (gethash "id" maple-item))
             (url (chronostory-item-url item-id))
             (data (http-get-json url)))
        (sleep 0.3)
        (when data
          (uiop:println (concatenate 'string "Retrieved id " (write-to-string item-id))))
        data)))

(defun refresh-item-data ()
  (let* ((maple-items (get-maplestory-items))
         (_ (uiop:println "Retrieved maplestory items. Getting chronostory items..."))
         (chrono-items
           (loop for maple-item across maple-items
                 for chrono-item = (get-chrono-item maple-item)
                 when (and chrono-item
                           (stringp (gethash "item_name" chrono-item))
                           (string-not-equal (gethash "item_name" chrono-item) ""))
                   collect chrono-item)))
    (declare (ignore _))
    (uiop:println "Retrieved chronostory items. Writing out to json file...")
    (setf *chronostory-items* chrono-items)
    (alexandria-2:write-string-into-file
     (shasht:write-json chrono-items nil)
     "items.json"
     :if-exists :overwrite
     :if-does-not-exist :create)
    (uiop:println "Done!")))