8 files changed, 78 insertions, 11 deletions
diff --git a/src/gizmo/wasp-alert-message.el b/src/gizmo/wasp-alert-message.el
new file mode 100644
index 00000000..fcd8f6b3
--- /dev/null
+++ b/src/gizmo/wasp-alert-message.el
@@ -0,0 +1,57 @@
+;;; wasp-alert-message --- Advertising message -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(require 'dash)
+(require 's)
+(require 'f)
+(require 'ht)
+(require 'wasp-utils)
+(require 'wasp-chat)
+
+(defconst
+  w/alert-message-phrases
+  (list
+   "hi :3"
+   "Chat seems active. Considerrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
+   "Witscord The Game 2025"
+   ))
+
+(defcustom w/alert-message-buffer "*wasp-alert-message*"
+  "Name of buffer used to display alert message."
+  :type '(string)
+  :group 'wasp)
+
+(define-derived-mode w/alert-message-mode special-mode "ALERT ALERT ALERT"
+  "Major mode for displaying alert message."
+  :group 'w
+  (setq-local cursor-type nil))
+
+(defun w/get-alert-message-buffer ()
+  "Return the alert message buffer."
+  (unless (get-buffer w/alert-message-buffer)
+    (with-current-buffer (get-buffer-create w/alert-message-buffer)
+      (w/alert-message-mode)))
+  (get-buffer w/alert-message-buffer))
+
+(defun w/render-alert-message ()
+  "Render the heartrate buffer."
+  (with-current-buffer (w/get-alert-message-buffer)
+    (setq-local cursor-type nil)
+    (let* ((inhibit-read-only t))
+      (erase-buffer)
+      (w/write (w/pick-random w/alert-message-phrases)))))
+
+(defvar w/alert-message-timer nil)
+(defun w/run-alert-message-timer ()
+  "Run the alert message timer."
+  (when w/alert-message-timer
+    (cancel-timer w/alert-message-timer))
+  (w/render-alert-message)
+  (setq
+   w/alert-message-timer
+   (run-with-timer 10 nil #'w/run-alert-message-timer)))
+(w/run-alert-message-timer)
+
+(provide 'wasp-alert-message)
+;;; wasp-alert-message.el ends here
diff --git a/src/gizmo/wasp-aoc.el b/src/gizmo/wasp-aoc.el
index 5fa58582..57b16c32 100644
--- a/src/gizmo/wasp-aoc.el
+++ b/src/gizmo/wasp-aoc.el
@@ -10,7 +10,7 @@
 (require 'request)
 (require 'wasp-sensitive)
 
-(defcustom w/aoc-leaderboard-url "https://adventofcode.com/2023/leaderboard/private/view/3307583.json"
+(defcustom w/aoc-leaderboard-url "https://adventofcode.com/2024/leaderboard/private/view/3307583.json"
   "URL for Advent of Code API."
   :type '(string)
   :group 'wasp)
@@ -28,11 +28,18 @@
     ("fn_lumi" . "lumi")
     ("leadengin" . "leaden")
     ("vasher_1025" . "vash3r")
-    ("andrewdtr" . "drawthatredstone")))
+    ("andrewdtr" . "drawthatredstone")
+    ("badcop_" . "cgsdev0")
+    ("asrael_io" . "asrael")
+    ("colinahscopy_" . "@colinahscopy")
+    ("ctrl_o" . "control-o")
+    ("whimsicallymade" . "aecepoglu")
+    ("chromosundrift" . "christo")
+    ))
 
 (defun w/aoc-max-stars ()
   "Return the maximum Advent of Code stars for today."
-  (* 2 (string-to-number (format-time-string "%d" (current-time)))))
+  (min 50 (* 2 (string-to-number (format-time-string "%d" (current-time))))))
 
 (defun w/aoc-lookup-stars (user)
   "Retrieve the Advent of Code stars for USER."
diff --git a/src/gizmo/wasp-biblicality.el b/src/gizmo/wasp-biblicality.el
index b7c46ed8..ce49a5b4 100644
--- a/src/gizmo/wasp-biblicality.el
+++ b/src/gizmo/wasp-biblicality.el
@@ -21,7 +21,7 @@
 (defun w/populate-bible-table ()
   "Populate `w/bible-table' from the Bible text file."
   (unless w/bible-table
-    (let* ((bible-string (s-downcase (w/slurp (w/asset "bible.txt"))))
+    (let* ((bible-string (s-downcase (w/slurp (w/asset "medical.txt"))))
            (bible-string-nosyms (replace-regexp-in-string "[^[:alpha:]]" " " bible-string))
            (bible-words (s-split-words bible-string-nosyms))
            (ret (ht-create)))
diff --git a/src/gizmo/wasp-cyclone.el b/src/gizmo/wasp-cyclone.el
index d7a0d02d..7359485b 100644
--- a/src/gizmo/wasp-cyclone.el
+++ b/src/gizmo/wasp-cyclone.el
@@ -6,12 +6,14 @@
 (require 'wasp-friend)
 (require 'wasp-heartrate)
 (require 'wasp-chatsummary)
+(require 'wasp-alert-message)
 
 (defconst w/gizmo-buffer-names
   (list
    w/friend-buffer
    w/heartrate-buffer
-   w/chatsummary-buffer))
+   w/chatsummary-buffer
+   w/alert-message-buffer))
 
 (defvar w/gizmo-windows (list))
 
diff --git a/src/gizmo/wasp-fake-chatters.el b/src/gizmo/wasp-fake-chatters.el
index a6506c06..5eb42379 100644
--- a/src/gizmo/wasp-fake-chatters.el
+++ b/src/gizmo/wasp-fake-chatters.el
@@ -261,7 +261,7 @@
     w/dna-pralkarz
     "pralkarz"
     "#FF69B4"
-    "Respond to the message given as if you are the Twitch chat user pralkarz. You tend to be well spoken. You often use words like \"skibidi\" and \"gyatt\" in their proper contexts. Your response should be short, no more than one sentence. You always use proper capitalization and punctuation."))
+    "Respond to the message given as if you are the Twitch chat user pralkarz. You always use proper grammar and punctuation. You are unusually obsessed with washing machines, and often draw allegories to them, even when it seemingly doesn't make sense. Your feet sometimes smell like vinegar, and you find it hilarious. Your response should be short, no more than one sentence."))
   (w/make-fake-chatter
    :profile
    (w/dna-to-fake-chatter-profile
diff --git a/src/gizmo/wasp-friend.el b/src/gizmo/wasp-friend.el
index cff2689f..a476facc 100644
--- a/src/gizmo/wasp-friend.el
+++ b/src/gizmo/wasp-friend.el
@@ -336,7 +336,7 @@ If K is specified, call it after the response."
 
 (defun w/friend-callout-holiday ()
   "Call to respond to the current holiday."
-  (w/friend-respond "It's currently the LCOLONQ shareholders meeting and you're an executive! Say something about it please!"))
+  (w/friend-respond "It's New Year's Eve! Say something about it please!"))
 
 (defun w/friend-callout-hexamedia ()
   "Call to respond to a random recent chatter's Hexamedia card collection."
@@ -463,7 +463,7 @@ If K is specified, call it after the response."
     (4 (w/friend-callout-shindaggers))
     (5 (w/friend-callout-copfish))
     (6 (w/friend-callout-resolution))
-    (29 (w/friend-callout-holiday))
+    (9 (w/friend-callout-holiday))
     (t (w/friend-set-state 'jumping))))
 
 (defun w/update-friend ()
@@ -523,8 +523,8 @@ If K is specified, call it after the response."
 ;;           "%a\
 ;;     /\\      
 ;;    /\\/\\     
-;;   /    \\    
-;;  /      \\   
+;;   / :3 \\    
+;;  /santa!\\   
 ;; ~~~~~~~~~~
 ;; ~~~~~~~~~~   
 ;;  / %l  %r \\ 
diff --git a/src/gizmo/wasp-heartrate.el b/src/gizmo/wasp-heartrate.el
index 62994680..36fe5b38 100644
--- a/src/gizmo/wasp-heartrate.el
+++ b/src/gizmo/wasp-heartrate.el
@@ -56,7 +56,7 @@
     (setq-local cursor-type nil)
     (let* ((inhibit-read-only t))
       (erase-buffer)
-      (w/write-line (format "%3d bpm" (w/get-heartrate)) 'w/heartrate-big)
+      (w/write-line (format "%3d °C" (w/get-heartrate)) 'w/heartrate-big)
       (w/write (format "arbitrary counter: %s times" w/chat-bpm-count) 'w/heartrate-small))))
 
 (defvar w/heartrate-timer nil)
diff --git a/src/gizmo/wasp-pronunciation.el b/src/gizmo/wasp-pronunciation.el
index 8dae4e4d..746bd882 100644
--- a/src/gizmo/wasp-pronunciation.el
+++ b/src/gizmo/wasp-pronunciation.el
@@ -27,6 +27,7 @@
     "Elkhunk"
     "late late late late show with llll colonq"
     "move right and exit"
+    "Al Capone"
     ))
 
 (defconst w/pronunciation-part1 ;; the LLLL