/* called by: entrance ctrl of the object 'track') g4 @$ r3 _, D5 [6 k' u1 x
*/
7 e# r" \" L: p6 a5 _6 a3 `is3 }4 ?: Z; ~8 o+ h6 W+ Q& Z5 J
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
3 G) M6 j z. Y& B3 M- {do, H% ?* C0 M" H, \) `
Lan := rootfolder.Internal.Tools.AOLlanguage;
/ c' e7 t9 q" ~! S( o) j' D if current = @.Destination -- else return. l `7 y6 H2 U! S( R5 q5 _$ e
then2 |2 e. I. T' D! I1 s2 f" w8 M
@.Destination := void;. g, L& y( ? t6 F5 D+ I0 y$ w% P T
if @.occupied then
# A! r' K+ S1 a1 }) @' x part := @.cont;
I# r# l( i" d. x @.transpOrder := void;% V& P$ d, d8 X, Z* @5 J
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,, s) X0 E+ K F3 w: B. G9 b
@,root.eventcontroller.simTime);
& v9 i- |5 j# Z3 R! i \* x$ s( g @.HasOrder := false;5 w/ v6 T1 _( \% ]' x+ H
@.DrivingHome := true;
' R7 N; H# T: |. Z5 l rgManager.tryToStartTransOrder;
6 _3 ?7 x) M" ] @ if @.Destination = void2 J( ^# `0 I2 f+ I5 K9 e
then -- no transport order for vehicle @
" j, Z8 i$ p* m0 Q9 U @.Destination :=4 a. O& d1 I l; y, H4 O/ t; T. C# s) t
rgManager.nearestFreeStation(@,track.~);& ?+ K! f; G2 r% @/ }1 Q! D
newDirection(@);
, C' C' F1 m1 }( Z8 b if @.Destination /= void then
/ W) w4 {0 v) C1 R$ Y- i+ l6 K2 h @.Destination.NumReservation :=" P" t7 k; s% _6 o3 ?. s
@.Destination.NumReservation + 1;1 {9 z2 _1 i0 K8 T+ s
end;. t( o# X; X% B/ G5 T8 L! ?
@.CurrIcon := "drivingHome";
7 l! U4 _" j/ B @.DrivingHome := true;
9 J) E; b. X* @+ C5 }9 O end;
2 [* n$ n' v. U8 `* A. z! H# j9 V3 h, [ else -- the vehicle @ is empty, both vehicle and part are in the same dock station
, O5 h$ P4 x, d! r part := @.transpOrder;
3 I7 m8 Q- {2 c part.move(@);-- load part0 Q$ N8 |' \/ V" f" L
@.CurrIcon := "load";
2 y: R/ ]3 n" {! R. P GlobalDistObj := part.globDestination;
6 g- I4 p; ~/ c* x& r \ assignLObj := rgmanager.rgAssignL;1 D* N, {# @4 R C: p( n7 W
row := assignLObj.getRowNo(GlobalDistObj);
" k/ \4 k! \/ G w( r3 Q if Row = -1 then -- since 708 s; m ~& Y5 [/ b* } G
if lan=1 then
7 G: ?( Y* ~7 G; N1 A' ` promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),' O8 s7 Q" y- r1 \) o" [! V
to_str("in der Andockstation: \"",?.~.name,"\""));
- f0 U/ |& A5 L$ k! u. L5 v; e( x' h else7 W! r+ P, `& r) X& d$ D
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),. e/ T% x5 }! j2 u, N9 U1 w
to_str("in docking station: \"",?.~.name,"\"")); 9 c* c/ d/ _8 W! ?. A" [! }
end;
* C4 |2 l+ U) g3 o% `, n+ B else
; d" x3 j1 ~+ x2 V @.Destination := assignLObj[1,row];" F0 K6 m. Z& q. t
end;
1 |) O; J9 M2 |' j6 M1 Y0 u newDirection(@);
! }1 W# ~6 b7 x% r6 {1 t5 A @.HasOrder := true;
9 j& K' [# [# @& n3 S end;' _& e3 s! H( k1 g
end;
' s6 v8 C6 n# d o8 @: H7 vend; -- of the method. n) ?9 n( P. M! P$ ]( j- i- C
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
