From 6fa49e57f7313aad8852ce2721c2fcf7d0cec030 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Fri, 26 Apr 2024 01:53:24 -0400
Subject: Updates

---
 src/wasp-twitch-redeems.el | 88 +++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 84 insertions(+), 4 deletions(-)

(limited to 'src/wasp-twitch-redeems.el')

diff --git a/src/wasp-twitch-redeems.el b/src/wasp-twitch-redeems.el
index faee4c89..79fa16a2 100644
--- a/src/wasp-twitch-redeems.el
+++ b/src/wasp-twitch-redeems.el
@@ -5,16 +5,24 @@
 (require 'dash)
 (require 's)
 (require 'soundboard)
+(require 'wasp-utils)
 (require 'wasp-twitch)
 (require 'wasp-model)
 (require 'wasp-obs)
 (require 'wasp-user)
 (require 'wasp-friend)
+(require 'wasp-dna)
+(require 'wasp-fakechat)
 (require 'bezelea-muzak)
 
 (setf
  w/twitch-redeems
  (list
+  (list
+   "mental clarity" 1
+   (lambda (user _)
+     (w/write-chat-event (format "%s established mental clarity" user))
+     (w/stop-all-audio)))
   (list
    "BOOST" 1
    (lambda (user _)
@@ -32,6 +40,20 @@
    (lambda (user inp)
      (w/write-chat-event (format "%s submitted a headline: %s" user inp))
      (w/friend-journalism user inp)))
+  (list
+   "talk to clone" 2
+   (lambda (user inp)
+     (push (cons user inp) w/twitch-chat-history)
+     (let ((w/twitch-chat-history (list (cons user inp)))
+           (w/last-stream-transcription "")
+           (ping (w/message-ping inp)))
+       (w/write-chat-event (s-concat user " asks clone: " inp))
+       (w/fake-chatter-run
+        (w/pick-random
+         (or
+          (and ping (w/dna-user-clones ping))
+          (w/dna-user-clones user)
+          w/fake-chatters))))))
   (list
    "spinne" 3
    (lambda (user _)
@@ -75,22 +97,80 @@
    (lambda (user inp)
      (w/write-chat-event (s-concat user " talks to \"friend\": " inp))
      (w/friend-chat user inp)))
+  (list
+   "theme: maris-dark" 50
+   (lambda (user _)
+     (w/write-chat-event (format "%s changed the theme: maris-dark" user))
+     (w/change-theme 'ef-maris-dark)))
+  (list
+   "theme: autumn" 50
+   (lambda (user _)
+     (w/write-chat-event (format "%s changed the theme: autumn" user))
+     (w/change-theme 'ef-autumn)))
+  (list
+   "theme: tritanopia-dark" 50
+   (lambda (user _)
+     (w/write-chat-event (format "%s changed the theme: tritanopia-dark" user))
+     (w/change-theme 'ef-tritanopia-dark)))
+  (list
+   "theme: duo-dark" 50
+   (lambda (user _)
+     (w/write-chat-event (format "%s changed the theme: duo-dark" user))
+     (w/change-theme 'ef-duo-dark)))
+  (list
+   "theme: bio" 50
+   (lambda (user _)
+     (w/write-chat-event (format "%s changed the theme: bio" user))
+     (w/change-theme 'ef-bio)))
+  (list
+   "theme: rosa" 50
+   (lambda (user _)
+     (w/write-chat-event (format "%s changed the theme: rosa" user))
+     (w/change-theme 'ef-rosa)))
   (list
    "gamer" 500
    (lambda (user _)
-     (w/write-chat-event (s-concat user " quickscoped me"))
-     (soundboard//play-clip "videogame.ogg")
-     (w/obs-activate-toggle 'thug-life)))
+     (cl-incf w/twitch-gamer-counter)
+     (if (not (= 0 (% w/twitch-gamer-counter 5)))
+         (w/write-chat-event (s-concat user " offered a sacrifice at the altar of Gaming"))
+       (w/write-chat-event (s-concat user "'s Gamer Sacrifice summoned an entity"))
+       (soundboard//play-clip "videogame.ogg")
+       (w/obs-activate-toggle 'thug-life))))
   (list
    "arrow" 500
    (lambda (user msg)
      (w/write-chat-event (format "%s points and says %S" user msg))
      (w/obs-activate-toggle 'clickbait msg)))
+  (list
+   "antipiracy" 500
+   (lambda (_ _)
+     (w/obs-activate-toggle 'activate-nixos)))
   (list
    "super idol" 500
    (lambda (_ _)
      (w/twitch-say "SuperIdoldexiaorongdoumeinidetianbayuezhengwudeyangguangdoumeiniyaoyanreai105Cdenididiqingchundezhen")
-     (soundboard//play-clip "superidol.mp3")))
+     (soundboard//play-clip "superidololdshortstyle.ogg")))
+  (list
+   "VIPPER" 1000
+   (lambda (user inp)
+     (soundboard//play-clip "aeiou.ogg")
+     (w/write-chat-event (s-concat user " gave VIP to " inp))
+     (w/twitch-add-vip (s-chop-prefix "@" inp))))
+  (list
+   "deVIPPER" 1000
+   (lambda (user inp)
+     (soundboard//play-clip "uoiea.ogg")
+     (w/write-chat-event (s-concat user " removed VIP from " inp))
+     (w/twitch-remove-vip (s-chop-prefix "@" inp))))
+  (list
+   "total clarity" 5000
+   (lambda (user _)
+     (w/stop-all-audio)
+     (run-with-timer
+      1 nil
+      (lambda () (soundboard//play-clip "gong.ogg")))
+     (w/write-chat-event (s-concat user " established total clarity"))
+     (w/obs-activate-toggle 'total-clarity)))
   ))
 
 (provide 'wasp-twitch-redeems)
-- 
cgit v1.2.3