@verb #116:"do_burn" this none this rxdo #789
@program #116:"do_burn" this none this
"Copied from Generic Letter (#155):do_burn by Slacker (#55)Jul 21 11:15:41 2002"
"Determines if the player is authorized to burn this."
c = callers()
while (c && c[1][3].wizard)
  c = listdelete(c, 1)
endwhile
who = c ? c[1][3] | player
valid(who) || (who = player)
who:isa($webber) && (who = who.user)
if (this:can_burn(who))
  fork (0)
    $recycler:recycle(this)
  endfork
  return 1
else
  return E_PERM
endif
"Last modified by Dax (#789) on Sun Jul 21 15:37:30 2002 MDT."
.