/* called by: entrance ctrl of the object 'track'
- g0 v2 M# j F1 z*/
' @( A) F$ M u' }6 R4 l3 M! ~is
8 n6 X( {& d& x$ y- ~5 }8 Y part, GlobalDistObj, assignLObj:object;row,Lan:integer;3 z6 ^8 l0 S, L$ v J' n% C' ?: I
do. g/ f7 H+ H! g8 C# m- d
Lan := rootfolder.Internal.Tools.AOLlanguage;
2 ^$ S9 f& c8 F. r if current = @.Destination -- else return/ o5 w" E |5 w1 \0 b1 e
then$ @! e4 Y" x# |% A+ z! f1 F! Y
@.Destination := void;( }: P' b: @& I' t9 B5 j5 ?
if @.occupied then
5 P: p% E4 j4 S1 Q6 ?9 @ part := @.cont;: Z: V; X% G5 k
@.transpOrder := void;
$ B- ^7 ?2 t% I( `( S part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
! U7 ?! G5 P9 T: d, c @,root.eventcontroller.simTime);, T, {- b, g. s6 V+ w" L( y8 R
@.HasOrder := false; T" v' @% ~ v; V1 t% u; o
@.DrivingHome := true;
- i; t3 |" r' w* i7 ~/ X) f& g rgManager.tryToStartTransOrder;7 n1 d9 d( V3 R. ~" f
if @.Destination = void. |' ^7 k# K# Z5 y5 N/ M
then -- no transport order for vehicle @
1 l" h5 g- |9 Y9 |: X @.Destination :=; E- [( q( R- G5 K% j
rgManager.nearestFreeStation(@,track.~);
+ {) ^" @& Q8 ]3 \/ O newDirection(@); 3 _! J3 r) R5 m0 a9 j
if @.Destination /= void then- Y X* M4 k% x" j, z0 V
@.Destination.NumReservation :=# a" B2 M" }5 T' f5 \- A) P
@.Destination.NumReservation + 1;
" Y: M, V9 b$ R* z end;
* O( a& [ O6 Q# S* W$ E/ `; D @.CurrIcon := "drivingHome";
/ W q) d U& f @.DrivingHome := true;: _9 _- ]5 ]" M$ j' i1 x
end;& x$ J; D( [5 f d! x, h) ~
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
1 Y' J- M/ q; _# y part := @.transpOrder;
0 v; F, @; @1 L% J9 ] part.move(@);-- load part1 c' B1 ^6 g* W3 ?; b* B
@.CurrIcon := "load";- ^% t5 h. M- u
GlobalDistObj := part.globDestination;
8 O( g! W" l* X2 X2 | assignLObj := rgmanager.rgAssignL;
+ K1 Y) o0 J9 h3 j; f row := assignLObj.getRowNo(GlobalDistObj);
! M9 W. F' r5 l( [$ r. l N if Row = -1 then -- since 70! b8 a: i/ v6 c0 a
if lan=1 then
8 O; |% v! Q7 c! l0 e8 W promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
0 p" Q9 J# N* b$ l& } to_str("in der Andockstation: \"",?.~.name,"\""));
8 P! Y" d4 W9 N6 h else' Q" b& o7 ^) W
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),9 c- x5 e7 \( c! Q$ i: y
to_str("in docking station: \"",?.~.name,"\""));
/ ]* m& K9 \( ^0 ~! ]. S- ? end;
; n$ D7 h c* u+ G# r8 o1 f else+ N. e- n# u" o+ a
@.Destination := assignLObj[1,row];
# q' s8 N: H) F( {# i) m end; o$ ~+ `+ _" `- k$ K
newDirection(@);
0 v6 B- l% H. A. s3 R6 f0 @, X' g1 P3 s @.HasOrder := true;( n! \# {" Q% b+ ^, f; F. D+ C
end;3 `+ ~' _- H1 n
end;
' K0 `5 R, P6 T @, [: y, Send; -- of the method
9 u1 ?9 o* C" C |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
