is this?
Code:
on *:text:*says*:*:var %k %animals | set %animals $addtok(%k($gettok($1-,$calc($findtok($1-,says,1,32) - 1),32),32)