/* called by: entrance ctrl of the object 'track'
1 U/ C# ~0 D F5 T$ ?! x*/+ }8 B$ U5 a* p$ I
is
( R# x+ s d8 K3 o& K6 ?5 | part, GlobalDistObj, assignLObj:object;row,Lan:integer;5 |3 D4 \; s: M3 f0 p
do% f) ^ `: F+ @& j, M
Lan := rootfolder.Internal.Tools.AOLlanguage;
% l. j4 g) A9 H0 ~ L s4 F5 n if current = @.Destination -- else return" _4 h4 s. E0 Y4 f8 g/ a. m
then
1 G. H% }) v. C% J @.Destination := void;
1 x* S4 E+ s- ] if @.occupied then: ?& X3 y9 ?3 H' d2 B" q0 C
part := @.cont;
: J5 }8 |- t. X6 T+ } M @.transpOrder := void;$ r4 X* Z5 C' e# ~6 w7 l3 r9 s& E
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,6 A- n% Y9 Q9 n# _# ^& q
@,root.eventcontroller.simTime);" u$ ~: w6 I h9 f, l. Z+ U
@.HasOrder := false;
* r2 D) V# L; \( {" w2 |$ C# M @.DrivingHome := true;
$ T& l$ L' `/ D) t rgManager.tryToStartTransOrder;
1 @! F2 C/ D+ ~$ k! L if @.Destination = void, G$ \! | V6 V: {
then -- no transport order for vehicle @
$ T/ O3 @" T& G5 O2 {6 b: N @.Destination :=8 `* o8 j! j0 E- P: t
rgManager.nearestFreeStation(@,track.~);3 S( u( G% [/ N& S, P
newDirection(@);
& }' c' Q. i' R+ y3 M" A2 j% B if @.Destination /= void then
. i) S/ v5 r& o2 l @.Destination.NumReservation :=
( P0 O/ d0 k( M' E- f' s( K @.Destination.NumReservation + 1;$ E g% p; k7 y
end;- X/ `# K: `8 y$ G$ q8 H, V6 y
@.CurrIcon := "drivingHome";, \2 W" p, e K) e1 T# M H( a6 b
@.DrivingHome := true;
4 U( s& Y! [ j- q. W. S end;
5 B8 h6 `8 {- X8 F+ S& L/ s6 v else -- the vehicle @ is empty, both vehicle and part are in the same dock station/ i S P5 Q3 C8 }) v5 U' s
part := @.transpOrder;
+ {* b( b0 R/ e/ L3 t; u part.move(@);-- load part; `) p8 l/ r% K; r4 }( T
@.CurrIcon := "load";1 h0 H* V$ e" z6 H( s. F
GlobalDistObj := part.globDestination;
, N: v1 t8 `4 Q9 | assignLObj := rgmanager.rgAssignL;
, [, s5 g B7 r! B row := assignLObj.getRowNo(GlobalDistObj);
& m/ N# S6 q. X7 V! v if Row = -1 then -- since 70
/ D; `; {5 K8 x+ |" S- E if lan=1 then8 ~4 C) I5 n* C$ m, j
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
3 l$ M+ N( A7 q6 `. r to_str("in der Andockstation: \"",?.~.name,"\""));5 [) s6 ^# P3 P9 {: g7 q) S+ E! q
else
' | {1 }0 g$ o promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
% y0 \; I0 Q: t- T2 f: X to_str("in docking station: \"",?.~.name,"\""));
+ f* j/ ~7 ?4 H+ H( T) t end;
, b8 [) u$ G& s$ M% z, y else
/ K! a- g& I( j4 R @.Destination := assignLObj[1,row];; C# a, O& q" M4 L4 }
end; 6 V7 n( K/ n1 X2 t$ }* N& U5 a
newDirection(@);
& x$ A. n" i9 G+ d @.HasOrder := true;
' A9 Z8 R3 F' f( e end;7 x: N: P# y8 L% a
end;1 O( o. i9 ?* q; m& w3 ? C
end; -- of the method% G) [ H. o' i2 u
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
