337
@verb #9386:"bim" any none none rdo #9386
@program #9386:"bim" any none none
"Copied from Tribal_Chant (#2338):coolnumber Feb 11 09:58:54 2001"
x = argstr
for OBJ in [#1000..#9999]
  if (valid(OBJ) && OBJ:isa($trash))
    string = tostr(toint(OBJ))
    vX = string[index(x, "x")]
    vY = `string[index(x, "y")] ! ANY => 0'
    suspend(0)
    if (string[1] == (x[1] == "x" ? vX | vY) && string[2] == (x[2] == "x" ? vX | vY) && string[3] == (x[3] == "x" ? vX | vY) && string[4] == (x[4] == "x" ? vX | vY))
      "alias_mod"
      if (!(OBJ in this.cools))
        player:tell("matching ", x, "> ", OBJ)
        this.cools = setadd(this.cools, OBJ)
      endif
      "alias mod ends"
    endif
  endif
endfor
player:tell("--- done ---")
"Last modified by Dax (#789) on Tue May  3 14:12:00 2005 MDT."
.

0