home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / bbs_door / twview91.arj / PORTSTAT.INC < prev    next >
Encoding:
Text File  |  1992-03-11  |  1.0 KB  |  40 lines
  1. function FindPortSlot( var top : PortIndex; which : sector ) : PortIndex;
  2. {If which is already in the data base, return that location.  If not, then if
  3. we are full, return 0; otherwise add one to top and return it. }
  4. var
  5.   i : portIndex;
  6.   found : boolean;
  7. begin
  8.   found := false;
  9.   if top > 0 then
  10.     for i := 1 to top do
  11.       if space.ports.data[ i ].where = which then
  12.         begin
  13.           FindPortSlot := i;
  14.           found := true;
  15.         end;
  16.   if not found then
  17.     if top = MaxPorts then
  18.       FindPortSlot := 0
  19.     else
  20.       begin
  21.         top := top + 1;
  22.         FindPortSlot := top;
  23.       end; {else}
  24. end; {FindPortSlot}
  25.  
  26. function ComputePortType( g : GoodsArray ) : stuff;
  27. { look at the goods array, and assign the approprate port type. }
  28. var
  29.   return : stuff;
  30. begin
  31.   if g[Fuel] > 0 then
  32.     return := 1
  33.   else
  34.     return := 0;
  35.   if g[Organics] > 0 then
  36.     return := return + 2;
  37.   if g[Equipment] > 0 then
  38.     return := return + 4;
  39.   ComputePortType := return;
  40. end;