View/Edit #236:p_eject

Switch to edit mode.

1:  "Copied from Max's phaser (#251):p_eject by Maxamillian (#833) Jan 10 16:35:58 1996"
2:  if (!$object_utils:isa(caller_perms(), $guardian))
3:    set_task_perms(caller_perms())
4:  endif
5:  dobjstr = (dobj = args[1]).name
6:  iobjstr = (iobj = dobj.location).name
7:  dobj.location:eject(dobj)
8:  if (dobj.location != iobj)
9:    $msg:lmtell({$room, iobj}, {}, {player, "msg_ejection"}, {dobj, "msg_victim_ejection"}, "msg_oejection")
10:   "Readable, ain't it?"
11: else
12:   $msg:mtell("not_much")
13: endif

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