/* called by: entrance ctrl of the object 'track'
! A2 L0 c( i# \1 v; g5 [& W*/
& q* N: a3 u! V; s# Q; s/ sis
7 k6 d9 c, ~" p% b& }, V: I part, GlobalDistObj, assignLObj:object;row,Lan:integer;" A) S/ q& B( z4 }' m( d) t
do. e# z) l: j6 o7 O( m3 q
Lan := rootfolder.Internal.Tools.AOLlanguage;" h, D" y& k& e7 C& y, p
if current = @.Destination -- else return
' Z; Q% ^/ l, T: l then
6 G9 o( L: L$ \! l @.Destination := void;
5 N$ S/ B4 i+ U; O+ ]4 X+ x1 }4 r if @.occupied then, ^" z+ W I" l9 q9 D
part := @.cont;
; r# B' r" @9 w' Z5 | @.transpOrder := void;, y' r+ y+ }: v4 `2 J: C2 Z
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,9 q/ u: s: R( @& b
@,root.eventcontroller.simTime);/ F0 a( T* Y5 n6 g
@.HasOrder := false;2 U0 d* }) u! p, z6 X' Z
@.DrivingHome := true;
. y k$ E/ j) n) o rgManager.tryToStartTransOrder;
) [9 w, _8 ~- Q% c X. \ if @.Destination = void( }, ~7 y2 {9 ]4 u& W
then -- no transport order for vehicle @1 J! @7 B! l" {, G
@.Destination :=
* y( q' V q1 J3 H( y# t# u8 T, p rgManager.nearestFreeStation(@,track.~);
. T K/ u5 I% N+ M0 c, H newDirection(@); ! k$ N/ S, d; |7 M( O0 _+ m
if @.Destination /= void then
) k7 i/ Q" ~2 i/ u3 u. `# k @.Destination.NumReservation :=7 R v) |. _4 P! O& k+ F7 Z
@.Destination.NumReservation + 1;
. o' B' V8 v+ I8 w3 P. v- Q end;6 G+ `8 X" ^0 j7 j) T& ]
@.CurrIcon := "drivingHome";
. o2 y/ Z! X0 ~7 s0 L @.DrivingHome := true;
7 e' L6 v4 a! V, S; O- |3 J end;
9 Z' k! _- x, }1 n1 }/ C2 \ else -- the vehicle @ is empty, both vehicle and part are in the same dock station
+ _! R S3 k6 B' y; T+ @ part := @.transpOrder;8 p5 p0 Y# \9 Y+ K3 X# t. K
part.move(@);-- load part
% L9 O7 Y( P2 g: Y @.CurrIcon := "load";
5 ~9 Z0 g$ L- M8 |+ w1 t$ } GlobalDistObj := part.globDestination;7 Y/ e) {: X' u; C$ y
assignLObj := rgmanager.rgAssignL;& L& x' K" P V, b8 C8 h! l( W
row := assignLObj.getRowNo(GlobalDistObj);; r, D3 R; ]1 ? ]2 k
if Row = -1 then -- since 70
$ O. Q% Z5 @4 v' f- t( {% Q if lan=1 then% {" S3 q1 T8 O
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),7 f( [- N5 s3 Q" N# N* E+ A* L
to_str("in der Andockstation: \"",?.~.name,"\""));" g3 Q1 s2 A, Q: _7 Z, m7 I. _
else
: _0 C- n+ V# S4 V, P promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),9 _" x1 G3 u1 g: O6 N5 K
to_str("in docking station: \"",?.~.name,"\"")); @3 C1 R) [3 N9 |; Y. Q
end;
3 n- t" z( F$ c) `0 Z else
0 U9 N1 a7 j6 ^* ]+ J' U @.Destination := assignLObj[1,row];
6 S C) J/ h6 R# } end; # r/ Y0 c) C5 H, M$ H: n/ A
newDirection(@);
7 i% ~0 ]" p3 Q @.HasOrder := true;
; a5 k$ |% y+ ]9 h( `# | end;
& I) k, j( w. \+ g end;
% G1 y% }+ P' Send; -- of the method
8 T. ]/ _9 g6 _, g* T3 b |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
