better scoping

2 files changed, 2 insertions, 2 deletions

diff --git a/data/moves/pokemon.lisp b/data/moves/pokemon.lisp
index 30875eb..15a40da 100644
--- a/data/moves/pokemon.lisp
+++ b/data/moves/pokemon.lisp
@@ -46,7 +46,7 @@
 (defmethod attack ((target base-character) (user base-character) (attack mudbomb))
   (format t "~a used ~a~%" (name-of user) (name-of attack))
   (write-line "But it failed."))
-(defmethod attack ((target base-character) (user potty-character) (attack mudbomb))
+(defmethod attack ((target base-character) (user bowels-character) (attack mudbomb))
   (format t "~a used ~a~%" (name-of user) (name-of attack))
   (mess :force-fill-amount (if (< (* 30 24 (bowels/fill-rate-of user)) (bowels/maximum-limit-of user))
                                (bowels/maximum-limit-of user)
diff --git a/data/moves/regular.lisp b/data/moves/regular.lisp
index a9a5b3a..a400024 100644
--- a/data/moves/regular.lisp
+++ b/data/moves/regular.lisp
@@ -201,7 +201,7 @@
 (defmethod attack ((target base-character) (user base-character) (attack fart))
   (f:fmt t (name-of user) " used " (name-of attack) #\Newline
          "But it failed." #\Newline))
-(defmethod attack ((target base-character) (user potty-character) (attack fart))
+(defmethod attack ((target base-character) (user bowels-character) (attack fart))
   (f:fmt t (name-of user) " squats down and tries to use " (name-of attack) #\Newline)
   (cond
     ((and (>= (bowels/contents-of user) (bowels/need-to-potty-limit-of user))