/* called by: entrance ctrl of the object 'track'
% o: H/ s& F5 \/ X, r3 v*/: l9 |- D& f v
is+ j7 q1 e0 H- m' h$ s( R, U
part, GlobalDistObj, assignLObj:object;row,Lan:integer;
2 W( G- ^( c# Y9 {* J2 }2 tdo
+ y& \ {/ T1 p* U" B Lan := rootfolder.Internal.Tools.AOLlanguage;& f' g. V. C# j3 h
if current = @.Destination -- else return
; W' J2 T+ o1 X% e9 y# z8 b! d4 f. C then# L) S( g8 m! {0 m& b' L2 c
@.Destination := void;
3 q9 h. f* a* y) R" s1 E( Z% {7 W if @.occupied then4 w+ t, d1 u* m, Y' I9 z
part := @.cont;0 [3 } U6 T6 L$ P. W. E7 Q
@.transpOrder := void;
! S4 |' J, o2 D7 h' P: H part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,/ U. j4 `7 [4 n
@,root.eventcontroller.simTime);
6 X7 c- J; y+ U: `8 |5 c5 U( s @.HasOrder := false;$ m% s7 b2 S$ _# V
@.DrivingHome := true;, o$ X9 }1 B# c% M
rgManager.tryToStartTransOrder;
U! D* E' D1 u1 n! F4 C7 Z if @.Destination = void
0 z! _1 S' \ c/ ?! A( C then -- no transport order for vehicle @2 A% V3 k4 w' F3 D; N
@.Destination :=
/ G: s. }, g; g3 P7 E rgManager.nearestFreeStation(@,track.~);" r* K/ T3 }9 G. `
newDirection(@); , J" a T1 w: }
if @.Destination /= void then
% t/ v0 q# d5 K6 w0 ^: y& T @.Destination.NumReservation :=
3 ?7 [0 _3 o$ t9 c$ E @.Destination.NumReservation + 1;
* a, F) E/ v+ N end;
. k7 g% y! `' Z& a, C& { @.CurrIcon := "drivingHome";$ [+ b+ w% j+ H, \
@.DrivingHome := true;
, d }3 o# f( Y1 c4 }- P3 M# O end;5 G7 V" _) D$ K! m
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
b5 z5 y& ]0 D8 b( ~6 w part := @.transpOrder; }+ f/ O7 @9 j
part.move(@);-- load part
+ B) R7 B' P& k$ F0 r" q, D: A4 y @.CurrIcon := "load";( T$ b# a" G7 V" Q8 j4 E
GlobalDistObj := part.globDestination;
0 O0 `9 Z$ O; I! A assignLObj := rgmanager.rgAssignL;
1 x! t1 J2 `- }8 P8 R/ D2 P row := assignLObj.getRowNo(GlobalDistObj);
( y: B8 c' s" y R) y if Row = -1 then -- since 704 W( s2 t) O! ]3 l! I. `
if lan=1 then2 E1 u l% h0 S8 _$ q
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
* S, n! j! T. j- o8 u( | to_str("in der Andockstation: \"",?.~.name,"\""));4 O" Z) N7 s2 q, L' P
else
( ~6 a4 ^2 P, Q+ @' v, G2 c W promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
( x7 q& P- D; g( T to_str("in docking station: \"",?.~.name,"\""));
3 W1 m9 U) m9 v$ d$ K end;9 J) v6 \" d2 X9 q1 [7 S" W) j
else
0 |) \5 y8 b% i7 T( ? @.Destination := assignLObj[1,row];& v* X6 X9 l; T* s7 u
end; ; e2 I! L; T! b& E( `8 }
newDirection(@);8 k* O7 l( h! e) \. S% a
@.HasOrder := true;* j9 O* w! }) p% d& d$ M
end;1 ?4 |: O1 e- H: ^! g
end;4 b: `2 i2 q- E
end; -- of the method
9 M9 U3 m& q4 S# Q3 m1 d0 L |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
