@verb #9491:":t" this none this rxdo #7951
@program #9491:":t" this none this
{p} = args
if (p in this.trading)
  return player:tell("Invalid Command (type '?' for help)")
endif
player:tell("<font color=red>Docking ...</font>")
player:tell("<font color=yellow>One turn deducted, </font><font color=cyan>" + p.turns_left + "</font><font color = yellow> turns left.</font>")
player:Tell("")
player:Tell("<font color=yellow>Commerce report for </font><font color=cyan>" + this.name + "</font> <font color=yellow>" + ctime() + "</font>")
player:Tell("")
player:tell("<font color=purple>-=-=-        Docking Log        -=-=-</font>")
if (this.docking_log == "")
  player:tell("<font color=green>No current ship docking log on file.</font>")
  player:tell("<font color=green>For finding this unused port you receive </font><font color=yellow>1</font><font color=green> experience point(s).</font>")
else
  if (time() - this.docking_log[2] < 60)
    player:tell("<font color=cyan>" + this.docking_log[1] + "</font><font color=green> just left.</font>")
  else
    player:tell("<font color=cyan>" + this.docking_log[1] + "</font><font color=green> docked </font><font color=cyan> " + $su:english_time(time() - this.docking_log[2]) + "</font>")
  endif
endif
player:tell("")
player:tell("<font color=green> Items     Status  Trading % of max OnBoard</font>")
player:Tell("<font color=purple> -----     ------  ------- -------- -------</font>")
player:tell("<font color=cyan>Fuel Ore</font>   <font color=green>" + (this.ore < 0 ? "Buying " | "Selling") + " </font><font color=cyan>" + $su:right(tostr(abs(this.ore)), 6) + "</font>    <font color=green>" + $su:right(tostr(toint(tofloat(this.ore) / tofloat(this.max_ore))), 3) + "</font><font color=red>%</font>    <font color=cyan>" + $su:right(tostr(p.current_ship.ore), 4) + "</font>")
.