From ac691cd18126079a14b13d871c792708d045c50c Mon Sep 17 00:00:00 2001 From: Grant Horner Date: Sat, 3 Jan 2026 21:55:05 -0500 Subject: [PATCH] experiment with mapping drop data to mobs --- main.lisp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/main.lisp b/main.lisp index 531f876..779fdcc 100644 --- a/main.lisp +++ b/main.lisp @@ -4,4 +4,19 @@ (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") +(serapeum:comment + (reload-mob-data) + + (defvar foo nil) + (setf foo (serapeum/bundle:random-elt *chronostory-mobs*)) + *chronostory-drops* + + (serapeum:filter-map + (lambda (m) + (when (= (parse-integer (gethash "DROPPERID" m)) + (parse-integer (serapeum:href foo "mob" "mob_id"))) + (gethash "ITEMNAME" m))) + (coerce *chronostory-drops* 'list))) + + ; (sb-ext:save-lisp-and-die "my-prog" :toplevel #'show-mobs :executable t)