/* called by: entrance ctrl of the object 'track'( O9 g+ k; z& ^; k: x2 i
*/
2 j9 W2 V! v8 k) ?+ Yis
6 d1 v" `% N/ `/ D3 l9 z5 W part, GlobalDistObj, assignLObj:object;row,Lan:integer;* i8 H k/ Z1 T* f
do3 L- F$ W. h' _/ |. `" @( ]
Lan := rootfolder.Internal.Tools.AOLlanguage;
5 G& e8 f$ l% U5 z/ s4 h if current = @.Destination -- else return
$ t) I1 ]4 J2 M/ e0 M9 K then9 s4 v C" _5 \" H1 u4 i u6 F
@.Destination := void;
, c% j9 S3 }! i- a* l' ~) T+ C7 ~ if @.occupied then
E- }# l! p5 k# g5 q$ y part := @.cont;
7 P& r/ B1 Q# ]2 ]6 A @.transpOrder := void;# d/ f- F4 R& g) j- K+ j
part.move(partExit);-- unload is already possible rgManager.freeVehL.writeRow(0,rgManager.freeVehL.yDim + 1,
) M/ f T1 m9 W$ ` @,root.eventcontroller.simTime);
+ l) Q# k Z, H A9 T! E @.HasOrder := false;
. g# D5 C; F. S# R0 g' q* [ @.DrivingHome := true;/ \: R! [- ]4 j: B: T; z$ A% ?1 T
rgManager.tryToStartTransOrder;# [8 y% J1 K& _5 u( m' D
if @.Destination = void
: e0 R6 b& l% d3 p5 ` then -- no transport order for vehicle @' m) J# ]: k, J# ~( S
@.Destination :=$ G: k: V4 w A t/ y3 }: Q0 M" Y
rgManager.nearestFreeStation(@,track.~);4 m7 i' s) B* C! x8 I! o+ t
newDirection(@); 1 T# m/ A! i( R3 t. B; z" ]
if @.Destination /= void then1 b8 u3 d( g3 h, S4 Q. f
@.Destination.NumReservation :=2 s' y/ r @8 ^) W7 g
@.Destination.NumReservation + 1;: }1 b: P5 T: U8 U) z
end;
4 d* |/ M0 ]# _ @.CurrIcon := "drivingHome";
, j! l- _2 ?2 [1 p+ Y( |$ M" L @.DrivingHome := true;
# A3 O* J/ [9 w- {$ P E end;- [5 r! e& X, y4 K9 Y" m5 j% S6 z0 b
else -- the vehicle @ is empty, both vehicle and part are in the same dock station
, Z6 h, d1 d+ I" i, a9 e3 _' ] part := @.transpOrder;
" d) s( v& f- O1 i+ V& D part.move(@);-- load part
: d; R; W2 W" {' F0 r5 H4 t @.CurrIcon := "load";, S8 }! E; v$ {# t$ W! L
GlobalDistObj := part.globDestination;
1 O7 x/ H5 Z/ K p0 b- K! l6 I assignLObj := rgmanager.rgAssignL;- Q- W) N$ E4 V
row := assignLObj.getRowNo(GlobalDistObj);
- g. O' O+ E H+ K if Row = -1 then -- since 70
" }" E+ v0 j4 B! j" l& L2 e" d if lan=1 then; I% g) i, _9 W: h3 _+ R. j
promptmessage(to_str("Unbekanntes Ziel: \"",GlobalDistObj,"\""),
7 |' N% }/ s0 Z to_str("in der Andockstation: \"",?.~.name,"\""));4 v3 G r6 e* o6 n/ T
else
6 z) M; W: x2 q/ J& H) _& B promptmessage(to_str("Unknown destination: \"",GlobalDistObj,"\""),
% F j6 D- f8 H8 v to_str("in docking station: \"",?.~.name,"\"")); ! ]/ }8 ^ y( E- g
end;
/ G6 S6 L" T; |: a9 I1 ]! Q else1 M2 `( b. g1 Z( d9 X+ P9 c- E( v
@.Destination := assignLObj[1,row];3 E* D4 V( O5 C8 M
end; ) z( f4 {6 d) W$ {" u
newDirection(@);
( H" `/ G: ?, X3 r @.HasOrder := true;/ C( [* R+ x' W. |4 Y6 w
end;
' Y+ v! u3 |$ r" N end;
/ Z e7 G4 U5 s' f( j6 _: p! Bend; -- of the method
& u+ B1 l$ w3 r5 [4 m0 h |
[复制链接]
发表于 2011-11-5 16:38:28
楼主
发表于 2011-11-25 19:15:24
