View/Edit #116:do_burn

Name(s): do_burn

1:  "Copied from Generic Letter (#155):do_burn by Slacker (#55)Jul 21 11:15:41 2002"
2:  "Determines if the player is authorized to burn this."
3:  c = callers()
4:  while (c && c[1][3].wizard)
5:    c = listdelete(c, 1)
6:  endwhile
7:  who = c ? c[1][3] | player
8:  valid(who) || (who = player)
9:  who:isa($webber) && (who = who.user)
10: if (this:can_burn(who))
11:   fork (0)
12:     $recycler:recycle(this)
13:   endfork
14:   return 1
15: else
16:   return E_PERM
17: endif
18: "Last modified by Dax (#789) on Sun Jul 21 15:37:30 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.