1 files changed, 84 insertions, 4 deletions

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,17 +5,25 @@
 (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 _)
      (soundboard//play-clip "yougotboostpower.ogg")
@@ -33,6 +41,20 @@
      (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 _)
      (w/write-chat-event (s-concat user " activates the spinne cyclle"))
@@ -76,21 +98,79 @@
      (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)