|
|
@@ -23,7 +23,8 @@
|
|
|
(log:error e))))
|
|
|
|
|
|
(defvar *responses*
|
|
|
- '("И чё?" "Сам-то понял?" "Ну хуй знает" "Бля..." "В душе не ебу" "Мне похуй")
|
|
|
+ '("И чё?" "Сам-то понял?" "Ну хуй знает" "Бля..." "В душе не ебу" "Мне похуй"
|
|
|
+ "Eбаный ты нахуй" "Отъебись")
|
|
|
"Unknown command respond strings")
|
|
|
|
|
|
(defun random-choice (messages)
|
|
|
@@ -87,12 +88,14 @@
|
|
|
|
|
|
(defun process-latest-akb ()
|
|
|
(log:info "Getting latest AKBs")
|
|
|
- (dolist (post (reverse (aget "items" (vk-wall-get :domain +akb-vk-domain+
|
|
|
- :count *akb-max-count*))))
|
|
|
- (let ((id (aget "id" post)))
|
|
|
- (when (> id *akb-last-id*)
|
|
|
- (send-akb (format-akb post))
|
|
|
- (setf *akb-last-id* id)))))
|
|
|
+ (handler-case
|
|
|
+ (dolist (post (reverse (aget "items" (vk-wall-get :domain +akb-vk-domain+
|
|
|
+ :count *akb-max-count*))))
|
|
|
+ (let ((id (aget "id" post)))
|
|
|
+ (when (> id *akb-last-id*)
|
|
|
+ (send-akb (format-akb post))
|
|
|
+ (setf *akb-last-id* id))))
|
|
|
+ (error (e) (log:error e))))
|
|
|
|
|
|
(defun send-akb (text)
|
|
|
(log:info "send-akb: ~A" text)
|
|
|
@@ -118,7 +121,7 @@
|
|
|
|
|
|
(defvar *help-responses*
|
|
|
(list "Сам себе помоги, нахуй!" "Вот заняться мне больше нечем" "Нахуй пошел!"
|
|
|
- "Хэлп, ай нид самбади, хелп нот джаст энибади."))
|
|
|
+ "Хэлп, ай нид самбади, хелп нот джаст энибади" "Отъебись"))
|
|
|
|
|
|
(defun handle-cmd-help (chat-id message-id args)
|
|
|
(log:info "handle-cmd-help" chat-id message-id args)
|
