/* called by: entrance ctrl of the object 'track': v6 Y' z& o, I' I* S
*/
$ q# q7 A- h1 N1 o& i2 Dis
# y$ O" z6 v" p1 B6 a M part, GlobalDistObj, assignLObj:object;row,Lan:integer;
: \. u$ R. k' U3 M4 @' E5 @do
% ~& ?6 t" f* @5 Z" x" y% m( M1 ?: _ Lan := rootfolder.Internal.Tools.AOLlanguage;1 b$ ~/ `) i. Y5 v3 t, [
if current = @.Destination -- else return
- ~9 g& e* T3 z then, ~) k5 V& j" k$ Y4 u; G
@.Destination := void;
; ]- P8 g7 ]- B if @.occupied then
# g+ r$ |7 s2 K0 C- \, W part := @.cont;
% I5 W+ z6 M( {6 e' r% Q% e2 J @.transpOrder := void; m' [1 k4 p" U0 K9 u% U
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,. Z% k2 p3 {: v3 Z
@,root.eventcontroller.simTime);
( B( S2 D- m6 x5 A8 I" L @.HasOrder := false;6 q8 T! ?/ x: R, V& v6 B% L" _( R
@.DrivingHome := true;
6 q* \* g1 @" U5 u2 s4 K rgManager.tryToStartTransOrder;% t) G7 Y0 f0 s! O0 c+ @4 x$ q% b5 x
if @.Destination = void; U! V$ X% q( n- o
then -- no transport order for vehicle @9 v" T! @& Y- A# n4 P" B
@.Destination :=' x0 p2 E8 m0 R1 ^
rgManager.nearestFreeStation(@,track.~);. J8 U! E% S& i$ G7 a7 T
newDirection(@);
" k0 a J- ?# C" V3 H9 e if @.Destination /= void then$ x$ S8 p/ ^' k/ B5 v
@.Destination.NumReservation :=& k/ S1 M: q e2 R
@.Destination.NumReservation + 1;& d1 [- o! [0 X8 Y! `
end;
& e( o" [# J! Q" g+ ~ @.CurrIcon := "drivingHome";, {+ q& o$ k: Y& R. O
@.DrivingHome := true;1 b2 Y" O% a. M6 @3 i4 |& H. t
end;
* u) | b# y8 u% U! A. A* F else -- the vehicle @ is empty, both vehicle and part are in the same dock station. e! f! t' m' l7 Z4 n
part := @.transpOrder;+ {1 |% r0 l2 `" r* W
part.move(@);-- load part
9 T) \# c# K5 R0 }2 D @.CurrIcon := "load";
( i3 I2 V% ~ O2 n GlobalDistObj := part.globDestination;3 b" f1 k, @) J. w
assignLObj := rgmanager.rgAssignL;
0 f( }6 ~. [8 a/ \0 S ^. z) v row := assignLObj.getRowNo(GlobalDistObj);
1 ?( M" o5 j3 x# ^( R; ` if Row = -1 then -- since 70
, V4 _4 z& a0 j4 p if lan=1 then
3 u& F8 j$ {/ }/ `; O% } promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
2 d h, M& p8 t$ |4 d/ G3 H) C6 A to_str("in der Andockstation: \"",?.~.name,"\""));
, \, B0 w ?7 a$ b, I# n6 j else
, V8 t) O; p6 H9 V4 T* P promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),8 D$ R+ \) R! K; ?( B% s
to_str("in docking station: \"",?.~.name,"\""));
( f& a7 W# b9 ]% V: r0 ^# V end;
2 }( Z" L, N8 ^* B" w" h- r3 } else
7 t m& m: n# v' S. c) v, | @.Destination := assignLObj[1,row];4 P; N W+ ~( O# z
end; . j% j s: B/ N) ~
newDirection(@);
; ?8 Y. S6 s9 x" t. \ @.HasOrder := true;
! _. E/ R, x( p2 Q; R end;' B% _, S: L2 h! s
end;
8 X8 @3 M5 b* A# b. t. \4 Nend; -- of the method
0 q" I+ |7 R3 { F |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
