|
|
@@ -34,7 +34,11 @@
|
|
|
(telegram-send-message chat-id
|
|
|
(if (and text (zerop (random 5)))
|
|
|
(format nil "Сам ~A"
|
|
|
- (replace-all text "@chatikbot" ""))
|
|
|
+ (replace-all
|
|
|
+ (if (equal (char text 0) #\/)
|
|
|
+ (subseq text 1)
|
|
|
+ text)
|
|
|
+ "@chatikbot" ""))
|
|
|
(random-choice *responses*))
|
|
|
:reply-to reply-id))
|
|
|
(defvar *chat-locations* nil "ALIST of chat->location")
|
