/* called by: entrance ctrl of the object 'track'6 q- S4 t% P9 V, j5 I
*/
$ U: G5 }" U- L( t, I# t# S* Y ?' Jis
/ e- d8 y" D$ K5 W$ C part, GlobalDistObj, assignLObj:object;row,Lan:integer;
+ M2 N- _8 `7 w( N- C$ rdo
8 Q$ F* U0 s3 e, u4 i Lan := rootfolder.Internal.Tools.AOLlanguage;+ }3 C& V( S" p6 S
if current = @.Destination -- else return. D$ y8 X$ z! D& {0 }
then
& F. k* {% M* Q8 b @.Destination := void;
0 h* p: {5 u0 }+ x1 e+ ?( ? if @.occupied then
$ Y+ f, K; X# I part := @.cont;0 c& j5 U/ S6 i* X
@.transpOrder := void;! p* ^( b% O: f' a5 G U Y
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,1 g R6 t. w5 ~' l2 e6 ~
@,root.eventcontroller.simTime);# Q i& u! R: c: w: g+ f
@.HasOrder := false;+ U2 L: n3 _8 |8 X* K+ s) @ N
@.DrivingHome := true;$ Y- ^3 q( B7 F. W" G
rgManager.tryToStartTransOrder;) g D! v. D' N+ i0 g
if @.Destination = void0 R# F8 R3 ~& l Q
then -- no transport order for vehicle @
: V4 [* n& G$ A p% }% D! ^ @.Destination :=* G) q6 h& x) R
rgManager.nearestFreeStation(@,track.~);
- U5 z- X* t m newDirection(@);
) M" g- w P) B5 ` if @.Destination /= void then
* r5 X1 _# j! S2 ^6 q) K4 S1 q @.Destination.NumReservation :=9 Z3 P( c# {, p! e* u' {* g
@.Destination.NumReservation + 1;, n* Z% b1 T$ @' d4 m9 [9 q
end;
4 S8 A$ A3 W/ S1 v. l7 ^ @.CurrIcon := "drivingHome";
* F3 k5 Z: I$ x, S: i& ` @.DrivingHome := true;
3 ^5 a+ N% ?1 T2 n# N6 l end;
5 I! F7 O' b( {# w. @ else -- the vehicle @ is empty, both vehicle and part are in the same dock station. I8 `* F: F% F0 D1 B& |/ O
part := @.transpOrder;
3 B0 L" b, L2 V6 x% r3 ]) d3 b0 c' W part.move(@);-- load part3 ^9 }( M% U4 g( k2 F
@.CurrIcon := "load";
- {( B0 A# ~9 W% r# l9 @- d GlobalDistObj := part.globDestination;
) K5 T' n" `: _5 z7 C; i7 j assignLObj := rgmanager.rgAssignL;$ R8 e1 b3 N% Q$ @+ H) ?2 W
row := assignLObj.getRowNo(GlobalDistObj);& h/ y" A9 [; [* J
if Row = -1 then -- since 70& e. F; q9 \8 B& f: h! P* W# K
if lan=1 then( b6 ]5 _) n0 M k
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),% Z2 }) \$ C3 t
to_str("in der Andockstation: \"",?.~.name,"\""));, P2 [* U8 n" ]
else
" p* o, c3 V# L promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),6 T: m+ h. t8 r) k2 X, b5 q5 S
to_str("in docking station: \"",?.~.name,"\"")); G5 z: A7 D- E9 ~- O Y
end;1 B. g8 F& T- Q/ [: N& M) J. n4 Q
else4 R) d" g0 F8 h( O) u8 f. n6 m
@.Destination := assignLObj[1,row];3 q$ _: A! r! n: B
end;
- z2 l9 G3 r( w6 a newDirection(@);# L$ e5 j, K+ q# e7 A
@.HasOrder := true;9 E6 D( q0 c% x! E
end;
+ n4 I1 D8 v/ c9 z end;' Z7 K+ H8 R, u9 E7 b% N' \
end; -- of the method
- x% l; Y- N% X" a2 w' g |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
