summaryrefslogtreecommitdiff
path: root/src/wasp-twitch-chat-commands.el
diff options
context:
space:
mode:
Diffstat (limited to 'src/wasp-twitch-chat-commands.el')
-rw-r--r--src/wasp-twitch-chat-commands.el155
1 files changed, 155 insertions, 0 deletions
diff --git a/src/wasp-twitch-chat-commands.el b/src/wasp-twitch-chat-commands.el
new file mode 100644
index 00000000..3c679365
--- /dev/null
+++ b/src/wasp-twitch-chat-commands.el
@@ -0,0 +1,155 @@
+;;; wasp-twitch-chat-commands --- Twitch redeems -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(require 'soundboard)
+(require 'wasp-twitch)
+(require 'wasp-ai)
+
+;; gizmos
+(require 'wasp-pronunciation)
+
+(setq
+ w/twitch-chat-commands
+ (list
+ (cons
+ "!commands"
+ (lambda (_ _)
+ (w/twitch-say
+ (s-concat
+ "Available commands: "
+ (s-join " " (--filter (s-contains? "!" it) (-map #'car w/twitch-chat-commands)))))))
+ (cons "MRBEAST" (lambda (_ _) (soundboard//play-clip "mrbeast.mp3")))
+ (cons "NICECOCK" (lambda (_ _) (soundboard//play-clip "pantsintoashes.mp3")))
+ (cons "hexadiCoding" (lambda (_ _) (soundboard//play-clip "developers.ogg")))
+ (cons "roguelike" (lambda (user _) (w/twitch-say (format "@%s that's not a roguelike" user))))
+ (cons "arch btw" (lambda (_ _) (w/twitch-say "I use nix btw")))
+ ;; (cons "heart" (lambda (_ _) (fig/increment-heartrate-counter)))
+ ;; (cons "bpm" (lambda (_ _) (fig/increment-heartrate-counter)))
+ ;; (cons "BPM" (lambda (_ _) (fig/increment-heartrate-counter)))
+ (cons "discord" (lambda (_ _) (w/twitch-say "https://discord.gg/f4JTbgN7St")))
+ (cons "Discord" (lambda (_ _) (w/twitch-say "https://discord.gg/f4JTbgN7St")))
+ (cons "!irc" (lambda (_ _) (w/twitch-say "#cyberspace on IRC at colonq.computer:26697 (over TLS)")))
+ (cons "IRC" (lambda (_ _) (w/twitch-say "#cyberspace on IRC at colonq.computer:26697 (over TLS)")))
+
+ (cons "!today" (lambda (_ _) (w/twitch-say (s-trim (w/slurp "~/today.txt")))))
+ (cons
+ "!fish"
+ (lambda (_ _)
+ (w/twitch-say (shell-command-to-string "fishing"))))
+ (cons "!nc" (lambda (_ _) (w/twitch-say "try: \"nc colonq.computer 31340\", if nc doesn't work try ncat or telnet")))
+ (cons "!oomfie" (lambda (_ _) (w/twitch-say "hi!!!!!!!")))
+ (cons "!pronunciation" (lambda (_ _) (w/twitch-say (w/pronuciation))))
+ ;; (cons "!jetsWave" (lambda (_ _) (fig//twitch-say (fig/slurp "jetsWave.txt"))))
+ ;; (cons "!forth" (lambda (_ _) (fig//twitch-say "https://github.com/lcolonq/giving")))
+ (cons "!oub" (lambda (_ _) (w/twitch-say "https://oub.colonq.computer")))
+ (cons "!game" (lambda (_ _) (w/twitch-say "https://oub.colonq.computer")))
+ (cons "!pubnix" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer")))
+ (cons "!ring" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer")))
+ (cons "!webring" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer")))
+ (cons "!animeguide" (lambda (_ _) (w/twitch-say "https://nixos-and-flakes.thiscute.world/introduction")))
+ (cons "!sponsor" (lambda (_ _) (w/twitch-say "Like what you see? Don't forget to download GNU Emacs at https://www.gnu.org/software/emacs/?code=LCOLONQ")))
+ (cons "!specs" (lambda (_ _) (w/twitch-say "Editor: evil-mode, WM: EXWM, OS: NixOS, hardware: shit laptop")))
+ (cons "!coverage" (lambda (_ _) (w/twitch-say (format "Test coverage: %s%%" (random 100)))))
+ (cons "!learnprogramming" (lambda (_ _) (w/twitch-say "1) program")))
+ (cons "!github" (lambda (_ _) (w/twitch-say "https://github.com/lcolonq")))
+ (cons "!language" (lambda (_ _) (w/twitch-say "probably emacs lisp or maybe rust")))
+ (cons "!onlyfans" (lambda (_ _) (soundboard//play-clip "pornhub.mp3")))
+ (cons "!throne" (lambda (_ _) (w/twitch-say "xdding")))
+ (cons "!vim" (lambda (_ _) (w/twitch-say "vi is the best text editor, emacs is the best operating system")))
+ (cons "!emacs" (lambda (_ _) (w/twitch-say "i've tried everything else emacs is best girl")))
+ (cons "!bells" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer/~bezelea/bells/ and https://pub.colonq.computer/~prod/toy/dbkai/")))
+ (cons "!help" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer/~prod/toy/glossary/")))
+ (cons
+ "!boost"
+ (lambda (user _)
+ (w/twitch-say (format "boost power for @%s: %s" user (alist-get :boost w/user-current)))))
+ (cons
+ "!faction"
+ (lambda (user _)
+ (w/twitch-say (format "faction for %s: %s" user (alist-get :faction w/user-current)))))
+ (cons "!thanks" (lambda (user _) (w/twitch-say (format "thank you %s!" user))))
+ (cons "!bible" (lambda (_ _) (w/twitch-say "https://www.youtube.com/watch?v=G5u23bh29hI")))
+ (cons "!drink" (lambda (_ _) (w/twitch-say "its watah im drinkin it")))
+ (cons
+ "!lore"
+ (lambda (_ _)
+ (w/ai
+ "ITEM"
+ (lambda (msg) (w/twitch-say msg))
+ "Please produce a Dark Souls style item name and description related to LCOLONQ. Please limit your response to one sentence maximum. The sentence should be vague and incorporate archaic words that are not commonly used. LCOLONQ is a spirit that lives inside the computer. LCOLONQ is associated with: the moon, snakes, the color grey, dolls and puppets, amber, the wind, and GNU Emacs. The description should mostly describe the item, but with vague insinuations about the true nature of LCOLONQ."
+ "ITEM"
+ "Ring of Favor and Protection - A ring symbolizing the favor and protection of the goddess Fina, known in legend to possess fateful beauty.")))
+ ;; (cons "!geisercounter" (lambda (_ _) (fig//twitch-say (format "The Geiser counter beeps %s times" (fig//geiser-counter)))))
+ ;; (cons "!8ball"
+ ;; (lambda (user inp)
+ ;; (let ((trimmed (s-trim (s-replace "!8ball" "" inp))))
+ ;; (fig//8ball
+ ;; trimmed
+ ;; (lambda (answer)
+ ;; (fig//twitch-say (format "@%s 8ball says: %s" user answer)))))))
+ ;; (cons "!bookrec"
+ ;; (lambda (_ _)
+ ;; (let ((choice (nth (random (length fig/recommended-books)) fig/recommended-books)))
+ ;; (fig//twitch-say (format "%s (recommended by %s)" (car choice) (cdr choice))))))
+ ;; (cons "!addbookrec"
+ ;; (lambda (user inp)
+ ;; (let ((trimmed (s-trim (s-replace "!addbookrec" "" inp))))
+ ;; (fig//write-chat-event (format "%s recommends: %s" user trimmed))
+ ;; (fig//add-recommended-book user trimmed))))
+ ;; (cons "!quote"
+ ;; (lambda (_ _)
+ ;; (let ((choice (nth (random (length fig/quotes)) fig/quotes)))
+ ;; (fig//twitch-say (format "%s: %s" (cdr choice) (car choice))))))
+ ;; (cons "!addquote"
+ ;; (lambda (user inp)
+ ;; (let ((trimmed (s-trim (s-replace "!addquote" "" inp))))
+ ;; (fig//write-chat-event (format "%s saves quote: %s" user trimmed))
+ ;; (fig//add-quote user trimmed))))
+ ;; (cons "!resolution"
+ ;; (lambda (user inp)
+ ;; (let ((trimmed (s-trim (s-replace "!resolution" "" inp))))
+ ;; (if (string-empty-p trimmed)
+ ;; (fig//write-chat-event "You gotta put what your resolution is.")
+ ;; (fig//write-chat-event (format "%s RESOLVES: %s" (s-upcase user) trimmed))
+ ;; (fig//set-db-entry user :resolution trimmed)))))
+ ;; (cons "!twitter"
+ ;; (lambda (_ _)
+ ;; (fig/ask "How do you feel about Twitter? Should viewers follow LCOLONQ on Twitter?" #'fig/say)
+ ;; (fig//twitch-say "https://twitter.com/LCOLONQ")))
+ ;; ;; (cons "!aoc" (lambda (_ _) (fig//twitch-say "Join our leaderboard: 3307583-b61f237c")))
+ ;; (cons "!roll" (lambda (user _) (fig//twitch-say (fig//character-to-string (fig//roll-character user)))))
+ ;; (cons
+ ;; "!leaderboard"
+ ;; (lambda (_ _)
+ ;; (let* ((users (fig//all-db-users))
+ ;; (user-scores (-filter #'cdr (--map (cons it (alist-get :boost (fig//load-db it))) users)))
+ ;; (sorted (-sort (-on #'> #'cdr) user-scores))
+ ;; (leaders (-take 5 sorted)))
+ ;; (fig//twitch-say (s-join ", " (--map (format "%s: %s" (car it) (cdr it)) leaders))))))
+ ;; (cons
+ ;; "draobredael!"
+ ;; (lambda (_ _)
+ ;; (let* ((users (fig//all-db-users))
+ ;; (user-scores (-filter #'cdr (--map (cons it (alist-get :boost (fig//load-db it))) users)))
+ ;; (sorted (-sort (-on #'< #'cdr) user-scores))
+ ;; (leaders (-take 5 sorted)))
+ ;; (fig//twitch-say (s-join ", " (--map (format "%s: %s" (reverse (car it)) (cdr it)) leaders))))))
+ ;; (cons
+ ;; "!vippers"
+ ;; (lambda (_ _)
+ ;; (let ((vipperstring (s-join ", " (fig//shuffle-seq fig//twitch-vip-list))))
+ ;; (fig//twitch-say (seq-take vipperstring 450)))
+ ;; (fig//twitch-get-vip-list)))
+ ;; (cons "!levelup"
+ ;; (lambda (user _)
+ ;; (fig//update-db-character
+ ;; user
+ ;; (lambda (c)
+ ;; (cl-incf (fig//rpg-character-level c))
+ ;; c))
+ ;; (fig//twitch-say (fig//character-to-string (fig//get-db-character user)))))
+ ))
+
+(provide 'wasp-twitch-chat-commands)
+;;; wasp-twitch-chat-commands.el ends here
generated by cgit v1.2.3 (git 2.25.1) at 2026-05-09 05:38:51 +0000