@verb #9878:"@phone" any any any rdo #9878
@program #9878:"@phone" any any any
time = this:phone_time()
if (player != this)
  $msg:mtell("huh")
elseif (!argstr)
  if (time > 0.0)
    player:tell("You have ", $time_utils:english_time(toint(time)), ".")
  else
    player:tell("You're ", $time_utils:english_time(toint(-time)), " in debt.")
  endif
  time = #8084:phone_time()
  if (time > 0.0)
    player:tell("Lao-Tzu has ", $time_utils:english_time(toint(time)), ".")
  else
    player:tell("Lao-Tzu is ", $time_utils:english_time(toint(-time)), " in debt.")
  endif
  return
elseif (prepstr == "for")
  time = $time_utils:peti(iobjstr)
  if (!$command_utils:yes_or_no("Record " + $time_utils:english_time(time) + " of long distance calling?"))
    return player:tell("Not recorded.")
  endif
  this.phone = this.phone - tofloat(time)
  player:tell("Recorded.")
  time = this:phone_time()
  if (time > 0.0)
    player:tell("You have ", $time_utils:english_time(toint(time)), ".")
  else
    player:tell("You're ", $time_utils:english_time(toint(-time)), " in debt.")
  endif
else
  player:tell({"Usage: @phone", "       @phone for <time>"})
endif
"Last modified by Dax (#789) on Tue May  3 14:12:00 2005 MDT."
.