on *:text:*:*: {
  if ($istok(%text.1 %text.2,$1,32)) { msg $chan $gettok(%reply.1 %reply.2 %reply.3 %reply.4,$r(1,4),32) }
}

shorter != better, especially when you're learning... much easier to find bugs when everything is spread out across multiple lines.