/* called by: entrance ctrl of the object 'track'
8 E5 i9 j- ]$ P o- R) t2 ~*/! ]# N* a) Y4 t0 x# j2 S: r1 b
is
& R# `2 q. i( B# z5 {# f part, GlobalDistObj, assignLObj:object;row,Lan:integer;
. v- l" E6 ^6 h; Qdo
, g8 N& |; ?: T0 m' k4 _: y2 R Lan := rootfolder.Internal.Tools.AOLlanguage;( [: g3 r; |' R7 G, t
if current = @.Destination -- else return
& _6 f7 p) {: u0 L7 y4 [ then
7 A7 A* q7 s; G$ N" J1 u @.Destination := void;
4 v) t8 V, r2 A5 c& }/ S8 C if @.occupied then
8 F- Q8 j/ ?" R, X9 m7 u part := @.cont;
8 D4 o# U* M6 m9 s; n @.transpOrder := void;
& i6 N! b, @. m/ [; D' j9 i5 A4 J part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,0 ]4 K m. {' X L7 K+ V
@,root.eventcontroller.simTime);$ `' Y6 t) H; O6 c
@.HasOrder := false;
' h! {, f8 |7 J3 A7 t; R8 g! L @.DrivingHome := true;
6 e/ q5 E% } O rgManager.tryToStartTransOrder;
0 R" z, `, `- ^1 y( F if @.Destination = void
# W8 ~' c6 u, f7 r/ f# g then -- no transport order for vehicle @" U. `( t% V4 [3 Q
@.Destination :=- l) p0 I6 D8 C9 W
rgManager.nearestFreeStation(@,track.~);
# ]6 `! Q3 l9 I r/ E9 Q newDirection(@); ( ]' k# r( l$ {7 |' {" w. \+ w3 c
if @.Destination /= void then
H2 D" W e8 z/ x& Y( M @.Destination.NumReservation :=
- k% H7 t f) T! S- t @.Destination.NumReservation + 1;8 d. ^1 q+ u5 R8 ~6 `* K
end;
3 u) X ~* M# H @.CurrIcon := "drivingHome";
1 s9 [, @9 `2 k' R* B @.DrivingHome := true;
) S8 O! L# T* S; | R2 n9 w1 `+ G% o end;
* }, E! D: l- ~8 L% P else -- the vehicle @ is empty, both vehicle and part are in the same dock station
* k2 p) [2 t9 ?7 U/ B0 H+ Q part := @.transpOrder;
6 E$ A3 U; @0 ^ part.move(@);-- load part
7 e" |6 V* N* P% l" g7 g6 Y" s& ~( P7 t @.CurrIcon := "load";
6 m9 q6 W( N+ h, a' D3 p GlobalDistObj := part.globDestination;
+ s C& U0 `0 m8 r$ c5 @& l V assignLObj := rgmanager.rgAssignL;
Y, ^, i- I, o2 `% p2 B& A row := assignLObj.getRowNo(GlobalDistObj);5 I' X5 o& ~+ n" P0 x
if Row = -1 then -- since 70- m7 I+ Q( m! L5 a7 K
if lan=1 then
5 d4 j7 h* V4 m5 y0 o8 s promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),% g3 P/ `) y& }5 q
to_str("in der Andockstation: \"",?.~.name,"\""));
* d* C6 [7 l) Q! z else: j7 f G* H$ N$ @; u2 D+ a6 r, q- m
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),- x- Z/ R r- @) g% q# g
to_str("in docking station: \"",?.~.name,"\""));
5 U" H8 s- V" ?6 e end;( t& e4 f, p/ n* J, T
else5 `9 k3 C% b" G1 _1 V
@.Destination := assignLObj[1,row];, L0 o" g$ p1 a
end;
6 O# N6 V% d0 B$ I$ Q newDirection(@);( y; `, q: H! S( W+ ]/ X; [
@.HasOrder := true;
' I4 h' X2 F. ~1 T; D" S' c+ f end;
# i& @/ Q7 D$ S# M% K8 e! f end;8 c& s+ r# b Z6 Y* Q+ s
end; -- of the method
1 B4 N0 i* G1 k9 T" e |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
