@verb #9491:":description" this none this rxdo #7951
@program #9491:":description" this none this
{p} = args
o = {tostr("<font color=yellow>Commerce report for <font color=cyan>", this.name, "</font>: ", this.universe:ctime(), "</font>")}
o = {@o, "", "<font color=purple>-=-=-        Docking Log        -=-=-</font>"}
if (this.docking_log[1] == "")
  o = {@o, tostr("<font color=green>No current ship docking log on file.</font>")}
  o = {@o, tostr("<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)
    o = {@o, tostr("<font color=cyan>", this.docking_log[1], "</font><font color=green> just left.</font>")}
  else
    o = {@o, tostr("<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
o = {@o, tostr("")}
o = {@o, tostr("<font color=green> Items     Status  Trading % of max OnBoard</font>")}
o = {@o, tostr("<font color=purple> -----     ------  ------- -------- -------</font>")}
o = {@o, tostr("<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) * 100.0)), 3), "</font><font color=red>%</font>    <font color=cyan>", $su:right(tostr(p.current_ship.ore), 4), "</font>")}
o = {@o, tostr("<font color=cyan>Organics</font>   <font color=green>", this.organics < 0 ? "Buying " | "Selling", " </font><font color=cyan>", $su:right(tostr(abs(this.organics)), 6), "</font>    <font color=green>", $su:right(tostr(toint(tofloat(this.organics) / tofloat(this.max_organics) * 100.0)), 3), "</font><font color=red>%</font>    <font color=cyan>", $su:right(tostr(p.current_ship.organics), 4), "</font>")}
o = {@o, tostr("<font color=cyan>Equipment</font>  <font color=green>", this.equipment < 0 ? "Buying " | "Selling", " </font><font color=cyan>", $su:right(tostr(abs(this.equipment)), 6), "</font>    <font color=green>", $su:right(tostr(toint(tofloat(this.equipment) / tofloat(this.max_equipment) * 100.0)), 3), "</font><font color=red>%</font>    <font color=cyan>", $su:right(tostr(p.current_ship.equipment), 4), "</font>")}
return o
.