UpdateHEADmaster

1 files changed, 7 insertions, 2 deletions

diff --git a/src/wasp-user.el b/src/wasp-user.el
index de5df6f8..778d4f4b 100644
--- a/src/wasp-user.el
+++ b/src/wasp-user.el
@@ -6,6 +6,7 @@
 (require 'ht)
 (require 'wasp-utils)
 (require 'wasp-db)
+(require 'wasp-leaderboard)
 
 (defvar w/user-whitelist nil)
 
@@ -90,7 +91,9 @@
       (lambda (scur)
         (when-let* ( (cur (or (w/read-sexp scur) 0))
                      (_ (integerp cur)))
-          (w/user-set-property uid "boost" (format "%s" (+ cur 1))))))))
+          (let ((new (+ cur 1)))
+            (w/user-set-property uid "boost" (format "%s" new))
+            (w/leaderboard-set-score "boost" uid new)))))))
 
 (defun w/user-tsoob (uid)
   "Decrement UID's boost power by 1."
@@ -99,7 +102,9 @@
       (lambda (scur)
         (when-let* ( (cur (or (w/read-sexp scur) 0))
                      (_ (integerp cur)))
-          (w/user-set-property uid "boost" (format "%s" (- cur 1))))))))
+          (let ((new (- cur 1)))
+            (w/user-set-property uid "boost" (format "%s" new))
+            (w/leaderboard-set-score "boost" uid new)))))))
 
 (defun w/user-avatar (user)
   "Return USER's avatar as a unibyte string."