/* called by: entrance ctrl of the object 'track'
/ y. t: X3 M( ^/ D. H*/2 _* w+ R5 \, d& M; |% H+ a
is& k7 s5 }( H5 _
part, GlobalDistObj, assignLObj:object;row,Lan:integer;% t- H4 A) |* }/ v5 }! I8 y* |6 l
do
& _/ z2 u' ], _( n% U Lan := rootfolder.Internal.Tools.AOLlanguage;
& r0 O7 `3 o7 O" h% f3 A' S; e: y- A# X: i if current = @.Destination -- else return
8 [7 u# Y+ N0 J then+ ?( i/ H" u' C; ]+ K' {
@.Destination := void;) ?8 }- S+ e) j, A
if @.occupied then" h3 A) i2 n3 R8 r* H/ B
part := @.cont;% A' }5 g @8 P( A! r1 M
@.transpOrder := void;
5 T; V2 w7 y: s1 E+ | part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
* [- v( e0 G! k; k" u, [# m5 [ @,root.eventcontroller.simTime);+ b% o7 J2 Z* Y
@.HasOrder := false;7 b+ M! Z+ `9 T9 p7 B
@.DrivingHome := true;
* K4 q' b6 ?. a& P- ?# m( f rgManager.tryToStartTransOrder;
8 a: A& n' F( l; [ if @.Destination = void% g# i. j/ W; x: c
then -- no transport order for vehicle @
% L# b( i( R, Q! w8 |2 c$ M% t3 D$ k @.Destination :=1 s. M# ]+ f- H3 c
rgManager.nearestFreeStation(@,track.~);
, }$ g% r! n1 w7 A$ Y newDirection(@);
0 Q) f, [, W- f" G0 u; [- v+ K7 S if @.Destination /= void then2 ~/ P' W( A2 J% r) _
@.Destination.NumReservation :=. U5 L, {& S p" X" W+ [. A
@.Destination.NumReservation + 1;
5 X7 E9 h2 [' U; z- t' ?# A; Q end;
& A# x7 z* i% X. Z8 W) Z" N @.CurrIcon := "drivingHome";8 j' J" S! X: @* M7 _
@.DrivingHome := true;/ j0 D' L7 B/ W
end;
& ?$ a* x( Z8 Y* O% f g else -- the vehicle @ is empty, both vehicle and part are in the same dock station
+ k5 Z% N1 i' b. l$ J& j& J part := @.transpOrder; p4 Y/ u& T1 N/ o. _
part.move(@);-- load part
9 W- I' S" V6 R9 }( W @.CurrIcon := "load";* Z6 d$ r9 j8 |6 q
GlobalDistObj := part.globDestination;
" B' O: V4 A! p7 M assignLObj := rgmanager.rgAssignL;
9 x5 v3 Y8 X) n8 N( V# C6 j row := assignLObj.getRowNo(GlobalDistObj);
$ o0 m; k7 e/ V% R+ a if Row = -1 then -- since 703 [" q% F- f- ~! u. j
if lan=1 then0 L" r8 L: L: S# o9 n2 M8 ~" r
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),+ r; I( B0 I& Q3 B" H/ t
to_str("in der Andockstation: \"",?.~.name,"\""));
" ^- k# w: B' i! ?* c; R else( o( ?1 J. `1 d
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),& x4 k' I* \! ]' w
to_str("in docking station: \"",?.~.name,"\"")); : ~4 v) z. Z8 T$ g6 T0 f
end;: S4 ~3 B& @9 |: @9 `! `, n5 M
else
$ W9 X9 f9 w( t4 L @.Destination := assignLObj[1,row];
9 v& t' T2 a8 W: h( q end; , E( G) K% {9 I4 W. H& R: _
newDirection(@);0 y- o* T* u' ~) z
@.HasOrder := true;
+ ^/ V, J% z. l" ^" x1 o8 u end;& d4 c# q+ ]9 A6 \+ j
end;
- w& e A' G% g/ Tend; -- of the method
! g% v, Q! ?. E+ e7 j r |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
