@verb #9491:":trade" this none this rxdo #7951
@program #9491:":trade" this none this
{p} = args
found = 0
holds = p.current_ship.holds - p.current_ship.ore - p.current_ship.organics - p.current_ship.equipment
"TODO: ORGANIZE THREE TYPES SO THAT PLAYER SELLS BEFORE BUYING."
for item in ({"ore", "organics", "equipment"})
  if (this.(item) > 0 && holds > 0 || (this.(item) < 0 && p.current_ship.(item) > 0))
    if (found == 0)
      p:tell("<font color=green>You have </font><font color=yellow>" + tostr(p.cash) + "</font><font color=green> credits and </font><font color=yellow>" + tostr(holds) + "</font><font color=green> empty cargo holds.</font>")
    endif
    found = 1
    amount = this.(item) > 0 ? this.(item) < holds ? this.(item) | holds | p.current_ship.(item)
    "DON'T KNOW HOW PRICING WORKS, WILL DO IT RANDOMLY."
    if (item == "ore")
      sellprice = (80.0 + tofloat(random(100))) / 10.0
      buyprice = sellprice * 1.6
    elseif (item == "organics")
      sellprice = (180.0 + tofloat(random(60))) / 10.0
      buyprice = sellprice * 1.8
    elseif (item == "equipment")
      sellprice = (280.0 + tofloat(random(40))) / 10.0
      buyprice = sellprice * 2.0
    endif
    p:Tell("")
    p:tell("<font color=purple>We are " + (this.(item) > 0 ? "selling" | "buying") + " up to </font><font color=yellow>" + tostr(abs(this.(item))) + "</font><font color=purple>.  You have </font><font color=yellow>" + tostr(p.current_ship.(item)) + "</font> <font color=purple>in your holds.</font>")
    p:tell("<font color=purple>How many holds of </font><font color=cyan>" + (item == "ore" ? "Fuel Ore" | $su:capitalize(item)) + "</font> <font color=purple>do you want to " + (this.(item) > 0 ? "buy" | "sell") + " [</font><font color=yellow>" + tostr(amount) + "</font><font color=purple>]? ")
    amt = $cmd_utils:read()
    amt = amt == "" ? amount | toint(amt)
    if (amt > 0)
      sellprice = toint(sellprice) * amt
      buyprice = toint(buyprice) * amt
      p:tell("<font color=cyan>Agreed, </font><font color=yellow>" + tostr(amt) + "</font><font color=cyan> units.</font>")
      p:tell("")
      p:tell("<font color=green>We'll " + (this.(item) > 0 ? "sell" | "buy") + " them for </font><font color=yellow>" + tostr(this.(item) > 0 ? sellprice | buyprice) + "</font><font color=green> credits.</font>")
      p:tell("<font color=purple>Your offer [</font><font color=yellow>" + tostr(this.(item) > 0 ? sellprice | buyprice) + "</font><font color=purple>] ?</font>")
      offer = $cmd_utils:Read()
      offer = offer == "" ? this.(item) > 0 ? sellprice | buyprice | toint(offer)
      "ENTER BARGAINING CODE HERE"
      if (offer == 0)
        player:tell("<font color=blue>Nothing in this universe is free, my friend.</font>")
      else
        player:tell("<font color=green>I hate haggling, they're all yours.</font>")
      endif
    endif
  endif
endfor
if (!found)
  p:tell("")
  p:tell("<font color=cyan>You don't have anything they want, and they don't have anything you can buy.</font>")
  return
endif
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.