/* called by: entrance ctrl of the object 'track'
8 h* B X$ R9 G5 L: S, r. n' D*/
, `* s; v, p3 F) v b, @: s- B- Vis
9 Q6 r+ d3 k R2 Y/ w part, GlobalDistObj, assignLObj:object;row,Lan:integer;
; T. u) s4 i8 E; C8 N: zdo
4 {% E' P5 P) i7 O2 w Lan := rootfolder.Internal.Tools.AOLlanguage;' j1 ^3 m$ _% [3 i
if current = @.Destination -- else return% N# W! H3 q: |5 L4 Y
then
, M- A# F9 i9 h5 s$ Y9 f @.Destination := void;" z2 x/ v* i( |/ h/ X3 |
if @.occupied then Z: Y( a" r- ]8 R" X/ C! M3 A
part := @.cont;
3 g; e0 d7 B9 A D: X, H4 o @.transpOrder := void;
$ s# E" Q1 y( Z2 Q1 l part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,! l% D1 B- X/ l+ _: ?
@,root.eventcontroller.simTime);# ?2 m) Z/ [- [+ L6 |( i4 J5 G* C4 m
@.HasOrder := false;7 R$ J' D* ]2 l6 S: M
@.DrivingHome := true;& T: Q* E4 j: a. q6 K
rgManager.tryToStartTransOrder;6 P; u0 T/ t: _% s# |5 l
if @.Destination = void' J% M: @% @9 t9 \
then -- no transport order for vehicle @& o; U5 r6 r8 p: T: V
@.Destination :=; Y: y* m' K' C9 @0 B8 J
rgManager.nearestFreeStation(@,track.~);
* o! u8 Y- |: Q) l/ B newDirection(@);
% a1 V4 F+ O: ? if @.Destination /= void then
; Q4 Y. C) Q- w6 W# m* F @.Destination.NumReservation :=
+ O E# L/ x+ v0 j _7 ~/ }4 h @.Destination.NumReservation + 1;
! C0 v2 U1 E, V: q6 b end;
5 m& t) ^1 _/ j0 M# N @.CurrIcon := "drivingHome";
# ~. j$ |8 i1 s+ ^9 m @.DrivingHome := true;/ v/ J" Z+ U' W! r" u' S9 t3 ]
end;
2 R7 C& ?- s7 c/ x else -- the vehicle @ is empty, both vehicle and part are in the same dock station K" O* u% }* t; y8 P$ @
part := @.transpOrder;7 r* \" T1 { f
part.move(@);-- load part! O; j4 y# f- y3 s' ~) J% m _) i
@.CurrIcon := "load";
# x/ N* [$ Y1 }, l GlobalDistObj := part.globDestination;! W; I1 i" r( _+ h( M- S+ s5 S3 J% I
assignLObj := rgmanager.rgAssignL;
+ @# y/ o* i7 n, O, G( r6 `" h row := assignLObj.getRowNo(GlobalDistObj);
/ T, Z3 i5 E3 m' S' ?6 x# W if Row = -1 then -- since 708 v: C2 G) H- `, ^5 U
if lan=1 then
- U1 {" @3 F) L' {& F* X promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
+ n4 m+ \* T9 h& E* k, d, F to_str("in der Andockstation: \"",?.~.name,"\""));# L- |% Q/ _7 Q, P" e6 X
else
4 \- a2 ?3 S! T) {/ k* s8 q promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),$ m( p+ E0 s3 ?
to_str("in docking station: \"",?.~.name,"\"")); . M- y! B% [4 I0 g- N: P2 D
end;
, T! O: u7 K+ U8 Q+ s+ p else
8 _1 C2 L* Z7 O6 }) n! U# Z: N# ` @.Destination := assignLObj[1,row];
3 @1 m5 V' G4 n3 Q8 z9 _2 f end;
3 P; C% ~( N6 z; q newDirection(@);/ c, M- ]$ o& O
@.HasOrder := true;
, S# h7 [% |3 m8 S' n( e end;
]+ U1 f+ B# T7 ]8 J5 \; x end;2 z0 w( P+ |# ~9 H k% q
end; -- of the method
# e! b; j/ e N8 X |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
