1 files changed, 18 insertions, 0 deletions
diff --git a/src/gizmo/wasp-friend-eating.el b/src/gizmo/wasp-friend-eating.el
new file mode 100644
index 00000000..4bd92b8c
--- /dev/null
+++ b/src/gizmo/wasp-friend-eating.el
@@ -0,0 +1,18 @@
+;;; wasp-friend-eating --- "friend" can eat -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+(require 'wasp-friend)
+
+(defvar w/friend-tastes " You love eating cranberries and lemons.")
+
+(defun w/friend-feed (user food)
+  "Call when USER fed FOOD to \"friend\"."
+  (w/friend-personality
+    (format "%s fed you %s" user food)
+    (lambda (msg)
+      (w/friend-say msg)
+      (w/friend-set-state 'eating 6))
+    w/friend-tastes))
+
+(provide 'wasp-friend-eating)
+;;; wasp-friend-eating.el ends here