diff options
Diffstat (limited to 'src/gizmo/wasp-tcg.el')
| -rw-r--r-- | src/gizmo/wasp-tcg.el | 245 |
1 files changed, 203 insertions, 42 deletions
diff --git a/src/gizmo/wasp-tcg.el b/src/gizmo/wasp-tcg.el index b989eb31..081a777b 100644 --- a/src/gizmo/wasp-tcg.el +++ b/src/gizmo/wasp-tcg.el @@ -9,13 +9,17 @@ (require 'wasp-twitch) (require 'wasp-user) +(defconst w/tcg-past-sets + '( "Cloaking Device" + )) +(defconst w/tcg-current-set + "Emerald Isle" + ) + (defconst w/tcg-bases (-map #'f-base (f-entries "/home/llll/src/newton/crates/renderer/src/assets/textures/tcg/bases"))) -(defvar w/tcg-request-sequence 0) -(defvar w/tcg-request-handlers (ht-create)) - (cl-defstruct (w/tcg-card (:constructor w/make-tcg-card)) name type @@ -23,12 +27,15 @@ element color faction + faction-color equity boost-level rarity rarity-level body-text base-image-name + set + minted-date flags ;; comma-separated strings: inverse, etc. ) @@ -52,64 +59,218 @@ (-concat (when (= (random 20) 0) (list "inverse")))) +(defun w/tcg-generate-theme () + "Consult the themes table." + (let ((result (+ 1 (random 100)))) + (cond + ((= result 1) "Risk") + ((= result 2) "Ability") + ((= result 3) "Price") + ((= result 4) "Ally") + ((= result 5) "Battle") + ((= result 6) "Safety") + ((= result 7) "Survival") + ((= result 8) "Weapon") + ((= result 9) "Wound") + ((= result 10) "Shelter") + ((= result 11) "Leader") + ((= result 12) "Fear") + ((= result 13) "Time") + ((= result 14) "Duty") + ((= result 15) "Secret") + ((= result 16) "Innocence") + ((= result 17) "Renown") + ((= result 18) "Direction") + ((= result 19) "Death") + ((= result 20) "Honor") + ((= result 21) "Labor") + ((= result 22) "Solution") + ((= result 23) "Tool") + ((= result 24) "Balance") + ((= result 25) "Love") + ((= result 26) "Barrier") + ((= result 27) "Creation") + ((= result 28) "Decay") + ((= result 29) "Trade") + ((= result 30) "Bond") + ((= result 31) "Hope") + ((= result 32) "Superstition") + ((= result 33) "Peace") + ((= result 34) "Deception") + ((= result 35) "History") + ((= result 36) "World") + ((= result 37) "Vow") + ((= result 38) "Protection") + ((= result 39) "Nature") + ((= result 40) "Opinion") + ((= result 41) "Burden") + ((= result 42) "Vengeance") + ((= result 43) "Opportunity") + ((= result 44) "Faction") + ((= result 45) "Danger") + ((= result 46) "Corruption") + ((= result 47) "Freedom") + ((= result 48) "Debt") + ((= result 49) "Hate") + ((= result 50) "Possession") + ((= result 51) "Stranger") + ((= result 52) "Passage") + ((= result 53) "Land") + ((= result 54) "Creature") + ((= result 55) "Disease") + ((= result 56) "Advantage") + ((= result 57) "Blood") + ((= result 58) "Language") + ((= result 59) "Rumor") + ((= result 60) "Weakness") + ((= result 61) "Greed") + ((= result 62) "Family") + ((= result 63) "Resource") + ((= result 64) "Structure") + ((= result 65) "Dream") + ((= result 66) "Community") + ((= result 67) "War") + ((= result 68) "Potent") + ((= result 69) "Prize") + ((= result 70) "Destiny") + ((= result 71) "Momentum") + ((= result 72) "Power") + ((= result 73) "Memory") + ((= result 74) "Ruin") + ((= result 75) "Mysticism") + ((= result 76) "Rival") + ((= result 77) "Problem") + ((= result 78) "Idea") + ((= result 79) "Revenge") + ((= result 80) "Health") + ((= result 81) "Fellowship") + ((= result 82) "Enemy") + ((= result 83) "Religion") + ((= result 84) "Spirit") + ((= result 85) "Fame") + ((= result 86) "Desolation") + ((= result 87) "Strength") + ((= result 88) "Knowledge") + ((= result 89) "Truth") + ((= result 90) "Quest") + ((= result 91) "Pride") + ((= result 92) "Loss") + ((= result 93) "Law") + ((= result 94) "Path") + ((= result 95) "Warning") + ((= result 96) "Relationship") + ((= result 97) "Wealth") + ((= result 98) "Home") + ((= result 99) "Strategy") + ((= result 100) "Supply")))) + +;; (defun w/tcg-generate-flavor-text (nm k) +;; "Generate random TCG-style flavor text for NM and pass it to K." +;; (w/ai +;; (format "%s - %s" nm (w/tcg-generate-theme)) +;; k +;; "Please generate trading-card-game style flavor text for the given card name and linguistic theme. Focus primarily on the theme. Try to write in a way that evokes the given theme through style and word choice. Try to capture the feeling of badly-translated Japanese. Use less descriptive language to keep things short. Do not reference the card itself - the text should be from an in-universe perspective. Do not use adjectives or adverbs. Do not mention whispering or secrets or shadows - these are not the theme! Use the theme instead!" +;; (list +;; "Blue-Eyes White Dragon - Power" +;; "Insect Knight - Lore" +;; "Shapesnatch - Mystery" +;; ) +;; (list +;; "This legendary dragon is a powerful engine of destruction. Virtually invincible, very few have faced this awesome creature and lived to tell the tale." +;; "Of all Insect fighters, he is the paragon of the Indestructible Insect Invaders, which only the elite of the elite can join. We can no longer ignore their unmatched battle prowess." +;; "A bow tie with horrible power, it attacks an opponent by controlling others." +;; ))) +(defun w/tcg-generate-flavor-text (nm k) + "Generate random TCG-style flavor text for NM and pass it to K." + (funcall k + (w/irish-fill-template (w/pick-random w/irish-templates) + (list nm (s-downcase (w/tcg-generate-theme)))))) + (defun w/tcg-random-user-card (k) - "Generate a random `w/tcg-card' and pass it to K." + "Generate a random `w/tcg-card' for a random user and pass it to K." (let* ( (users (-map #'car w/twitch-chat-history)) - (name (w/pick-random users)) - (ud (w/user-cache-get name)) - (element (alist-get :element ud)) - (colornm (or (cadr (alist-get element w/user-elements nil nil #'s-equals?)) "grey")) - (color (w/color-value-to-html-code (color-values colornm))) - (faction (format "%s" (or (alist-get :faction ud) 'none))) - (equity (format "%s" (or (alist-get :equity ud) 0))) - (boost-level (format "%s" (or (alist-get :boost ud) "ABSTAINER"))) - (rarity-level (w/tcg-determine-rarity)) - (rarity (w/tcg-render-rarity rarity-level))) - (funcall k - (w/make-tcg-card - :name name - :type "user" - :depicted-subject name - :element (or element "neutral") - :color color - :faction faction - :equity equity - :boost-level boost-level - :rarity rarity - :rarity-level (format "%s" rarity-level) - :body-text "" - :base-image-name (w/pick-random w/tcg-bases) - :flags (s-join "," (w/tcg-pick-flags ud)))) - nil)) + (name (w/pick-random users))) + (w/tcg-user-card name k))) + +(defun w/tcg-user-card (name k) + "Generate a random `w/tcg-card' for NAME and pass it to K." + (w/user-id-from-name name + (lambda (uid) + (w/user-get-property uid "element" + (lambda (element) + (w/user-get-property uid "faction" + (lambda (faction) + (w/user-get-property uid "boost" + (lambda (boost) + (w/user-get-stat uid "equity" + (lambda (equity) + (let* ( (colornm (or (cadr (alist-get element w/user-elements nil nil #'s-equals?)) "grey")) + (color (w/color-value-to-html-code (color-values colornm))) + (faction-color + (w/color-value-to-html-code + (color-values + (cl-case faction + (nate "pink") + (lever "lightblue") + (tony "lightgreen") + (t "white"))))) + (rarity-level (w/tcg-determine-rarity)) + (rarity (w/tcg-render-rarity rarity-level))) + (w/twitch-get-user-avatar name + (lambda () + (w/tcg-generate-flavor-text name + (lambda (body) + (funcall k + (w/make-tcg-card + :name name + :type "user" + :depicted-subject name + :element (or element "neutral") + :color color + :faction (format "%s" (or faction "none")) + :faction-color faction-color + :equity (format "%s" (or equity 0)) + :boost-level (or boost "ABSTAINER") + :rarity rarity + :rarity-level (format "%s" rarity-level) + :body-text body + :base-image-name (w/pick-random w/tcg-bases) + :set w/tcg-current-set + :minted-date (format-time-string "%Y-%m-%d" (current-time)) + :flags (s-join "," (w/tcg-pick-flags nil))))))))))))))))))) + nil) + -(defun w/tcg-encode-card (c) - "Encode C to a string." +(defun w/tcg-encode-card (user userid c) + "Encode giving C to USER with USERID to a string." (s-join "\t" (list + user userid (w/. name c) (w/. type c) (w/. depicted-subject c) (w/. element c) (w/. color c) (w/. faction c) + (w/. faction-color c) (w/. equity c) (w/. boost-level c) (w/. rarity c) (w/. rarity-level c) (w/. body-text c) (w/. base-image-name c) + (w/. set c) + (w/. minted-date c) (w/. flags c)))) -(defun w/tcg-generate-card (c k) - "Generate the card C. -Pass the resulting PNG to K." - (let* ( (seq (cl-incf w/tcg-request-sequence)) - (msg (format "%s\t%s" seq (w/tcg-encode-card c)))) - (ht-set w/tcg-request-handlers seq - (lambda (resp) - (ht-remove w/tcg-request-handlers seq) - (funcall k resp))) - (w/binary-pub "overlay tcg generate" msg))) +(defun w/tcg-generate-card (user c) + "Generate the card C and give it to USER." + (w/chat-write-event (format "Generating card for %s..." user)) + (w/twitch-get-user-id + user + (lambda (userid) + (let ((msg (format "%s" (w/tcg-encode-card user userid c)))) + (w/binary-pub "overlay tcg generate" msg))))) (provide 'wasp-tcg) ;;; wasp-tcg.el ends here |