[fathernitwit]

  sub EVENT_SAY {
    if($text=~/[0-9]+/i) {
  	quest::summonitem($text);
    }
  }

would be more accurate, as quest::summonitem("joe") or quest::summonitem("Hail, Slut"), etx arnt all that meaningful