View/Edit #649:drag

Name(s): drag

1:  "Takes 1) a list of objects to be dragged (must all be in same place) & 2) destination."
2:  dest = args[2]
3:  if (!$perm_utils:can_hack())
4:    return E_PERM
5:  endif
6:  things = setadd(args[1], this)
7:  for thing in (things)
8:    result = #747:squirt(thing, dest)
9:    if (typeof(result) == $ERR)
10:     this:say("I was unable to move " + thing:title() + ", sir!")
11:   endif
12: endfor
13: "Last modified by Dax (#789) on Tue May  3 13:45:57 2005 MDT."

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

You are not logged in.