Eliza

chatikbot.lisp

@@ -399,7 +399,8 @@
                                                     url)))
                       (if (member feed feeds)
                           (setf feeds (remove feed feeds))
-                          (push feed feeds))))))
+                          (push feed feeds))))
+                  (error (e) (log:error e))))                
               (setf (gethash chat-id *rss-chat-feeds*) feeds)
               (%refresh-feeds)
               (save-settings)

eliza.lisp

@@ -6,7 +6,7 @@
 
 (defun goto-p (input) (member input '(иди пошел вали)))
 (defun prep-p (i) (member i '(в на)))
-(defun dirty-p (i) (member i '(лох хуй мудак ебалай)))
+(defun dirty-p (i) (member i '(лох хуй мудак ебалай пидор сука уебок мудило еблан говнюк уебище ебантяй пидрила)))
 
 (defparameter *eliza-rules*
   `(
@@ -14,6 +14,10 @@
      (а самому не пойти ?prep ?х ?) (мамку свою посылай ?prep ?х) (покомандуй тут еще) ,@*fuck-off*)
     (((?is ?g goto-p) (?* ?x))
      (сам иди ?x) (покомандуй тут еще) ,@*fuck-off*)
+    (((?* ?a) ты (?* ?x))
+     (сам ?x) (сам ты ?x) (а по ебалу?) (сейчас мы разберемся кто еще тут ?x) ,@*fuck-off*)
+    (((?is ?x dirty-p))
+     (сам ?x) (сам ты ?x) (а по ебалу?) (сейчас мы разберемся кто еще тут ?x))
     (((?* ?a) (?or хуита хуета хуйня лажа говно бред) (?* ?b))
      ("вам, сударь," не угодить) (и что?) (бывает) (мопед не мой) (сам получше придумывай) ,@*fuck-off*)
     (((?* ?a) (?or норм хорошо молодец ниплохо ниплоха ниеплоха) (?* ?b))
@@ -34,8 +38,6 @@
      (#'tumblr-random-photo ,*ass-roll*))
     (((?* ?a) (?or тёлка телка телку тёлку баба бабу сука суку сучка сучку babe bitch) (?* ?b))
      (#'tumblr-random-photo ,*ass-roll*) (#'tumblr-random-photo ,*boobs-roll*))
-    (((?* ?a) (?or ты бот ботяра) (?* ?x))
-     (сам ?x) (сам ты ?x) (а по ебалу?) (сейчас мы разберемся кто еще тут ?x) ,@*fuck-off*)
     (((?* x))
      (:text . "И чё?")
      (:text . "Сам-то понял?")