/* called by: entrance ctrl of the object 'track'
- V* A1 ~- [& d9 l. f4 ^*/
, G% E8 Z# }: Z1 mis
5 p2 T, E: J% v! Q- \ part, GlobalDistObj, assignLObj:object;row,Lan:integer;. b9 F" Y, y8 C( g; h' e
do; f# k; r' D/ E: r
Lan := rootfolder.Internal.Tools.AOLlanguage;
( G, B- l, y- O) j if current = @.Destination -- else return
3 m. g6 j0 e/ a4 Q2 V& b/ n- a then
3 s6 D4 f4 l3 [9 K- H @.Destination := void;7 ?# e* `5 U2 @% n1 y( m$ e
if @.occupied then
3 A/ w& z, t2 a6 f& m4 D0 n part := @.cont;$ V/ A! ?/ \: h: _7 Q+ x W
@.transpOrder := void;
/ ?# L9 M9 F6 P3 t* o part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
8 j( d8 r" r' V' @& ~ p @,root.eventcontroller.simTime);! M3 N- Z B& C! s" M3 S
@.HasOrder := false;
9 K/ d# _- Y& [$ {# |0 E" ` @.DrivingHome := true;
v$ _7 L8 K# o j9 E. r rgManager.tryToStartTransOrder;) J9 D( e6 G' Q, Q- K* h
if @.Destination = void0 r" h1 S) n2 d7 v5 g1 @6 A0 ]
then -- no transport order for vehicle @
+ G. A1 |* x9 u! ~, r: ~- D5 [ @.Destination :=7 K- k& b3 n) k5 Y7 q
rgManager.nearestFreeStation(@,track.~);
" l4 a5 U6 V# L newDirection(@); 0 {" r5 w1 v, h, s
if @.Destination /= void then
+ `+ M" Y* H3 g9 V9 X @.Destination.NumReservation :=/ s5 V+ d* I5 Q; S
@.Destination.NumReservation + 1;
) E% l( l1 Z8 c) S# Q' t# K end;: c d, `# m. l* x T, f4 c: ?* Q
@.CurrIcon := "drivingHome";- ?* N% J) e6 s; b& b0 h
@.DrivingHome := true;+ }4 x" C$ Z9 y& [, Z1 o3 J8 ]
end;
- b# ~$ v$ b9 e9 H, A3 K else -- the vehicle @ is empty, both vehicle and part are in the same dock station( y# }) X2 X+ A
part := @.transpOrder;
, ^" x. a: N: J3 Y T/ U# ~0 w part.move(@);-- load part
5 z' s1 z9 d ^. R. f* C M5 U @.CurrIcon := "load";0 k. d8 E7 E% G# B* W' L
GlobalDistObj := part.globDestination;
% a) D! A+ c2 K: S* ?3 Q assignLObj := rgmanager.rgAssignL;2 b1 }7 j3 n y) j% ]9 S
row := assignLObj.getRowNo(GlobalDistObj);% {8 s4 |8 A2 n( Z5 n" [
if Row = -1 then -- since 70
- l$ w$ t/ F; [) J- |) h if lan=1 then8 ~+ w7 W3 H9 D4 \+ V2 R5 O
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
; v0 S0 v4 V: {' A) X" ^ to_str("in der Andockstation: \"",?.~.name,"\""));9 J. T9 i' b+ @8 d* p
else
+ A+ A: \+ k [# z+ ~ promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
! k4 ]9 @) T- _! @ to_str("in docking station: \"",?.~.name,"\"")); l5 D$ F% s% i7 P' ]* _
end;
* J/ z4 [( L6 O, a* P9 N else
& W' y6 \" D$ |8 ^6 { @.Destination := assignLObj[1,row];
+ I* R. m& }6 Z* ~/ } end; * F# g- W8 i# J0 }
newDirection(@);5 h I: N. y$ x+ ? P3 Q
@.HasOrder := true;( ~* Y! F4 D+ u/ y9 w
end;- l# r, I8 e* @
end;
/ x! e: P$ R2 X, F8 tend; -- of the method
' [& F* y# b! x+ S: x |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
