/* called by: entrance ctrl of the object 'track'
7 U( E" P/ M2 J& J*/
/ x" Z6 _. o+ f1 ]is
. ?$ L1 H' f/ N# y: s; C part, GlobalDistObj, assignLObj:object;row,Lan:integer;
6 l8 ?# @4 g: M, S& i2 e# b" P* Odo; c: Z, i& M0 Y, ~ ?
Lan := rootfolder.Internal.Tools.AOLlanguage;. O$ h- p) q, \8 `' L! E
if current = @.Destination -- else return% Z. h$ z. H* O% V, i& G
then
( }0 q+ Z4 D+ a @.Destination := void;. f. [# N1 i: u O, s) o& ~
if @.occupied then
, P* e3 P5 l5 U7 { part := @.cont;
$ U0 t: u2 p5 ~% h; ]- _) }: h @.transpOrder := void;
/ {1 b% v% x9 |# O# ^. ` part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
) \8 P& ?" o1 @! Q0 n @,root.eventcontroller.simTime);) Z5 U+ ?8 \' N
@.HasOrder := false;$ k m: _5 G% D: c, _/ u' h
@.DrivingHome := true;
" f/ m9 M0 s- q& G# P rgManager.tryToStartTransOrder;
) B# m# n: T; M1 q0 A9 U if @.Destination = void
- k8 Z% l. R% S2 y then -- no transport order for vehicle @% P. f# w6 A2 c/ j1 C7 G
@.Destination :=6 z/ R" |. A" r0 \. Z) Y/ @6 H. G" D- O
rgManager.nearestFreeStation(@,track.~);
1 J7 v! w# e, ?. Q+ z4 ]" C newDirection(@);
3 e6 m4 g$ c3 n; @3 E4 X if @.Destination /= void then2 l5 y9 }, g4 n- ?
@.Destination.NumReservation :=$ B- |. J. X5 n# L
@.Destination.NumReservation + 1;- u6 s2 N( H: M0 @* s' s. l
end;
/ b* C" f, T* N& w; L; e1 D @.CurrIcon := "drivingHome";
: W" `0 k3 N8 B, l, E @.DrivingHome := true;! z! M7 a) s9 S3 Z( D$ S
end;" v7 j. F9 e m `% v
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
4 v2 I1 T1 c: S, O2 Y( p# l part := @.transpOrder;$ z' p4 { N: i# {8 c; n9 ]& e
part.move(@);-- load part
( d$ V9 l! I' o/ {6 k @.CurrIcon := "load";
% x) @3 k) |7 M: Z GlobalDistObj := part.globDestination;
/ ?2 P4 I, p) ` assignLObj := rgmanager.rgAssignL;
6 U) S8 e8 Q4 [8 d" x6 r row := assignLObj.getRowNo(GlobalDistObj);
/ N1 R8 y2 w- Z if Row = -1 then -- since 70+ B8 o) h* s; B ~( D. W
if lan=1 then- Q$ G5 u7 }" a, }, b& r, B0 v
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
- w5 |$ l" q3 E! u7 x) \0 U c to_str("in der Andockstation: \"",?.~.name,"\""));) l6 t9 o! q3 h5 O
else( S2 y3 }3 C! r* G' l9 I9 b2 s( j% z
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
9 D [* ^+ R# x' P- [ to_str("in docking station: \"",?.~.name,"\"")); 4 Y& e! @/ K' h; s, c2 b/ D5 `
end;- Z4 o3 j1 x- e1 z! m
else* t+ D/ C1 T, E/ J+ X) \+ ~
@.Destination := assignLObj[1,row];) G5 M1 `& X+ E, i. j* A6 n& R
end;
4 F- a' g7 ^& L t* s" `* b newDirection(@);
! K- s9 q- f5 @- E: L @.HasOrder := true;
+ m; T2 I7 G! b0 G6 I# }+ Z& } end;% f) b1 |6 ?8 j( y }% }% k
end;% r( W: K: q/ `$ ~/ H# g* Y/ {7 A/ B
end; -- of the method' |" I: |: F: @1 b0 W! I
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
