sim talk 程序

hln6610320

is
, A3 W- b5 u3 Z. i0 [: a obj : object;   -- first carbody in store
: t' u; K- i; h8 x2 P found : boolean;  -- found a chassis
counter : integer;  -- position in store
) a* U7 c8 h1 k: f$ w6 E1 e; D- sdo
' ^0 H: o) ]0 h3 q$ \ -- make sure there is a carbody in the store
3 I8 l4 Z8 C: I: P& p0 o$ A! S if not StoreCarbody.empty() then
  found := false;
4 A8 n( t, F+ @! `8 }  counter := 1;

! j$ w* I. L" Y, g& s# M& N  -- iterate through the store
  while not found and counter <= StoreCarbody.xDim loop
% N0 l' t' a. S# r6 p" [: J   obj := StoreCarbody.pe(counter,1).cont;
7 s4 J/ o7 X. P. b. v   if(obj /= void) then
. K3 Y9 \" U0 m) N& l) w0 ^    found := true;
5 Q& L( S2 p1 t0 ~6 `) Y   end; -- if
   counter := counter + 1;
  end; -- while

  if found then
+ q) v( W0 e* g7 Y% u- {4 B  -- put the carbody on a skid
   obj.move(@);
  end; -- if
, X$ k# O. `1 ]5 F* J' p) l4 X end; -- if not StoreCarbody.empty
# ~( q9 J" Y4 b/ Qend;
+ F- i' l% n- Q% U* ~2 l# k  H, X% u里面的found急整个循环不太懂，求高手讲解下？急~~~~