on ^*:text:*:#pets:echo #pets $+(<,$nick,>) $animal($1-) | haltdef
alias animal {
var %i = $gettok(%animals,0,44),%m = $strip($1-)
while (0 < %i) {
if ($istok(%m,$gettok(%animals,%i,44),) set %m $replace(%m,$gettok(%animals,%i,44),Animal!)
dec %i
}
return %m
}
alias ani.add {
var %k = %animals
set %animals $addtok(%k,$1,44)
}
alias ani.del {
var %k = %animals
set %animals $remtok(%k,$1,44)
}