@verb #649:"order_tell" this none this rxdo #833
@program #649:"order_tell" this none this
dobj = args[3]
prep = args[4]
iobj = args[5]
if (prep == "to")
  suspend(1)
  if ((rec = #1863:get_rec(args[1])) && rec[2] >= 1)
    this:say("Aye, sir!")
    suspend(1)
    this:send_message_to(dobj, iobj)
  else
    this:say("Why can't you?")
  endif
endif
.