@verb #7148:":p*ort" this none this rxdo #7951
@program #7148:":p*ort" this none this
{p} = args
if (this.location:port() == #-1)
  return p:tell({"", "<font color=\"red\">**  There is no port in this sector!</font>"})
endif
port = this.location:port()
p:tell("")
p:tell("<font color=\"purple\">(</font><font color=\"green\">A</font><font color=\"purple\">)</font> <font color=\"green\">Attack this Port</font>")
p:tell("<font color=\"purple\">(</font><font color=\"green\">T</font><font color=\"purple\">)</font> <font color=\"green\">Trade at this Port</font>")
p:tell("<font color=\"purple\">(</font><font color=\"green\">Q</font><font color=\"purple\">)</font> <font color=\"green\">Quit, nevermind</font>")
while (1)
  resp = $command_utils:y_or_n("<font color=purple>Enter your choice</font>", "T", {"A", "T", "Q"})
  if (resp == "Q")
    return
  elseif (resp == "A")
    return p:tell("We don't do that yet, sorry...")
  elseif (resp == "T")
    p.location = port
    p:tell(port:description(@args))
    port:trade(@args)
    p:tell("")
    p:tell("<font color=green>You have <font color=cyan>" + tostr(p.cash) + "</font> <font color=green>credits and </font><font color=cyan>" + tostr(p.current_ship.holds - p.current_ship.ore - p.current_ship.organics - p.current_ship.equipment) + "</font> <font color=green>empty cargo holds.</font>")
    p:tell("")
    p.location = p.current_ship
    p.location:look_self()
    break
  endif
endwhile
.