/* called by: entrance ctrl of the object 'track'
; S/ b7 |3 ?3 s8 Q2 [8 R*/
/ I; H6 l' ?7 Q2 eis
# o" }/ N/ }9 o }0 Q* d' s$ F0 u' | part, GlobalDistObj, assignLObj:object;row,Lan:integer;0 G( n# a3 {, i2 w- t1 ]5 F
do: t" q- h1 T4 S- {( ?
Lan := rootfolder.Internal.Tools.AOLlanguage;
3 U6 T% |) ?7 N. m' k9 } if current = @.Destination -- else return6 D( c, P3 Q1 {7 t+ s; z. S
then6 w9 M* K" a. b) L4 M/ r2 c2 h
@.Destination := void;& ^! K; ~2 P( c. i2 e7 y
if @.occupied then3 ~0 Y1 Y7 I4 a$ x& L
part := @.cont;3 i4 d3 i6 O8 V1 g8 u9 i6 A
@.transpOrder := void;
2 t$ q1 o+ W: H part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
) q' g. Q7 o, M- k @,root.eventcontroller.simTime);
) r2 k7 N2 l. V6 l5 F( V: {' Q @.HasOrder := false;5 k6 k+ ]( q5 y, p8 V
@.DrivingHome := true;
5 z1 w$ _$ i, I4 _, `% e rgManager.tryToStartTransOrder;' {+ @; H: [/ ? V) Y
if @.Destination = void; F1 ?' ~) j$ V: d: i9 n4 n" b2 I
then -- no transport order for vehicle @" k: E& {; Q, Y2 ?/ D9 i+ t
@.Destination :=0 m/ K: u: E" x2 z; s) P; g
rgManager.nearestFreeStation(@,track.~);% L* }% T7 p9 S1 K( j$ g
newDirection(@);
) n9 ^% \. |5 V2 n" ?4 D if @.Destination /= void then
* M9 W, ^' Z; P- f$ k$ D9 p @.Destination.NumReservation :=' Z: T6 X; g& D+ f/ Y
@.Destination.NumReservation + 1;
8 ^. d/ }, q% G$ E" J$ X end;
$ c! N/ V, m, o @.CurrIcon := "drivingHome";
0 \. B7 t) K5 {' R( K( Q* w/ O @.DrivingHome := true;
8 O1 N; K4 f8 P1 W$ H6 j- l end;
' _' U" N* Y7 I9 W else -- the vehicle @ is empty, both vehicle and part are in the same dock station# s4 t- c4 Z' k: L( b
part := @.transpOrder;
+ P- t/ A# b% z v" [ part.move(@);-- load part
8 w$ [' I$ M0 U) S. h ` @.CurrIcon := "load";
8 ^$ {8 T% L3 C+ o GlobalDistObj := part.globDestination;$ t0 N" K5 y) n6 F% L. t
assignLObj := rgmanager.rgAssignL;
! f7 }5 D9 N" t. r row := assignLObj.getRowNo(GlobalDistObj);
6 d5 J8 |# W. z' M4 r' [+ g. b if Row = -1 then -- since 708 p/ o0 B0 I. h+ _
if lan=1 then
0 B; i9 x' s q1 p( a: ?) K9 l* i. T promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
1 }2 f) d7 _3 L$ s to_str("in der Andockstation: \"",?.~.name,"\""));- F% h& Q$ B& Q- H0 J4 H! K/ D
else& v: V8 h: G: `
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),2 K& Q+ u/ F; C
to_str("in docking station: \"",?.~.name,"\"")); ' |% b( R" V' @5 s
end;( \: f C$ b* e. `0 I* m( E. U$ z
else6 G# q3 ]- z2 }6 W( q0 V4 n9 o! s
@.Destination := assignLObj[1,row];8 k. J/ U; u8 H1 P# ] [$ Z
end; " ?9 L( e" H8 ~6 O1 L2 B# \. J
newDirection(@);
6 {5 A' p+ \$ v' Q4 ` @.HasOrder := true;/ K0 ^! M; Y# T- T& U/ z& x4 w
end;
( |# ^+ N+ U& r! F1 D1 X ^ end;6 L$ }9 ?/ W: d: v7 y; f: y, `+ h1 V
end; -- of the method7 T5 T7 ]0 e7 S; L0 o! z
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
