<commit_before>;;; Copyright 2012 <NAME> All Rights Reserved.
;;;
;;; Licensed under the Apache License, Version 2.0 (the "License");
;;; you may not use this file except in compliance with the License.
;;; You may obtain a copy of the License at
;;;
;;;     http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

(in-package #:orcabot)

(defmodule kittens kittens-module ("kittens"))

(defmethod handle-message ((module kittens-module)
                           (message irc:irc-privmsg-message))
  (when (ppcre:scan "\\bkittens\\b" (second (arguments message)))
    (reply-to message "*squeal*  Kittens!!!"))
  nil)<commit_msg>Kittens now also reacts to ponies, dogs, manatees, and questions<commit_after>;;; Copyright 2012 <NAME> All Rights Reserved.
;;;
;;; Licensed under the Apache License, Version 2.0 (the "License");
;;; you may not use this file except in compliance with the License.
;;; You may obtain a copy of the License at
;;;
;;;     http://www.apache.org/licenses/LICENSE-2.0
;;;
;;; Unless required by applicable law or agreed to in writing, software
;;; distributed under the License is distributed on an "AS IS" BASIS,
;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;;; See the License for the specific language governing permissions and
;;; limitations under the License.

(in-package #:orcabot)

(defmodule kittens kittens-module ("kittens"))

(defmethod handle-message ((module kittens-module)
                           (message irc:irc-privmsg-message))
  (cond
    ((ppcre:scan (ppcre:create-scanner "^orca[,: ]+.*?$" :case-insensitive-mode t) (second (arguments message)))
     (reply-to message (random-elt '("It is certain."
                                     "My sources say no."
                                     "My sources say yes."
                                     "Most likely not."
                                     "UMMM.. No."
                                     "Without a doubt."
                                     "Very doubtful."
                                     "No."
                                     "Yes."
                                     "I don't care."
                                     "Heck yeah!"))))
    ((ppcre:scan (ppcre:create-scanner "\\bpon(y|ies)\\b" :case-insensitive-mode t) (second (arguments message)))
     (reply-to message "OMG!!! Ponies!"))
    ((ppcre:scan (ppcre:create-scanner "\\bkittens?\\b" :case-insensitive-mode t) (second (arguments message)))
     (reply-to message "*squeal*  Kittens!!!"))
    ((ppcre:scan (ppcre:create-scanner "\\bpupp(y|ies)\\b" :case-insensitive-mode t) (second (arguments message)))
     (reply-to message "AwwWWwwWww... Puppies..."))
    ((ppcre:scan (ppcre:create-scanner "\\bmanatees?\\b" :case-insensitive-mode t) (second (arguments message)))
     (reply-to message "MMMmmmmm... Manatees...")))
  nil)
{'fraction_non_alphanumeric': 0.13433772755806653, 'fraction_numerical': 0.005021971123666039, 'mean_word_length': 2.4305705059203446, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 12, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2308559', 'n_tokens_mistral': 921, 'n_tokens_neox': 883, 'n_words': 302}