/* called by: entrance ctrl of the object 'track'4 T ] o1 E) o; [! ^$ m E! k
*/: ~3 c# j" W+ u% W
is
3 f) Y! f/ [9 V5 K9 I! c5 T5 ` part, GlobalDistObj, assignLObj:object;row,Lan:integer;
$ ?, p% P# o% ]( L. x; Tdo
* y) b: X- B8 W; t' G Lan := rootfolder.Internal.Tools.AOLlanguage;8 J- p0 _- e( Q9 N4 i
if current = @.Destination -- else return
4 u! l0 W' c8 R8 D+ K then
- g: f, r& q# B3 Q- _) f @.Destination := void;2 p3 A* o$ h9 A: ~, @ ?+ [: _; G
if @.occupied then8 R) |! |8 p. z
part := @.cont;$ E8 m( U( N+ t
@.transpOrder := void;
! i/ m- e# o' f6 [% ] part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
/ H4 f6 k. D9 \) r; A6 H @,root.eventcontroller.simTime);
& z" P! Q) W. O4 Q$ c& ]# s @.HasOrder := false;2 _5 A: o! W9 \3 |0 ~- p; n
@.DrivingHome := true;
% H" Z! a( B8 J# v+ i) q rgManager.tryToStartTransOrder;
0 g, E! `4 }3 S, z: P if @.Destination = void% D, M) I7 j+ ?8 e6 f2 s1 ?
then -- no transport order for vehicle @3 X1 P& V3 s& g
@.Destination :=
; S0 g" Q# k0 [: l4 ] rgManager.nearestFreeStation(@,track.~);
& ~. q% A8 w% q* o6 S newDirection(@);
& x% k) K2 K: y2 ]1 m6 U if @.Destination /= void then l- M! }+ s: ~8 \8 F' H" X
@.Destination.NumReservation :=
4 y4 m6 u0 z3 y @.Destination.NumReservation + 1;
( \; {$ E% \# x2 R. R end;
! b& a$ J7 }5 ?) k5 D: ` @.CurrIcon := "drivingHome";
4 D& A) A' a# K5 X7 c& _' d @.DrivingHome := true;1 N' R7 ]: R' A8 e. E( v
end;
' H& N4 R& d2 v2 c5 F E' H: G else -- the vehicle @ is empty, both vehicle and part are in the same dock station- y- R2 }; |8 e2 J C/ i
part := @.transpOrder;
7 V6 m: i/ @- s7 R! [% \ part.move(@);-- load part
L, Z1 |- c5 s% y; s& I4 {8 C @.CurrIcon := "load";
$ ?- N" s5 U) [ J& A GlobalDistObj := part.globDestination;$ i1 ?) M% H8 g' k0 q0 C
assignLObj := rgmanager.rgAssignL;" ~7 H$ v9 B: Q" w
row := assignLObj.getRowNo(GlobalDistObj);
; j9 h9 @8 ?- a if Row = -1 then -- since 70
% F& M8 w3 U- Q if lan=1 then4 V; R3 \$ M- u2 r9 }8 p1 @
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
4 x& A, e" f$ u, x. z/ R- A1 g to_str("in der Andockstation: \"",?.~.name,"\""));
: f9 {0 ~) ]) V- n4 u: c3 X! G else
$ Y* }4 |' p' ]- u4 q+ F# F. R promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),! M. V7 [) s. l/ O4 j8 ]
to_str("in docking station: \"",?.~.name,"\""));
4 F0 S# P, I9 k+ I: I end;
$ J7 X1 Q( N% x: @; ?6 Z, s; b else
) a. s3 v7 G! O& @ @.Destination := assignLObj[1,row];' v+ R( U9 H: r; `3 _7 z. b, B) d7 c$ ~
end; . ]1 W$ {. B( i2 R3 `# ?
newDirection(@); T# z! e! f+ A' v
@.HasOrder := true;2 _1 {7 X3 W1 r5 {. q, b
end;* O6 O8 E6 Y0 X# L" U4 U
end;5 x7 q8 P* q3 M' x$ `3 W G
end; -- of the method
; \' D y6 {$ \+ t a2 x. K4 [" g( d |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
