/* called by: entrance ctrl of the object 'track') v9 A/ Z2 r" R, ` p0 z- H
*/
2 V" h- A' B6 a1 B! _is
+ Y% M; L9 z( K# X* q! _! m part, GlobalDistObj, assignLObj:object;row,Lan:integer;. f p+ C9 y$ K% H
do
2 }1 @/ D7 x" I6 ]2 a# q2 j# m Lan := rootfolder.Internal.Tools.AOLlanguage;* Z7 _9 t1 g* w; h
if current = @.Destination -- else return
" g7 m/ J$ ]: V9 }5 a then
' C; c& H& L/ b [- g& q @.Destination := void;
8 r+ H$ J1 u/ \; R9 P if @.occupied then' d; Z; Y; f, H& m1 ^' b
part := @.cont;
+ |" p7 g( j9 `# A* \1 ]0 `0 e7 K @.transpOrder := void;+ p0 ~1 G0 \7 T2 h: o
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,& ` K0 I, s$ b; k" S7 V' X
@,root.eventcontroller.simTime);- i, H1 U- U2 P$ K; `
@.HasOrder := false;- Q) v: F/ R+ { a
@.DrivingHome := true;
3 ~( R) Z1 R: m7 ] [$ S rgManager.tryToStartTransOrder; A4 {9 _5 _1 N5 Q. f6 w
if @.Destination = void
$ J+ J r: x; U8 @/ h( f; j. z then -- no transport order for vehicle @
4 P! @2 P. } W, ? @.Destination :=6 w: l9 A. _6 I; j8 y
rgManager.nearestFreeStation(@,track.~);6 ?6 G. _/ G# |2 q+ E% q' L
newDirection(@);
! S) Y7 O- D4 T1 `2 v6 y2 F if @.Destination /= void then
/ [7 V$ k+ u3 E* P* `! M @.Destination.NumReservation :=7 l) d( i( u0 K1 H8 ^# p# Z! W
@.Destination.NumReservation + 1;
# G" b. K/ |/ v( r end;% @/ k! `7 y2 q1 N5 F
@.CurrIcon := "drivingHome";6 c6 j: r8 I& _- i
@.DrivingHome := true;
% o4 k+ w1 m* V, A. c s end;4 i7 L; e% Y& ~6 S
else -- the vehicle @ is empty, both vehicle and part are in the same dock station, H6 f9 @& M6 d
part := @.transpOrder;# |) T6 q r z( m4 v8 ^6 G
part.move(@);-- load part
2 y/ l d4 f0 i/ u8 ]' `" ]4 | @.CurrIcon := "load";0 r- ]( c( `+ T: J1 r
GlobalDistObj := part.globDestination;
+ x& \" [5 T4 x* v3 W assignLObj := rgmanager.rgAssignL;: K. t5 s/ _( ]
row := assignLObj.getRowNo(GlobalDistObj);" S: s& a, S1 U+ k' N) L
if Row = -1 then -- since 70, @* @0 `2 e' b; ]: K
if lan=1 then
7 J6 ~3 m" y$ c1 v" i8 e promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
0 x; I1 d) A3 |, X to_str("in der Andockstation: \"",?.~.name,"\""));" S) {$ k8 I. o$ r$ D) e8 v; \6 ?
else) A% y! H0 x+ |+ ~% U
promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),* |$ j' D4 g) [$ S1 E
to_str("in docking station: \"",?.~.name,"\"")); R" I& H3 G6 b# V4 `4 j
end;! C, x' e/ ? Q7 E& o5 y/ y; ]
else
" `" b+ ]: c4 L6 ?3 k0 t- r @.Destination := assignLObj[1,row];6 E! f: X# c" Q
end;
" A! ~/ D: g6 l6 G4 P4 ^ newDirection(@);( C: M0 D- G4 k7 O7 N O% A
@.HasOrder := true;
% M a7 U8 [% p! U* P' _5 p- o" C) w end;) r) L5 X/ p! O. I6 w
end;
# F& r {2 l8 w& r2 y# b dend; -- of the method! }: r+ @+ M m0 M+ ^; q) J
|
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
