( @wild )
$include $lib/alynna
lvar param
$def }t }cat prog "?" flag? if tellhere else tellme then

: main
0 var! test 
0 var! yes

args @ not if
 { "Function: Execute a command multiple times for different objects." }t
 { "Syntax:   @wild <command>|<smatch argument>[|<flags>[|<#test|#yes>[|<target|#all>]]]" }t
 { "Example:  @wild @set ##=species:fox|Kitsu*|P|#yes|#all  -- Change everyone's species who's name starts with 'Kitsu', to the species 'fox'." }t
 { "Note:     The mark ## is replaced with the found dbrefs.  At least 2 barred arguments are required." }t
then
param @ "|" explode_array var! args
args @ 0 [] var! cmd
args @ 1 [] var! search
args @ 2 [] var! flags
args @ 3 [] var! opts
args @ 4 [] var! target

target @ "#all" smatch if
 me @ mlevel 5 <= if
  { "You must be a W2 to specify #ALL as a target" }t exit
 else
  #-1 target !
 then
else
 me @ mlevel 5 <= if
  me @ target !
 else 
  target @ match target !
  target @ int 0 < if { "Target not found.  If you wanted to specify everyone, use #ALL." }t exit then
 then
then