blob: aa441693d23f35ae1ffd212a586314c6a06da230 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#lang racket/base
(require irc/bot irc/command irc/storage irc/users
racket/format)
(define-command (power)
#:help "Displays your registered power level"
(reply (~a (user-power (source)))))
(define-command (user-get path)
#:power 2
(reply (~s (apply ref (user-storage (source)) path))))
|