/* called by: entrance ctrl of the object 'track'
. m8 s% D4 N! f6 y! e5 ~*/' O* }2 d1 ^6 K( _/ S! B3 Y
is
' w3 o) w, ?" Z+ S3 c part, GlobalDistObj, assignLObj:object;row,Lan:integer;
' h4 c0 X3 N$ {0 D% cdo7 w( z1 f1 Y" D- l* D
Lan := rootfolder.Internal.Tools.AOLlanguage;
2 i# x( l( E4 r( [ if current = @.Destination -- else return" ^! Q$ t8 M) \$ a
then+ W+ [* d! t' n: x
@.Destination := void;3 f9 w2 ` e6 Q
if @.occupied then; ^$ n& p) U9 s! O( I! E
part := @.cont;
( _& i1 X* l; G. q; A' W @.transpOrder := void;
5 r f$ C# a2 ^/ W part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,6 E# T+ R( @' A
@,root.eventcontroller.simTime);) T1 o2 \# D! |' P
@.HasOrder := false;
3 x# t/ y2 z% c- t% A @.DrivingHome := true;2 X+ Y- B1 c! j" w, }
rgManager.tryToStartTransOrder;) b$ c- ~! X) I0 f3 Q
if @.Destination = void! p# h$ Z, `3 j: D
then -- no transport order for vehicle @9 P `! x; \$ Q8 H8 _9 i( D: v$ N
@.Destination :=) j: O, {5 x$ Y' ~' B+ ]
rgManager.nearestFreeStation(@,track.~);. B# Y- `4 \. K
newDirection(@); ' m0 n4 q* a2 Y! Y4 I; `# S$ {$ e: s
if @.Destination /= void then( y: x7 @$ t$ w' W
@.Destination.NumReservation :=# \' G8 A& C& M( G) Q; ~2 I: g
@.Destination.NumReservation + 1;) h S2 H( Y# r |. z. x5 |! ^
end;* y7 D" d- F `9 F# D
@.CurrIcon := "drivingHome";
- K2 n4 s; }4 N5 }( n3 O4 n( Y. T @.DrivingHome := true;
! A8 Y( y. x1 Z& w7 u* {$ @. C end;
% P4 _. d, a# i; o) F; |+ R else -- the vehicle @ is empty, both vehicle and part are in the same dock station# r1 O# x0 x- A$ D2 Z1 c% }
part := @.transpOrder;3 w X+ E- W! p- j' Y$ o2 I' ?
part.move(@);-- load part
( c4 Q8 Y. k( U+ ?! [% z$ s @.CurrIcon := "load";. a. O) h% r& q3 Y2 ?
GlobalDistObj := part.globDestination;
1 W/ m& ^% M, @7 H9 g2 Z! F8 Y assignLObj := rgmanager.rgAssignL;
! @ {4 H2 O' b9 C8 m row := assignLObj.getRowNo(GlobalDistObj);- K) t7 R* _$ l, e
if Row = -1 then -- since 70
+ ?4 l& F- i; Y3 c/ q if lan=1 then& C* U1 ^* j" L N; H" x" h9 V' I$ d
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),1 g* Y, ~6 i" ~1 j h+ C
to_str("in der Andockstation: \"",?.~.name,"\""));3 R+ t0 J' w3 Z7 I3 Q+ b: u6 Z
else
, k% B1 U6 g8 I1 y promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),4 {: S( [( x) T7 g2 c8 O
to_str("in docking station: \"",?.~.name,"\"")); ( c3 c: s: ?( K& J# m5 O' U- K( V
end;
" i1 ~0 m# I4 l9 i1 M else
/ o9 q( O+ k& N: v( m+ `: a7 n" {, j @.Destination := assignLObj[1,row];
8 d* b3 \. V. C& Q* O Q; ^9 E8 | end;
. X% @0 e/ V5 I7 X newDirection(@);
0 S6 R* M, J, W* U5 t @.HasOrder := true;: h$ [. d/ M& X
end;) p/ o+ c3 i/ D9 i
end;; @, p' Z2 |% M$ C1 l5 |/ g0 @
end; -- of the method
( _# }& J; O C4 O0 ^ |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
