/* called by: entrance ctrl of the object 'track'- v" Z& Z& R( G% _9 m- ~' V
*/
4 |3 Q' k* p0 ?0 e0 v. Lis
! L! c2 r, S' j6 l- |( k0 [5 A part, GlobalDistObj, assignLObj:object;row,Lan:integer;- W9 T# B4 W( u. a' k2 d5 F
do1 d; Y. I) ^: Q. a# @& A5 k
Lan := rootfolder.Internal.Tools.AOLlanguage;
6 x. H. a9 t% p4 d1 T0 X/ D, ? if current = @.Destination -- else return. _! \/ A1 i+ A+ g; V2 v
then
' g, t# v: t8 P c, I4 g j( M& e @.Destination := void;
& `+ D# N4 A' N+ h if @.occupied then. D! i! `" f4 `3 [8 i" g' P
part := @.cont;) X! H, @+ F; V! H2 y
@.transpOrder := void;
1 I# `5 G) P2 S+ J. G part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
2 P3 x, u6 k g' h; p1 X @,root.eventcontroller.simTime);+ L Z: H9 S. p: J. W. t
@.HasOrder := false;( ^1 O! O! X2 Z( M+ g1 a
@.DrivingHome := true;
. E4 z4 R# _2 m+ r u; ?& _0 ^# T" T! }5 G rgManager.tryToStartTransOrder;5 V/ B Y$ t5 [. M6 n2 I4 C
if @.Destination = void
8 @) r4 M1 X/ i ]- S1 o then -- no transport order for vehicle @, e; R& ^1 a7 |7 F
@.Destination :=
" [; z1 w2 n6 J+ g& e$ \& u# g# y& M9 { rgManager.nearestFreeStation(@,track.~); h! t- m( Q7 S- s7 W/ h* V
newDirection(@); d( I4 l7 }6 z: S& Q0 \" y
if @.Destination /= void then- |# ~% M9 Y% {/ M$ H3 z2 b
@.Destination.NumReservation :=" X: c5 P+ p, g! J
@.Destination.NumReservation + 1;
; P, A2 t/ ]. f4 W! h& z) N end;
$ E/ \1 J( K' n4 y @.CurrIcon := "drivingHome";3 {1 S2 r# ]" T& z8 {
@.DrivingHome := true;
: _6 u! \* H- C# l% n Y k end;' o3 y7 t4 Z7 V$ o0 P
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
5 B2 M. I) i! y% T4 r part := @.transpOrder;
, i v) r$ h+ p) w8 D part.move(@);-- load part8 B/ R2 A0 K7 d/ G/ @
@.CurrIcon := "load";5 i) Y1 e2 A" H ^3 M
GlobalDistObj := part.globDestination;
* Q8 C$ d5 @; l! D; J s assignLObj := rgmanager.rgAssignL;6 g5 [1 y2 y; k6 j* W+ |
row := assignLObj.getRowNo(GlobalDistObj);
0 n- m2 S3 `& w& k if Row = -1 then -- since 709 m8 r2 a! ?. T5 y) f7 S
if lan=1 then e. j9 ^4 I1 \8 Y8 `% F; c6 h
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),: i9 c3 E, b: d1 I9 D6 {3 n- C0 v
to_str("in der Andockstation: \"",?.~.name,"\""));7 {; h7 v! T! V* R2 s Y0 [
else( p( P4 q. b B$ ^- O. u q
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
' G: ?9 K) |: G' Y) b7 X to_str("in docking station: \"",?.~.name,"\""));
) v# l( S3 x( i7 i end;
" Y9 ]# [0 N! r0 f. Y* ] else: U& w( j5 D( Z6 v
@.Destination := assignLObj[1,row];! b7 C/ b/ B6 Z" Y+ B
end;
% m0 Y b3 W: s) n( X newDirection(@);
7 w& \) E U* H. l5 G2 c5 f @.HasOrder := true;, ^8 a o* L! x- |
end;% ~7 D8 b$ m0 H' e6 A2 y% m
end;
; t+ w, ?' N4 Q7 y dend; -- of the method
6 F; }# A; C6 H( R7 p/ q- L& | |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
