diff options
Diffstat (limited to 'src/wasp-user.el')
| -rw-r--r-- | src/wasp-user.el | 9 |
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." |