View/Edit #12:@eject*!!

Switch to edit mode.

Name(s): @eject*!!
1:  set_task_perms(player)
2:  if (iobjstr in $msg.here)
3:    iobj = player.location
4:  elseif (iobjstr in $msg.me)
5:    iobj = player
6:  elseif ($command_utils:object_match_failed(iobj, iobjstr))
7:    return
8:  endif
9:  if (dobjstr in $msg.me)
10:   dobj = player
11: elseif ($failed_match == (dobj = $string_utils:literal_object(dobjstr)) && $command_utils:object_match_failed(dobj = iobj:match(dobjstr), dobjstr))
12:   player:tell({dobj, dobjstr, iobj})
13:   return
14: endif
15: if (dobj.location != iobj)
16:   return $msg:mtell("not_contain", iobj, dobj)
17: endif
18: try
19:   `iobj:(verb in {"@eject", "@expulse"} ? "eject" | "eject_basic")(dobj) ! ANY'
20: except (E_PERM)
21:   return $msg:mtell("not_own", iobj)
22: endtry
23: if (dobj.location != iobj)
24:   $msg:lmtell({$room, iobj}, {}, {player, "msg_ejection"}, @verb in {"@eject!!", "@expulse!!"} ? {{dobj, "msg_victim_ejection"}} | {}, "msg_oejection")
25:   "Readable, ain't it?"
26: else
27:   player:tell("Unable to eject ", dobj:nn(), " from ", iobj:nn(), ".")
28: endif
29: "Last modified by whiz (#3135) on Tue Apr  1 23:10:21 2008 EDT."

Verb arguments: any out of/from inside/from any
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]