sim talk 程序

hln6610320

is
0 K. L) x4 A5 ?, D# ^ obj : object;   -- first carbody in store
found : boolean;  -- found a chassis
counter : integer;  -- position in store
* }  ^# k  g! E" @; o7 udo
-- make sure there is a carbody in the store
if not StoreCarbody.empty() then
) m+ S+ C3 {; x- `# L" Z( l  found := false;
( O: g- [# M+ I  ~/ F  counter := 1;
. G: j; O: q; j' g
" ?; r, `, X* T0 r  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
) u, j! E1 N! G3 J   obj := StoreCarbody.pe(counter,1).cont;
1 R" ]# N1 @  _% ]1 d   if(obj /= void) then
    found := true;
   end; -- if
. i6 d+ ~0 [: b4 x" C   counter := counter + 1;
  end; -- while
- Z6 H+ r' h5 N; z4 Y, i. E1 h
  if found then
: e; q8 i4 ^  u; v" |  -- put the carbody on a skid
( r( T& G8 ]/ ^! p: t; i1 Q8 y   obj.move(@);
  end; -- if
" x! l' {: i4 P4 ? end; -- if not StoreCarbody.empty
end;
里面的found急整个循环不太懂，求高手讲解下？急~~~~