home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 123.PORTSTAT.INC < prev    next >
Text File  |  1992-07-12  |  360b  |  15 lines
  1. function ComputePortType( g : GoodsArray ) : stuff;
  2. { look at the goods array, and assign the approprate port type. }
  3. var
  4.   return : stuff;
  5. begin
  6.   if g[Fuel] > 0 then
  7.     return := 1
  8.   else
  9.     return := 0;
  10.   if g[Organics] > 0 then
  11.     return := return + 2;
  12.   if g[Equipment] > 0 then
  13.     return := return + 4;
  14.   ComputePortType := return;
  15. end;