blob: faee4c893ce9840ef3f0e14966806c2e32da3dfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
;;; wasp-twitch-redeems --- Twitch redeems -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'dash)
(require 's)
(require 'soundboard)
(require 'wasp-twitch)
(require 'wasp-model)
(require 'wasp-obs)
(require 'wasp-user)
(require 'wasp-friend)
(require 'bezelea-muzak)
(setf
w/twitch-redeems
(list
(list
"BOOST" 1
(lambda (user _)
(soundboard//play-clip "yougotboostpower.ogg")
(w/write-chat-event (s-concat user " boosted their boost number"))
(cl-incf (alist-get :boost w/user-current 0))))
(list
"TSOOB" 1
(lambda (user _)
(soundboard//play-clip "rewoptsoobtoguoy.ogg" 140)
(w/write-chat-event (s-reverse (s-concat user " boosted their boost number")))
(cl-decf (alist-get :boost w/user-current 0))))
(list
"submit headline" 1
(lambda (user inp)
(w/write-chat-event (format "%s submitted a headline: %s" user inp))
(w/friend-journalism user inp)))
(list
"spinne" 3
(lambda (user _)
(w/write-chat-event (s-concat user " activates the spinne cyclle"))
(w/model-toggle "spin")))
(list
"forsen" 3
(lambda (_ _)
(soundboard//play-clip "cave3.ogg" 75)
(w/model-toggle "forsen")))
(list "SEASICKNESS GENERATOR" 3 (lambda (_ _) (w/model-toggle "zoom_wave")))
(list
"pursue idol dream" 3
(lambda (user _)
(w/write-chat-event (format "Helping %s pursue their idol dream~" user))
(w/obs-activate-toggle 'chase-dreams)
(w/model-region-user-avatar "hair" user)))
(list
"bells of bezelea" 4
(lambda (user msg)
(muzak//get-song
msg
(lambda (song)
(if song
(progn
(w/write-chat-event (format "%s played a song: %s (sponsored by Bezelea)" user msg))
(muzak/play-song msg))
(w/write-chat-event (format "%s played the bells (sponsored by Bezelea)" user))
(muzak/play-tracks msg))))))
(list "palette swap (hair)" 5 (w/handle-redeem-region-swap "hair"))
(list "palette swap (highlight)" 5 (w/handle-redeem-region-swap "highlight"))
(list "palette swap (eyes)" 5 (w/handle-redeem-region-swap "eyes"))
(list "palette swap (hat)" 5 (w/handle-redeem-region-swap "hat"))
(list
"feed friend" 10
(lambda (user inp)
(w/write-chat-event (s-concat user " feeds \"friend\" " inp))
(w/friend-feed user inp)))
(list
"talk to friend" 10
(lambda (user inp)
(w/write-chat-event (s-concat user " talks to \"friend\": " inp))
(w/friend-chat user inp)))
(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)))
(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
"super idol" 500
(lambda (_ _)
(w/twitch-say "SuperIdoldexiaorongdoumeinidetianbayuezhengwudeyangguangdoumeiniyaoyanreai105Cdenididiqingchundezhen")
(soundboard//play-clip "superidol.mp3")))
))
(provide 'wasp-twitch-redeems)
;;; wasp-twitch-redeems.el ends here
|
