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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
;;; wasp-clone2 --- Activate the cloning device (SEQUEL) -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'wasp-utils)
(require 'wasp-twitch)
(require 'wasp-dna)
(w/defstruct
w/c2-clone
userid
name
disposition
typingstyle
favoriteword
biography
zodiac
mbti
enneagram
humor
bloodtype
alignment
kikibouba
class
stack
element
faction
machiavellianism
narcissism
psychopathy
quality
head
thorax
abdomen
othermessages
ourmessages)
(defun w/c2-take-random (n xs)
"Select N random elements from XS."
(cond
((> n 0) (cons (w/pick-random xs) (w/c2-take-random (- n 1) xs)))
(t nil)))
(defmacro w/c2-gen-evaluate (trait prompt)
"Generate a function that describes a user's TRAIT using PROMPT."
`(defun ,(intern (format "w/c2-evaluate-%s" trait)) (logs k)
(w/ai
(s-join "\n" (--map (s-concat (car it) ": " (cdr it)) (w/c2-take-random 50 logs)))
k
,prompt)))
(w/c2-gen-evaluate typingstyle
"Given the provided chatroom logs for a Twitch user, perform a forensic stylometry analysis of the form of the text. Try to identify key features of the text such as usage of abnormal punctuation/capitalization that would uniquely identify the user. Your analysis should be summarized in at most two brief sentences. Do not provide any examples please. Please be brief and do not use unnecessary adjectives or adverbs! Be as short as possible! I am trying to mimic this user; present the information in a way that makes such mimicry easy!")
(w/c2-gen-evaluate zodiac
"Given the provided chatroom logs for a Twitch user, determine that user's zodiac sign according to conventional astrology. Output only the zodiac sign and nothing else.")
(w/c2-gen-evaluate mbti
"Given the provided chatroom logs for a Twitch user, determine that user's Myers-Briggs personality type according to conventional psychology. Output only the MBTI and nothing else.")
(w/c2-gen-evaluate enneagram
"Given the provided chatroom logs for a Twitch user, determine that user's enneagram type according to conventional psychology. Output only the enneagram and nothing else.")
(w/c2-gen-evaluate humor
"Given the provided chatroom logs for a Twitch user, determine that user's classical humor type according to humorism. Output only the humor and nothing else. Your only options are: sanguine, choleric, melancholic, phlegmatic")
(w/c2-gen-evaluate bloodtype
"Given the provided chatroom logs for a Twitch user, determine that user's blood type according to Japanese blood type personality theory. Output only the blood type and nothing else. Your only options are: A+, A-, B+, B-, AB+, AB-, O+, O-")
(w/c2-gen-evaluate alignment
"Given the provided chatroom logs for a Twitch user, determine that user's Dungeons & Dragons alignment. Output only the alignment and nothing else.")
(w/c2-gen-evaluate kikibouba
"Given the provided chatroom logs for a Twitch user, determine whether that user is more \"kiki\" or more \"bouba\". Output only kiki or bouba and nothing else.")
(defun w/c2-new (name disposition biography)
"Build a new (randomized) clone for NAME with DISPOSITION based on their DNA.
The clone has a BIOGRAPHY describing it."
(let ( (clone
(w/make-c2-clone
:name name
:disposition disposition
:favoriteword "aardvark"
:biography biography
:class (w/pick-random (list "Fighter" "Magic-user" "Cleric" "Thief"))
:stack (w/pick-random (list "LAMP" "MEAN" "MERN" "MEVN" "JAM" "CLONK"))
:element (w/pick-random (list "fire" "water" "wind" "earth" "lightning" "heart"))
:faction (w/pick-random (list "nate" "lever" "tony"))
:quality (w/pick-random (list "F" "D" "C" "B" "A" "A+" "S-" "S+" "S++" "S+++"))
:narcissism (w/random-probability)
:machiavellianism (w/random-probability)
:psychopathy (w/random-probability)
:head
(w/encode-string
(f-read-bytes
(if (f-exists? (w/twitch-user-avatar-path name))
(w/twitch-user-avatar-path name)
(w/twitch-user-avatar-path "default"))))
:thorax (w/random-color)
:abdomen (w/random-color)))
(total 0)
(timeout 0)
(logs (w/c2-take-random 30 (w/dna-user-log name)))
(fields '(typingstyle zodiac mbti enneagram humor bloodtype alignment kikibouba)))
(w/twitch-get-user-id name
(lambda (userid)
(setf (w/c2-clone-userid clone) userid)
(cl-incf total)))
(cl-decf total)
(--each fields
(funcall (intern (format "w/c2-evaluate-%s" it))
logs
(lambda (x)
(setf (eieio-oref clone it) x)
(cl-incf total)))
(cl-decf total))
(while (and (not (= total 0)) (< timeout 20))
(message "Generating%s" (s-repeat timeout "."))
(sleep-for 0.5)
(cl-incf timeout))
clone))
(defun w/c2-upload (c)
"Upload the clone C to the database."
(let ((countkey (format "c2_count:%s" (w/c2-clone-userid c))))
(w/db-get countkey
(lambda (old)
(let* ( (idx (if (s-present? old) (string-to-number old) 0))
(key (format "c2_clone:%s:%s" (w/c2-clone-userid c) idx)))
(apply #'w/db-hmset key
(--mapcat
(list (format "%s" it) (format "%s" (w/struct-get c it)))
(w/struct-fields 'w/c2-clone)))
(w/db-set countkey (format "%s" (+ idx 1))))))))
(defun w/c2-get (userid idx k)
"Download the clone of USERID at IDX and pass it to K."
(w/db-hgetall (format "c2_clone:%s:%s" userid idx)
(lambda (data)
(funcall k
(apply #'w/make-c2-clone
(--mapcat
(list (intern (format ":%s" it)) (ht-get data (format "%s" it)))
(w/struct-fields 'w/c2-clone)))))))
(defun w/c2-build-prompt (c)
"Build prompt for C."
(format
"Respond to the message given as if you are the Twitch chat user %s. Your typing style can be described as follows: %s. Please closely adhere to this typing style. Your general disposition is %s. %s."
(w/c2-clone-name c)
(w/c2-clone-typingstyle c)
(w/c2-clone-disposition c)
(w/c2-clone-biography c)))
(defun w/c2-respond (c event k)
"Have C respond to EVENT and pass the response to K."
(w/ai event
(lambda (res)
(funcall k res))
(w/c2-build-prompt c)))
(provide 'wasp-clone2)
;;; wasp-clone2.el ends here
|
