And, to get your word after "says":

Code:
on *:text:where *:*: {
  if ($istok($1-,says,32)) {
    set %animal $gettok($gettok($1-,$calc($findtok($1-,says,32) - 1),32),2,47)
    set %seeker $gettok($1-,$calc($findtok($1-,says,32) + 1),32)
  }
}

Invision Support
#Invision on irc.irchighway.net