alias curcomplex {
  if ($1 == 0) { .msg $3 $2 has nothing in his/her coffer. }
  else {
    noop $regex($base($1,10,10,6),/(.*)(.)(..)(.)/g)
    .msg $3 $2 has in his/her coffer:
    if ($regml(1)) .msg $3 $v1 GT (Gold Tarns)
    if ($regml(2)) .msg $3 $v1 ST (Silver Tarsks)
    if ($regml(3)) .msg $3 $v1 CT (Copper Tarsks)
    if ($regml(4)) .msg $3 $v1 CTB (Copper Tarsk Bits)
  }
}