/* called by: entrance ctrl of the object 'track'' y6 M1 s1 H: u5 [( P
*/
, j J/ u* j/ q) S; }4 Pis
! M& ? N+ x9 l" Z- e; D part, GlobalDistObj, assignLObj:object;row,Lan:integer;4 C0 V( d7 |! |7 X$ O
do2 V% M6 l. Y+ c# ~+ t
Lan := rootfolder.Internal.Tools.AOLlanguage;
7 a! ~# W- L: w& N& o0 C& O if current = @.Destination -- else return
4 A2 s/ r& ~% H then
9 a, \3 F1 I$ | @.Destination := void;9 s# G0 }- P6 V9 \3 W. }
if @.occupied then" N. d- K1 L( W; P8 o
part := @.cont;& y, g6 E. L# C8 s% d% i
@.transpOrder := void;
, u6 f3 L: z$ m- s9 C9 {6 b: a2 j2 K part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,9 |9 C1 @9 e4 n, l' Z. k F1 u- E
@,root.eventcontroller.simTime);
- E( Y. z/ }: c8 n- y @.HasOrder := false;
% P& M8 E& F' w, s! Z6 [3 |1 y @.DrivingHome := true;2 I4 _5 y3 f9 s
rgManager.tryToStartTransOrder;4 m* f& e, K, W* e
if @.Destination = void
5 H I0 p+ d5 p then -- no transport order for vehicle @: `# q3 j" T6 n) I4 i# ^% F
@.Destination :=+ z3 N" V6 m" c4 R# J( \% G+ O9 o
rgManager.nearestFreeStation(@,track.~);' v1 V% j& |/ e( y% l3 @+ Y
newDirection(@); ; j; t4 ]& N: z
if @.Destination /= void then
2 S* C2 A! }2 Z' ]6 W1 F @.Destination.NumReservation :=
4 i5 D. {7 Z6 }1 k: {9 c1 i @.Destination.NumReservation + 1;0 C2 \3 S) Y3 J6 s/ n) L
end;1 t, ^6 ^5 p5 x, ^2 d/ O
@.CurrIcon := "drivingHome";
) q; J. W/ M* w8 V @.DrivingHome := true;
9 w7 W8 ]/ @0 V5 \ end;
% B: K* N Y5 j6 ?- V else -- the vehicle @ is empty, both vehicle and part are in the same dock station1 k z8 x( e. V& ^
part := @.transpOrder;; T/ m0 G& m1 F1 {0 ]4 x
part.move(@);-- load part q- p9 y0 u/ V& L4 r! v A6 D# O8 x
@.CurrIcon := "load";
- `/ {6 z( k0 c# P GlobalDistObj := part.globDestination;5 j x9 j' ]& `: \' Y2 p! D) p
assignLObj := rgmanager.rgAssignL;, y/ J* w# ]5 @
row := assignLObj.getRowNo(GlobalDistObj);* M' \- n( }( y
if Row = -1 then -- since 70) x0 J8 c$ N3 W9 ^0 U% K. @
if lan=1 then+ l; m; P3 `. l: A9 P4 O2 [
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),( F$ |2 p" S/ Y! {
to_str("in der Andockstation: \"",?.~.name,"\""));" l; c9 f6 g% t6 O T
else
( K |& V) y8 a, Y# ~3 ? promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
$ L. ~: K6 X: j* ^& X' z0 { to_str("in docking station: \"",?.~.name,"\""));
+ w$ T9 ]1 l7 {+ v" D" x6 A end;* M. B2 _4 ?& X% Y1 \5 R5 n
else
1 F' _: [& r& U8 ]1 s" b @.Destination := assignLObj[1,row];
4 u9 J& F! r% F) g& z end;
* P( h: N: A+ t9 ?2 C7 c" h newDirection(@);- K. D. w5 T2 d0 ?/ I. N: i3 _
@.HasOrder := true;
& F; x: |3 x6 I3 x end;
0 a" N' K& U7 L$ U+ S end;9 ?' D- h. V1 _$ c& S* T
end; -- of the method
5 J9 ]8 J$ k! J: }, J* I0 y |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
