/* called by: entrance ctrl of the object 'track'
6 }. ^: h" G. U- }*/( @8 u0 |& x; V2 H+ v* Z
is
& R# I$ k* @5 G8 l ]7 z3 b part, GlobalDistObj, assignLObj:object;row,Lan:integer;9 X, b6 ~$ u0 S! s# ^2 f% X) J7 ~
do
# [; p9 r Q7 O' K- O& y Lan := rootfolder.Internal.Tools.AOLlanguage;
# S6 {2 W3 c0 \2 d9 Q if current = @.Destination -- else return
5 [+ ? A6 r# m2 P then
" a, ]; t6 Q4 q& i' i) D4 ^ @.Destination := void;
$ ~/ [# I! V4 {2 c if @.occupied then
2 X, f8 m P! L. r0 d* y; S1 R part := @.cont;
1 [+ i }4 J- P2 c" v; f @.transpOrder := void;
5 g! T8 h7 w- K* h0 ~ part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
, p) X7 q! p; @; @) Y7 I) B @,root.eventcontroller.simTime);
! o0 r5 |) D. T. b, b$ ]8 g @.HasOrder := false;
# h G3 h3 r3 a @.DrivingHome := true;3 G1 ]' o& N; M" P0 K f3 [
rgManager.tryToStartTransOrder;: \$ e: q) T; U* Y4 D( h4 {
if @.Destination = void/ U: B D C3 V8 t
then -- no transport order for vehicle @
, n1 ~0 ?& Y; \, u- t @.Destination :=* _; s! x. \( O* l
rgManager.nearestFreeStation(@,track.~);
8 C, _7 l0 C" s2 b% Z7 J/ W newDirection(@); 1 Q \) U" Z/ p- q+ i$ H
if @.Destination /= void then
. Y. ?) A# p) L3 K4 t+ R5 O) |& v @.Destination.NumReservation :=& ~7 M, r2 `# i. A! P/ Z
@.Destination.NumReservation + 1;% H+ {& t( B1 Q: A, d# o, ?
end;
' @/ |$ l# p% E5 }/ s) s @.CurrIcon := "drivingHome";6 a& m. g- W+ M* X [" f# P8 J
@.DrivingHome := true;$ ?; |5 a: t* H0 D1 @
end;
; K. n* u& X8 n8 f9 O else -- the vehicle @ is empty, both vehicle and part are in the same dock station
/ j1 \! F4 G/ f" N7 V part := @.transpOrder;" w6 z5 ]2 u, I/ z4 N4 J$ z
part.move(@);-- load part! z- O% {3 r ~2 M# ~
@.CurrIcon := "load";
, J; }9 J L' v& V% ^; @2 e7 w GlobalDistObj := part.globDestination;/ Q: O% X+ E/ p* g
assignLObj := rgmanager.rgAssignL;/ Q0 \ U8 \3 G( t L# g1 n0 _
row := assignLObj.getRowNo(GlobalDistObj);' h/ {4 y! \, C. K
if Row = -1 then -- since 70
+ }; G# l4 @& g5 e if lan=1 then3 R/ w. Y; |( g/ A: ]5 j
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),- Q+ ~: w- L/ y# v8 W
to_str("in der Andockstation: \"",?.~.name,"\""));
$ P' `: h1 N8 ?% B else: V+ f5 I8 Y) Y' ?* R- t
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
) X1 L5 O& Q4 K4 C to_str("in docking station: \"",?.~.name,"\"")); 2 {) R3 t w, H9 {( @& w' U* t- s# y
end;
* M6 n9 [$ c; E/ q: B/ N5 h' N else
$ n5 D8 ]' O" o @.Destination := assignLObj[1,row];$ I) r' a4 K; M7 |* c" x: c% w6 I
end; : P) g( f* t) ~5 O8 P
newDirection(@);
, N) @6 y" L$ T2 n @.HasOrder := true;
2 t! ~; l& H$ |) D3 H y) M end;4 @# Y. ? p3 |0 ]7 e
end;& L' w% g# e* m2 C8 F9 d9 V2 R
end; -- of the method
: @4 a- s) n5 `0 p5 ]4 i, @ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
