/* called by: entrance ctrl of the object 'track'" h9 V0 v; l0 C3 d. Q
*/) }. @0 ~, H/ q g
is4 {) e; p* g% L# k
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
' M# A! U& U* `2 p# C, j3 B. e8 ]do
1 \: h% _+ R. _. M3 s Lan := rootfolder.Internal.Tools.AOLlanguage;% K, {8 O5 O1 W1 C# ^7 V
if current = @.Destination -- else return
' s d: Q1 t+ n- g then/ N' b9 \. \/ m1 c O
@.Destination := void;
( S. j7 Y# a% T, {2 ^( Q r if @.occupied then
+ A: B E! F/ i part := @.cont;
2 {- r, D0 W; _. h" ?% X. T4 j @.transpOrder := void;
& O* U3 K3 J W- Y$ c i' s part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
' \8 \6 @5 L0 h! m @,root.eventcontroller.simTime);7 z6 I$ Y+ |$ `5 Z) A8 ~& G2 h
@.HasOrder := false;
; ? F0 g( [) i, y @.DrivingHome := true;2 x1 [; {8 s7 }, l* O
rgManager.tryToStartTransOrder;5 v! f0 P2 U2 ]1 O J7 P1 k9 q4 w; W
if @.Destination = void. b/ L/ O) T D& n
then -- no transport order for vehicle @
% E, \7 a1 m! Y. S: v; v) N @.Destination :=
6 O% g0 P1 n2 S9 r2 t rgManager.nearestFreeStation(@,track.~);
# ~& y. L$ k7 N2 S8 p newDirection(@);
3 q$ E! V! x4 V, ~5 N6 E if @.Destination /= void then. z* E6 |! |# U0 c
@.Destination.NumReservation :=
5 M0 u( A. M0 i; _, r @.Destination.NumReservation + 1;- D) I) E2 e" R1 y# m- Q2 z2 i; \- m& L
end;
( v |! Y: O5 ~ @.CurrIcon := "drivingHome";& u$ h- F( x: T; D1 |/ t4 k
@.DrivingHome := true;. Q8 F3 s, E. u+ _* P4 } i8 b" s F
end;
4 t* m) B( r5 T4 s# }0 L2 I) | else -- the vehicle @ is empty, both vehicle and part are in the same dock station: @/ A3 {+ X2 u; K1 e7 ^( _8 t
part := @.transpOrder;
- j% J' l+ B& }* m5 e5 y part.move(@);-- load part& R2 @/ Y# \" g" d/ N4 ]7 c
@.CurrIcon := "load";
- l; M% D; y8 i) N# ^) D GlobalDistObj := part.globDestination;' i1 i$ E* x( o+ {+ M/ F5 S
assignLObj := rgmanager.rgAssignL;
3 @) n& z) R) V: |( \4 o row := assignLObj.getRowNo(GlobalDistObj);
( }% U8 I5 J9 s1 b- t5 o. G if Row = -1 then -- since 70
% T- O* F- u" o0 R' l4 }' b7 r if lan=1 then
# o$ z3 Y; o' j( b4 o4 b6 D promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
4 N% T+ [, J% w0 G; K to_str("in der Andockstation: \"",?.~.name,"\""));
; {* ]. D; N( R4 ~% R else9 w$ @& C. C e2 S* A: v
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
! \& h! r! u4 c7 x3 Q. O to_str("in docking station: \"",?.~.name,"\"")); 7 W" ~# ^ a. k3 U5 s. k c
end;
) W; O$ q! Y1 v* l5 N" I else
* N& ^+ p. p4 l3 A3 N @.Destination := assignLObj[1,row];( }, @8 j O4 p
end; u* V& {) ]& h9 B
newDirection(@);
8 k0 N x# k; i7 W @.HasOrder := true;
; x; I6 J9 V; Z' K end;% I% e! h) \- J( G" N4 A
end;
5 b/ I/ s9 L0 U* ]+ a" C: y; {* Pend; -- of the method7 z: T( f4 P, I+ i( O0 s* [( F
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
