/* called by: entrance ctrl of the object 'track' ]; E# E3 m3 v9 z5 B/ i7 f
*/
( o; ]6 m9 g2 a; c3 T3 O, @( j% Cis
) h3 h3 [/ a: d" X part, GlobalDistObj, assignLObj:object;row,Lan:integer;
. r; N, ]' T3 Y+ d3 ~2 D3 R2 Odo
% X; @+ b8 J3 Z: S8 a- M! V Lan := rootfolder.Internal.Tools.AOLlanguage;1 M0 j% @4 b' Q! A0 }3 o+ G& @
if current = @.Destination -- else return
3 D* o' d {, M" v4 [" `1 R2 I# s then
) s) r2 ] B D @.Destination := void;7 B5 k! B9 Y e
if @.occupied then! P! k" C. E4 J! L0 O$ H5 L A
part := @.cont;3 ?' l0 i' D* I7 e" `
@.transpOrder := void;
" f6 E8 c2 D- \# @$ f; E: T part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,; E% T0 V- e. s7 z7 ^& z; d
@,root.eventcontroller.simTime);4 A( X$ S! U+ ~6 e5 I
@.HasOrder := false;" h% @2 ?& I& k: ^2 z2 u3 a7 Y. U
@.DrivingHome := true;' g1 y# Z/ z( n' j
rgManager.tryToStartTransOrder;
p: w5 o# o n: y if @.Destination = void
/ F K! @5 g: F& l then -- no transport order for vehicle @6 o+ G6 K( o( B" |8 Q- F4 [
@.Destination :=/ N+ J$ c4 R/ F1 v: ^
rgManager.nearestFreeStation(@,track.~);
4 ^2 o$ G0 f L% ?6 m+ U6 `+ p newDirection(@);
) Y9 W$ T. c& A if @.Destination /= void then
+ G, r% Z* r) h# Y @.Destination.NumReservation :=
9 A5 x% g. j/ [' [5 v @.Destination.NumReservation + 1;
2 H2 H+ a0 `& w8 W' ^ end;) l% K; u2 X( k4 H
@.CurrIcon := "drivingHome";8 C. j3 s2 L. D9 [ k2 o8 d
@.DrivingHome := true;
: u0 s% ?0 k! S" h/ |8 ~8 A* W end;, {3 @, g: \! Q2 @
else -- the vehicle @ is empty, both vehicle and part are in the same dock station) f5 C ^( _2 r
part := @.transpOrder;7 }7 B/ B$ q) t; f0 [ k
part.move(@);-- load part) \7 o5 | k( g% |, b
@.CurrIcon := "load";
/ p- n6 I! d5 q' b. u GlobalDistObj := part.globDestination;
; l! d- f# q6 J z2 l- c! o assignLObj := rgmanager.rgAssignL;
, \/ y# p% H7 e8 V2 q0 x3 Q row := assignLObj.getRowNo(GlobalDistObj);3 z( q5 Z: q; Z
if Row = -1 then -- since 708 M3 d. I# o, |! g0 E- [* I0 N
if lan=1 then7 n, S; f1 P3 |0 @. u' G' \- J" g
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),4 X0 ]6 h6 N# ?& X
to_str("in der Andockstation: \"",?.~.name,"\""));
" ], T5 o9 ^' R3 H9 Y8 U! E! V else- X+ b$ h3 ~5 d( M( S6 A3 b
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""), j/ M) p j. z# \) j
to_str("in docking station: \"",?.~.name,"\"")); 5 _. q. |$ h) {
end;. t1 I1 j( p6 J ` j
else) I u8 M( U* y r
@.Destination := assignLObj[1,row];
( h# _2 h. [1 }& _ end; . {3 ^$ J( ?, g" _
newDirection(@);
6 G2 Z- i9 @) G5 W9 ]/ G @.HasOrder := true;
+ P) s, R$ d9 K# M) ?- x. O% ] end;+ S4 k C' G1 G+ P
end;! l2 o/ r9 [2 j, m
end; -- of the method
4 D) r# l7 ~+ }! j0 A6 r, j |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
