aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-08-09 17:44:21 -0500
committerGravatar Pouar <pouar@pouar.net>2020-08-09 17:44:21 -0500
commitbaa5ad23d7cbef2db8d31f4e83e3e3b1eb7da2b3 (patch)
tree97a7f662d6ad3cdef7c5862caf15598d066cc661
parentadd messing laser (diff)
better scoping
-rw-r--r--data/moves/pokemon.lisp2
-rw-r--r--data/moves/regular.lisp2
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))