5bd
@verb #13:"@extend" any any any rdo #789
@program #13:"@extend" any any any
if (this != player)
  return $msg:mtell("huh")
elseif ($command_utils:object_match_failed(dobj, dobjstr))
  return
elseif (dobj.owner == $repo_man)
  return player:tell(dobj:nn(), " is owned by ", $repo_man:nn(), ", and can therefore not be @extended.")
elseif (dobj:isa($accountable))
  return player:tell("Can't extend players!")
endif
count = 0
interval = dobj.extend_expiry_time
iobjstr = $time_utils:english_time(interval)
if (dobj:_get_solidified() || dobj:_get_petrified())
  player:tell($string_utils:nn(dobj), " is already permanent.")
  if (!player:controls(dobj) || !$command_utils:yes_or_no(tostr("Make temporary with shelf-life ", iobjstr, "?")))
    return player:tell("Aborted.")
  endif
endif
ext = time() + interval
if (ext < dobj.best_before)
  if (!player:controls(dobj))
    return player:tell(dobj:nn(), " is currently extended beyond ", iobjstr, "; aborting.")
  elseif (!$command_utils:yes_or_no(tostr($string_utils:nn(dobj), " is currently extended beyond ", iobjstr, ".  Do you wish to REDUCE its time to live?")))
    return player:sub_tell("%D (#%D~#) is unchanged.")
  endif
endif
if (!(e = $building_utils:set_best_before(dobj, ext)))
  player:tell(e)
else
  player:tell(dobj:nn(), " extended ", "till ", iobjstr, ".", ". Will expire ", ctime(ext), ".")
endif
"Last modified by Raptor (#6319) on Wed Mar 17 01:56:24 1999 MST."
.

0