sim talk 程序

hln6610320

is
8 h, C1 Y- q8 O  o obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
do
  Z# L4 b; ]- m- j0 I2 ~$ Y7 d) C& q( F -- make sure there is a carbody in the store
if not StoreCarbody.empty() then
  found := false;
; `  C9 ?5 ?5 o$ r  counter := 1;

8 z' F' B9 U3 [# f& d, ]  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
4 j( W: z  x: _* Y3 H! y# ]0 D   obj := StoreCarbody.pe(counter,1).cont;
6 Z* V! l9 o& ~: b8 E" ]* T$ S; ?   if(obj /= void) then
    found := true;
# G* p/ X# ^: w* U' a2 w   end; -- if
1 v- s' N$ t$ Q4 K   counter := counter + 1;
  end; -- while

2 O* D. _; T' R& B5 D) n  if found then
: z1 a( l; x) c) L) t  -- put the carbody on a skid
   obj.move(@);
9 f$ S% J) `  Q- Q1 O  end; -- if
end; -- if not StoreCarbody.empty
2 H+ H& `& f) \end;
% a, W& O: |) _4 H$ ?里面的found急整个循环不太懂，求高手讲解下？急~~~~